"

 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.

"

"{ Package: 'stx:libview2' }"

Model subclass:#ApplicationModel

	instanceVariableNames:'builder resources device masterApplication'

	classVariableNames:'DefaultLabels DefaultVisuals'

	poolDictionaries:''

	category:'Interface-Framework'

!

ApplicationModel class instanceVariableNames:'ClassResources'

"

 No other class instance variables are inherited by this class.

"

!

!ApplicationModel 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

"

    Since many ST-80 classes are subclasses of ApplicationModel, this class

    is provided here to allow easier porting of ST-80 code.

    It does not (currently) provide all functionality and is NOT

    compatible to the corresponding ST80 class; therefore, manual

    changes have to be made to get those applications to run under ST/X.

    (but at least, this enables you to fileIn that code and have a superclass

     for them)

    As time goes by, ST/X applications are going to be converted to

    become subclasses of this abstract class - see Launcher for a

    first concrete example.

    ApplicationModel is prepared to build a view from a windowSpec, as

    created by the windowBuilder. If your subclass does not provide such

    a spec, you should at least redefine:

        #openInterface   - to create a topview and open it

    you may want to redefine:

        #closeRequest    - to catch window closing

        #focusSequence   - to define a sequence for focus-stepping

    Once the interfaceBuilder is finished & released, subclasses can

    alternatively provide the spec via a #windowSpec method.

    The classResources have been put into this class to allow ST/X

    applications (which used to be subclasses of StandardSystemView)

    to migrate smoothly into ApplicationModels (which is better design ...).

    [Instance variables:]

        resources    ResourcePack       language string translation

        builder      WindowBuilder      a builder who knows how to create

                                        a window hierarchy from a specification

    Notice: this class was implemented using protocol information

    from alpha testers and PD code - it may not be complete or compatible to

    the corresponding ST-80 class. If you encounter any incompatibilities,

    please forward a note to the ST/X team.

    [author:]

        Claus Gittinger

    [see also:]

        StandardSystemView

        WindowGroup DeviceWorkstation

"

! !

!ApplicationModel class methodsFor:'initialization'!

initialize 

    self == ApplicationModel ifTrue:[

        Smalltalk addDependent:self

    ].

    DefaultLabels isNil ifTrue:[

        DefaultLabels := IdentityDictionary new

    ].

    DefaultVisuals isNil ifTrue:[

        DefaultVisuals := IdentityDictionary new

    ].

    "

     ApplicationModel initialize

    "

    "Modified: 28.1.1997 / 12:31:38 / cg"

! !

!ApplicationModel class methodsFor:'instance creation'!

new

    "return a new initialized instance"

    |inst|

    inst := self basicNew.

    inst basicInitialize.

    inst initialize.

    ^ inst

    "Modified: 24.4.1996 / 09:42:14 / cg"

!

onDevice:aDevice

    "return a new initialized instance, which shall open its interface

     on aDevice."

    ^ (super basicNew basicInitialize

        setDevice:aDevice) initialize

    "Modified: 24.4.1996 / 09:42:14 / cg"

    "Created: 5.7.1996 / 12:19:15 / cg"

! !

!ApplicationModel class methodsFor:'accessing'!

application

    ^ self

! !

!ApplicationModel class methodsFor:'active help'!

flyByHelpSpec

    "default is: no help-spec (should be redefined by concrete class if help is wanted)."

    ^ IdentityDictionary new.

!

helpSpec

    "default is: no help-spec (should be redefined by concrete class if help is wanted)."

    ^ IdentityDictionary new.

! !

!ApplicationModel class methodsFor:'bindings'!

actionFor:aKey

    "sent by the builder to ask for an actionBlock for

     a Button. The argument, aKey comes from an UI-spec

     for a buttons #action property.

     Here, a corresponding message is sent to myself,

     which ought to be defined in the application subclass.

     Alternatively, a subclass may redefine this method, to provide

     actionBlocks from a Dictionary or whatever.

     Typically, a block is returned there."

    ^ nil

!

actionFor:aKey withValue:aValue

    "sent by the builder to ask for an actionBlock for

     a Button which passes a value to the actionMethod. 

     The argument, aKey comes from an UI-spec

     for a buttons #action property.

     Here, a corresponding message is sent to myself,

     which ought to be defined in the application subclass.

     Alternatively, a subclass may redefine this method, to provide

     actionBlocks from a Dictionary or whatever.

     Typically, a block is returned there."

    ^ nil

!

aspectFor:aKey

    "sent by the builder to ask for an aspect (a data model).

     The argument, aKey comes from an UI-spec

     for a components #aspect property.

     Here, a corresponding message is sent to myself,

     which ought to be defined in the application subclass.

     Alternatively, a subclass may redefine this method, to provide

     holders from a Dictionary or whatever.

     Typically, a valueHolder is returned there."

    ^ self perform:aKey

    "/ ^ nil

    "Modified: / 27.10.1997 / 13:43:12 / cg"

!

clientFor:aKey

    "sent by the builder to ask for an application provided

     subcanvas's application.

     The argument, aKey comes from an UI-spec

     for a subcanvas's #client property.

     Here, a corresponding message is sent to myself,

     which ought to be defined in the application subclass.

     Alternatively, a subclass may redefine this method, to provide

     appModels from a Dictionary or whatever.

     Typically, an applicationModel is returned there."

    ^ nil

!

componentFor:aKey

    "sent by the builder to ask for an application provided

     component.

     The argument, aKey comes from an UI-spec

     for a viewHolders #view property.

     Here, a corresponding message is sent to myself,

     which ought to be defined in the application subclass.

     Alternatively, a subclass may redefine this method, to provide

     holders from a Dictionary or whatever.

     Typically, a view is returned there."

    (self respondsTo:aKey) ifTrue:[

        ^ self perform:aKey

    ].

    ^ nil

!

labelFor:aKey

    "sent by the builder to ask for an application provided

     label for a component.

     The argument, aKey comes from an UI-spec

     for a components #label property.

     Here, a corresponding message is sent to myself,

     which ought to be defined in the application subclass.

     Alternatively, a subclass may redefine this method, to provide

     labels from a Dictionary or whatever.

     Typically, a string is returned there."

    (self application respondsTo:aKey) ifTrue:[

        ^ self application perform:aKey

    ].

    ^ self application labelAt:aKey ifAbsent:nil

!

listFor:aKey

    "sent by the builder to ask for an application provided

     holder for a list.

     The argument, aKey comes from an UI-spec

     for a listWidgets #list property.

     Here, a corresponding message is sent to myself,

     which ought to be defined in the application subclass.

     Alternatively, a subclass may redefine this method, to provide

     holders from a Dictionary or whatever.

     Typically, a list-holding model (SelectionInList) is returned there."

    |app|

    (app := self application) notNil ifTrue:[

        (app respondsTo:aKey) ifTrue:[

            ^ app perform:aKey

        ]

    ].

    ^ nil.

    "Modified: 4.3.1997 / 00:53:03 / cg"

!

menuFor:aKey

    "sent by the builder to ask for an application provided

     holder for a menu.

     The argument, aKey comes from an UI-spec

     for a widgets #menu property.

     Here, a corresponding message is sent to myself,

     which ought to be defined in the application subclass.

     Alternatively, a subclass may redefine this method, to provide

     holders from a Dictionary or whatever.

     Typically, a menu or a menu-holding valueHolder is returned there."

    ^ self application perform:aKey

!

specificationFor:aKey

    "sent by the builder to ask for an application provided

     specification for a subcanvas or subspecification.

     The argument, aKey comes from an UI-spec

     for a subcanvases #specification property (minorKey).

     Here, a corresponding message is sent to myself,

     which ought to be defined in the application subclass.

     Alternatively, a subclass may redefine this method, to provide

     interfaceSpecifications from a Dictionary or whatever.

     Typically, an interfaceSpecification is returned there."

    ^ self

        specificationFor:aKey 

        application:self

        onDevice:nil

!

specificationFor:aKey application:app onDevice:deviceOrNil

    "sent by the builder to ask for an application provided

     specification for a subcanvas or subspecification.

     The argument, aKey comes from an UI-spec

     for a subcanvases #specification property (minorKey).

     Here, a corresponding message is sent to myself,

     which ought to be defined in the application subclass.

     Alternatively, a subclass may redefine this method, to provide

     interfaceSpecifications from a Dictionary or whatever.

     Typically, an interfaceSpecification is returned there."

    |displayDevice displayDeviceType modifiedKey appClass|

    "/ this code is so ugly...

    "/ translate the specs name, if the display device type is different

    "/ for example, if the type is pda, the xxxSpec_pda spec will be used.

    displayDevice := deviceOrNil ? Screen current ? Screen default.

    displayDevice notNil ifTrue:[

        displayDeviceType := displayDevice deviceType.

        displayDeviceType notNil ifTrue:[

            modifiedKey := (aKey , '_' , displayDeviceType) asSymbolIfInterned.

            modifiedKey notNil ifTrue:[

                (app respondsTo:modifiedKey) ifTrue:[

                    ^ app perform:modifiedKey

                ].

                app isBehavior ifFalse:[

                    appClass := app application.

                    (appClass respondsTo:modifiedKey) ifTrue:[

                        ^ appClass perform:modifiedKey

                    ].

                ].

            ]

        ]

    ].

    app isBehavior ifFalse:[

        (app respondsTo:aKey) ifTrue:[

            ^ app perform:aKey

        ].

        appClass := app application.

        (appClass respondsTo:aKey) ifTrue:[

            ^ appClass perform:aKey

        ].

        ^ app masterApplication specificationFor:aKey

    ].

    ^ app perform:aKey

!

visualFor:aKey

    "sent by the builder to ask for an application provided

     image or element for a label.

     The argument, aKey comes from an UI-spec

     for a widgets #label property, if LabelIsImage is turned on.

     Here, a corresponding message is sent to myself,

     which ought to be defined in the application subclass.

     Alternatively, a subclass may redefine this method, to provide

     images from a Dictionary or whatever.

     Typically, an image is returned there."

    (self application respondsTo:aKey) ifTrue:[

        ^ self application perform:aKey

    ].

    ^ self application visualAt:aKey ifAbsent:nil

! !

!ApplicationModel class methodsFor:'change & update'!

update:something with:aParameter from:changedObject

    "flush resources on language changes"

    something == #Language ifTrue:[

        "flush resources on language changes"

        self flushAllClassResources

    ]

    "Created: 15.6.1996 / 15:13:29 / cg"

! !

!ApplicationModel class methodsFor:'defaults'!

defaultIcon

    "default is: no icon (should be redefined by concrete class if an icon is wanted)."

    ^ nil

!

labelAt:aKey

    "default is: no label (could be redefined by concrete class )."

    ^ nil

!

labelAt:aKey ifAbsent:aBlock

    "default is: no label (could be redefined by concrete class )."

    ^ aBlock value

!

labelAt:aKey put:aValue

    "/ not yet implemented

!

labels

    "/ not yet implemented

    ^ nil

!

visualAt:aKey

    "default is: no visual (could be redefined by concrete class )."

    ^ nil

!

visualAt:aKey ifAbsent:aBlock

    "default is: no visual (could be redefined by concrete class )."

    ^ aBlock value

!

visualAt:aKey put:aValue

    "/ not yet implemented

!

visuals

    "/ not yet implemented

    ^ nil

! !

!ApplicationModel class methodsFor:'queries'!

interfaceSpecFor:aSelector

    "return an interface spec"

    ^ UISpecification from:(self application specificationFor:aSelector)

!

isVisualStartable

    "return true, if this application can be started via #open.

     (to allow start of a change browser via double-click in the browser)"

    (self == ApplicationModel) ifTrue:[^ false "I am abstract"].

    ((self respondsTo:#open) or:[self class includesSelector:#openInterface]) ifFalse:[^ false].

"/    (self respondsTo:#windowSpec) ifFalse:[^ false].

    ^ true

    "Created: / 27.10.1997 / 16:38:02 / cg"

    "Modified: / 14.3.1998 / 16:30:50 / cg"

! !

!ApplicationModel class methodsFor:'resources'!

classResources

    "if not already loaded, get the classes resourcePack

     and return it"

    ClassResources isNil ifTrue:[

	ClassResources := ResourcePack for:self.

    ].

    ^ ClassResources

!

classResources:aResourcePack

    "allow setting of the classResources"

    ClassResources := aResourcePack

!