"

 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

"

! !

!NewLauncher class methodsFor:'accessing'!

aboutIcon

    ^Launcher aboutIcon

!

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

menu

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

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

     handle the specification if its corrupted."

    "

     MenuEditor new openOnClass:NewLauncher andSelector:#menu

     (Menu new fromLiteralArrayEncoding:(NewLauncher menu)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #'label:' 'about'

                #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #stxIcon)

                #'submenuChannel:' #menuAbout

            )

             #(#MenuItem

                #'label:' 'File'

                #'translateLabel:' true

                #'value:' #file

                #'submenu:' 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #'label:' 'File Browser'

                          #'translateLabel:' true

                          #'value:' #'openApplication:'

                          #'argument:' 'FileBrowser'

                          #'labelImage:' #(#ResourceRetriever nil #startFileBrowserIcon 'File Browser')

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Modules...'

                          #'translateLabel:' true

                          #'value:' #objectModuleDialog

                          #'enabled:' #enableDangerousMenuItemsInRemoteLauncher

                      )

                       #(#MenuItem

                          #'label:' 'Build Library...'

                          #'translateLabel:' true

                          #'value:' #'openApplication:'

                          #'enabled:' #valueOfEnablingIfAvailable

                          #'argument:' 'LibraryBuilder'

                      )

                       #(#MenuItem

                          #'label:' 'Build Application...'

                          #'translateLabel:' true

                          #'value:' #openApplicationBuilder

                          #'enabled:' #valueOfEnablingIfAvailable

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Save Image'

                          #'translateLabel:' true

                          #'value:' #saveImage

                          #'enabled:' #enableDangerousMenuItemsInRemoteLauncher

                          #'labelImage:' #(#ResourceRetriever nil #saveIcon 'Save Image')

                      )

                       #(#MenuItem

                          #'label:' 'Save Image As...'

                          #'translateLabel:' true

                          #'value:' #saveImageAs

                          #'enabled:' #enableDangerousMenuItemsInRemoteLauncher

                          #'labelImage:' #(#ResourceRetriever nil #saveIcon 'Save Image As...')

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Exit...'

                          #'translateLabel:' true

                          #'value:' #exit

                          #'enabled:' #enableDangerousMenuItemsInRemoteLauncher

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #'label:' 'Classes'

                #'translateLabel:' true

                #'value:' #classes

                #'submenu:' 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #'label:' 'System Browser'

                          #'translateLabel:' true

                          #'value:' #'openApplication:'

                          #'argument:' 'SystemBrowser'

                          #'labelImage:' #(#ResourceRetriever nil #startSystemBrowserIcon 'System Browser')

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Class Browser...'

                          #'translateLabel:' true

                          #'value:' #startClassBrowser

                      )

                       #(#MenuItem

                          #'label:' 'Full Class Browser...'

                          #'translateLabel:' true

                          #'value:' #startFullClassBrowser

                      )

                       #(#MenuItem

                          #'label:' 'Class Hierarchy Browser...'

                          #'translateLabel:' true

                          #'value:' #startClassHierarchyBrowser

                      )

                       #(#MenuItem

                          #'label:' 'Class Tree'

                          #'translateLabel:' true

                          #'value:' #'openApplication:'

                          #'argument:' 'ClassTreeGraphView'

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Implementors...'

                          #'translateLabel:' true

                          #'value:' #browseImplementors

                      )

                       #(#MenuItem

                          #'label:' 'Senders...'

                          #'translateLabel:' true

                          #'value:' #browseSenders

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Special'

                          #'value:' #special

                          #'submenu:' 

                           #(#Menu

                               #(

                                 #(#MenuItem

                                    #'label:' 'References To Undeclared'

                                    #'translateLabel:' true

                                    #'value:' #browseUndeclared

                                )

                                 #(#MenuItem

                                    #'label:' 'Resource Methods...'

                                    #'translateLabel:' true

                                    #'value:' #browseResources

                                )

                                 #(#MenuItem

                                    #'label:' 'Show Break/Trace Points'

                                    #'translateLabel:' true

                                    #'value:' #browseAllBreakAndTracePoints

                                )

                                 #(#MenuItem

                                    #'label:' '-'

                                )

                                 #(#MenuItem

                                    #'label:' 'Remove All Break/Trace Points'

                                    #'translateLabel:' true

                                    #'value:' #removeAllBreakAndTracePoints

                                )

                              ) nil

                              nil

                          )

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #'label:' 'Tools'

                #'translateLabel:' true

                #'value:' #tools

                #'submenu:' 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #'label:' 'Workspace'

                          #'value:' #'openApplication:'

                          #'argument:' 'Workspace'

                          #'labelImage:' #(#ResourceRetriever nil #startWorkspaceIcon 'Workspace')

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'GUI Builder'

                          #'value:' #'openApplication:'

                          #'argument:' 'UIPainter'

                          #'labelImage:' #(#ResourceRetriever nil #startUIPainterIcon 'GUI Builder')

                      )

                       #(#MenuItem

                          #'label:' 'Menu Editor'

                          #'value:' #'openApplication:'

                          #'argument:' 'MenuEditor'

                          #'labelImage:' #(#ResourceRetriever nil #startMenuEditorIcon 'Menu Editor')

                      )

                       #(#MenuItem

                          #'label:' 'Image Editor'

                          #'value:' #'openApplication:'

                          #'argument:' 'ImageEditor'

                          #'labelImage:' #(#ResourceRetriever nil #startImageEditorIcon 'Image Editor')

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Changes Browser'

                          #'translateLabel:' true

                          #'value:' #'openApplication:'

                          #'argument:' 'ChangesBrowser'

                          #'labelImage:' #(#ResourceRetriever nil #startChangesBrowserIcon 'Changes Browser')

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Old Launcher'

                          #'translateLabel:' true

                          #'value:' #'openApplication:'

                          #'argument:' 'Launcher'

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Monitors'

                          #'translateLabel:' true

                          #'value:' #monitors

                          #'submenu:' 

                           #(#Menu

                               #(

                                 #(#MenuItem

                                    #'label:' 'Processes'

                                    #'translateLabel:' true

                                    #'value:' #'openApplication:'

                                    #'argument:' 'ProcessMonitor'

                                )

                                 #(#MenuItem

                                    #'label:' 'Semaphores'

                                    #'translateLabel:' true

                                    #'value:' #'openApplication:'

                                    #'argument:' 'SemaphoreMonitor'

                                )

                                 #(#MenuItem

                                    #'label:' 'Memory'

                                    #'translateLabel:' true

                                    #'value:' #'openApplication:'

                                    #'argument:' 'MemoryMonitor'

                                )

                                 #(#MenuItem

                                    #'label:' 'Irq Latency'

                                    #'translateLabel:' true

                                    #'value:' #startLatencyMonitor

                                )

                                 #(#MenuItem

                                    #'label:' 'Event View'

                                    #'translateLabel:' true

                                    #'value:' #'openApplication:'

                                    #'argument:' 'EventMonitor'

                                )

                                 #(#MenuItem

                                    #'label:' 'Event Trace'

                                    #'translateLabel:' true

                                    #'value:' #startStopEventTrace

                                )

                                 #(#MenuItem

                                    #'label:' '-'

                                )

                                 #(#MenuItem

                                    #'label:' 'Memory Usage'

                                    #'translateLabel:' true

                                    #'value:' #'openApplication:'

                                    #'argument:' 'MemoryUsageView'

                                )

                              ) nil

                              nil

                          )

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Views'

                          #'translateLabel:' true

                          #'value:' #views

                          #'submenu:' 

                           #(#Menu

                               #(

                                 #(#MenuItem

                                    #'label:' 'Iconify All'

                                    #'translateLabel:' true

                                    #'value:' #iconifyAllWindows

                                )

                                 #(#MenuItem

                                    #'label:' 'De-iconify All'

                                    #'translateLabel:' true

                                    #'value:' #deIconifyAllWindows

                                )

                                 #(#MenuItem

                                    #'label:' '-'

                                )

                                 #(#MenuItem

                                    #'label:' 'Find And Raise...'

                                    #'translateLabel:' true

                                    #'value:' #findAndRaiseWindow

                                )

                                 #(#MenuItem

                                    #'label:' '-'

                                )

                                 #(#MenuItem

                                    #'label:' 'View Tree (all views)'

                                    #'translateLabel:' true

                                    #'value:' #'openApplication:'

                                    #'argument:' 'WindowTreeView'

                                )

                                 #(#MenuItem

                                    #'label:' 'View Tree'

                                    #'translateLabel:' true

                                    #'value:' #startWindowTreeView

                                )

                                 #(#MenuItem

                                    #'label:' '-'

                                )

                                 #(#MenuItem

                                    #'label:' 'Select And Inspect View'

                                    #'translateLabel:' true

                                    #'value:' #viewInspect

                                )

                                 #(#MenuItem

                                    #'label:' '-'

                                )

                                 #(#MenuItem

                                    #'label:' 'Select And Destroy View'

                                    #'translateLabel:' true

                                    #'value:' #viewDestroy

                                )

                                 #(#MenuItem

                                    #'label:' 'Find And Destroy...'

                                    #'translateLabel:' true

                                    #'value:' #findAndDestroyWindow

                                )

                              ) nil

                              nil

                          )

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Hardcopy'

                          #'translateLabel:' true

                          #'value:' #hardcopy

                          #'submenu:' 

                           #(#Menu

                               #(

                                 #(#MenuItem

                                    #'label:' 'Screen'

                                    #'translateLabel:' true

                                    #'value:' #fullScreenHardcopy

                                )

                                 #(#MenuItem

                                    #'label:' 'Area'

                                    #'translateLabel:' true

                                    #'value:' #screenHardcopy

                                )

                                 #(#MenuItem

                                    #'label:' 'View'

                                    #'translateLabel:' true

                                    #'value:' #viewHardcopy

                                )

                              ) nil

                              nil

                          )

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Misc'

                          #'translateLabel:' true

                          #'value:' #misc

                          #'submenu:' 

                           #(#Menu

                               #(

                                 #(#MenuItem

                                    #'label:' 'Garbage Collect'

                                    #'translateLabel:' true

                                    #'value:' #garbageCollect

                                )

                                 #(#MenuItem

                                    #'label:' 'Garbage Collect And Compress'

                                    #'translateLabel:' true

                                    #'value:' #compressingGarbageCollect

                                )

                              ) nil

                              nil