UI/Model Parse - Sliders - WIP

[clnl] / src / main / main.lisp

diff --git a/src/main/main.lisp b/src/main/main.lisp
index 4b845cff37d0b0a3b7f4b435a05a0e0b3d729ce2..920e4e8445d69143a036710ead791d7e1233d335 100644 (file)
--- a/src/main/main.lisp
+++ b/src/main/main.lisp
@@ -224,6 +224,8 @@ EXAMPLES:
             :dims ',(clnl-model:world-dimensions model)
             :view ',(clnl-model:view 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)
@@ -280,6 +282,8 @@ DESCRIPTION:
             :dims ',(clnl-model:world-dimensions model)
             :view ',(clnl-model:view 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*))