'dim' slot of slate was renamed to 'pdim'. Update usages.

db4
Eduardo Cavazos 2008-07-17 18:30:19 -05:00
parent d83fcea993
commit de09c1e2d9
6 changed files with 6 additions and 6 deletions

View File

@ -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

View File

@ -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

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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
{ {

View File

@ -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