automata.ui: use 'grid-add*'
parent
6f500fde6b
commit
f4388ec147
|
@ -15,7 +15,6 @@ USING: kernel namespaces math quotations arrays hashtables sequences threads
|
||||||
ui.gadgets.theme
|
ui.gadgets.theme
|
||||||
ui.gadgets.handler
|
ui.gadgets.handler
|
||||||
accessors
|
accessors
|
||||||
qualified
|
|
||||||
namespaces.lib assocs.lib vars
|
namespaces.lib assocs.lib vars
|
||||||
rewrite-closures automata math.geometry.rect newfx ;
|
rewrite-closures automata math.geometry.rect newfx ;
|
||||||
|
|
||||||
|
@ -23,13 +22,6 @@ IN: automata.ui
|
||||||
|
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
QUALIFIED: ui.gadgets.grids
|
|
||||||
|
|
||||||
: grid-add ( grid child i j -- grid )
|
|
||||||
>r >r dupd swap r> r> ui.gadgets.grids:grid-add ;
|
|
||||||
|
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
||||||
|
|
||||||
: draw-point ( y x value -- ) 1 = [ swap glVertex2i ] [ 2drop ] if ;
|
: draw-point ( y x value -- ) 1 = [ swap glVertex2i ] [ 2drop ] if ;
|
||||||
|
|
||||||
: draw-line ( y line -- ) 0 swap [ >r 2dup r> draw-point 1+ ] each 2drop ;
|
: draw-line ( y line -- ) 0 swap [ >r 2dup r> draw-point 1+ ] each 2drop ;
|
||||||
|
@ -80,13 +72,13 @@ DEFER: automata-window
|
||||||
"5 - Random Rule" [ random-rule ] view-button add-gadget
|
"5 - Random Rule" [ random-rule ] view-button add-gadget
|
||||||
"n - New" [ automata-window ] view-button add-gadget
|
"n - New" [ automata-window ] view-button add-gadget
|
||||||
|
|
||||||
@top grid-add
|
@top grid-add*
|
||||||
|
|
||||||
C[ display ] <slate>
|
C[ display ] <slate>
|
||||||
{ 400 400 } >>pdim
|
{ 400 400 } >>pdim
|
||||||
dup >slate
|
dup >slate
|
||||||
|
|
||||||
@center grid-add
|
@center grid-add*
|
||||||
|
|
||||||
<handler>
|
<handler>
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue