ui.tools.workspace: rewrite show-popup

2008-07-15 12:07:17 -05:00 · 2008-07-15 12:07:17 -05:00 · c3dd210079
parent 2abc7c329b
commit c3dd210079
1 changed files with 4 additions and 4 deletions
--- a/extra/ui/tools/workspace/workspace.factor
+++ b/extra/ui/tools/workspace/workspace.factor
@ -60,10 +60,10 @@ M: gadget tool-scroller drop f ;
  request-focus ;

 : show-popup ( gadget workspace -- )
-    dup hide-popup
-    2dup set-workspace-popup
-    dupd f track-add
-    request-focus ;
+  dup hide-popup
+  over >>popup
+  over f track-add* drop
+  request-focus ;

 : show-titled-popup ( workspace gadget title -- )
    [ find-workspace hide-popup ] <closable-gadget>