equal
deleted
inserted
replaced
1033 #label: 'Redefine Aspect Methods' |
1033 #label: 'Redefine Aspect Methods' |
1034 #translateLabel: true |
1034 #translateLabel: true |
1035 #hideMenuOnActivated: false |
1035 #hideMenuOnActivated: false |
1036 #indication: #redefineAspectMethodsChannel |
1036 #indication: #redefineAspectMethodsChannel |
1037 ) |
1037 ) |
|
1038 #(#MenuItem |
|
1039 #activeHelpKey: #settingsRedefineAspectMethods |
|
1040 #label: 'AutoAccept on Selection-Change' |
|
1041 #translateLabel: true |
|
1042 #hideMenuOnActivated: false |
|
1043 #indication: #autoAcceptOnSelectionChange |
|
1044 ) |
1038 ) |
1045 ) |
1039 nil |
1046 nil |
1040 nil |
1047 nil |
1041 ) |
1048 ) |
1042 ! |
1049 ! |
1504 ]. |
1511 ]. |
1505 ! ! |
1512 ! ! |
1506 |
1513 |
1507 !MenuEditor methodsFor:'aspects'! |
1514 !MenuEditor methodsFor:'aspects'! |
1508 |
1515 |
|
1516 autoAcceptOnSelectionChange |
|
1517 ^ builder valueAspectFor:#autoAcceptOnSelectionChange initialValue:true |
|
1518 ! |
|
1519 |
1509 canCreateDelayedMenuChannel |
1520 canCreateDelayedMenuChannel |
1510 "boolean holder, true if the current selected item accepts a delayed menu |
1521 "boolean holder, true if the current selected item accepts a delayed menu |
1511 " |
1522 " |
1512 ^ builder booleanValueAspectFor:#canCreateDelayedMenuChannel |
1523 ^ builder booleanValueAspectFor:#canCreateDelayedMenuChannel |
1513 ! |
1524 ! |
1715 |
1726 |
1716 wizardHolder value:canvas. |
1727 wizardHolder value:canvas. |
1717 ! |
1728 ! |
1718 |
1729 |
1719 update:something with:aParameter from:changedObject |
1730 update:something with:aParameter from:changedObject |
|
1731 |lbl| |
|
1732 |
1720 notifyDisabledCounter ~~ 0 ifTrue:[ ^ self ]. |
1733 notifyDisabledCounter ~~ 0 ifTrue:[ ^ self ]. |
1721 |
1734 |
1722 changedObject == selectionHolder ifTrue:[ ^ self selectionChanged ]. |
1735 changedObject == selectionHolder ifTrue:[ ^ self selectionChanged ]. |
1723 changedObject == tabHolder ifTrue:[ ^ self tabChanged ]. |
1736 changedObject == tabHolder ifTrue:[ ^ self tabChanged ]. |
|
1737 |
|
1738 changedObject == self autoAcceptOnSelectionChange ifTrue:[ |
|
1739 lbl := changedObject value ifTrue:['Apply'] ifFalse:['OK']. |
|
1740 (builder componentAt:'okButton') label:(resources string:lbl). |
|
1741 ^ self |
|
1742 ]. |
1724 |
1743 |
1725 super update:something with:aParameter from:changedObject |
1744 super update:something with:aParameter from:changedObject |
1726 ! |
1745 ! |
1727 |
1746 |
1728 updateChannels |
1747 updateChannels |
2089 listOfItemsView := aSrollableView scrolledView. |
2108 listOfItemsView := aSrollableView scrolledView. |
2090 ! |
2109 ! |
2091 |
2110 |
2092 postBuildNoteBook:aNoteBook |
2111 postBuildNoteBook:aNoteBook |
2093 aNoteBook tabLabelInset:16@4. |
2112 aNoteBook tabLabelInset:16@4. |
|
2113 ! |
|
2114 |
|
2115 postBuildWith:aBuilder |
|
2116 super postBuildWith: aBuilder. |
|
2117 |
|
2118 self autoAcceptOnSelectionChange addDependent:self. |
|
2119 self autoAcceptOnSelectionChange value ifTrue:[ |
|
2120 (builder componentAt:'okButton') label:(resources string:'Apply') |
|
2121 ]. |
2094 ! |
2122 ! |
2095 |
2123 |
2096 postOpenWith:aBuilder |
2124 postOpenWith:aBuilder |
2097 "reset keyboardProcessor for menuBar |
2125 "reset keyboardProcessor for menuBar |
2098 " |
2126 " |
2236 |
2264 |
2237 canSelect:anIndex |
2265 canSelect:anIndex |
2238 "called whenever the selection changed; test whether |
2266 "called whenever the selection changed; test whether |
2239 current item is not modified .... |
2267 current item is not modified .... |
2240 " |
2268 " |
2241 |oldSelectedItem newSelectedItem| |
2269 |oldSelectedItem newSelectedItem anythingChanged| |
2242 |
2270 |
2243 self valueOfEnablingCommitButtons value ifFalse:[ |
2271 self valueOfEnablingCommitButtons value ifFalse:[ |
2244 ^ true |
2272 ^ true |
2245 ]. |
2273 ]. |
2246 oldSelectedItem := self selectedItem. |
2274 oldSelectedItem := self selectedItem. |
2247 oldSelectedItem ifNil:[^ true]. |
2275 oldSelectedItem ifNil:[^ true]. |
2248 |
2276 |
2249 newSelectedItem := listOfItems at:anIndex ifAbsent:nil. |
2277 newSelectedItem := listOfItems at:anIndex ifAbsent:nil. |
2250 oldSelectedItem == newSelectedItem ifTrue:[ |
2278 oldSelectedItem == newSelectedItem ifTrue:[ |
2251 ^ true |
2279 ^ true |
2252 ]. |
2280 ]. |
|
2281 |
|
2282 anythingChanged := self valueOfEnablingCommitButtons value. |
|
2283 anythingChanged ifTrue:[ |
|
2284 self autoAcceptOnSelectionChange value ifTrue:[ |
|
2285 self accept. |
|
2286 ^ true |
|
2287 ]. |
|
2288 ]. |
|
2289 |
2253 ^ self askForItemModification |
2290 ^ self askForItemModification |
2254 ! |
2291 ! |
2255 |
2292 |
2256 hasSelection |
2293 hasSelection |
2257 "returns true if a selection exists |
2294 "returns true if a selection exists |