"

 COPYRIGHT (c) 1991 by Claus Gittinger

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

"{ NameSpace: Smalltalk }"

StandardSystemView subclass:#OldLauncher

	instanceVariableNames:'myMenu logoLabel'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

!OldLauncher class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1991 by Claus Gittinger

	      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

"

    WARNING:

        This is a very old part of the ST/X system, and no longer maintained.

        This used to be the launcher many years ago (in the early 90s).

        It has been replaced by the Launcher, 

        which itself got obsoleted by the NewLauncher.

    OldLauncher allows startup of smalltalk applications.

    If you like this kind of permanent menu for your applications,

    create a subclass of this, and redefine #initializeLogo and

    #initializeMenu (thats why those two have been implemented as

    separate methods).

    If you like to add more entries to the menu (or a submenu),

    add an entry to the menu (in #initializeMenu) and create a corresponding

    action method, to be called from the menu.

    Then start a new OldLauncher with:

        OldLauncher open

    start a new one, BEFORE you close the old one - otherwise you may be

    left without any windows on the screen ...

    If you want to change the launchers menu WITHOUT closing the active one,

    use #addSelector... (see MenuView).

"

! !

!OldLauncher class methodsFor:'defaults '!

defaultLabel

    ^ 'ST/X'

!

isVisualStartable

    ^ true

! !

!OldLauncher methodsFor:'accessing'!

menu

    ^ myMenu

! !

!OldLauncher methodsFor:'demo menu actions'!

openDemo:className

    |cls|

    cls := (Smalltalk at:className).

    cls isNil ifTrue:[

        Demos notNil ifTrue:[

            cls := Demos at:className.

        ].

        cls isNil ifTrue:[

            Games notNil ifTrue:[

                cls := Games at:className.

            ].

            cls isNil ifTrue:[

                self warn:'Demo not found: ', className.

                ^ self.

            ].

        ].

    ].

    cls open

!

startAnimation

    self openDemo:#Animation 

!

startCommanderDemo

    self openDemo:#CommanderDemo 

!

startGlobeDemo

    self openDemo:#GlobeDemo 

!

startLogicTool

    self openDemo:#LogicTool 

!

startPenDemo

    self openDemo:#PenDemo 

!

startTetris

    self openDemo:#Tetris

!

startTicTacToe

    self openDemo:#TicTacToe 

! !

!OldLauncher methodsFor:'doc menu actions'!

showAbout

    AboutBox new show

!

showCustomizing

    self showOnlineHelp:'custom/TOP'

!

showGettingStarted

    self showOnlineHelp:'getstart/TOP'

!

showHTMLDocumentation

    (HTMLDocumentView notNil 

    and:[HTMLDocumentView isLoaded]) ifTrue:[

        HTMLDocumentView openFullOnDocumentationFile:'TOP.html'. 

    ] ifFalse:[

        self warn:'No HTMLDocumentView-class available'

    ].

!

showOnlineHelp:baseName

    self showDocumentFile:baseName

!

showOverview

    self showDocumentFile:'overview/TOP'

!

warnIfAbsent:aPath

    |s|

    s := Smalltalk systemFileStreamFor:aPath.

    s isNil ifTrue:[

	self warn:('document ' , aPath , ' not available').

	^ nil

    ].

    ^ s  pathName

! !

!OldLauncher methodsFor:'event handling'!

saveAndTerminate

    "

     some windowManagers can send this, to shutDown an application

     but let it save its state before, for restart. We are already

     prepared for this ;-)"

    ObjectMemory snapShotOn:name

! !

!OldLauncher methodsFor:'goody menu actions'!

startAddressBook

    self openDemo:#AddressBook 

!

startCalendar

    self openDemo:#Calendar 

!

startClock

    self openDemo:#Clock 

!

startDrawTool

    self openDemo:#DrawView 

!

startMailTool

    self openDemo:#MailView 

!

startNewsTool

    self openDemo:#NewsView 

!

startRoundClock

    self openDemo:#RoundClock2 

!

startXterm

    OperatingSystem executeCommand:'xterm &'

! !

!OldLauncher methodsFor:'initialize / release'!

addToCurrentProject

    "ignored here - the launcher is always global."

    ^ self

!

destroy

    "re-confirm when closing Launcher - we do this,

     since if you close the last launcher, you might loose the possibility to

     communicate with the system ..."

    (self confirm:(resources string:'close ' , self class name , ' ?')) ifTrue:[

	super destroy

    ]

!

initialize

    super initialize.

    self initializeMenu.

    self initializeLogo.

    myMenu level:0.

"/    myMenu borderWidth:0.

    myMenu origin:(0.0 @ logoLabel height).

    myMenu resize.

"/    myMenu font:(self font).

"/    self extent:(myMenu extent).

!

initializeLogo

    logoLabel := Label in:self.

    logoLabel form:(Image fromFile:'bitmaps/SmalltalkX.xbm').

    logoLabel origin:0.0 @ 0.0.

    logoLabel borderWidth:0.

    logoLabel viewBackground:viewBackground.

    logoLabel backgroundColor:viewBackground.

!

initializeMenu

    myMenu := ClickMenuView 

                labels:(resources array:#(

                                'Browsers'

                                'Workspace'

                                'File Browser'

                                'Projects'

                                '-'

                                'Utilities'

                                'Goodies'

                                'Games & Demos'

                                '-'

                                'Info & Help'

                                '-'

                                'Snapshot'

                                '-'

                                'Exit'

                        ))

                selectors:#(browserMenu

                            startWorkspace

                            startFileBrowser

                            projectMenu

                            nil

                            utilityMenu

                            goodyMenu

                            gamesMenu

                            nil

                            helpMenu

                            nil

                            saveImage

                            nil

                            exitSmalltalk

                           )

                receiver:self

                      in:self.

    myMenu subMenuAt:#browserMenu put:(

        PopUpMenu labels:(resources array:#(

                            'System Browser'

                            'Class Hierarchy...'

                            'Implementors...'

                            'Senders...'

                            '-'

                            'Changes Browser'

                            '-'

                            'Directory'

                           ))

               selectors:#(

                            startSystemBrowser

                            startHierarchyBrowser

                            startImplementorsBrowser

                            startSendersBrowser

                            nil

                            startChangesBrowser

                            nil

                            startDirectoryBrowser

                           )

                receiver:self

                     for:self

    ).

    myMenu subMenuAt:#utilityMenu put:(

        PopUpMenu labels:(resources array:#(

                            'Transcript'

                            'New Launcher'

                            '-'

                            'Window tree'

                            'View inspect'

                            'View destroy'

                            'Class tree'

                            '-'

                            'Event monitor'

                            'Process monitor'

                            'Memory monitor'

                            'Memory usage'

                            '-'

                            'Collect Garbage'

                            'Collect Garbage & compress'

                            '-'

                            'Full screen Hardcopy'

                            'Screen area Hardcopy'

                            'View Hardcopy'

                            '-'

                            'ScreenSaver'

                           ))

               selectors:#(

                            startTranscript

                            startNewLauncher

                            nil

                            startWindowTreeView

                            viewInspector

                            viewKiller

                            startClassTreeView

                            nil

                            startEventMonitor

                            startProcessMonitor

                            startMemoryMonitor

                            startMemoryUsage

                            nil

                            garbageCollect

                            compressingGarbageCollect

                            nil

                            fullScreenHardcopy

                            screenHardcopy

                            viewHardcopy

                            nil

                            screenSaverMenu

                           )

                receiver:self

                     for:self

    ).

    (myMenu subMenuAt:#utilityMenu) subMenuAt:#screenSaverMenu put:(

        PopUpMenu labels:(resources array:#(

                            'Simple'

                            'Spotlight'

                            'Moving spotlight'

                           ))

               selectors:#(

                            startScreenSaver1

                            startScreenSaver2

                            startScreenSaver3

                           )

                receiver:self

                     for:self

    ).

    (Screen current isKindOf:GLXWorkstation) ifTrue:[

        myMenu subMenuAt:#gamesMenu put:(

            PopUpMenu labels:(resources array:#(

                                'Tetris'

                                'TicTacToe'

                                '-'

                                'PenDemo'

                                'CommanderDemo' 

                                '-'

                                'Animation'

                                'Globe'

                                '-'

                                'GL 3D demos'

                                '-'

                                'LogicTool'

                               ))

                   selectors:#(

                                startTetris

                                startTicTacToe

                                nil

                                startPenDemo

                                startCommanderDemo

                                nil

                                startAnimation

                                startGlobeDemo

                                nil

                                glDemos

                                nil

                                startLogicTool

                              )

                    receiver:self

                         for:self

        ).

        (myMenu subMenuAt:#gamesMenu) subMenuAt:#glDemos put:(

            PopUpMenu labels:(resources array:#(

                                'plane'

                                'tetra'

                                'cube (wireframe)'

                                'cube (solid)'

                                'cube (light)'

                                'cube (light & texture)'

                                'sphere (wireframe)'

                                'sphere (light)'

                                'planet'

                                'teapot'

                                'logo'

                               ))

                    selector:#openDemo:

                        args:#(

                                GLPlaneDemoView2

                                GLTetraDemoView

                                GLWireCubeDemoView

                                GLCubeDemoView

                                GLCubeDemoView2

                                GLBrickCubeDemoView

                                GLWireSphereDemoView

                                GLSphereDemoView2

                                GLPlanetDemoView

                                GLTeapotDemo

                                Logo3DView1

                              )

                    receiver:self

                         for:self

        ).

    ] ifFalse:[

        myMenu subMenuAt:#gamesMenu put:(

            PopUpMenu labels:(resources array:#(

                                'Tetris'

                                'TicTacToe'

                                '-'

                                'PenDemo'

                                'CommanderDemo' 

                                '-'

                                'Animation'

                                'Globe'

                                '-'

                                'LogicTool'

                               ))

                    selector:#openDemo:

                        args:#(

                                Tetris

                                TicTacToe

                                nil

                                PenDemo

                                CommanderDemo

                                nil

                                Animation

                                GlobeDemo

                                nil

                                LogicTool

                              )

                    receiver:self

                         for:self

        )

    ].

    Project notNil ifTrue:[

        myMenu subMenuAt:#projectMenu put:(

            PopUpMenu labels:(resources array:#(

                                'New project'