"

 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 aspects helpIsOn'

	classVariableNames:'OpenLaunchers NotifyingEmergencyHandler'

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

!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

    "

     UIPainter new openOnClass:NewLauncher andSelector:#windowSpec

     NewLauncher new openInterface:#windowSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

           #(#WindowSpec

          )

           #(#SpecCollection

               #(

                 #(#MenuPanelSpec

                )

                 #(#ArbitraryComponentSpec

                )

                 #(#UISubSpecification

                )

              )

          )

      )

!

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'

                    )

                    #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)

                    #'level:' 1

                    #'canvas:' #settingsCanvas

                )

                 #(#HorizontalPanelViewSpec

                    #'name:' 'horizontalPanelView_Temporal'

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

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#ActionButtonSpec

                              #'name:' 'helpButton_Temporal'

                              #'label:' 'Help'

                              #'style:' #(#FontDescription #helvetica #bold #roman 12)

                              #'model:' #'doForCurrentSettings:'

                              #'actionValue:' #help

                              #'extent:' #(#Point 213 24)

                          )

                           #(#ActionButtonSpec

                              #'name:' 'closeButton_Temporal'

                              #'label:' 'Close'

                              #'style:' #(#FontDescription #helvetica #bold #roman 12)

                              #'model:' #accept

                              #'extent:' #(#Point 214 24)

                          )

                        )

                    )

                    #'level:' 1

                    #'horizontalLayout:' #fitSpace

                    #'verticalLayout:' #center

                    #'horizontalSpace:' 3

                    #'verticalSpace:' 3

                )

              )

          )

      )

!

windowSpecForSystemSettings

    "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:#windowSpecForSystemSettings

     NewLauncher new openInterface:#windowSpecForSystemSettings

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'Style Settings'

              #'layout:' #(#LayoutFrame 96 0 317 0 533 0 743 0)

              #'label:' 'Style Settings'

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

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

              #'bounds:' #(#Rectangle 96 317 534 744)

              #'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:' 

                     #('Sources'

                        'Messages' 'Memory'

                        'Screen' 'Printer'

                    )

                    #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)

                    #'level:' 1

                    #'canvas:' #settingsCanvas

                )

                 #(#HorizontalPanelViewSpec

                    #'name:' 'horizontalPanelView_Temporal'

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

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#ActionButtonSpec

                              #'name:' 'helpButton_Temporal'

                              #'label:' 'Help'

                              #'style:' #(#FontDescription #helvetica #bold #roman 12)

                              #'model:' #'doForCurrentSettings:'

                              #'actionValue:' #help

                              #'extent:' #(#Point 213 24)

                          )

                           #(#ActionButtonSpec

                              #'name:' 'closeButton_Temporal'

                              #'label:' 'Close'

                              #'style:' #(#FontDescription #helvetica #bold #roman 12)

                              #'model:' #accept

                              #'extent:' #(#Point 214 24)

                          )

                        )

                    )

                    #'level:' 1

                    #'horizontalLayout:' #fitSpace

                    #'verticalLayout:' #center

                    #'horizontalSpace:' 3

                    #'verticalSpace:' 3

                )

              )

          )

      )

!

windowSpecOfFontsSettings

    "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:#windowSpecOfFontsSettings

     NewLauncher new openInterface:#windowSpecOfFontsSettings

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'Smalltalk/X'

              #'layout:' #(#LayoutFrame 234 0 432 0 671 0 811 0)

              #'label:' 'Smalltalk/X'

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

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

              #'bounds:' #(#Rectangle 234 432 672 812)

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#FramedBoxSpec

                    #'name:' 'preViewFramedBox_Temporal'

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

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#LabelSpec

                              #'name:' 'previewFontLabel_Temporal'

                              #'layout:' #(#LayoutFrame 16 0.0 18 0.0 16 1.0 13 1.0)

                              #'adjust:' #left

                          )

                        )

                    )

                    #'label:' 'Font Preview'

                    #'labelPosition:' #topLeft

                )

                 #(#FramedBoxSpec

                    #'name:' 'fontDescriptionFramedBox_Temporal'

                    #'layout:' #(#LayoutFrame 0 0.5 95 0.0 0 1 -80 1.0)

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#LabelSpec

                              #'name:' 'fontFamilyLabel_Temporal'

                              #'layout:' #(#LayoutFrame 15 0.0 22 0 15 1.0 44 0)

                              #'level:' -1

                              #'adjust:' #left

                          )

                           #(#LabelSpec

                              #'name:' 'fontFaceLabel_Temporal'

                              #'layout:' #(#LayoutFrame 15 0.0 49 0 15 1.0 71 0)

                              #'level:' -1

                              #'adjust:' #left

                          )

                           #(#LabelSpec

                              #'name:' 'fontStyleLabel_Temporal'

                              #'layout:' #(#LayoutFrame 15 0.0 77 0 15 1.0 99 0)

                              #'level:' -1

                              #'adjust:' #left

                          )

                           #(#LabelSpec

                              #'name:' 'fontSizeLabel_Temporal'

                              #'layout:' #(#LayoutFrame 15 0.0 105 0 15 1.0 127 0)

                              #'level:' -1

                              #'adjust:' #left

                          )

                           #(#LabelSpec

                              #'name:' 'fontEncodingLabel_Temporal'

                              #'layout:' #(#LayoutFrame 15 0.0 133 0 15 1.0 155 0)

                              #'level:' -1

                              #'adjust:' #left

                          )

                        )

                    )

                    #'label:' 'Font Description'

                    #'labelPosition:' #topLeft

                )

                 #(#ActionButtonSpec

                    #'name:' 'changeAllButton_Temporal'

                    #'layout:' #(#LayoutFrame 5 0.5 36 0 -5 1 60 0)

                    #'label:' 'Change for all View Classes...'

                    #'translateLabel:' true

                    #'model:' #'changeFontFor:'

                    #'actionValue:' 'All'

                )

                 #(#ActionButtonSpec

                    #'name:' 'defaultButton_Temporal'

                    #'layout:' #(#LayoutFrame 5 0.5 64 0 -5 1 88 0)

                    #'label:' 'Set Default Fonts'

                    #'translateLabel:' true

                    #'model:' #'changeFontFor:'

                    #'actionValue:' 'Default'

                )

                 #(#ActionButtonSpec

                    #'name:' 'changeFontButton_Temporal'

                    #'layout:' #(#LayoutFrame 5 0.5 8 0 -5 1.0 32 0)

                    #'label:' 'Change Font...'

                    #'translateLabel:' true

                    #'model:' #changeFont

                    #'actionValue:' ''

                )

                 #(#FramedBoxSpec

                    #'name:' 'viewClassesFramedBox_Temporal'

                    #'layout:' #(#LayoutFrame 0 0.0 3 0.0 0 0.5 -80 1.0)

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#SelectionInTreeViewSpec

                              #'name:' 'viewClassesListView_Temporal'

                              #'layout:' #(#LayoutFrame 15 0.0 17 0.0 15 1.0 17 1.0)

                              #'model:' #selectionOfViewClass

                              #'hasHorizontalScrollBar:' true

                              #'hasVerticalScrollBar:' true

                              #'miniScrollerHorizontal:' true

                              #'miniScrollerVertical:' true

                              #'valueChangeSelector:' #updatePreviewFontLabel

                              #'hierarchicalList:' #listOfViewClasses

                          )

                        )

                    )

                    #'label:' 'View Classes'

                    #'labelPosition:' #topLeft

                )

              )

          )

      )

!

windowSpecOfKeyboardSettings

    "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:#windowSpecOfKeyboardSettings

     NewLauncher new openInterface:#windowSpecOfKeyboardSettings

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'Smalltalk/X'

              #'layout:' #(#LayoutFrame 71 0 497 0 508 0 894 0)

              #'label:' 'Smalltalk/X'

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

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

              #'bounds:' #(#Rectangle 71 497 509 895)

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#SequenceViewSpec

                    #'name:' 'rawKeysListView_Temporal'

                    #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 0.5 0 0.6)

                    #'model:' #listOfRawKeys

                    #'hasHorizontalScrollBar:' true

                    #'hasVerticalScrollBar:' true

                    #'miniScrollerHorizontal:' true

                    #'useIndex:' false

                )

                 #(#SequenceViewSpec

                    #'name:' 'functionsListView_Temporal'

                    #'layout:' #(#LayoutFrame 0 0.5 0 0.0 0 1.0 0 0.6)

                    #'model:' #listOfFunctions