--- a/Launcher.st Thu Jan 22 16:55:29 1998 +0100
+++ b/Launcher.st Thu Jan 22 17:37:46 1998 +0100
@@ -587,6 +587,12 @@
"Modified: 8.1.1997 / 14:47:31 / cg"
!
+startNewLauncher
+ "open a real new launcher"
+
+ NewLauncher open
+!
+
startSystemBrowser
"open a systemBrowser"
@@ -4133,127 +4139,131 @@
|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:#(
+ 'new launcher'
+ '-'
+ 'workspace'
+ '-'
+ 'GUI builder'
+ '-'
+ 'monitors'
+ '-'
+ 'views'
+ '-'
+ 'hardcopy'
+ '-'
+ 'misc'
+ ))
+ selectors:#(
+ #startNewLauncher
+ nil
+ #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"
@@ -4573,38 +4583,42 @@
"/ if so, do not close the real launcher.
(Transcript notNil and:[Transcript ~~ Stderr]) ifTrue:[
- isMainLauncher ifTrue:[
- launcher := Transcript topView application
- ] ifFalse:[
- launcher := self class current.
- ].
- launcher notNil ifTrue:[
- launcher window graphicsDevice == device ifTrue:[
- OpenLaunchers removeIdentical:launcher ifAbsent:nil.
- launcher window destroy.
- ]
- ]
+ isMainLauncher ifTrue:[
+ launcher := Transcript topView application
+ ] ifFalse:[
+ launcher := self class current.
+ (launcher isNil and: [NewLauncher notNil]) ifTrue: [launcher := NewLauncher current].
+ ].
+
+ launcher notNil ifTrue:[
+ launcher window graphicsDevice == device ifTrue:[
+ OpenLaunchers removeIdentical:launcher ifAbsent:nil.
+ launcher class = NewLauncher
+ ifTrue: [launcher close]
+ ifFalse: [launcher window destroy]
+ ]
+ ]
].
v := HVScrollableView
- for:TextCollector
- miniScrollerH:true
- miniScrollerV:false
- in:aView.
+ for:TextCollector
+ miniScrollerH:true
+ miniScrollerV:false
+ in:aView.
v origin:(0.0 @ (buttonPanel corner y + View viewSpacing))
corner:(1.0 @ 1.0).
transcript := v scrolledView.
isMainLauncher ifTrue:[
- transcript beTranscript.
+ transcript beTranscript.
] ifFalse:[
- transcript showCR:'**************** Notice ***********************'.
- transcript showCR:'** this is NOT the Transcript **'.
- transcript showCR:'** The real Transcript is on the main screen **'.
- transcript showCR:'** **'.
- transcript showCR:'** Menus affecting common state are disabled **'.
- transcript showCR:'***********************************************'.
+ transcript showCR:'**************** Notice ***********************'.
+ transcript showCR:'** this is NOT the Transcript **'.
+ transcript showCR:'** The real Transcript is on the main screen **'.
+ transcript showCR:'** **'.
+ transcript showCR:'** Menus affecting common state are disabled **'.
+ transcript showCR:'***********************************************'.
]
"Modified: 1.2.1997 / 12:08:01 / cg"
@@ -4966,5 +4980,5 @@
!Launcher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.309 1998-01-18 18:46:15 tz Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.310 1998-01-22 16:37:46 tz Exp $'
! !