steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add the <field> gadget to boids

darcs
wayo.cavazos 2006-07-15 11:29:39 +00:00
parent 3d9da8b84c
commit eb8c5dab67
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
contrib/boids.factor
View File

@ -8,7 +8,7 @@
! results, increase the size of the window (larger than 400x400 is ! results, increase the size of the window (larger than 400x400 is
! good). Then press the "Reset" button to start the demo over. ! good). Then press the "Reset" button to start the demo over.
REQUIRES: slate ; REQUIRES: math slate vars ;
USING: generic threads namespaces math kernel sequences arrays gadgets USING: generic threads namespaces math kernel sequences arrays gadgets
math-contrib slate vars ; math-contrib slate vars ;
@ -321,6 +321,25 @@ run-boids ;
USING: gadgets-frames gadgets-labels gadgets-theme gadgets-grids USING: gadgets-frames gadgets-labels gadgets-theme gadgets-grids
gadgets-editors gadgets-buttons ; gadgets-editors gadgets-buttons ;
! USING: kernel arrays gadgets gadgets-labels gadgets-editors vars ;
TUPLE: field label editor quot ;
VAR: field
C: field ( label-text editor-text quot -- <field> )
[ field ]
[ field> set-field-quot
<editor> field> set-field-editor
<label> field> set-field-label
field> field-label field> field-editor 2array make-shelf
field> set-gadget-delegate
field> ]
let ;
M: field gadget-gestures
drop H{ { T{ key-down f f "RETURN" } [ dup field-quot call ] } } ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: [bind] ( ns quot -- quot ) \ bind 3array >quotation ; : [bind] ( ns quot -- quot ) \ bind 3array >quotation ;