equal
deleted
inserted
replaced
346 |
346 |
347 #detailsIgnoreMnemonicKeys |
347 #detailsIgnoreMnemonicKeys |
348 'Ignore mnemonic keys (access characters) in submenu(s).' |
348 'Ignore mnemonic keys (access characters) in submenu(s).' |
349 |
349 |
350 #detailsStartGroup |
350 #detailsStartGroup |
351 'Specify start of a right-aligned item group.' |
351 'Specify start of a specially aligned group.' |
352 |
352 |
353 #detailsVisibility |
353 #detailsVisibility |
354 'Boolean, or aspect or binding for a boolean holder controlling the visibility of the menu item.' |
354 'Boolean, or aspect or binding for a boolean holder controlling the visibility of the menu item.' |
355 |
355 |
356 #fileLoad |
356 #fileLoad |
410 #triggerOnDown |
410 #triggerOnDown |
411 'If on, the items action is performed on mouse-button press (default is: on button-release).' |
411 'If on, the items action is performed on mouse-button press (default is: on button-release).' |
412 |
412 |
413 ) |
413 ) |
414 |
414 |
415 "Modified: / 16-07-2006 / 10:23:57 / cg" |
415 "Modified: / 16-10-2006 / 13:20:38 / cg" |
416 ! |
416 ! |
417 |
417 |
418 localFlyHelpSpecStrings |
418 localFlyHelpSpecStrings |
419 "This resource specification was automatically generated |
419 "This resource specification was automatically generated |
420 by the UIHelpTool of ST/X." |
420 by the UIHelpTool of ST/X." |
1459 ) |
1459 ) |
1460 ! ! |
1460 ! ! |
1461 |
1461 |
1462 !MenuEditor methodsFor:'accessing'! |
1462 !MenuEditor methodsFor:'accessing'! |
1463 |
1463 |
|
1464 helpSpec |
|
1465 |spec sel t g| |
|
1466 |
|
1467 spec := super helpSpec. |
|
1468 t := spec at:#detailsStartGroup. |
|
1469 g := (aspects at:#startGroup ifAbsent:nil) value. |
|
1470 g == #conditionalRight ifTrue:[ |
|
1471 t := t , ' #conditionalRight means: "right on non-win32 systems"' |
|
1472 ]. |
|
1473 g == #right ifTrue:[ |
|
1474 t := t , ' #right means: "right align from here"' |
|
1475 ]. |
|
1476 g == #left ifTrue:[ |
|
1477 t := t , ' #left means: "left align group"' |
|
1478 ]. |
|
1479 spec at:#detailsStartGroup put:t. |
|
1480 |
|
1481 ^ spec. |
|
1482 "/ #detailsStartGroup |
|
1483 "/ 'Specify start of a right-aligned item group.' |
|
1484 |
|
1485 "Created: / 16-10-2006 / 13:19:14 / cg" |
|
1486 ! |
|
1487 |
1464 helpTool |
1488 helpTool |
1465 "get the help tool application |
1489 "get the help tool application |
1466 " |
1490 " |
1467 ^ wizards at:#help ifAbsentPut:[ |tool| |
1491 ^ wizards at:#help ifAbsentPut:[ |tool| |
1468 tool := UIHelpTool new. |
1492 tool := UIHelpTool new. |