--- a/Launcher.st Mon Jan 12 19:22:36 1998 +0100
+++ b/Launcher.st Fri Jan 16 16:21:12 1998 +0100
@@ -3220,16 +3220,16 @@
app := Smalltalk classNamed:aSymbol.
app isBehavior ifTrue:[
- app isLoaded ifFalse:[
- Autoload autoloadFailedSignal handle:[:ex|
- ^ self warn:(resources string:'Sorry - cannot load %1' with:app name).
- ] do:[
- app autoload.
- ].
- ].
- app open.
+ app isLoaded ifFalse:[
+ Autoload autoloadFailedSignal handle:[:ex|
+ ^ self warn:(resources string:'Sorry - cannot load %1' with:app name).
+ ] do:[
+ app autoload.
+ ].
+ ].
+ app open.
] ifFalse:[
- self warn:(resources string:'Sorry - %1 is only available
+ self warn:(resources string:'Sorry - %1 is only available
in the full commercial release' with:aSymbol asString).
]
@@ -3677,7 +3677,8 @@
)
).
- JavaBrowser notNil ifTrue:[
+ (JavaBrowser notNil
+ and:[JavaBrowser isLoaded]) ifTrue:[
(myMenu subMenuAt:#classes)
addLabels:(resources array:#('-' 'java browser'))
selectors:#(nil startJavaBrowser)
@@ -3685,7 +3686,7 @@
].
"Created: / 8.1.1997 / 14:05:44 / cg"
- "Modified: / 31.10.1997 / 18:30:41 / cg"
+ "Modified: / 13.1.1998 / 09:57:46 / cg"
!
setupDemoMenu
@@ -4118,127 +4119,127 @@
|m |
myMenu at:#tools
- putLabels:(resources array:#(
- 'workspace'
- '-'
- 'GUI builder'
- '-'
- 'monitors'
- '-'
- 'views'
- '-'
- 'hardcopy'
- '-'
- 'misc'
- ))
- selectors:#(
- #startWorkspace
- nil
- #startGUIBuilder
- nil
- #monitors
- nil
- #views
- nil
- #hardcopy
- nil
- #misc
- )
- receiver:self.
+ putLabels:(resources array:#(
+ 'workspace'
+ '-'
+ 'GUI builder'
+ '-'
+ 'monitors'
+ '-'
+ 'views'
+ '-'
+ 'hardcopy'
+ '-'
+ 'misc'
+ ))
+ selectors:#(
+ #startWorkspace
+ nil
+ #startGUIBuilder
+ nil
+ #monitors
+ nil
+ #views
+ nil
+ #hardcopy
+ nil
+ #misc
+ )
+ receiver:self.
m := myMenu menuAt:#tools.
m subMenuAt:#monitors
put:(PopUpMenu
- labels:(resources array:#(
- 'process'
- 'semaphores'
- 'memory'
- 'irq latency'
- 'event view'
- 'event trace'
- '-'
- 'memory usage'
- ))
- selectors:#(
- #startApplication:
- #startApplication:
- #startApplication:
- #startApplication:
- #startApplication:
- #startStopEventTrace
- nil
- #startApplication:
- )
- args:#(
- #ProcessMonitor
- #SemaphoreMonitor
- #MemoryMonitor
- #InterruptLatencyMonitor
- #EventMonitor
- #StopEventTrace
- nil
- #MemoryUsageView
- )
- receiver:self).
+ labels:(resources array:#(
+ 'process'
+ 'semaphores'
+ 'memory'
+ 'irq latency'
+ 'event view'
+ 'event trace'
+ '-'
+ 'memory usage'
+ ))
+ selectors:#(
+ #startApplication:
+ #startApplication:
+ #startApplication:
+ #startApplication:
+ #startApplication:
+ #startStopEventTrace
+ nil
+ #startApplication:
+ )
+ args:#(
+ #ProcessMonitor
+ #SemaphoreMonitor
+ #MemoryMonitor
+ #InterruptLatencyMonitor
+ #EventMonitor
+ #StopEventTrace
+ nil
+ #MemoryUsageView
+ )
+ receiver:self).
m subMenuAt:#views
put:(PopUpMenu
- labels:(resources array:#(
- 'iconify all'
- 'de-iconify all'
- '-'
- 'find & raise ...'
- '-'
- 'view tree (all views)'
- 'view tree'
- '-'
- 'select & inspect view'
- '-'
- 'select & destroy view'
- 'find & destroy ...'
- ))
- selectors:#(
- #iconifyAllWindows
- #deIconifyAllWindows
- nil
- #findAndRaiseWindow
- nil
- #startFullWindowTreeView
- #startWindowTreeView
- nil
- #viewInspect
- nil
- #viewDestroy
- #findAndDestroyWindow
- )
- receiver:self).
+ labels:(resources array:#(
+ 'iconify all'
+ 'de-iconify all'
+ '-'
+ 'find & raise ...'
+ '-'
+ 'view tree (all views)'
+ 'view tree'
+ '-'
+ 'select & inspect view'
+ '-'
+ 'select & destroy view'
+ 'find & destroy ...'
+ ))
+ selectors:#(
+ #iconifyAllWindows
+ #deIconifyAllWindows
+ nil
+ #findAndRaiseWindow
+ nil
+ #startFullWindowTreeView
+ #startWindowTreeView
+ nil
+ #viewInspect
+ nil
+ #viewDestroy
+ #findAndDestroyWindow
+ )
+ receiver:self).
m subMenuAt:#misc
put:(PopUpMenu
- labels:(resources array:#(
- 'garbage collect'
- 'garbage collect & compress'
- ))
- selectors:#(
- #garbageCollect
- #compressingGarbageCollect
- )
- receiver:self).
+ labels:(resources array:#(
+ 'garbage collect'
+ 'garbage collect & compress'
+ ))
+ selectors:#(
+ #garbageCollect
+ #compressingGarbageCollect
+ )
+ receiver:self).
m subMenuAt:#hardcopy
put:(PopUpMenu
- labels:(resources array:#(
- 'screen'
- 'area'
- 'view'
- ))
- selectors:#(
- #fullScreenHardcopy
- #screenHardcopy
- #viewHardcopy
- )
- receiver:self).
+ labels:(resources array:#(
+ 'screen'
+ 'area'
+ 'view'
+ ))
+ selectors:#(
+ #fullScreenHardcopy
+ #screenHardcopy
+ #viewHardcopy
+ )
+ receiver:self).
"Modified: / 31.10.1997 / 16:01:53 / cg"
"Modified: / 19.12.1997 / 13:15:27 / stefan"
@@ -4951,5 +4952,5 @@
!Launcher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.306 1997-12-19 14:07:39 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.307 1998-01-16 15:21:12 cg Exp $'
! !