`((clnl-interface:initialize
:dims ',(clnl-model:world-dimensions model)
:view ',(clnl-model:view model)
- :buttons ',(clnl-model:buttons model)))))))))
+ :buttons ',(clnl-model:buttons model)
+ :textboxes ',(clnl-model:textboxes model)
+ :sliders ',(clnl-model:sliders model)
+ :switches ',(clnl-model:switches model)))))))))
(setf (documentation 'model->single-form-lisp 'function)
"MODEL->SINGLE-FORM-LISP MODEL &key SEED INITIALIZE-INTERFACE NETLOGO-CALLBACK => FORM
`((clnl-interface:initialize
:dims ',(clnl-model:world-dimensions model)
:view ',(clnl-model:view model)
- :buttons ',(clnl-model:buttons model)))))
+ :buttons ',(clnl-model:buttons model)
+ :textboxes ',(clnl-model:textboxes model)
+ :sliders ',(clnl-model:sliders model)
+ :switches ',(clnl-model:switches model)))))
,@(when netlogo-callback-fn
`((defun ,netlogo-callback-fn (,(intern "NETLOGO-CODE" *model-package*))
,(netlogo-callback-body prims))))))))