"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 1999 eXept Software AG

              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' }"

"{ NameSpace: Smalltalk }"

View subclass:#ApplicationSubView

	instanceVariableNames:'application buildMenu'

	classVariableNames:''

	poolDictionaries:''

	category:'Views-Basic'

!

!ApplicationSubView class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1999 eXept Software AG

              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

"

    needed sometimes, when a full application is embeded into an ExtendedComboBox

    or subcanvas AND you want to avoid, that this application accesses the outer

    application's aspects (by returning a private application instance).

    Notice: you may have to manually set this view's application to be the embedded app

           (i.e. via #application:) unless it is set by #client:....

    see self-embedding example in CodingExamples_GUI::GUIDemoExtendedComboBox

"

!

examples

"

    see self-embedding example in CodingExamples_GUI::GUIDemoExtendedComboBox.

                                                                [exBegin]

    |top sub app|

    top := StandardSystemView new.

    sub := ApplicationSubView new.

    app := FileBrowserV2 new.

    app createBuilder.

    app window:sub.

    sub client:app.

    top addSubView:sub.

    sub origin:(0.1@0.1) corner:(0.9@0.9).

    top open.

                                                                [exEnd]

                                                                [exBegin]

    |top sub app|

    top := StandardSystemView new.

    sub := ApplicationSubView new.

    app := Tools::NewSystemBrowser new.

    app createBuilder.

    app window:sub.

    sub client:app.

    top addSubView:sub.

    sub origin:(0.1@0.1) corner:(0.9@0.9).

    top open.

                                                                [exEnd]

"

! !

!ApplicationSubView methodsFor:'accessing'!

application

    "return the value of the instance variable 'application' (automatically generated)"

    ^ application

!

application:something

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

    application := something.

!

buildMenu:aBoolean

    "if true, the main menu is also built. Default is false"

    buildMenu := aBoolean.

!

client:anApplication spec:aWindowSpecOrSpecSymbol builder:aBuilder

    self 

        client:anApplication 

        spec:aWindowSpecOrSpecSymbol 

        builder:aBuilder 

        withMenu:(buildMenu ? false).

!

client:anApplication spec:aWindowSpecOrSpecSymbol builder:aBuilder withMenu:withMenu

    self application:anApplication.

    super client:anApplication spec:aWindowSpecOrSpecSymbol builder:aBuilder withMenu:withMenu.

    "Modified: / 25-07-2011 / 17:51:22 / cg"

! !

!ApplicationSubView methodsFor:'events'!

destroy

    |app|

    (app := self application) notNil ifTrue:[

        app ~~ self topView application ifTrue:[

            app release

        ]

    ].

    super destroy.

!

keyPress:key x:x y:y

    <resource: #keyboard ( #Help) >

    |app|

    key == #Help ifTrue:[

        Error handle:[:ex |

        ] do:[

            (app := self application) notNil ifTrue:[

                app helpKeyPressed.

                ^ self.

            ].

        ].

    ].

    super keyPress:key x:x y:y

!

preRealize

    |app|

    super preRealize.

    (app := self application) notNil ifTrue:[

        app preOpenAsSubcanvasWith:app builder

    ]

    "Created: / 05-03-2014 / 18:46:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

realize

    |app window|

    super realize.

    (app := self application) notNil ifTrue:[

        (window := app window) notNil ifTrue:[

            window windowGroup isNil ifTrue:[

                window windowGroup:self windowGroup.

            ].    

        ].    

        app postOpenAsSubcanvasWith:app builder

    ]

    "Modified: / 29-07-2018 / 14:24:42 / Claus Gittinger"

! !

!ApplicationSubView methodsFor:'testing'!

isApplicationSubView

    ^ true

! !

!ApplicationSubView class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !