4535 isMainLauncher := true |
4535 isMainLauncher := true |
4536 ]. |
4536 ]. |
4537 |
4537 |
4538 super allButOpenInterface:anInterface. |
4538 super allButOpenInterface:anInterface. |
4539 |
4539 |
4540 self setupTranscript; updateInfo. |
4540 self setupTranscript. |
4541 Project notNil ifTrue: [Project addDependent:self]. |
4541 Project notNil ifTrue: [Project addDependent:self]. |
4542 ObjectMemory addDependent:self. |
4542 ObjectMemory addDependent:self. |
4543 self class openLaunchers add: self. |
4543 self class openLaunchers add: self. |
4544 ^ builder |
4544 ^ builder |
4545 |
4545 |
4572 ! |
4572 ! |
4573 |
4573 |
4574 postOpenWith:aBuilder |
4574 postOpenWith:aBuilder |
4575 |toolInfo addMenuForToolInfo| |
4575 |toolInfo addMenuForToolInfo| |
4576 |
4576 |
|
4577 self updateInfo. |
|
4578 |
4577 "/ increase my priority" |
4579 "/ increase my priority" |
4578 "/ self windowGroup process priority:(Processor userSchedulingPriority + 1). |
4580 "/ self windowGroup process priority:(Processor userSchedulingPriority + 1). |
4579 Processor activeProcess priority:(Processor userSchedulingPriority + 1). |
4581 Processor activeProcess priority:(Processor userSchedulingPriority + 1). |
4580 |
4582 |
4581 addMenuForToolInfo := |
4583 addMenuForToolInfo := |
4582 [:eachToolInfo| |
4584 [:eachToolInfo| |
4583 |menuItem originalLabel| |
4585 |menuItem originalLabel| |
4584 |
4586 |
4585 menuItem := eachToolInfo item. |
4587 menuItem := eachToolInfo item. |
4586 originalLabel := eachToolInfo originalLabel. |
4588 originalLabel := eachToolInfo originalLabel. |
4587 originalLabel notNil ifTrue:[ menuItem label:originalLabel ]. |
4589 originalLabel notNil ifTrue:[ menuItem label:originalLabel ]. |
4588 self |
4590 self |
4589 addMenuItem:menuItem |
4591 addMenuItem:menuItem |
4590 from:(eachToolInfo resourceProvider) |
4592 from:(eachToolInfo resourceProvider) |
4591 in:eachToolInfo where |
4593 in:eachToolInfo where |
4592 position:eachToolInfo positionSpec |
4594 position:eachToolInfo positionSpec |
4593 space:eachToolInfo space |
4595 space:eachToolInfo space |
4594 ]. |
4596 ]. |
4595 |
4597 |
4596 "/ add user tools |
4598 "/ add user tools |
4597 UserAddedToolBarItems notNil ifTrue:[ |
4599 UserAddedToolBarItems notNil ifTrue:[ |
4598 toolInfo := UserAddedToolBarItems. |
4600 toolInfo := UserAddedToolBarItems. |
4599 [ |
4601 [ |
4600 UserAddedToolBarItems := nil. |
4602 UserAddedToolBarItems := nil. |
4601 toolInfo do:addMenuForToolInfo. |
4603 toolInfo do:addMenuForToolInfo. |
4602 ] ifCurtailed:[ |
4604 ] ifCurtailed:[ |
4603 UserAddedToolBarItems := toolInfo |
4605 UserAddedToolBarItems := toolInfo |
4604 ] |
4606 ] |
4605 ]. |
4607 ]. |
4606 UserAddedMenuItems notNil ifTrue:[ |
4608 UserAddedMenuItems notNil ifTrue:[ |
4607 toolInfo := UserAddedMenuItems. |
4609 toolInfo := UserAddedMenuItems. |
4608 [ |
4610 [ |
4609 UserAddedMenuItems := nil. |
4611 UserAddedMenuItems := nil. |
4610 toolInfo do:addMenuForToolInfo. |
4612 toolInfo do:addMenuForToolInfo. |
4611 ] ifCurtailed:[ |
4613 ] ifCurtailed:[ |
4612 UserAddedMenuItems := toolInfo |
4614 UserAddedMenuItems := toolInfo |
4613 ] |
4615 ] |
4614 ]. |
4616 ]. |
4615 |
4617 |
4616 super postOpenWith:aBuilder. |
4618 super postOpenWith:aBuilder. |
4617 |
4619 |
4618 "/ set the time-block |
4620 "/ set the time-block |
4619 UserPreferences current showClockInLauncher ifTrue:[ |
4621 UserPreferences current showClockInLauncher ifTrue:[ |
4620 self startClock |
4622 self startClock |
4621 ]. |
4623 ]. |
4622 |
4624 |
4623 "Modified: / 16-11-2006 / 12:50:21 / cg" |
4625 "Modified: / 16-11-2006 / 12:50:21 / cg" |
4624 ! |
4626 ! |
4625 |
4627 |
5081 ! ! |
5083 ! ! |
5082 |
5084 |
5083 !NewLauncher class methodsFor:'documentation'! |
5085 !NewLauncher class methodsFor:'documentation'! |
5084 |
5086 |
5085 version |
5087 version |
5086 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.488 2014-02-25 10:42:24 vrany Exp $' |
5088 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.489 2014-02-28 12:49:53 cg Exp $' |
5087 ! |
5089 ! |
5088 |
5090 |
5089 version_CVS |
5091 version_CVS |
5090 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.488 2014-02-25 10:42:24 vrany Exp $' |
5092 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.489 2014-02-28 12:49:53 cg Exp $' |
5091 ! |
5093 ! |
5092 |
5094 |
5093 version_SVN |
5095 version_SVN |
5094 ^ '$Id: NewLauncher.st,v 1.488 2014-02-25 10:42:24 vrany Exp $' |
5096 ^ '$Id: NewLauncher.st,v 1.489 2014-02-28 12:49:53 cg Exp $' |
5095 ! ! |
5097 ! ! |
5096 |
5098 |