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
@ -61,8 +61,8 @@ M: gadget tool-scroller drop f ;

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

 : show-titled-popup ( workspace gadget title -- )