Changeset 537 for trunk/thune/gl/gx.c

Timestamp:

06/07/08 03:35:15 (6 months ago)

Author:

krobillard

Message:

Added show, hide, and gui_setMouseFocus().
Quit & halt propogate up nested ur_eval() calls.
Thune-gl RPM builds again.

Files:

• trunk/thune/gl/gx.c (modified) (2 diffs)

trunk/thune/gl/gx.c

@@ -721 +721 @@
 
 
+// (widget -- )
+UR_CALL( uc_show )
+{
+    if( ur_is(tos, UT_WIDGET) )
+    {
+        UCell* inv;
+        GWidgetId id = ur_int(tos);
+        GWidget* wp = gui_widgetPtr( &gxEnv.gui, id );
+        if( wp )
+        {
+            gui_show( &gxEnv.gui, wp, 1 );
+
+            inv = UR_CALL_CELL;
+            if( inv && (ur_sel(inv) == UR_ATOM_FOCUS) )
+            {
+                gui_setKeyFocus( &gxEnv.gui, id );
+                gui_setMouseFocus( &gxEnv.gui, id );
+            }
+        }
+    }
+    UR_S_DROP;
+}
+
+
+// (widget -- )
+UR_CALL( uc_hide )
+{
+    if( ur_is(tos, UT_WIDGET) )
+    {
+        GWidget* wp = gui_widgetPtr( &gxEnv.gui, ur_int(tos) );
+        if( wp )
+            gui_show( &gxEnv.gui, wp, 0 );
+    }
+    UR_S_DROP;
+}
+
+
 // (matrix vec3 -- )
 UR_CALL( uc_look_at )
@@ -1293 +1330 @@
     { uc_play,           "play" },
     { uc_stop,           "stop" },
+    { uc_show,           "show" },
+    { uc_hide,           "hide" },
     { uc_text_size,      "text-size" },
     { uc_display_events, "display.events" },