"

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

"

ToolApplicationModel subclass:#NewLauncher

	instanceVariableNames:'transcript isMainLauncher settingsSelection settingsAspects

		helpIsOn'

	classVariableNames:'OpenLaunchers NotifyingEmergencyHandler'

	poolDictionaries:''

	category:'Interface-Advanced-Tools'

!

!NewLauncher class methodsFor:'documentation'!

copyright

"

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

"

!

documentation

"

    The future launcher.

    [start with:]

        NewLauncher open

    [see also:]

        Launcher

    [author:]

        Thomas Zwick, eXept Software AG

"

! !

!NewLauncher class methodsFor:'accessing'!

current

    "return the launcher running on the current screen.

     (for access via addMenu/ removeMenu)"

    OpenLaunchers notNil ifTrue:[

        OpenLaunchers do:[:aLauncher |

            aLauncher window graphicsDevice == Screen current ifTrue:[

                ^ aLauncher

            ]

        ].

    ].

    ^ nil

    "Modified: / 29.1.1998 / 22:08:12 / cg"

!

label

    ^'Launcher'

!

openLaunchers

    ^OpenLaunchers ? (OpenLaunchers := OrderedCollection new)

! !

!NewLauncher class methodsFor:'defaults'!

notifyingEmergencyHandler

    "return a block (used as an emergency handler

     for exceptions), which does errorNotification before going

     into the debugger."

    "Remember the handlerBlock, to be able to determine if the current

     handler is the notifying one."

    ^ NotifyingEmergencyHandler ? (NotifyingEmergencyHandler := Exception notifyingEmergencyHandler)

! !

!NewLauncher class methodsFor:'interface specs'!

windowSpec

    "this window spec was automatically generated by the ST/X UIPainter"

    "do not manually edit this - the painter/builder may not be able to

     handle the specification if its corrupted."

    "

     UIPainter new openOnClass:NewLauncher andSelector:#windowSpec

     NewLauncher new openInterface:#windowSpec

    "

    "NewLauncher open"

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'Launcher'

              #'label:' 'Launcher'

              #'max:' #(#Point 1152 900)

              #'menu:' #menu

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#MenuPanelSpec

                    #'name:' 'menuToolbarView'

                    #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 38 0)

                    #'menu:' #menuToolbar

                    #'style:' #(#FontDescription #helvetica #medium #roman 10)

                )

                 #(#ArbitraryComponentSpec

                    #'name:' 'transcriptView'

                    #'layout:' #(#LayoutFrame 0 0.0 40 0.0 0 1.0 -26 1.0)

                    #'hasHorizontalScrollBar:' true

                    #'hasVerticalScrollBar:' true

                    #'miniScrollerHorizontal:' true

                    #'component:' #TextCollector

                    #'hasBorder:' false

                )

                 #(#UISubSpecification

                    #'name:' 'infoBarSubSpec'

                    #'layout:' #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)

                    #'majorKey:' #ToolApplicationModel

                    #'minorKey:' #windowSpecForInfoBarWithClock

                )

              )

          )

      )

!

windowSpecForApplicationSettings

    "this window spec was automatically generated by the ST/X UIPainter"

    "do not manually edit this - the painter/builder may not be able to

     handle the specification if its corrupted."

    "

     UIPainter new openOnClass:NewLauncher andSelector:#windowSpecForApplicationSettings

     NewLauncher new openInterface:#windowSpecForApplicationSettings

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'Application Builder'

              #'layout:' #(#LayoutFrame 86 0 180 0 506 0 782 0)

              #'label:' 'Application Builder'

              #'min:' #(#Point 420 220)

              #'max:' #(#Point 1152 900)

              #'bounds:' #(#Rectangle 86 180 507 783)

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#LabelSpec

                    #'name:' 'applicationNameLabel'

                    #'layout:' #(#LayoutFrame 4 0 4 0 130 0 26 0)

                    #'label:' 'Application Name:'

                    #'adjust:' #right

                )

                 #(#InputFieldSpec

                    #'name:' 'applicationNameInputField'

                    #'layout:' #(#LayoutFrame 140 0 4 0 -4 1 26 0)

                    #'model:' #valueOfApplicationName

                )

                 #(#LabelSpec

                    #'name:' 'startupClassLabel'

                    #'layout:' #(#LayoutFrame 4 0 28 0 130 0 50 0)

                    #'label:' 'Startup Class:'

                    #'adjust:' #right

                )

                 #(#InputFieldSpec

                    #'name:' 'startupClassInputField'

                    #'layout:' #(#LayoutFrame 140 0 28 0 -4 1.0 50 0)

                    #'model:' #valueOfStartupClass

                )

                 #(#LabelSpec

                    #'name:' 'startupSelectorLabel'

                    #'layout:' #(#LayoutFrame 4 0 52 0 130 0 74 0)

                    #'label:' 'Startup Selector:'

                    #'adjust:' #right

                )

                 #(#InputFieldSpec

                    #'name:' 'startupSelectorInputField'

                    #'layout:' #(#LayoutFrame 140 0 52 0 -4 1.0 74 0)

                    #'model:' #valueOfStartupSelector

                )

                 #(#LabelSpec

                    #'name:' 'targetDirectoryLabel'

                    #'layout:' #(#LayoutFrame 4 0 130 0 130 0 152 0)

                    #'label:' 'Target Directory:'

                    #'adjust:' #right

                )

                 #(#InputFieldSpec

                    #'name:' 'targetDirectoryInputField'

                    #'layout:' #(#LayoutFrame 140 0 130 0 -4 1.0 152 0)

                    #'model:' #valueOfTargetDirectory

                )

                 #(#LabelSpec

                    #'name:' 'buildDateLabel'

                    #'layout:' #(#LayoutFrame 4 0 76 0 130 0 98 0)

                    #'label:' 'Build Date:'

                    #'adjust:' #right

                )

                 #(#InputFieldSpec

                    #'name:' 'buildDateInputField'

                    #'layout:' #(#LayoutFrame 140 0 76 0 -4 1.0 98 0)

                    #'model:' #valueOfBuildDate

                )

                 #(#LabelSpec

                    #'name:' 'configurationLabel'

                    #'layout:' #(#LayoutFrame 4 0 100 0 130 0 122 0)

                    #'label:' 'Configuration:'

                    #'adjust:' #right

                )

                 #(#InputFieldSpec

                    #'name:' 'configurationInputField'

                    #'layout:' #(#LayoutFrame 140 0 100 0 -4 1.0 122 0)

                    #'model:' #valueOfConfiguration

                )

                 #(#LabelSpec

                    #'name:' 'startupModulLabel'

                    #'layout:' #(#LayoutFrame 4 0 178 0 130 0 200 0)

                    #'label:' 'Startup Modul:'

                    #'adjust:' #right

                )

                 #(#InputFieldSpec

                    #'name:' 'startupModulInputField'

                    #'layout:' #(#LayoutFrame 140 0 178 0 -4 1.0 200 0)

                    #'model:' #valueOfStartupModule

                )

                 #(#InputFieldSpec

                    #'name:' 'topDirectoryInputField'

                    #'layout:' #(#LayoutFrame 140 0 154 0 -4 1.0 176 0)

                    #'model:' #valueOfTopDirectory

                )

                 #(#LabelSpec

                    #'name:' 'topDirectoryLabel'

                    #'layout:' #(#LayoutFrame 4 0 154 0 130 0 176 0)

                    #'label:' 'Top Directory:'

                    #'adjust:' #right

                )

                 #(#LabelSpec

                    #'name:' 'librariesLabel'

                    #'layout:' #(#LayoutFrame 3 0 208 0 129 0 230 0)

                    #'label:' 'System Libraries:'

                    #'adjust:' #right

                )

                 #(#ViewSpec

                    #'name:' 'view2'

                    #'layout:' #(#LayoutFrame 0 0.0 -44 1 0 1.0 0 1.0)

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#ActionButtonSpec

                              #'name:' 'buildButton'

                              #'layout:' #(#LayoutFrame 10 0.5 10 0 -10 1 -10 1)

                              #'label:' 'Build'

                              #'model:' #buildApplication

                          )

                           #(#ActionButtonSpec

                              #'name:' 'closeButton'

                              #'layout:' #(#LayoutFrame 10 0.0 10 0 -10 0.5 -10 1)

                              #'label:' 'Close'

                              #'model:' #accept

                          )

                        )

                    )

                )

                 #(#DividerSpec

                    #'name:' 'divider1'

                    #'layout:' #(#LayoutFrame 0 0 202 0 0 1 205 0)

                    #'orientation:' #horizontal

                )

                 #(#DividerSpec

                    #'name:' 'divider3'

                    #'layout:' #(#LayoutFrame 0 0 124 0 0 1 127 0)

                    #'orientation:' #horizontal

                )

                 #(#FramedBoxSpec

                    #'name:' 'framedBox1'

                    #'layout:' #(#LayoutFrame 0 0 281 0 0 0.5 -44 1)

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#CheckBoxSpec

                              #'name:' 'librunCheckBox'

                              #'layout:' #(#LayoutFrame 10 0 22 0 10 0.5 44 0)

                              #'initiallyDisabled:' true

                              #'model:' #valueOfDefaultLibs

                              #'label:' 'librun'

                          )

                           #(#CheckBoxSpec

                              #'name:' 'libbasicCheckBox'

                              #'layout:' #(#LayoutFrame 10 0 48 0 10 0.5 70 0)

                              #'initiallyDisabled:' true

                              #'model:' #valueOfDefaultLibs

                              #'label:' 'libbasic'

                          )

                           #(#CheckBoxSpec

                              #'name:' 'libbasic2CheckBox'

                              #'layout:' #(#LayoutFrame 10 0 74 0 10 0.5 96 0)

                              #'initiallyDisabled:' true

                              #'model:' #valueOfDefaultLibs

                              #'label:' 'libbasic2'

                          )

                           #(#CheckBoxSpec

                              #'name:' 'libbasic3CheckBox'

                              #'layout:' #(#LayoutFrame 10 0 100 0 10 1 122 0)

                              #'initiallyDisabled:' true

                              #'model:' #valueOfDefaultLibs

                              #'label:' 'libbasic3'

                          )

                           #(#CheckBoxSpec

                              #'name:' 'libviewCheckBox'

                              #'layout:' #(#LayoutFrame 10 0 126 0 10 1 148 0)

                              #'initiallyDisabled:' true

                              #'model:' #valueOfDefaultLibs

                              #'label:' 'libview'

                          )

                           #(#CheckBoxSpec

                              #'name:' 'libview2CheckBox'

                              #'layout:' #(#LayoutFrame 10 0 152 0 10 1 174 0)

                              #'initiallyDisabled:' true

                              #'model:' #valueOfDefaultLibs

                              #'label:' 'libview2'

                          )

                           #(#CheckBoxSpec

                              #'name:' 'ObjectFileLoaderCheckBox'

                              #'layout:' #(#LayoutFrame 10 0 178 0 10 1 202 0)

                              #'initiallyDisabled:' true

                              #'model:' #valueOfDefaultLibs

                              #'label:' 'ObjectFileLoader'

                          )

                           #(#CheckBoxSpec

                              #'name:' 'GLXWorkstationCheckBox'

                              #'layout:' #(#LayoutFrame 10 0 232 0 10 1 254 0)

                              #'initiallyDisabled:' true

                              #'model:' #valueOfDefaultLibs

                              #'label:' 'GLXWorkstation'

                          )

                           #(#CheckBoxSpec

                              #'name:' 'XWorkstationCheckBox'

                              #'layout:' #(#LayoutFrame 10 0 206 0 10 1 228 0)

                              #'initiallyDisabled:' true

                              #'model:' #valueOfDefaultLibs

                              #'label:' 'XWorkstation'

                          )

                        )

                    )

                    #'label:' 'Basics'

                    #'labelPosition:' #topLeft

                )

                 #(#FramedBoxSpec

                    #'name:' 'framedBox2'

                    #'layout:' #(#LayoutFrame 0 0.5 281 0 0 1 392 0)

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#CheckBoxSpec

                              #'name:' 'libwidgCheckBox'

                              #'layout:' #(#LayoutFrame 10 0 22 0 10 1 44 0)

                              #'model:' #valueOfLibwidg

                              #'label:' 'libwidg'

                          )

                           #(#CheckBoxSpec

                              #'name:' 'libwidg2CheckBox'

                              #'layout:' #(#LayoutFrame 10 0 48 0 10 1 70 0)

                              #'model:' #valueOfLibwidg2

                              #'label:' 'libwidg2'

                          )

                           #(#CheckBoxSpec

                              #'name:' 'libuiCheckBox'

                              #'layout:' #(#LayoutFrame 10 0 74 0 10 1 96 0)

                              #'model:' #valueOfLibui

                              #'label:' 'libui'

                          )

                        )

                    )

                    #'label:' 'UI'

                    #'labelPosition:' #topLeft

                )

                 #(#FramedBoxSpec

                    #'name:' 'framedBox3'

                    #'layout:' #(#LayoutFrame 0 0.5 392 0 0 1 -44 1)

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#CheckBoxSpec

                              #'name:' 'libtoolCheckBox'

                              #'layout:' #(#LayoutFrame 10 0 22 0 10 1 44 0)

                              #'model:' #valueOfLibtool

                              #'label:' 'libtool'

                          )

                           #(#CheckBoxSpec

                              #'name:' 'libtool2CheckBox'

                              #'layout:' #(#LayoutFrame 10 0 48 0 10 1 70 0)

                              #'model:' #valueOfLibtool2

                              #'label:' 'libtool2'

                          )

                           #(#CheckBoxSpec

                              #'name:' 'libcompCheckBox'

                              #'layout:' #(#LayoutFrame 10 0 74 0 10 1 96 0)

                              #'model:' #valueOfLibcomp

                              #'label:' 'libcomp'

                          )

                           #(#CheckBoxSpec

                              #'name:' 'libhtmlCheckBox'

                              #'layout:' #(#LayoutFrame 10 0 100 0 10 1 122 0)

                              #'model:' #valueOfLibhtml

                              #'label:' 'libhtml'

                          )

                        )

                    )

                    #'label:' 'Optional'

                    #'labelPosition:' #topLeft

                )

                 #(#LabelSpec

                    #'name:' 'userLibrariesLabel'

                    #'layout:' #(#LayoutFrame 3 0 232 0 129 0 254 0)

                    #'label:' 'User Libraries:'

                    #'adjust:' #right

                )

                 #(#InputFieldSpec

                    #'name:' 'userLibrariesInputField'

                    #'layout:' #(#LayoutFrame 139 0 233 0 -5 1.0 255 0)

                    #'model:' #valueOfUserLibraries

                )

                 #(#LabelSpec

                    #'name:' 'label1'

                    #'layout:' #(#LayoutFrame 3 0 256 0 129 0 278 0)

                    #'label:' 'ST/X Libraries:'

                    #'adjust:' #right

                )

                 #(#InputFieldSpec

                    #'name:' 'systemLibrariesInputField'

                    #'layout:' #(#LayoutFrame 139 0 208 0 -5 1.0 230 0)

                    #'model:' #valueOfSystemLibraries

                )

              )

          )

      )

!

windowSpecForStyleSettings

    "this window spec was automatically generated by the ST/X UIPainter"

    "do not manually edit this - the painter/builder may not be able to

     handle the specification if its corrupted."

    "

     UIPainter new openOnClass:NewLauncher andSelector:#windowSpecForStyleSettings

     NewLauncher new openInterface:#windowSpecForStyleSettings

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'Style Settings'

              #'layout:' #(#LayoutFrame 238 0 252 0 675 0 678 0)

              #'label:' 'Style Settings'

              #'min:' #(#Point 420 220)

              #'max:' #(#Point 1152 900)

              #'bounds:' #(#Rectangle 238 252 676 679)

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#NoteBookViewSpec

                    #'name:' 'noteBookView_Temporal'

                    #'layout:' #(#LayoutFrame 2 0.0 0 0.0 -2 1.0 -47 1.0)

                    #'model:' #selectionOfSettings

                    #'menu:' 

                     #('Views'

                        'Fonts' 'Language'

                        'Keyboard' 'Misc'

                    )