"

 COPYRIGHT (c) 2003 by 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:libbasic3' }"

"{ NameSpace: Packages }"

PackageDetails subclass:#PackageProperties

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Package-Application'

!

AbstractPackageDetails subclass:#General

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:PackageProperties

!

!PackageProperties class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2003 by 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.

"

! !

!PackageProperties class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:Packages::PackageProperties andSelector:#windowSpec

     Packages::PackageProperties new openInterface:#windowSpec

     Packages::PackageProperties open

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #windowSpec

        #window: 

       #(#WindowSpec

          #label: ''

          #name: ''

          #labelChannel: #labelHolder

          #min: #(#Point 10 10)

          #max: #(#Point 1024 768)

          #bounds: #(#Rectangle 29 59 329 359)

          #menu: #mainMenu

        )

        #component: 

       #(#SpecCollection

          #collection: #()

        )

      )

! !

!PackageProperties class methodsFor:'menu specs'!

mainMenu

    "This resource specification was automatically generated by the CodeGeneratorTool."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:Packages::PackageProperties andSelector:#mainMenu

    "

    <resource: #menu>

    ^ #(#Menu

           #(

             #(#MenuItem

                #label: 'File'

                #translateLabel: true

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'New'

                          #translateLabel: true

                          #value: #menuNew

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Open...'

                          #translateLabel: true

                          #value: #menuOpen

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Save'

                          #translateLabel: true

                          #value: #menuSave

                      )

                       #(#MenuItem

                          #label: 'Save As...'

                          #translateLabel: true

                          #value: #menuSaveAs

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Exit'

                          #translateLabel: true

                          #value: #closeRequest

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #label: 'Help'

                #translateLabel: true

                #startGroup: #right

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'Documentation'

                          #translateLabel: true

                          #value: #openDocumentation

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'About this Application'

                          #translateLabel: true

                          #value: #openAboutThisApplication

                      )

                    ) nil

                    nil

                )

            )

          ) nil

          nil

      )

! !

!PackageProperties class methodsFor:'plugIn spec'!

aspectSelectors

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this. If it is corrupted,

     the UIPainter may not be able to read the specification."

    "Return a description of exported aspects;

     these can be connected to aspects of an embedding application

     (if this app is embedded in a subCanvas)."

    ^ #(

        #list

        #selectionHolder

      ).

! !

!PackageProperties methodsFor:'accessing'!

labelHolder

    "assuming that there is only one package selected!!"

    | selectedPackage packagesSelected |

    packagesSelected := self packagesSelected.

    selectedPackage :=  packagesSelected first.

    ^ selectedPackage name asString, ' Properties'

! !

!PackageProperties::General class methodsFor:'accessing'!

applicationName

    ^ 'General'

! !

!PackageProperties::General class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated by the CodeGeneratorTool."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:Packages::PackageProperties::General andSelector:#windowSpec

    "

    <resource: #canvas>

    ^ #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'Packages::PackageProperties::General'

              #layout: #(#LayoutFrame 204 0 162 0 503 0 461 0)

              #label: 'Packages::PackageProperties::General'

              #min: #(#Point 10 10)

              #max: #(#Point 1024 768)

              #bounds: #(#Rectangle 204 162 504 462)

              #menu: #mainMenu

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: #()

          )

      )

! !

!PackageProperties::General class methodsFor:'menu specs'!

mainMenu

    "This resource specification was automatically generated by the CodeGeneratorTool."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:Packages::PackageProperties::General andSelector:#mainMenu

    "

    <resource: #menu>

    ^ #(#Menu

           #(

             #(#MenuItem

                #label: 'File'

                #translateLabel: true

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'New'

                          #translateLabel: true

                          #value: #menuNew

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Open...'

                          #translateLabel: true

                          #value: #menuOpen

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Save'

                          #translateLabel: true

                          #value: #menuSave

                      )

                       #(#MenuItem

                          #label: 'Save As...'

                          #translateLabel: true

                          #value: #menuSaveAs

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Exit'

                          #translateLabel: true

                          #value: #closeRequest

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #label: 'Help'

                #translateLabel: true

                #startGroup: #right

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'Documentation'

                          #translateLabel: true

                          #value: #openDocumentation

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'About this Application'

                          #translateLabel: true

                          #value: #openAboutThisApplication

                      )

                    ) nil

                    nil

                )

            )

          ) nil

          nil

      )

! !

!PackageProperties::General methodsFor:'initialization & release'!

closeDownViews

    "This is a hook method generated by the Browser.

     It will be invoked when your app/dialog-window is really closed.

     See also #closeDownViews, which is invoked before and may suppress the close

     or ask the user for confirmation."

    "/ change the code below as required ...

    "/ This should cleanup any leftover resources

    "/ (for example, temporary files)

    "/ super closeRequest will initiate the closeDown

    "/ add your code here

    "/ do not remove the one below ...

    ^ super closeDownViews

!

closeRequest

    "This is a hook method generated by the Browser.

     It will be invoked when your app/dialog-window is about to be

     closed (this method has a chance to suppress the close).

     See also #closeDownViews, which is invoked when the close is really done."

    "/ change the code below as required ...

    "/ Closing can be suppressed, by simply returning.

    "/ The 'super closeRequest' at the end will initiate the real closeDown

    ("self hasUnsavedChanges" true) ifTrue:[

        (self confirm:(resources string:'Close without saving ?')) ifFalse:[

            ^ self

        ]

    ].

    ^ super closeRequest

!

postBuildWith:aBuilder

    "This is a hook method generated by the Browser.

     It will be invoked during the initialization of your app/dialog,

     after all of the visual components have been built, 

     but BEFORE the top window is made visible.

     Add any app-specific actions here (reading files, setting up values etc.)

     See also #postOpenWith:, which is invoked after opening."

    "/ add any code here ...

     self inspect.

    ^ super postBuildWith:aBuilder

!

postOpenWith:aBuilder

    "This is a hook method generated by the Browser.

     It will be invoked right after the applications window has been opened.

     Add any app-specific actions here (starting background processes etc.).

     See also #postBuildWith:, which is invoked before opening."

    "/ add any code here ...

    ^ super postOpenWith:aBuilder

! !

!PackageProperties::General methodsFor:'menu actions'!

menuNew

    "This method was generated by the Browser.

     It will be invoked when the menu-item 'new' is selected."

    "/ change below and add any actions as required here ...

    self warn:'no action for ''new'' available.'.

!

menuOpen

    "This method was generated by the Browser.

     It will be invoked when the menu-item 'open' is selected."

    "/ change below and add any actions as required here ...

    self warn:'no action for ''open'' available.'.

!

menuSave

    "This method was generated by the Browser.

     It will be invoked when the menu-item 'save' is selected."

    "/ change below and add any actions as required here ...

    self warn:'no action for ''save'' available.'.

!

menuSaveAs

    "This method was generated by the Browser.

     It will be invoked when the menu-item 'saveAs' is selected."

    "/ change below and add any actions as required here ...

    self warn:'no action for ''saveAs'' available.'.

!

openAboutThisApplication

    "This method was generated by the Browser.

     It will be invoked when the menu-item 'help-about' is selected."

    "/ could open a customized aboutBox here ...

    super openAboutThisApplication

!

openDocumentation

    "This method was generated by the Browser.

     It will be invoked when the menu-item 'help-documentation' is selected."

    "/ change below as required ...

    "/ to open an HTML viewer on some document (under 'doc/online/<language>/' ):

    HTMLDocumentView openFullOnDocumentationFile:'TOP.html'.

    "/ add application-specific help files under the 'doc/online/<language>/help/appName'

    "/ directory, and open a viewer with:

    "/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'.

! !

!PackageProperties class methodsFor:'documentation'!

version

    ^ '$Header: /var/local/cvs/stx/libbasic3/packages/PackageProperties.st,v 1.2 2006-01-10 09:31:58 cg Exp $'

! !