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

Add hide-glass-hook

db4
Slava Pestov 2009-01-13 20:44:36 -06:00
parent be181dcca2
commit a60bf8065a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,6 +4,10 @@ USING: accessors kernel namespaces ui.gadgets ui.gadgets.worlds
ui.gestures ; ui.gestures ;
IN: ui.gadgets.glass IN: ui.gadgets.glass
GENERIC: hide-glass-hook ( gadget -- )
M: gadget hide-glass-hook drop ;
TUPLE: glass < gadget ; TUPLE: glass < gadget ;
: <glass> ( child loc -- glass ) : <glass> ( child loc -- glass )
@ -11,6 +15,8 @@ TUPLE: glass < gadget ;
M: glass layout* gadget-child prefer ; M: glass layout* gadget-child prefer ;
M: glass ungraft* gadget-child hide-glass-hook ;
: hide-glass ( world -- ) : hide-glass ( world -- )
[ [ unparent ] when* f ] change-glass drop ; [ [ unparent ] when* f ] change-glass drop ;