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

ui.tools.workspace: minor changes

db4
Eduardo Cavazos 2008-07-15 03:58:01 -05:00
parent 7c0fe0cf05
commit 2abc7c329b
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/ui/tools/workspace/workspace.factor
View File

@ -6,20 +6,18 @@ ui.gadgets.books ui.gadgets.buttons ui.gadgets.labelled
ui.gadgets.panes ui.gadgets.scrollers ui.gadgets.tracks ui.gadgets.panes ui.gadgets.scrollers ui.gadgets.tracks
ui.gadgets.worlds ui.gadgets.presentations ui.gadgets.status-bar ui.gadgets.worlds ui.gadgets.presentations ui.gadgets.status-bar
ui.commands ui.gestures assocs arrays namespaces accessors ; ui.commands ui.gestures assocs arrays namespaces accessors ;
IN: ui.tools.workspace IN: ui.tools.workspace
TUPLE: workspace < track book listener popup ; TUPLE: workspace < track book listener popup ;
: find-workspace ( gadget -- workspace ) : find-workspace ( gadget -- workspace ) [ workspace? ] find-parent ;
[ workspace? ] find-parent ;
SYMBOL: workspace-window-hook SYMBOL: workspace-window-hook
: workspace-window* ( -- workspace ) : workspace-window* ( -- workspace ) workspace-window-hook get call ;
workspace-window-hook get call ;
: workspace-window ( -- ) : workspace-window ( -- ) workspace-window* drop ;
workspace-window* drop ;
GENERIC: call-tool* ( arg tool -- ) GENERIC: call-tool* ( arg tool -- )