--- a/NewLauncher.st Thu Feb 27 18:20:03 2014 +0100
+++ b/NewLauncher.st Fri Feb 28 13:49:53 2014 +0100
@@ -4537,7 +4537,7 @@
super allButOpenInterface:anInterface.
- self setupTranscript; updateInfo.
+ self setupTranscript.
Project notNil ifTrue: [Project addDependent:self].
ObjectMemory addDependent:self.
self class openLaunchers add: self.
@@ -4574,50 +4574,52 @@
postOpenWith:aBuilder
|toolInfo addMenuForToolInfo|
+ self updateInfo.
+
"/ increase my priority"
"/ self windowGroup process priority:(Processor userSchedulingPriority + 1).
Processor activeProcess priority:(Processor userSchedulingPriority + 1).
addMenuForToolInfo :=
- [:eachToolInfo|
- |menuItem originalLabel|
-
- menuItem := eachToolInfo item.
- originalLabel := eachToolInfo originalLabel.
- originalLabel notNil ifTrue:[ menuItem label:originalLabel ].
- self
- addMenuItem:menuItem
- from:(eachToolInfo resourceProvider)
- in:eachToolInfo where
- position:eachToolInfo positionSpec
- space:eachToolInfo space
- ].
+ [:eachToolInfo|
+ |menuItem originalLabel|
+
+ menuItem := eachToolInfo item.
+ originalLabel := eachToolInfo originalLabel.
+ originalLabel notNil ifTrue:[ menuItem label:originalLabel ].
+ self
+ addMenuItem:menuItem
+ from:(eachToolInfo resourceProvider)
+ in:eachToolInfo where
+ position:eachToolInfo positionSpec
+ space:eachToolInfo space
+ ].
"/ add user tools
UserAddedToolBarItems notNil ifTrue:[
- toolInfo := UserAddedToolBarItems.
- [
- UserAddedToolBarItems := nil.
- toolInfo do:addMenuForToolInfo.
- ] ifCurtailed:[
- UserAddedToolBarItems := toolInfo
- ]
+ toolInfo := UserAddedToolBarItems.
+ [
+ UserAddedToolBarItems := nil.
+ toolInfo do:addMenuForToolInfo.
+ ] ifCurtailed:[
+ UserAddedToolBarItems := toolInfo
+ ]
].
UserAddedMenuItems notNil ifTrue:[
- toolInfo := UserAddedMenuItems.
- [
- UserAddedMenuItems := nil.
- toolInfo do:addMenuForToolInfo.
- ] ifCurtailed:[
- UserAddedMenuItems := toolInfo
- ]
+ toolInfo := UserAddedMenuItems.
+ [
+ UserAddedMenuItems := nil.
+ toolInfo do:addMenuForToolInfo.
+ ] ifCurtailed:[
+ UserAddedMenuItems := toolInfo
+ ]
].
super postOpenWith:aBuilder.
"/ set the time-block
UserPreferences current showClockInLauncher ifTrue:[
- self startClock
+ self startClock
].
"Modified: / 16-11-2006 / 12:50:21 / cg"
@@ -5083,14 +5085,14 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.488 2014-02-25 10:42:24 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.489 2014-02-28 12:49:53 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.488 2014-02-25 10:42:24 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.489 2014-02-28 12:49:53 cg Exp $'
!
version_SVN
- ^ '$Id: NewLauncher.st,v 1.488 2014-02-25 10:42:24 vrany Exp $'
+ ^ '$Id: NewLauncher.st,v 1.489 2014-02-28 12:49:53 cg Exp $'
! !