1267 !MenuEditor methodsFor:'actions'! |
1267 !MenuEditor methodsFor:'actions'! |
1268 |
1268 |
1269 accept |
1269 accept |
1270 "automatically generated by UIPainter ..." |
1270 "automatically generated by UIPainter ..." |
1271 |
1271 |
1272 |node cont| |
1272 |painter node cont| |
1273 |
1273 |
1274 node := self painter selectedNode. |
1274 painter := self painter. |
|
1275 node := painter selectedNode. |
1275 |
1276 |
1276 node notNil ifTrue:[ |
1277 node notNil ifTrue:[ |
1277 self isHelpToolSelected ifTrue:[ |
1278 self isHelpToolSelected ifTrue:[ |
1278 self activeHelpTool accept |
1279 self activeHelpTool accept |
1279 ]. |
1280 ]. |
1280 cont := node contents buildFromAspects:aspects. |
1281 cont := node contents buildFromAspects:aspects. |
1281 self painter selectedNodeChanged |
1282 painter selectedNodeChanged |
1282 ]. |
1283 ]. |
1283 self modifiedChannel value:false. |
1284 self modifiedChannel value:false. |
|
1285 |
|
1286 "Modified: 28.7.1997 / 12:37:17 / cg" |
1284 ! |
1287 ! |
1285 |
1288 |
1286 cancel |
1289 cancel |
1287 |node| |
1290 |node| |
1288 |
1291 |
1330 |
1333 |
1331 |
1334 |
1332 ! |
1335 ! |
1333 |
1336 |
1334 enabledStepIn |
1337 enabledStepIn |
1335 |holder| |
1338 ^ builder booleanAspectFor:#enabledStepIn |
1336 |
1339 |
1337 (holder := builder bindingAt:#enabledStepIn) isNil ifTrue:[ |
1340 "Modified: 28.7.1997 / 12:47:35 / cg" |
1338 builder aspectAt:#enabledStepIn put:(holder := false asValue). |
|
1339 ]. |
|
1340 ^ holder |
|
1341 |
|
1342 ! |
1341 ! |
1343 |
1342 |
1344 enabledStepOut |
1343 enabledStepOut |
1345 |holder| |
1344 ^ builder booleanAspectFor:#enabledStepOut |
1346 |
1345 |
1347 (holder := builder bindingAt:#enabledStepOut) isNil ifTrue:[ |
1346 "Modified: 28.7.1997 / 12:47:38 / cg" |
1348 builder aspectAt:#enabledStepOut put:(holder := false asValue). |
|
1349 ]. |
|
1350 ^ holder |
|
1351 |
|
1352 ! |
1347 ! |
1353 |
1348 |
1354 enabledStepOver |
1349 enabledStepOver |
1355 |holder| |
1350 ^ builder booleanAspectFor:#enabledStepOver |
1356 |
1351 |
1357 (holder := builder bindingAt:#enabledStepOver) isNil ifTrue:[ |
1352 "Modified: 28.7.1997 / 12:47:40 / cg" |
1358 builder aspectAt:#enabledStepOver put:(holder := false asValue). |
|
1359 ]. |
|
1360 ^ holder |
|
1361 ! |
1353 ! |
1362 |
1354 |
1363 hasAnySingleSelection |
1355 hasAnySingleSelection |
1364 |holder| |
1356 ^ builder booleanAspectFor:#hasAnySingleSelection |
1365 |
1357 |
1366 (holder := builder bindingAt:#hasAnySingleSelection) isNil ifTrue:[ |
1358 "Modified: 28.7.1997 / 12:47:17 / cg" |
1367 builder aspectAt:#hasAnySingleSelection put:(holder := false asValue). |
|
1368 ]. |
|
1369 ^ holder |
|
1370 |
|
1371 ! |
1359 ! |
1372 |
1360 |
1373 hasValidSelection |
1361 hasValidSelection |
1374 |holder| |
1362 ^ builder booleanAspectFor:#hasValidSelection |
1375 |
1363 |
1376 (holder := builder bindingAt:#hasValidSelection) isNil ifTrue:[ |
1364 "Modified: 28.7.1997 / 12:47:20 / cg" |
1377 builder aspectAt:#hasValidSelection put:(holder := false asValue). |
|
1378 ]. |
|
1379 ^ holder |
|
1380 |
|
1381 ! |
1365 ! |
1382 |
1366 |
1383 hasValidSingleSelection |
1367 hasValidSingleSelection |
1384 |holder| |
1368 ^ builder booleanAspectFor:#hasValidSingleSelection |
1385 |
1369 |
1386 (holder := builder bindingAt:#hasValidSingleSelection) isNil ifTrue:[ |
1370 "Modified: 28.7.1997 / 12:47:22 / cg" |
1387 builder aspectAt:#hasValidSingleSelection put:(holder := false asValue). |
|
1388 ]. |
|
1389 ^ holder |
|
1390 |
|
1391 ! |
1371 ! |
1392 |
1372 |
1393 menuPullDown |
1373 menuPullDown |
1394 |menu| |
1374 |menu| |
1395 |
1375 |