658 |
658 |
659 #(#FullSpec |
659 #(#FullSpec |
660 #'window:' |
660 #'window:' |
661 #(#WindowSpec |
661 #(#WindowSpec |
662 #'name:' 'unnamed canvas' |
662 #'name:' 'unnamed canvas' |
663 #'layout:' #(#LayoutFrame 237 0 249 0 495 0 536 0) |
663 #'layout:' #(#LayoutFrame 219 0 193 0 477 0 480 0) |
664 #'label:' 'unnamed canvas' |
664 #'label:' 'unnamed canvas' |
665 #'min:' #(#Point 10 10) |
665 #'min:' #(#Point 10 10) |
666 #'max:' #(#Point 1280 1024) |
666 #'max:' #(#Point 1280 1024) |
667 #'bounds:' #(#Rectangle 237 249 496 537) |
667 #'bounds:' #(#Rectangle 219 193 478 481) |
668 #'usePreferredExtent:' false |
668 #'usePreferredExtent:' false |
669 ) |
669 ) |
670 #'component:' |
670 #'component:' |
671 #(#SpecCollection |
671 #(#SpecCollection |
672 #'collection:' |
672 #'collection:' |
705 #'acceptOnReturn:' false |
705 #'acceptOnReturn:' false |
706 #'acceptOnTab:' false |
706 #'acceptOnTab:' false |
707 ) |
707 ) |
708 #(#LabelSpec |
708 #(#LabelSpec |
709 #'name:' 'accessCharLabel' |
709 #'name:' 'accessCharLabel' |
710 #'layout:' #(#AlignmentOrigin 217 0 90 0 1 0.5) |
710 #'layout:' #(#AlignmentOrigin 217 0 131 0 1 0.5) |
711 #'label:' 'Access Character Position:' |
711 #'label:' 'Access Character Position:' |
712 #'adjust:' #right |
712 #'adjust:' #right |
713 #'resizeForLabel:' true |
713 #'resizeForLabel:' true |
714 ) |
714 ) |
715 #(#InputFieldSpec |
715 #(#InputFieldSpec |
716 #'name:' 'accessCharField' |
716 #'name:' 'accessCharField' |
717 #'layout:' #(#LayoutFrame 220 0 79 0 -5 1.0 101 0) |
717 #'layout:' #(#LayoutFrame 220 0 120 0 -5 1.0 142 0) |
718 #'activeHelpKey:' #accessCharaterPos |
718 #'activeHelpKey:' #accessCharaterPos |
719 #'tabable:' true |
719 #'tabable:' true |
720 #'model:' #accessCharacterPos |
720 #'model:' #accessCharacterPos |
721 #'type:' #numberOrNil |
721 #'type:' #numberOrNil |
722 #'acceptOnReturn:' false |
722 #'acceptOnReturn:' false |
723 #'acceptOnTab:' false |
723 #'acceptOnTab:' false |
|
724 ) |
|
725 #(#LabelSpec |
|
726 #'name:' 'StartGroupLabel' |
|
727 #'layout:' #(#AlignmentOrigin 107 0 87 0 1 0.5) |
|
728 #'label:' 'Start Group:' |
|
729 #'adjust:' #right |
|
730 #'resizeForLabel:' true |
|
731 ) |
|
732 #(#PopUpListSpec |
|
733 #'name:' 'StartGroupPopUp' |
|
734 #'layout:' #(#LayoutFrame 110 0 76 0 -5 1.0 98 0) |
|
735 #'label:' 'PopUpList' |
|
736 #'model:' #startGroup |
|
737 #'menu:' |
|
738 #(nil |
|
739 #right |
|
740 ) |
|
741 #'useIndex:' false |
724 ) |
742 ) |
725 ) |
743 ) |
726 ) |
744 ) |
727 ) |
745 ) |
728 ! |
746 ! |
2190 item accessCharacterPosition:accessCharacterPos. |
2209 item accessCharacterPosition:accessCharacterPos. |
2191 item argument:argument. |
2210 item argument:argument. |
2192 item submenuChannel:submenuChannel. |
2211 item submenuChannel:submenuChannel. |
2193 item nameKey:nameKey. |
2212 item nameKey:nameKey. |
2194 item shortcutKeyCharacter:shortcutKey. |
2213 item shortcutKeyCharacter:shortcutKey. |
|
2214 item startGroup:startGroup. |
2195 item value:value. |
2215 item value:value. |
2196 item indication:indication. |
2216 item indication:indication. |
2197 item translateLabel: translateLabel. |
2217 item translateLabel: translateLabel. |
2198 item isButton: isButton. |
2218 item isButton: isButton. |
2199 |
2219 |
2226 enabled := (aspects at:#enabled) value. |
2246 enabled := (aspects at:#enabled) value. |
2227 value := (aspects at:#value) value. |
2247 value := (aspects at:#value) value. |
2228 nameKey := (aspects at:#nameKey) value. |
2248 nameKey := (aspects at:#nameKey) value. |
2229 indication := (aspects at:#indication) value. |
2249 indication := (aspects at:#indication) value. |
2230 shortcutKey := (aspects at:#shortcutKey) value. |
2250 shortcutKey := (aspects at:#shortcutKey) value. |
|
2251 startGroup := (aspects at:#startGroup) value. |
2231 accessCharacterPos := (aspects at:#accessCharacterPos) value. |
2252 accessCharacterPos := (aspects at:#accessCharacterPos) value. |
2232 argument := (aspects at:#argument) value. |
2253 argument := (aspects at:#argument) value. |
2233 translateLabel := (aspects at:#translateLabel) value. |
2254 translateLabel := (aspects at:#translateLabel) value. |
2234 isButton := (aspects at:#isButton) value. |
2255 isButton := (aspects at:#isButton) value. |
2235 |
2256 |
2271 indication := nil |
2292 indication := nil |
2272 ]. |
2293 ]. |
2273 |
2294 |
2274 nameKey := anItem nameKey. |
2295 nameKey := anItem nameKey. |
2275 shortcutKey := anItem shortcutKeyCharacter. |
2296 shortcutKey := anItem shortcutKeyCharacter. |
|
2297 startGroup := anItem startGroup. |
2276 accessCharacterPos := anItem accessCharacterPosition. |
2298 accessCharacterPos := anItem accessCharacterPosition. |
2277 argument := anItem argument. |
2299 argument := anItem argument. |
2278 submenuChannel := anItem submenuChannel. |
2300 submenuChannel := anItem submenuChannel. |
2279 translateLabel := anItem translateLabel. |
2301 translateLabel := anItem translateLabel. |
2280 isButton := anItem isButton. |
2302 isButton := anItem isButton. |
2306 (aspects at:#enabled) value:enabled. |
2328 (aspects at:#enabled) value:enabled. |
2307 (aspects at:#value) value:value. |
2329 (aspects at:#value) value:value. |
2308 (aspects at:#nameKey) value:nameKey. |
2330 (aspects at:#nameKey) value:nameKey. |
2309 (aspects at:#indication) value:indication. |
2331 (aspects at:#indication) value:indication. |
2310 (aspects at:#shortcutKey) value:shortcutKey. |
2332 (aspects at:#shortcutKey) value:shortcutKey. |
|
2333 (aspects at:#startGroup) value:startGroup. |
2311 (aspects at:#accessCharacterPos) value:accessCharacterPos. |
2334 (aspects at:#accessCharacterPos) value:accessCharacterPos. |
2312 (aspects at:#translateLabel) value:translateLabel. |
2335 (aspects at:#translateLabel) value:translateLabel. |
2313 (aspects at:#isButton) value:isButton. |
2336 (aspects at:#isButton) value:isButton. |
2314 (aspects at:#submenuChannel) value:submenuChannel. |
2337 (aspects at:#submenuChannel) value:submenuChannel. |
2315 (aspects at:#retriever) value:retriever. |
2338 (aspects at:#retriever) value:retriever. |