'dim' slot of slate was renamed to 'pdim'. Update usages.
parent
d83fcea993
commit
de09c1e2d9
|
@ -83,7 +83,7 @@ DEFER: automata-window
|
||||||
@top grid-add
|
@top grid-add
|
||||||
|
|
||||||
C[ display ] <slate>
|
C[ display ] <slate>
|
||||||
{ 400 400 } >>dim
|
{ 400 400 } >>pdim
|
||||||
dup >slate
|
dup >slate
|
||||||
|
|
||||||
@center grid-add
|
@center grid-add
|
||||||
|
|
|
@ -102,7 +102,7 @@ VARS: population-label cohesion-label alignment-label separation-label ;
|
||||||
|
|
||||||
C[ display ] <slate> >slate
|
C[ display ] <slate> >slate
|
||||||
t slate> set-gadget-clipped?
|
t slate> set-gadget-clipped?
|
||||||
{ 600 400 } slate> set-slate-dim
|
{ 600 400 } slate> set-slate-pdim
|
||||||
C[ [ run ] in-thread ] slate> set-slate-graft
|
C[ [ run ] in-thread ] slate> set-slate-graft
|
||||||
C[ loop off ] slate> set-slate-ungraft
|
C[ loop off ] slate> set-slate-ungraft
|
||||||
|
|
||||||
|
|
|
@ -204,7 +204,7 @@ VAR: start-shape
|
||||||
|
|
||||||
: cfdg-window* ( -- )
|
: cfdg-window* ( -- )
|
||||||
[ display ] closed-quot <slate>
|
[ display ] closed-quot <slate>
|
||||||
{ 500 500 } over set-slate-dim
|
{ 500 500 } over set-slate-pdim
|
||||||
dup "CFDG" open-window ;
|
dup "CFDG" open-window ;
|
||||||
|
|
||||||
: cfdg-window ( -- ) [ cfdg-window* ] with-ui ;
|
: cfdg-window ( -- ) [ cfdg-window* ] with-ui ;
|
|
@ -57,7 +57,7 @@ IN: golden-section
|
||||||
: golden-section-window ( -- )
|
: golden-section-window ( -- )
|
||||||
[
|
[
|
||||||
[ display ] <slate>
|
[ display ] <slate>
|
||||||
{ 600 600 } over set-slate-dim
|
{ 600 600 } over set-slate-pdim
|
||||||
"Golden Section" open-window
|
"Golden Section" open-window
|
||||||
] with-ui ;
|
] with-ui ;
|
||||||
|
|
||||||
|
|
|
@ -158,7 +158,7 @@ DEFER: empty-model
|
||||||
: lsys-viewer ( -- )
|
: lsys-viewer ( -- )
|
||||||
|
|
||||||
[ ] <slate> >slate
|
[ ] <slate> >slate
|
||||||
{ 400 400 } clone slate> set-slate-dim
|
{ 400 400 } clone slate> set-slate-pdim
|
||||||
|
|
||||||
{
|
{
|
||||||
|
|
||||||
|
|
|
@ -51,7 +51,7 @@ DEFER: maybe-loop
|
||||||
: springies-window* ( -- )
|
: springies-window* ( -- )
|
||||||
|
|
||||||
C[ display ] <slate> >slate
|
C[ display ] <slate> >slate
|
||||||
{ 800 600 } slate> set-slate-dim
|
{ 800 600 } slate> set-slate-pdim
|
||||||
C[ { 500 500 } >world-size loop on [ run ] in-thread ]
|
C[ { 500 500 } >world-size loop on [ run ] in-thread ]
|
||||||
slate> set-slate-graft
|
slate> set-slate-graft
|
||||||
C[ loop off ] slate> set-slate-ungraft
|
C[ loop off ] slate> set-slate-ungraft
|
||||||
|
|
Loading…
Reference in New Issue