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

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

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