instanceVariableNames:'window application bindings focusSequence namedComponents'

    "return the application (an ApplicationModel),

     for which the view is built.

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

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

    "set the application (an ApplicationModel),

     for which the view is built.

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

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

    bindings isNil ifTrue:[^ nil].

    ^ bindings at:aSymbol ifAbsent:nil

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

    bindings isNil ifTrue:[

        bindings := IdentityDictionary new

    ^ bindings at:aSymbol put:aModel

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

source

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

    ^ application

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

!

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

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

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

     is (being) built"

    ^ window

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

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

     is (being) built"

    window := aView

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

self halt.

    ^ window windowGroup

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

!WindowBuilder methodsFor:'building'!

!WindowBuilder methodsFor:'startup'!

closeRequest

    window destroy

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

!

open

    "open my topView, as previously created"

    self 

        openWithExtent:nil

        andType:(application defaultWindowType)

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

!

openDialog

    "open my topView, as previously created as a modal view,

     blocking interaction to the currently active view."

    self 

        openWithExtent:nil 

        andType:#dialog

    "Modified: 17.1.1997 / 19:59:29 / cg"

!

openDialogWithExtent:ext

    "open my topView, as previously created as a modal view,

     blocking interaction to the currently active view."

    self 

        openWithExtent:ext 

        andType:#dialog

    "Modified: 17.1.1997 / 19:59:36 / cg"

!

openPopUpIn:aRectangle

    "open my topView, as previously created as a popUp view,

     blocking interaction to the currently active view."

    self 

        openWithExtent:nil 

        andType:#popUp

    "Modified: 17.1.1997 / 19:59:29 / cg"

    "Created: 17.1.1997 / 20:01:24 / cg"

!

openWithExtent:aPoint

    "open my topView, as previously created, but override

     the extent."

    self 

        openWithExtent:aPoint 

        andType:(application defaultWindowType)

    "Modified: 17.1.1997 / 19:58:48 / cg"

!

openWithExtent:ext andType:type

    "open my window, as previously created. 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."

    ext notNil ifTrue:[

        window extent:ext

    ].

    type == #dialog ifTrue:[

        window openModal.

        ^ self

    ].

    type == #normal ifTrue:[

        window open.

        ^ self

    ].

    type == #popUp ifTrue:[

"/        window openAsPopUp.  "/ not yet implemented

        window openModal.

        ^ self

    ].

    "

     if ST-80 supports more types - these may be added later

    "

    self halt:'unimplemented'

    "Modified: 17.1.1997 / 20:02:01 / cg"

! !

    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.14 1997-01-17 19:53:40 cg Exp $'