UI - View positioned correctly

[clnl] / src / main / main.lisp

diff --git a/src/main/main.lisp b/src/main/main.lisp
index f7379786669763f6adc54d22b68a2972526c47cf..2f32d3b8b408c74ef7a41fff3cc3eee1f3dfb2f2 100644 (file)
--- a/src/main/main.lisp
+++ b/src/main/main.lisp
@@ -217,6 +217,7 @@ EXAMPLES:
       ,@(when initialize-interface
          `((clnl-interface:initialize
             :dims ',(clnl-model:world-dimensions model)
+            :view ',(clnl-model:view model)
             :buttons ',(clnl-model:buttons model)))))))))
 
 (setf (documentation 'model->single-form-lisp 'function)
@@ -271,6 +272,7 @@ DESCRIPTION:
       ,@(when initialize-interface
          `((clnl-interface:initialize
             :dims ',(clnl-model:world-dimensions model)
+            :view ',(clnl-model:view model)
             :buttons ',(clnl-model:buttons model)))))
      ,@(when netlogo-callback-fn
         `((defun ,netlogo-callback-fn (,(intern "NETLOGO-CODE" *model-package*))