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.
! See http://factorcode.org/license.txt for BSD license.
USING: classes continuations help help.topics kernel models
sequences ui ui.backend ui.tools.debugger ui.gadgets
ui.gadgets.books ui.gadgets.buttons ui.gadgets.labelled
ui.gadgets.panes ui.gadgets.scrollers ui.gadgets.tracks
ui.gadgets.worlds ui.gadgets.presentations ui.gadgets.status-bar
ui.commands ui.gestures assocs arrays namespaces accessors ;
sequences ui ui.backend ui.tools.debugger ui.gadgets
ui.gadgets.books ui.gadgets.buttons ui.gadgets.labelled
ui.gadgets.panes ui.gadgets.scrollers ui.gadgets.tracks
ui.gadgets.worlds ui.gadgets.presentations ui.gadgets.status-bar
ui.commands ui.gestures assocs arrays namespaces accessors ;
IN: ui.tools.workspace
TUPLE: workspace < track book listener popup ;
: find-workspace ( gadget -- workspace )
[ workspace? ] find-parent ;
: find-workspace ( gadget -- workspace ) [ workspace? ] find-parent ;
SYMBOL: workspace-window-hook
: workspace-window* ( -- workspace )
workspace-window-hook get call ;
: workspace-window* ( -- workspace ) workspace-window-hook get call ;
: workspace-window ( -- )
workspace-window* drop ;
: workspace-window ( -- ) workspace-window* drop ;
GENERIC: call-tool* ( arg tool -- )