X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Fmain.lisp;h=2f32d3b8b408c74ef7a41fff3cc3eee1f3dfb2f2;hp=f7379786669763f6adc54d22b68a2972526c47cf;hb=bc0c65622016066a82bc03b065f7138118c5b3cd;hpb=31a8f429b5182d9c4f3eae208ccc8efbdfe8a996

diff --git a/src/main/main.lisp b/src/main/main.lisp
index f737978..2f32d3b 100644
--- 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*))