Menus

[factor.git] / library / ui / world.factor

diff --git a/library/ui/world.factor b/library/ui/world.factor
index fbddd3a5deb2fba7c4c8925f1bc09e47932c3ec0..e1af1a43b35bae9cfe9120a2395a8fc7bc76712c 100644 (file)
--- a/library/ui/world.factor
+++ b/library/ui/world.factor
@@ -16,7 +16,7 @@ kernel math models namespaces opengl sequences ;
 !   UI code assumes that everything starts at { 0 0 }.
 TUPLE: world
 active?
-gadget
+gadget glass
 title status
 focus focused?
 fonts handle
@@ -66,3 +66,18 @@ M: world model-changed
     >r world get font-sprites first2 r> (draw-string) ;
 
 M: world gadget-title world-gadget gadget-title ;
+
+M: world layout*
+    dup delegate layout*
+    dup world-glass [
+        >r dup rect-dim r> set-layout-dim
+    ] when* drop ;
+
+: hide-glass ( world -- )
+    dup world-glass [ unparent ] when*
+    f swap set-world-glass ;
+
+: show-glass ( gadget world -- )
+    [ hide-glass ] keep
+    [ add-gadget ] 2keep
+    set-world-glass ;