! Copyright (C) 2006 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
IN: gadgets-workspace
USING: gadgets gadgets-books gadgets-controls gadgets-workspace
generic kernel models scratchpad sequences syntax ;

DEFER: workspace-window

GENERIC: call-tool* ( arg tool -- )

TUPLE: workspace ;

TUPLE: tool gadget ;

: show-tool ( class workspace -- tool )
    [ book-pages [ tool-gadget class eq? ] find-with swap ] keep
    control-model set-model* ;

: select-tool ( workspace class -- ) swap show-tool drop ;

: find-workspace ( -- workspace )
    [ workspace? ] find-window
    [ world-gadget ] [ workspace-window find-workspace ] if* ;

: call-tool ( arg class -- )
    find-workspace show-tool call-tool* ;