"

 COPYRIGHT (c) 1995 by Claus Gittinger

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

Object subclass:#WindowBuilder

	instanceVariableNames:'window windowView application bindings visuals focusSequence

		namedComponents componentCreationHook applicationClass

		keyboardProcessor subCanvasSpecs'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Support-UI'

!

!WindowBuilder class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1995 by Claus Gittinger

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    a no-op class, for systems which do not use the UIBuilder.

    Concrete subclasses know how to create a view (with components) from

    some interface spec. Currently, an experimantal version of UIBuilder exists,

    and more may be added in the future (for example, to parse different UI

    specs - thinking of motifs UIL specs etc).

    [author:]

        Claus Gittinger

"

! !

!WindowBuilder methodsFor:'accessing'!

addBindings:moreBindings

    "used with subDialogs, which provide local bindings.

     All bindings from moreBindings overwrite any local bindings."

    moreBindings notNil ifTrue:[

        moreBindings keysAndValuesDo:[:aKey :aValue |

            bindings at:aKey put:aValue

        ]

    ]

    "Created: 28.2.1997 / 14:14:33 / cg"

!

application

    "return the application (an ApplicationModel),

     for which the view is built.

     This one is supposed to provide the aspects, menus etc."

    ^ application

    "Modified: 17.1.1997 / 19:04:40 / cg"

!

application:anApplicationModel

    "set the application (an ApplicationModel),

     for which the view is built.

     This one is supposed to provide the aspects, menus etc."

    application := anApplicationModel

    "Modified: 17.1.1997 / 19:04:47 / cg"

!

applicationClass:something

    "set the value of the instance variable 'applicationClass' (automatically generated)"

    applicationClass := something.!

aspectAt:aSymbol

    |b|

    aSymbol notNil ifTrue:[

        bindings notNil ifTrue:[

            b := bindings at:aSymbol ifAbsent:nil.

            b notNil ifTrue:[^ b].

        ].

        application notNil ifTrue:[

                ^ application aspectFor:aSymbol

            ]

        ]

    ].

    ^ nil

    "Modified: 17.1.1997 / 19:28:32 / cg"

!

aspectAt:aSymbol put:aModel

    bindings isNil ifTrue:[

        bindings := IdentityDictionary new

    ].

    ^ bindings at:aSymbol put:aModel

    "Modified: 17.1.1997 / 19:28:37 / cg"

!

bindingAt:aSymbol

    bindings notNil ifTrue:[

        ^ bindings at:aSymbol ifAbsent:nil.

    ].

    ^ nil

!

bindings

    ^ bindings

!

bindings:aDictionary

    bindings := aDictionary

!

componentAt:name

    namedComponents isNil ifTrue:[^ nil].

    ^ namedComponents at:name asSymbol ifAbsent:nil

!

componentAt:name put:aComponent

    namedComponents isNil ifTrue:[

        namedComponents := IdentityDictionary new.

    ].

    namedComponents at:name asSymbol put:aComponent

!

componentCreationHook:something

    "set the value of the instance variable 'componentCreationHook' (automatically generated)"

    componentCreationHook := something.!

focusSequence 

    ^ focusSequence

!

keyboardProcessor

    keyboardProcessor isNil ifTrue:[

        keyboardProcessor := KeyboardProcessor new    

    ].

    ^ keyboardProcessor

    "Created: 3.3.1997 / 18:31:37 / cg"

    "Modified: 3.3.1997 / 18:32:27 / cg"

!

namedComponents

    ^ namedComponents

!

source

    "same as #application, for ST-80 compatibility"

    ^ application

    "Created: 17.1.1997 / 19:03:51 / cg"

!

source:anApplicationModel

    "same as #application:, for ST-80 compatibility"

    application := anApplicationModel

    "Modified: 17.1.1997 / 19:03:57 / cg"

!

subCanvasAt:majorKey at:minorKey

    |majorDict spec cls k|

    k := majorKey ? #NoMajorKey.

    subCanvasSpecs notNil ifTrue:[

        majorDict := subCanvasSpecs at:k ifAbsent:nil.

        majorDict notNil ifTrue:[

            spec := majorDict at:minorKey ifAbsent:nil.

            spec notNil ifTrue:[^ spec].

        ].

    ].

    majorKey isNil ifTrue:[

        "/ I provide the spec

        application isNil ifTrue:[

            ^ nil

        ].

        spec := application specificationFor:minorKey

    ] ifFalse:[

        cls := Smalltalk at:majorKey ifAbsent:nil.

        cls notNil ifTrue:[

            spec := cls perform:minorKey

        ]

    ].

    ^ spec

!

subCanvasAt:majorKey at:minorKey put:aSpec

    |dict key|

    key := majorKey ? #NoMajorKey.

    dict := subCanvasSpecs at:key ifAbsent:nil.

    dict isNil ifTrue:[

        dict := IdentityDictionary new.

        subCanvasSpecs at:key put:dict

    ].

    dict at:minorKey put:aSpec

!

visualAt:name

    visuals isNil ifTrue:[^ nil].

    ^ visuals at:name asSymbol ifAbsent:nil

    "Created: 3.3.1997 / 16:24:17 / cg"

!

visualAt:name put:aVisual

    visuals isNil ifTrue:[

        visuals := IdentityDictionary new.

    ].

    visuals at:name asSymbol put:aVisual

    "Created: 3.3.1997 / 16:24:41 / cg"

!

visuals

    ^ visuals

    "Created: 3.3.1997 / 16:24:00 / cg"

!

visuals:aDictionary

    visuals := aDictionary

    "Created: 3.3.1997 / 16:24:06 / cg"

!

window

    "return the top window (view), for which an interface

     is (being) built"

    ^ window

    "Modified: 17.1.1997 / 19:30:00 / cg"

!

window:aView

    "set the top window (view), for which an interface

     is (being) built"

    window := aView

    "Modified: 17.1.1997 / 19:30:22 / cg"

!

windowGroup

self halt.

    ^ window windowGroup

    "Modified: 17.1.1997 / 19:30:26 / cg"

! !

!WindowBuilder methodsFor:'building'!

buildFromSpec:aSpec

    ^ self subclassResponsibility

!

makeTabable:aComponent

    focusSequence isNil ifTrue:[

        focusSequence := OrderedCollection new.

    ].

    focusSequence add:aComponent

! !

!WindowBuilder methodsFor:'spec creation aspect fetch'!

actionFor:aKey

    "return an action for aKey. This is invoked during window building

     (by the builder) to ask for an ActionButtons actionBlock.

     Here, first the local bindings are searched, then the application and

     finally the applications class is asked for a corresponding action.

     The returned object is typically a block."

    |b|

    bindings notNil ifTrue:[

        b := bindings at:aKey ifAbsent:nil.

        b notNil ifTrue:[^ b].

    ].

    application notNil ifTrue:[

            ^ application actionFor:aKey

        ]

    ].

    applicationClass notNil ifTrue:[

        (applicationClass respondsTo:#actionFor:) ifTrue:[

            ^ applicationClass actionFor:aKey

        ]

    ].

    ^ []

    "Created: 17.1.1997 / 21:08:22 / cg"

!

aspectFor:aKey

    "return a model for aKey. This is invoked during window building

     (by the builder) to ask for an Editfields, a Toggles etc. model.

     Here, first the local bindings are searched, then the application and

     finally the applications class is asked for a corresponding action.

     The returned object is typically a valueHolder."

    |b|

    bindings notNil ifTrue:[

        b := bindings at:aKey ifAbsent:nil.

        b notNil ifTrue:[^ b].

    ].

    application notNil ifTrue:[

            ^ application aspectFor:aKey

        ]

    ].

    applicationClass notNil ifTrue:[

        (applicationClass respondsTo:#aspectFor:) ifTrue:[

            ^ applicationClass aspectFor:aKey

        ]

    ].

    ^ self aspectAt:aKey

    "Created: 17.1.1997 / 21:06:16 / cg"

!

componentFor:aKey

    "return a component for aKey. This is invoked during window building

     (by the builder) to ask for an ArbitraryComponents view.

     Here, first the local bindings are searched, then the application and

     finally the applications class is asked for a corresponding action.

     The returned object is typically a view."

    |cls|

    application notNil ifTrue:[

            ^ application componentFor:aKey

        ]

    ].

    applicationClass notNil ifTrue:[

        (applicationClass respondsTo:#componentFor:) ifTrue:[

            ^ applicationClass componentFor:aKey

        ]

    ].

    ^ self aspectAt:aKey

!

labelFor:aKey

    "return a label for aKey. This is invoked during window building

     (by the builder) to ask for a ???'s label.

     Here, first the local bindings are searched, then the application and

     finally the applications class is asked for a corresponding action.

     The returned object is typically a string."

    |cls|

    application notNil ifTrue:[

            ^ application labelFor:aKey

        ]

    ].

    applicationClass notNil ifTrue:[

        (applicationClass respondsTo:#labelFor:) ifTrue:[

            ^ applicationClass labelFor:aKey

        ]

    ].

    ^ self aspectAt:aKey

!

listFor:aKey

    "return a list for aKey. This is invoked during window building

     (by the builder) to ask for a ???'s label.

     Here, first the local bindings are searched, then the application and

     finally the applications class is asked for a corresponding action.

     The returned object is typically a list."

    application notNil ifTrue:[

            ^ application listFor:aKey

        ]

    ].

    applicationClass notNil ifTrue:[

        (applicationClass respondsTo:#listFor:) ifTrue:[

            ^ applicationClass listFor:aKey

        ]

    ].

    ^ self aspectAt:aKey

    "Created: 17.1.1997 / 21:08:45 / cg"

! !

!WindowBuilder methodsFor:'spec creation callbacks'!

createdComponent:aView forSpec:spec

    componentCreationHook notNil ifTrue:[

        componentCreationHook value:aView value:spec value:self

    ]

    "Modified: 5.9.1995 / 21:42:54 / claus"

! !

!WindowBuilder methodsFor:'startup'!

closeRequest

    window destroy

    "Modified: 17.1.1997 / 19:30:32 / cg"

!

open

    "open my topView, as previously created"

    |type|

    application isNil ifTrue:[

        type := #normal

    ] ifFalse:[

        type := application defaultWindowType

    ].

    self 

        openWithExtent:nil

        andType:type

    "Modified: 3.3.1997 / 19:43:57 / cg"

!

openAt:aPoint

    "open my topView at some location"

    self 

        openAt:aPoint 

        withExtent:nil  

        andType:(application defaultWindowType)

    "Created: 14.2.1997 / 20:21:57 / cg"

    "Modified: 28.2.1997 / 22:50:29 / cg"

!

openAt:origin withExtent:ext andType:type

    "open my window, as previously created, optionally defining the

     windows origin and/or extent. 

     The type argument may be #dialog or #normal, and specifies if the view 

     should be opened as a modal view, blocking interaction to the currently 

     active view, or as a normal view."

    |mainSubView|

    origin notNil ifTrue:[

        window origin:origin