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

ui.gadgets.labelled: refactor

db4
Eduardo Cavazos 2008-07-14 18:35:30 -05:00
parent c7ed4dd679
commit 0b90cda9e2
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,17 +5,16 @@ ui.gadgets.labels ui.gadgets.panes ui.gadgets.scrollers
ui.gadgets.tracks ui.gadgets.theme ui.gadgets.frames
ui.gadgets.grids io kernel math models namespaces prettyprint
sequences sequences words classes.tuple ui.gadgets ui.render
colors ;
colors accessors ;
IN: ui.gadgets.labelled
TUPLE: labelled-gadget < track content ;
: <labelled-gadget> ( gadget title -- newgadget )
{ 0 1 } labelled-gadget new-track
[
<label> reverse-video-theme f track,
g-> set-labelled-gadget-content 1 track,
] make-gadget ;
swap <label> reverse-video-theme f track-add*
swap >>content
dup content>> 1 track-add* ;
M: labelled-gadget focusable-child* labelled-gadget-content ;
@ -51,9 +50,8 @@ TUPLE: closable-gadget < frame content ;
: <closable-gadget> ( gadget title quot -- gadget )
closable-gadget new-frame
[
<title-bar> @top frame,
g-> set-closable-gadget-content @center frame,
] make-gadget ;
-rot <title-bar> @top grid-add*
swap >>content
dup content>> @center grid-add* ;
M: closable-gadget focusable-child* closable-gadget-content ;