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

ui.gadgets.slots: rewrite 'display-slot'

db4
Eduardo Cavazos 2008-07-14 22:26:49 -05:00
parent 4bce4db2f7
commit b01bd3a032
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/ui/gadgets/slots/slots.factor
View File

@ -96,8 +96,10 @@ TUPLE: editable-slot < track printer ref ;
<roll-button> ; <roll-button> ;
: display-slot ( gadget editable-slot -- ) : display-slot ( gadget editable-slot -- )
dup clear-track dup clear-track
[ 1 track, <edit-button> f track, ] with-gadget ; swap 1 track-add*
<edit-button> f track-add*
drop ;
: update-slot ( editable-slot -- ) : update-slot ( editable-slot -- )
[ [ ref>> get-ref ] [ printer>> ] bi call ] keep [ [ ref>> get-ref ] [ printer>> ] bi call ] keep