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

ui.gadgets.tracks: rewrite track-remove

db4
Eduardo Cavazos 2008-07-15 03:48:48 -05:00
parent 57dfbf6d10
commit fd7f3423ed
2 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -52,12 +52,14 @@ M: track pref-dim* ( gadget -- dim )
: track-add* ( track gadget constraint -- track ) : track-add* ( track gadget constraint -- track )
pick sizes>> push add-gadget ; pick sizes>> push add-gadget ;
: track-remove ( gadget track -- ) : track-remove ( track gadget -- track )
over [ dupd dup
[ gadget-children index ] 2keep [
swap unparent track-sizes delete-nth [ swap children>> index ]
] [ [ unparent sizes>> ] 2bi
2drop delete-nth
] if ; ]
[ 2drop ]
if ;
: clear-track ( track -- ) V{ } clone >>sizes clear-gadget ; : clear-track ( track -- ) V{ } clone >>sizes clear-gadget ;

6
extra/ui/tools/workspace/workspace.factor
View File

@ -57,9 +57,9 @@ M: gadget tool-scroller drop f ;
article-title open-window ; article-title open-window ;
: hide-popup ( workspace -- ) : hide-popup ( workspace -- )
dup workspace-popup over track-remove dup popup>> track-remove
f over set-workspace-popup f >>popup
request-focus ; request-focus ;
: show-popup ( gadget workspace -- ) : show-popup ( gadget workspace -- )
dup hide-popup dup hide-popup