"

 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.

"

StandardSystemView subclass:#OldLauncher

	instanceVariableNames:'myMenu logoLabel'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

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

"

    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).

"

! !

defaultLabel

    ^ 'smallTalk'

! !

!OldLauncher methodsFor:'accessing'!

menu

    ^ myMenu

! !

!OldLauncher methodsFor:'demo menu actions'!

openDemo:className

!

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'

!

showOnlineHelp:baseName

    self warn:'HTML online help support is is not included in this package.

Use any HTML viewer on the files found in doc/online.

Starting view on ascii version of the text ....

'.

    self showDocumentFile:'doc/online/english/' , baseName

!

showOverview

    self showDocumentFile:'misc/overview'

!

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

!

startCalendar

!

startClock

!

startDrawTool

!

startMailTool

!

startNewsTool

!

startRoundClock

!

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

			    'Implementors'

			    'Senders'

			    '-'

			    'Changes Browser'

			    '-'

			    'Directory Browser'

			   ))

	       selectors:#(

			    startSystemBrowser

			    startHierarchyBrowser

			    startImplementorsBrowser

			    startSendersBrowser

			    nil

			    startChangesBrowser

			    nil

			    startDirectoryBrowser

			   )

		receiver:self

		     for:self

    ).

    myMenu subMenuAt:#utilityMenu put:(

	PopUpMenu labels:(resources array:#(

			    'Transcript'

			    '-'

			    '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

			    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'

				'-'

				'select project'

			       ))

		   selectors:#(

				newProject

				nil

				selectProject

			      )

		    receiver:self

			 for:self

	).

    ].

    myMenu subMenuAt:#goodyMenu put:(

	PopUpMenu labels:(resources array:#(

			    'Clock'

			    'Round Clock'

"

			    'Address Book'

"

			    '-'

			    'Calendar'

			    'Directory View'

			    'MailTool'

			    'NewsTool'

			    '-'

			    'DrawTool'

			   ))