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

ui.gadgets.slots: rewrite <slot-editor>

db4
Eduardo Cavazos 2008-07-14 17:16:51 -05:00
parent b0870bc55a
commit 07881295c5
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -71,11 +71,9 @@ M: value-ref finish-editing
: <slot-editor> ( ref -- gadget ) : <slot-editor> ( ref -- gadget )
{ 0 1 } slot-editor new-track { 0 1 } slot-editor new-track
swap >>ref swap >>ref
[ dup <toolbar> f track-add*
toolbar, <source-editor> >>text
<source-editor> g-> set-slot-editor-text dup text>> <scroller> 1 track-add*
<scroller> 1 track,
] make-gadget
dup revert ; dup revert ;
M: slot-editor pref-dim* call-next-method { 600 200 } vmin ; M: slot-editor pref-dim* call-next-method { 600 200 } vmin ;