"

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

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Smalltalk }"

AbstractLauncherApplication subclass:#NewLauncher

	instanceVariableNames:'isMainLauncher helpIsOn errorListCanvas infoLineTemplate'

	classVariableNames:'UserAddedMenuItems UserAddedToolBarItems

		PreviousPackageDialogItems PreviousPackageDialogExtent'

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

Object subclass:#AddedToolInfo

	instanceVariableNames:'item resourceProvider where positionSpec space before

		menuWithNewItem originalLabel'

	classVariableNames:''

	poolDictionaries:''

	privateIn:NewLauncher

!

ApplicationModel subclass:#PackageLoadDialog

	classVariableNames:'PreviousPackageDialogItems PreviousPackageDialogExtent'

	poolDictionaries:''

	privateIn:NewLauncher

!

!NewLauncher class methodsFor:'documentation'!

copyright

"

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

    This one provides all of the Launchers functionality,

    but has been written using the new GUI painter tools.

    (i.e. its menu and toolbar is defined by specs, which can be

     easily modified).

    Functionality which can be shared with the old launcher

    has been moved to a common superclass.

    If you want to write your own (application-)launcher, we recommend

    creating a subclass, and redefining the appropriate menu & menuToolBar

    methods there.

    [start with:]

	NewLauncher open

    [see also:]

	Launcher

    [author:]

	Thomas Zwick, eXept Software AG

	Claus Gittinger, eXept Software AG

"

!

examples

"

    reopening a standard launcher (without any added tools)

									[exBegin]

     NewLauncher removeAllUserAddedTools.

     NewLauncher open.

									[exEnd]

    adding your own menu items (for user-applications)

    an additional item in the tools menu:

									[exBegin]

     Transcript topView application

	addMenuItem:(MenuItem new

			label: 'Foo';

			value: [Transcript showCR:'foo invoked'];

			isButton: false;

			labelImage: nil;

			nameKey: #foo;

			activeHelpKey: #Foo)

	in:#menu

	position:#(before workspace)

	space:true

									[exEnd]

    an additional item in the tools menu:

									[exBegin]

     Transcript topView application

	addMenuItem:(MenuItem new

			label: 'Foo';

			value: [Transcript showCR:'foo invoked'];

			isButton: false;

			labelImage: nil;

			activeHelpKey: #Foo)

	in:#menu

	position:#(after guiPainter)

	space:true

									[exEnd]

    an additional item in one of the tools sub menus:

									[exBegin]

     Transcript topView application

	addMenuItem:(MenuItem new

			label: 'Foo';

			value: [Transcript showCR:'foo invoked'];

			isButton: false;

			labelImage: nil;

			activeHelpKey: #Foo)

	in:#menu

	position:#(after Workspace)

	space:true

									[exEnd]

"

! !

!NewLauncher class methodsFor:'accessing'!

label

    ^'ST/X Launcher'

! !

!NewLauncher class methodsFor:'defaults'!

defaultInfoLineTemplate

    "available values:

	PACKAGE         - the current packageID

	PACKAGEOREMPTY  - the current packageID or empty if its __NoPackage__

	IMAGE           - the current snapshot image

	CVS             - the CVS source repository or empty

	DB              - the Store source repository DB or empty

	SVN_WORKING_COPY- the SVN working copy dir or empty

	NOREPOSITORY    - the tring 'No Repository' empty

	NS              - the default namespace, or empty (if Smalltalk)

	PROJECTDIR      - the default fileOut directory or empty (if current)

    "

    (SVN::RepositoryManager notNil

    and:[ SVN::RepositoryManager isLoaded

    and:[ SVN::RepositoryManager enabled ]]) ifTrue:[

	^ '%(PACKAGEOREMPTY)%(IMAGE) %(CVS)%(DB)%(SVN_WORKING_COPY)'

    ].

    ^ '%(PACKAGEOREMPTY)%(IMAGE)%(CVS)%(DB)%(NOREPOSITORY)%(NS)'

    "/ ^ '%(PACKAGEOREMPTY)%(IMAGE)%(CVS)%(DB)%(NOREPOSITORY)%(NS)'

    "/ ^ '%(PACKAGE)%(IMAGE)%(CVS)%(DB)%(NOREPOSITORY)%(NS)%(PROJECTDIR)'

    "Modified: / 30-09-2008 / 12:45:49 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

windowIcon

    ^ Icon stxIcon

    "Created: / 16.8.1998 / 13:11:58 / cg"

    "Modified: / 17.8.1998 / 10:07:09 / cg"

! !

!NewLauncher class methodsFor:'help specs'!

flyByHelpSpec

    <resource: #help>

    ^super flyByHelpSpec addPairsFrom:#(

#fileFileBrowser

'FileBrowser'

#fileBrowserV2

'New FileBrowser / Recently visited folders'

#fileSaveImage

'Save Image'

#fileSaveImageAs

'Save Image'

#helpSTXOnlineDocumentation

'Online Manual'

#classesSystemBrowserOnClass

'Browser history'

#classesSystemBrowser

'SystemBrowser'

#newSystemBrowser

'New SystemBrowser / Recently visited classes'

#systemGarbageCollect

'GarbageCollect - force free space reclamation to be done now.\(Normally not needed, the system does this automatically for you)'

#systemGarbageCollectAndCompress

'GarbageCollect - force free space reclamation now and compress memory.\(Normally not needed, the system does this automatically for you)'

#toolsGUIPainter

'GUIPainter - a tool for interactive UI construction.\Normally opened via the browser by double clicking on an interface spec method'

#toolsImageEditor

'BitmapEditor - a tool to create/modify icons and bitmaps used in the UI.\Normally opened via the browser by double clicking on an image spec method'

#toolsMenuEditor

'MenuEditor - a tool for interactive UI-menu construction.\Normally opened via the browser by double clicking on a menu spec method'

#toolsChangesBrowser

'Changes Browser'

toolsChangesBrowserOrNavigateToRecentChange

'Changes Browser / Uncommitted recent changes'

#toolsMiscProjectsNewProject

'New Project'

#toolsNewChangesBrowser

'ChangesBrowser (new GUI)'

#toolsOldChangesBrowser

'ChangesBrowser (old GUI)'

#toolsWorkspace

'Workspace - a scratchpad for text and expression evaluator'

#toolsMyWorkspace

'Workspace on the "MyWorkspace.wsp" file'

#toolsSystemWorkspace

'The SystemWorkspace with Welcome Messages'

#toolsEvaluationWorkspace

'A 3-pane EvaluationWorkspace - good for lectures and Smalltalk courses'

#toolsInternationalLanguageTranslationEditor

'National Language Translation Editor'

)

    "Modified: / 28-08-2013 / 14:56:20 / cg"

!

helpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIHelpTool may not be able to read the specification."

    "

     UIHelpTool openOnClass:NewLauncher    

    "

    <resource: #help>

    ^ super helpSpec addPairsFrom:#(

#aboutLicenseConditions

'Show the license conditions of ST/X'

#breakPointBrowser

''

#chickenFun

'Watch your views'

#classBrowserOnChangedClasses

'Open a Browser on changed classes'

#classBrowserOnChangedMethod

'Open a Browser on a that changed method'

#classBrowserOnChangedMethods

'Open a Browser on changed methods'

#classes

'Class functions'

#classesClassBrowser

'Open a dialog for defining and opening a Class Browser on a class'

#classesClassBrowserOnChanges

'Open a Browser on changed classes'

#classesClassHierarchyBrowser

'Open a dialog for defining and opening a Class Hierarchy Browser on a class'

#classesClassTreeBrowser

'Open a Class Tree View'

#classesFullClassBrowser

'Open a dialog for defining and opening a Full Class Browser on a class'

#classesImplementors

'Find all methods which implement a particular message'

#classesRemoveAllTracePoints

'Remove all trace- and break-points'

#classesResourceMethods

'Open a dialog for searching resource methods'

#classesSenders

'Find all methods which send a particular message'

#classesShowTracePoints

'Browse mthods with a Trace- or Break-point'

#classesSpecial

'Special class functions'

#classesSpecialReferencesToUnboundGlobals

'rbowse methods refering to unbound globals'

#classesSpecialReferencesToUndeclared

'Browse methods refering to undeclared variables'

#classesStopIgnoringHalts

'Stop ignoring Halts in the debugger'

#classesStringSearch

''

#classesSystemBrowser

'Open a System Browser'

#classesSystemBrowserOnClass

'Open a System Browser on a previously visited class'

#demos

'Demo programs'

#demos3D

'3D GL graphic demos'

#demos3DcubeSolid

'A rotating solid cube'

#demos3DcubeWire

'A rotating wireframe cube'

#demos3Ddoughnut

'A rotating wireframe doughnut'

#demos3Dlogo

'The ST/X logo'

#demos3Dplane

'A rotating plane'

#demos3Dplanet

'Two spheres - one rotating around the other'

#demos3Drubics

'A rubics cube - with interaction'

#demos3Dsphere

'A rotating wireframe sphere'

#demos3Dteapot

'A teopot'

#demos3Dtetra

'A rotating tetrahedron'

#demosAnimations

'Simple animation demos'

#demosBabelFish

'A Language Translator'

#demosCalculator

'Opens a calculator with decimal to hex conversion'

#demosCalendar

'Opens a GUI on the cal program (unix only)'

#demosClock

'Opens an analog clock application'

#demosCommander

'Opens a demo for the Commander class'

#demosDigitalClock

'Opens a digital clock application'

#demosDrawingProtocol

'Drawing protocol demo (for programmers)'

#demosFTP

'Opens a simple FTP interface demo'

#demosFractalPatterns

'Opens a view displaying fractal patterns'

#demosFractalPlants

'Opens a view displaying fractal plants (iterated function systems)'

#demosGUI

'GUI builder demos'

#demosGUICalculator

'Calculator built using the GUI builder'

#demosGUIWidgets

'GUI widgets usage'

#demosGames

'Games'

#demosGeometric

'Various demos displaying geometric designs'

#demosGlobe

'Opens a rotating globe animation demo'

#demosGoodies

'Goodies and Utilities'

#demosGraphicEditors

'Graphic editing demos'

#demosGraphicEditorsDrawTool

'Object drawing demo'

#demosGraphicEditorsLogicTool

'Simulating Logic demo'

#demosGraphicEditorsPaintTool

'Painting demo'

#demosLSystems

'Opens a view displaying fractal patterns using Lindenmayer Systems'

#demosMail

'Opens a simple mail viewer demo'

#demosMandel

'Opens a view displaying the mandelbrot set'

#demosMoreFractalPatterns

'Opens a view with more fractal patterns'

#demosNews

'Opens a simple news reader demo'

#demosOldStuff

'Very old demos'

#demosPen

'Opens a demo for the Pen class'

#demosRemoteLauncher

'Opens a launcher on a remote display'

#demosTelnet