projects
/
clnl
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Interface - add resize capabilities
[clnl]
/
src
/
main
/
model.lisp
diff --git
a/src/main/model.lisp
b/src/main/model.lisp
index 022a658625af2db43e384fb9c797db9e33a50e26..5e0dde7bf806531009e9ce2e170d7ba01da63878 100644
(file)
--- a/
src/main/model.lisp
+++ b/
src/main/model.lisp
@@
-29,7
+29,7
@@
DESCRIPTION:
(make-model
:code ""
:interface (list
(make-model
:code ""
:interface (list
- (make-view :min-pxcor -5 :max-pxcor 5 :min-pycor -5 :max-pycor 5))))
+ (make-view :min-pxcor -5 :max-pxcor 5 :min-pycor -5 :max-pycor 5
:patch-size 13d0
))))
(defun read-from-nlogo (str)
"READ-FROM-NLOGO STR => MODEL
(defun read-from-nlogo (str)
"READ-FROM-NLOGO STR => MODEL
@@
-221,7
+221,8
@@
DESCRIPTION:
:xmin (view-min-pxcor view)
:xmax (view-max-pxcor view)
:ymin (view-min-pycor view)
:xmin (view-min-pxcor view)
:xmax (view-max-pxcor view)
:ymin (view-min-pycor view)
- :ymax (view-max-pycor view))))
+ :ymax (view-max-pycor view)
+ :patch-size (view-patch-size view))))
(defun widget-globals (model)
"WIDGET-GLOBALS MODEL => GLOBALS
(defun widget-globals (model)
"WIDGET-GLOBALS MODEL => GLOBALS