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

ui.gadgets.frames: refactor to not use 'make-frame'

db4
Eduardo Cavazos 2008-07-14 22:14:31 -05:00
parent c05ebef125
commit 3e9e5e681e
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/ui/gadgets/labelled/labelled.factor
View File

@ -38,10 +38,9 @@ M: labelled-gadget focusable-child* labelled-gadget-content ;
: <title-label> ( text -- label ) <label> dup title-theme ; : <title-label> ( text -- label ) <label> dup title-theme ;
: <title-bar> ( title quot -- gadget ) : <title-bar> ( title quot -- gadget )
[ <frame>
[ <close-box> @left frame, ] when* swap dup [ <close-box> @left grid-add* ] [ drop ] if
<title-label> @center frame, swap <title-label> @center grid-add* ;
] make-frame ;
TUPLE: closable-gadget < frame content ; TUPLE: closable-gadget < frame content ;