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

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

@ -1,25 +1,23 @@
! Copyright (C) 2006, 2007 Slava Pestov. ! Copyright (C) 2006, 2007 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: classes continuations help help.topics kernel models USING: classes continuations help help.topics kernel models
sequences ui ui.backend ui.tools.debugger ui.gadgets sequences ui ui.backend ui.tools.debugger ui.gadgets
ui.gadgets.books ui.gadgets.buttons ui.gadgets.labelled 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 -- )