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

ui.gadgets.slots: use with-lines like other tools.

factor-shell
John Benediktsson 2017-10-25 15:48:20 -07:00
parent e376724aa8
commit 59af2ae3d7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -55,14 +55,14 @@ TUPLE: slot-editor < track ref close-hook update-hook text ;
} define-command
: <slot-editor> ( close-hook update-hook ref -- gadget )
vertical slot-editor new-track
vertical slot-editor new-track with-lines
swap >>ref
swap >>update-hook
swap >>close-hook
add-toolbar
<source-editor> >>text
dup text>> margins <scroller> 1 track-add
dup revert white-interior ;
dup text>> margins <scroller> white-interior 1 track-add
dup revert ;
M: slot-editor pref-dim* call-next-method { 600 200 } vmin ;