1231 |
1231 |
1232 openEditMenu |
1232 openEditMenu |
1233 |cls aspect editor| |
1233 |cls aspect editor| |
1234 |
1234 |
1235 specClass isNil ifTrue:[ |
1235 specClass isNil ifTrue:[ |
1236 ^ self information:'no class yet'. |
1236 ^ self information:'no application class defined yet'. |
1237 ]. |
1237 ]. |
1238 (cls := specClass) isBehavior ifFalse:[ |
1238 (cls := specClass) isBehavior ifFalse:[ |
1239 cls := Smalltalk at:specClass asSymbol. |
1239 cls := Smalltalk at:specClass asSymbol. |
1240 cls isNil ifTrue:[ |
1240 cls isNil ifTrue:[ |
1241 ^ self information:'no class yet' |
1241 ^ self information:'no application class defined yet' |
1242 ] |
1242 ] |
1243 ]. |
1243 ]. |
1244 |
1244 |
1245 cls notNil ifTrue:[ |
1245 cls notNil ifTrue:[ |
1246 (aspect := specTool specification menu) notNil ifTrue:[ |
1246 (aspect := specTool specification menu) notNil ifTrue:[ |
1247 aspect := aspect asSymbol |
1247 aspect := aspect asSymbol |
1248 ] ifFalse:[ |
1248 ] ifFalse:[ |
1249 aspect := treeView propertySelected. |
1249 aspect := treeView propertySelected. |
1250 aspect notNil ifTrue:[ |
1250 aspect notNil ifTrue:[ |
1251 aspect := aspect view asMenu. |
1251 Object errorSignal handle:[:ex | |
|
1252 ] do:[ |
|
1253 aspect := aspect view asMenu. |
|
1254 ] |
1252 ] |
1255 ] |
1253 ]. |
1256 ]. |
1254 |
1257 |
1255 editor := MenuEditor new. |
1258 editor := MenuEditor new. |
1256 editor masterApplication:self. |
1259 editor masterApplication:self. |
1257 editor activeHelpTool:(self activeHelpTool). |
1260 editor activeHelpTool:(self activeHelpTool). |
1258 editor openModalOnClass:cls andSelector:aspect |
1261 editor openModalOnClass:cls andSelector:aspect |
1259 ] |
1262 ] |
1260 |
1263 |
1261 |
1264 "Modified: 28.7.1997 / 10:36:36 / cg" |
1262 ! ! |
1265 ! ! |
1263 |
1266 |
1264 !UIPainter methodsFor:'active help'! |
1267 !UIPainter methodsFor:'active help'! |
1265 |
1268 |
1266 activeHelpTool |
1269 activeHelpTool |