7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libtool' }" |
12 "{ Package: 'stx:libtool' }" |
14 |
13 |
15 "{ NameSpace: Tools }" |
14 "{ NameSpace: Tools }" |
16 |
15 |
17 ApplicationModel subclass:#NavigatorModel |
16 ApplicationModel subclass:#NavigatorModel |
80 |
79 |
81 "Do not manually edit this!! If it is corrupted, |
80 "Do not manually edit this!! If it is corrupted, |
82 the UIPainter may not be able to read the specification." |
81 the UIPainter may not be able to read the specification." |
83 |
82 |
84 " |
83 " |
85 UIPainter new openOnClass:NavigatorModel andSelector:#metaSpec |
84 UIPainter new openOnClass:Tools::NavigatorModel andSelector:#metaSpec |
86 NavigatorModel new openInterface:#metaSpec |
85 Tools::NavigatorModel new openInterface:#metaSpec |
87 " |
86 " |
88 |
87 |
89 <resource: #canvas> |
88 <resource: #canvas> |
90 |
89 |
91 ^ |
90 ^ |
92 #(#FullSpec |
91 #(FullSpec |
93 #name: #metaSpec |
92 name: metaSpec |
94 #window: |
93 window: |
95 #(#WindowSpec |
94 (WindowSpec |
96 #label: 'MetaToggles' |
95 label: 'MetaToggles' |
97 #name: 'MetaToggles' |
96 name: 'MetaToggles' |
98 #min: #(#Point 0 0) |
97 min: (Point 0 0) |
99 #max: #(#Point 1024 721) |
98 max: (Point 1024 721) |
100 #bounds: #(#Rectangle 16 46 316 74) |
99 bounds: (Rectangle 0 0 300 28) |
101 ) |
100 ) |
102 #component: |
101 component: |
103 #(#SpecCollection |
102 (SpecCollection |
104 #collection: #( |
103 collection: ( |
105 #(#RadioButtonSpec |
104 (RadioButtonSpec |
106 #label: 'Instance' |
105 label: 'Instance' |
107 #name: 'InstanceToggle' |
106 name: 'InstanceToggle' |
108 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 0.5 25 0) |
107 layout: (LayoutFrame 0 0.0 0 0.0 0 0.5 25 0) |
109 #translateLabel: true |
108 translateLabel: true |
110 #tabable: true |
109 tabable: true |
111 #model: #notMetaToggle |
110 model: notMetaToggle |
112 #isTriggerOnDown: true |
111 isTriggerOnDown: true |
113 #select: true |
112 select: true |
114 #isToggle: true |
113 isToggle: true |
115 ) |
114 ) |
116 #(#RadioButtonSpec |
115 (RadioButtonSpec |
117 #label: 'Class' |
116 label: 'Class' |
118 #name: 'ClassToggle' |
117 name: 'ClassToggle' |
119 #layout: #(#LayoutFrame 0 0.5 0 0 0 1.0 25 0) |
118 layout: (LayoutFrame 0 0.5 0 0 0 1.0 25 0) |
120 #translateLabel: true |
119 translateLabel: true |
121 #labelChannel: #metaToggleLabelHolder |
120 labelChannel: metaToggleLabelHolder |
122 #tabable: true |
121 tabable: false |
123 #model: #metaToggle |
122 model: metaToggle |
124 #isTriggerOnDown: true |
123 isTriggerOnDown: true |
125 #select: true |
124 select: true |
126 #isToggle: true |
125 isToggle: true |
127 ) |
126 ) |
128 ) |
127 ) |
129 |
128 |
130 ) |
129 ) |
131 ) |
130 ) |
132 ! ! |
131 ! ! |
133 |
132 |
134 !NavigatorModel class methodsFor:'misc'! |
133 !NavigatorModel class methodsFor:'misc'! |
135 |
134 |