"

 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

		CPUHogSlowDownProcess'

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

Object subclass:#AddedToolInfo

	instanceVariableNames:'item resourceProvider where positionSpec space before

		menuWithNewItem originalLabel'

	classVariableNames:''

	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 it's __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>"

    "Modified (comment): / 13-02-2017 / 20:27:15 / cg"

!

windowIcon

    ^ Icon stxIcon

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

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

! !

!NewLauncher class methodsFor:'help specs'!

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

'Open a breakpoint browser'

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

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

#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

'Opens a Telnet terminal demo'

#demosWalkingMan

'Opens a walking man animation demo'

#enableGlobalCoverageAnalysis

'Enable coverage statistic gathering in all processes (global covarage analysis)'

#fileApplicationBuilder

'Open an Application Builder for building stand alone ST/X-applications'

#fileBrowserV2

'New FileBrowser / Recently visited folders'

#fileFileBrowser

'Open a FileBrowser to edit or load files and folders'

#fileLibraryBuilder

'Open a Library Builder for building binary class libraries'

#fileLoadPackage

'Open a package load dialog'

#fileModules

'Show class libraries and other modules'

#fileSaveImage

'Save the complete state of ST/X into the current snapshot file ("%1")'

#fileSaveImageAs

'Save the complete state of ST/X into a snapshot file'

#fileSaveSessionChangesAs

'Save changes made in this session as a patch file, which is automatically loaded when ST/X is started.'

#findClassAndBrowse

'Find and browse a class by name'

#flyByWindowInformation

'Show flyby info about the window under the pointer. Easy access to View, Application and Model'

#gamesPingPong

'Play classic PingPong against the computer'

#gamesPingPong2

'Play classic PingPong against a friend'

#gamesReversi

'The game of reversi (an embedded Java applet)'

#gamesTetris

'The tetris game - written in Smalltalk'

#gamesTicTacToe

'Play TicTacToe against the computer'

#gamesTicTacToe2

'Play TicTacToe against a friend'

#helpActiveHelp

'Toggle display of active help texts in browsers'

#helpClassDocumentation

'Show the smalltalk class documentation'

#helpCredits

'Say thanks to some friends'

#helpIndex

'Show the index of the online documentation'

#helpPrintDocumentation

'Print various parts of the ST/X documentation'

#helpProgrammersGuide

'Show the programmer''s guide'

#helpRFC

'Show an RFC by number'

#helpSTXOnlineDocumentation

'Show the ST/X online documentation'

#helpShowTipOfTheDay

'Show a tip-of-the-day'

#helpSmalltalkTutorial

'Show the Smalltalk Language Tutorial'

#helpToolsDocumentation

'Show the tool documentation'