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 ... |
1249 "/ cg: q&d hack ... |
1250 |
1250 |
1251 self warn:'first enter (and confirm) the menus selector.'. |
|
1252 ^ self. |
|
1253 |
|
1254 aspect := treeView propertySelected. |
1251 aspect := treeView propertySelected. |
1255 aspect notNil ifTrue:[ |
1252 aspect notNil ifTrue:[ |
1256 Object errorSignal handle:[:ex | |
1253 Object errorSignal handle:[:ex | |
|
1254 aspect := nil. |
1257 ] do:[ |
1255 ] do:[ |
1258 aspect := aspect view asMenu. |
1256 aspect := aspect view asMenu. |
1259 ] |
1257 ] |
1260 ] |
1258 ]. |
|
1259 |
|
1260 "/ aspect isNil ifTrue:[ |
|
1261 "/ self warn:'first enter (and confirm) the menus selector.'. |
|
1262 "/ ^ self. |
|
1263 "/ ]. |
1261 ]. |
1264 ]. |
1262 |
1265 |
1263 editor := MenuEditor new. |
1266 editor := MenuEditor new. |
1264 editor masterApplication:self. |
1267 editor masterApplication:self. |
1265 editor activeHelpTool:(self activeHelpTool). |
1268 editor activeHelpTool:(self activeHelpTool). |
1266 editor openModalOnClass:cls andSelector:aspect |
1269 editor openModalOnClass:cls andSelector:aspect. |
|
1270 |
|
1271 editor selectorName ~= aspect ifTrue:[ |
|
1272 editor didInstall ifTrue:[ |
|
1273 specTool specification menu:editor selectorName asSymbol. |
|
1274 self modifiedChannel value:true. |
|
1275 self accept |
|
1276 ] |
|
1277 ]. |
1267 ] |
1278 ] |
1268 |
1279 |
1269 "Modified: 28.7.1997 / 18:11:16 / cg" |
1280 "Modified: 31.7.1997 / 14:26:13 / cg" |
1270 ! ! |
1281 ! ! |
1271 |
1282 |
1272 !UIPainter methodsFor:'active help'! |
1283 !UIPainter methodsFor:'active help'! |
1273 |
1284 |
1274 activeHelpTool |
1285 activeHelpTool |