equal
deleted
inserted
replaced
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 "/ cg: q&d hack ... |
|
1250 |
|
1251 self warn:'first enter (and confirm) the menus selector.'. |
|
1252 ^ self. |
|
1253 |
1249 aspect := treeView propertySelected. |
1254 aspect := treeView propertySelected. |
1250 aspect notNil ifTrue:[ |
1255 aspect notNil ifTrue:[ |
1251 Object errorSignal handle:[:ex | |
1256 Object errorSignal handle:[:ex | |
1252 ] do:[ |
1257 ] do:[ |
1253 aspect := aspect view asMenu. |
1258 aspect := aspect view asMenu. |
1259 editor masterApplication:self. |
1264 editor masterApplication:self. |
1260 editor activeHelpTool:(self activeHelpTool). |
1265 editor activeHelpTool:(self activeHelpTool). |
1261 editor openModalOnClass:cls andSelector:aspect |
1266 editor openModalOnClass:cls andSelector:aspect |
1262 ] |
1267 ] |
1263 |
1268 |
1264 "Modified: 28.7.1997 / 10:36:36 / cg" |
1269 "Modified: 28.7.1997 / 18:11:16 / cg" |
1265 ! ! |
1270 ! ! |
1266 |
1271 |
1267 !UIPainter methodsFor:'active help'! |
1272 !UIPainter methodsFor:'active help'! |
1268 |
1273 |
1269 activeHelpTool |
1274 activeHelpTool |