436 <resource: #canvas> |
434 <resource: #canvas> |
437 |
435 |
438 ^ |
436 ^ |
439 #(FullSpec |
437 #(FullSpec |
440 name: windowSpecForCommit |
438 name: windowSpecForCommit |
441 uuid: '443e7e20-c5a3-11e7-82f7-c42c033b4871' |
439 uuid: 'eb8ebdbe-761b-11e9-98ea-b8f6b1108e05' |
442 window: |
440 window: |
443 (WindowSpec |
441 (WindowSpec |
444 label: 'Commit Buttons' |
442 label: 'Commit Buttons' |
445 name: 'Commit Buttons' |
443 name: 'Commit Buttons' |
446 uuid: '443e85f0-c5a3-11e7-82f7-c42c033b4871' |
444 uuid: '443e85f0-c5a3-11e7-82f7-c42c033b4871' |
454 (HorizontalPanelViewSpec |
452 (HorizontalPanelViewSpec |
455 name: 'HorizontalPanel1' |
453 name: 'HorizontalPanel1' |
456 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
454 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
457 uuid: '443e8d2a-c5a3-11e7-82f7-c42c033b4871' |
455 uuid: '443e8d2a-c5a3-11e7-82f7-c42c033b4871' |
458 horizontalLayout: fitSpace |
456 horizontalLayout: fitSpace |
459 verticalLayout: centerMax |
457 verticalLayout: center |
460 horizontalSpace: 3 |
458 horizontalSpace: 2 |
461 verticalSpace: 3 |
459 verticalSpace: 1 |
462 reverseOrderIfOKAtLeft: true |
460 reverseOrderIfOKAtLeft: true |
463 component: |
461 component: |
464 (SpecCollection |
462 (SpecCollection |
465 collection: ( |
463 collection: ( |
466 (ActionButtonSpec |
464 (ActionButtonSpec |
470 uuid: '443e93e2-c5a3-11e7-82f7-c42c033b4871' |
468 uuid: '443e93e2-c5a3-11e7-82f7-c42c033b4871' |
471 translateLabel: true |
469 translateLabel: true |
472 tabable: true |
470 tabable: true |
473 model: cancel |
471 model: cancel |
474 enableChannel: enablingCommitButtonsHolder |
472 enableChannel: enablingCommitButtonsHolder |
475 useDefaultExtent: true |
473 extent: (Point 146 30) |
476 ) |
474 ) |
477 (ActionButtonSpec |
475 (ActionButtonSpec |
478 label: 'OK' |
476 label: 'OK' |
479 name: 'okButton' |
477 name: 'okButton' |
480 activeHelpKey: commitOK |
478 activeHelpKey: commitOK |
481 uuid: '443e9bda-c5a3-11e7-82f7-c42c033b4871' |
479 uuid: '443e9bda-c5a3-11e7-82f7-c42c033b4871' |
482 translateLabel: true |
480 translateLabel: true |
483 tabable: true |
481 tabable: true |
484 model: accept |
482 model: accept |
485 enableChannel: enablingCommitButtonsHolder |
483 enableChannel: enablingCommitButtonsHolder |
486 useDefaultExtent: true |
484 extent: (Point 147 30) |
487 ) |
485 ) |
488 ) |
486 ) |
489 |
487 |
490 ) |
488 ) |
491 ) |
489 ) |
734 by the MenuEditor of ST/X." |
732 by the MenuEditor of ST/X." |
735 |
733 |
736 "Do not manually edit this!! If it is corrupted, |
734 "Do not manually edit this!! If it is corrupted, |
737 the MenuEditor may not be able to read the specification." |
735 the MenuEditor may not be able to read the specification." |
738 |
736 |
|
737 |
739 " |
738 " |
740 MenuEditor new openOnClass:ToolApplicationModel andSelector:#menuHelp |
739 MenuEditor new openOnClass:ToolApplicationModel andSelector:#menuHelp |
741 (Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuHelp)) startUp |
740 (Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuHelp)) startUp |
742 " |
741 " |
743 |
742 |
744 <resource: #menu> |
743 <resource: #menu> |
745 |
744 |
746 ^ |
745 ^ |
747 |
746 #(Menu |
748 #(#Menu |
747 ( |
749 |
748 (MenuItem |
750 #( |
749 activeHelpKey: helpTutorial |
751 #(#MenuItem |
750 enabled: havingDocumentationHolder |
752 #label: 'Documentation' |
751 label: 'Documentation' |
753 #translateLabel: true |
752 itemValue: openDocumentation |
754 #value: #openDocumentation |
753 ) |
755 #activeHelpKey: #helpTutorial |
754 (MenuItem |
756 #enabled: #havingDocumentationHolder |
755 label: '-' |
757 ) |
756 isVisible: false |
758 #(#MenuItem |
757 ) |
759 #label: '-' |
758 (MenuItem |
760 #isVisible: false |
759 activeHelpKey: helpShowHelp |
761 ) |
760 label: 'Show Help Texts' |
762 #(#MenuItem |
761 isVisible: false |
763 #label: 'Show Help Texts' |
762 indication: showingHelp: |
764 #translateLabel: true |
763 ) |
765 #activeHelpKey: #helpShowHelp |
764 (MenuItem |
766 #indication: #showingHelp: |
765 label: '-' |
767 #isVisible: false |
766 ) |
768 ) |
767 (MenuItem |
769 #(#MenuItem |
768 activeHelpKey: aboutThisAppliaction |
770 #label: '-' |
769 label: 'About this Application...' |
771 ) |
770 itemValue: openAboutThisApplication |
772 #(#MenuItem |
771 ) |
773 #label: 'About this Application...' |
772 (MenuItem |
774 #translateLabel: true |
773 activeHelpKey: aboutSTX |
775 #value: #openAboutThisApplication |
774 label: 'About Smalltalk/X...' |
776 #activeHelpKey: #aboutThisAppliaction |
775 itemValue: openAbout |
777 ) |
776 isVisible: false |
778 ) nil |
777 ) |
779 nil |
778 ) |
|
779 nil |
|
780 nil |
780 ) |
781 ) |
781 |
|
782 "Modified: / 16-02-2017 / 02:04:20 / cg" |
|
783 ! |
782 ! |
784 |
783 |
785 xxxmenuFont |
784 xxxmenuFont |
786 "This resource specification was automatically generated |
785 "This resource specification was automatically generated |
787 by the MenuEditor of ST/X." |
786 by the MenuEditor of ST/X." |
1633 ! ! |
1632 ! ! |
1634 |
1633 |
1635 !ToolApplicationModel::HistoryEntryForMethod methodsFor:'printing'! |
1634 !ToolApplicationModel::HistoryEntryForMethod methodsFor:'printing'! |
1636 |
1635 |
1637 printStringInMenu |
1636 printStringInMenu |
1638 ^ methodClass name , ' » ' , (methodSelector?'?') |
1637 ^ methodClass name , ' » ' , (methodSelector?'?') |
1639 |
1638 |
1640 "Modified: / 11-07-2006 / 13:53:40 / fm" |
1639 "Modified: / 11-07-2006 / 13:53:40 / fm" |
1641 ! ! |
1640 ! ! |
1642 |
1641 |
1643 !ToolApplicationModel class methodsFor:'documentation'! |
1642 !ToolApplicationModel class methodsFor:'documentation'! |