equal
deleted
inserted
replaced
4015 |
4015 |
4016 self isLayoutToolSelected ifTrue:[tool := layoutTool ] |
4016 self isLayoutToolSelected ifTrue:[tool := layoutTool ] |
4017 ifFalse:[self isHelpToolSelected ifTrue:[tool := helpTool ] |
4017 ifFalse:[self isHelpToolSelected ifTrue:[tool := helpTool ] |
4018 ifFalse:[ |
4018 ifFalse:[ |
4019 tool := specTool. |
4019 tool := specTool. |
4020 tool notNil ifTrue:[ specTool selection:tabSelection ]. |
4020 tool notNil ifTrue:[ |
|
4021 "/ the spectool needs to know, in which nameSpace the application class is located, to find out |
|
4022 "/ how to resolve short majorKeys... |
|
4023 UISpecification uiMajorKeyBindingNameSpaceQuery |
|
4024 answer:(specClass notNil ifTrue:[specClass nameSpace] ifFalse:Smalltalk) |
|
4025 do:[ |
|
4026 specTool selection:tabSelection |
|
4027 ]. |
|
4028 ]. |
4021 ]]. |
4029 ]]. |
4022 |
4030 |
4023 (Array with:helpTool with:layoutTool with:specTool) do:[:aTool| |
4031 (Array with:helpTool with:layoutTool with:specTool) do:[:aTool| |
4024 aTool ~~ tool ifTrue:[ |
4032 aTool ~~ tool ifTrue:[ |
4025 aTool window beInvisible. |
4033 aTool window beInvisible. |