135 galleryClass |
135 galleryClass |
136 |
136 |
137 ^ UserDefinedGallery |
137 ^ UserDefinedGallery |
138 ! ! |
138 ! ! |
139 |
139 |
140 !UISelectionPanel class methodsFor:'interface specs'! |
140 !UISelectionPanel class methodsFor:'interface - standard specifications'! |
141 |
|
142 nameAndSelectorSpec |
|
143 "This resource specification was automatically generated |
|
144 by the UIPainter of ST/X." |
|
145 |
|
146 "Do not manually edit this!! If it is corrupted, |
|
147 the UIPainter may not be able to read the specification." |
|
148 |
|
149 " |
|
150 UIPainter new openOnClass:UISelectionPanel andSelector:#nameAndSelectorSpec |
|
151 UISelectionPanel new openInterface:#nameAndSelectorSpec |
|
152 " |
|
153 |
|
154 <resource: #canvas> |
|
155 |
|
156 ^ |
|
157 #(FullSpec |
|
158 name: nameAndSelectorSpec |
|
159 window: |
|
160 (WindowSpec |
|
161 label: 'Painter' |
|
162 name: 'Painter' |
|
163 min: (Point 10 10) |
|
164 bounds: (Rectangle 14 46 329 262) |
|
165 ) |
|
166 component: |
|
167 (SpecCollection |
|
168 collection: ( |
|
169 (LabelSpec |
|
170 label: 'Class & selectors to access user specs:' |
|
171 name: 'title' |
|
172 layout: (Point 5 10) |
|
173 resizeForLabel: true |
|
174 adjust: left |
|
175 ) |
|
176 (LabelSpec |
|
177 label: 'Class:' |
|
178 name: 'classLabel' |
|
179 layout: (AlignmentOrigin 68 0.11 51 0 1 0.5) |
|
180 resizeForLabel: true |
|
181 adjust: right |
|
182 ) |
|
183 (InputFieldSpec |
|
184 name: 'classField' |
|
185 layout: (LayoutFrame 74 0.11 39 0 -5 1.0 61 0) |
|
186 tabable: true |
|
187 model: className |
|
188 type: string |
|
189 acceptOnPointerLeave: false |
|
190 ) |
|
191 (LabelSpec |
|
192 label: 'Labels:' |
|
193 name: 'labelsLabel' |
|
194 layout: (AlignmentOrigin 68 0.11 74 0 1 0.5) |
|
195 resizeForLabel: true |
|
196 adjust: right |
|
197 ) |
|
198 (InputFieldSpec |
|
199 name: 'labelsField' |
|
200 layout: (LayoutFrame 74 0.11 64 0 -5 1.0 86 0) |
|
201 tabable: true |
|
202 model: labelsKey |
|
203 type: symbolOrNil |
|
204 acceptOnPointerLeave: false |
|
205 ) |
|
206 (LabelSpec |
|
207 label: 'Specifications:' |
|
208 name: 'specsLabel' |
|
209 layout: (AlignmentOrigin 68 0.11 99 0 1 0.5) |
|
210 resizeForLabel: true |
|
211 adjust: right |
|
212 ) |
|
213 (InputFieldSpec |
|
214 name: 'specsField' |
|
215 layout: (LayoutFrame 74 0.11 89 0 -5 1.0 111 0) |
|
216 tabable: true |
|
217 model: specsKey |
|
218 type: symbolOrNil |
|
219 acceptOnPointerLeave: false |
|
220 ) |
|
221 (HorizontalPanelViewSpec |
|
222 name: 'commitPanel' |
|
223 layout: (LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0) |
|
224 horizontalLayout: fitSpace |
|
225 verticalLayout: fit |
|
226 horizontalSpace: 3 |
|
227 verticalSpace: 3 |
|
228 reverseOrderIfOKAtLeft: true |
|
229 component: |
|
230 (SpecCollection |
|
231 collection: ( |
|
232 (ActionButtonSpec |
|
233 label: 'cancel' |
|
234 name: 'cancel' |
|
235 tabable: true |
|
236 model: cancel |
|
237 extent: (Point 153 23) |
|
238 ) |
|
239 (ActionButtonSpec |
|
240 label: 'ok' |
|
241 name: 'accept' |
|
242 tabable: true |
|
243 model: accept |
|
244 isDefault: true |
|
245 extent: (Point 153 23) |
|
246 ) |
|
247 ) |
|
248 |
|
249 ) |
|
250 ) |
|
251 (CheckBoxSpec |
|
252 label: 'Update Default Resources' |
|
253 name: 'updateDefaultResources' |
|
254 layout: (Point 5 133) |
|
255 model: updateDefaultResources |
|
256 ) |
|
257 ) |
|
258 |
|
259 ) |
|
260 ) |
|
261 ! |
|
262 |
|
263 windowSpec |
|
264 "This resource specification was automatically generated |
|
265 by the UIPainter of ST/X." |
|
266 |
|
267 "Do not manually edit this!! If it is corrupted, |
|
268 the UIPainter may not be able to read the specification." |
|
269 |
|
270 " |
|
271 UIPainter new openOnClass:UISelectionPanel andSelector:#windowSpec |
|
272 UISelectionPanel new openInterface:#windowSpec |
|
273 UISelectionPanel open |
|
274 " |
|
275 |
|
276 <resource: #canvas> |
|
277 |
|
278 ^ |
|
279 #(FullSpec |
|
280 name: windowSpec |
|
281 window: |
|
282 (WindowSpec |
|
283 label: 'Widget Gallery' |
|
284 name: 'Widget Gallery' |
|
285 min: (Point 100 280) |
|
286 bounds: (Rectangle 14 46 508 348) |
|
287 ) |
|
288 component: |
|
289 (SpecCollection |
|
290 collection: ( |
|
291 (NoteBookViewSpec |
|
292 name: 'NoteBook1' |
|
293 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
294 model: majorChannel |
|
295 menu: majorList |
|
296 direction: right |
|
297 useIndex: true |
|
298 canvas: gallery |
|
299 ) |
|
300 ) |
|
301 |
|
302 ) |
|
303 ) |
|
304 ! ! |
|
305 |
|
306 !UISelectionPanel class methodsFor:'menus'! |
|
307 |
|
308 menuSelected |
|
309 |
|
310 <resource: #menu> |
|
311 |
|
312 ^ #(#Menu #( |
|
313 #(#MenuItem |
|
314 #'label:' 'copy' |
|
315 #'value:' #copy |
|
316 ) |
|
317 #(#MenuItem |
|
318 #'label:' 'cut' |
|
319 #'value:' #cut |
|
320 ) |
|
321 ) |
|
322 nil |
|
323 nil |
|
324 ) |
|
325 |
|
326 "Modified: / 29.10.1997 / 03:20:30 / cg" |
|
327 ! |
|
328 |
|
329 menuUnselected |
|
330 <resource: #menu> |
|
331 |
|
332 ^ #(#Menu #( |
|
333 #(#MenuItem |
|
334 #'label:' 'paste' |
|
335 #'value:' #paste |
|
336 ) |
|
337 ) |
|
338 nil |
|
339 nil |
|
340 ) |
|
341 |
|
342 "Modified: / 29.10.1997 / 03:20:38 / cg" |
|
343 ! ! |
|
344 |
|
345 !UISelectionPanel class methodsFor:'resources'! |
|
346 |
|
347 classResources |
|
348 "my translations are found in the UIPainter classes resources" |
|
349 |
|
350 ^ UIPainter classResources |
|
351 ! ! |
|
352 |
|
353 !UISelectionPanel class methodsFor:'standard specifications'! |
|
354 |
141 |
355 standardButtons |
142 standardButtons |
356 "This resource specification was automatically generated |
143 "This resource specification was automatically generated |
357 by the UIPainter of ST/X." |
144 by the UIPainter of ST/X." |
358 |
145 |
1427 ) |
1214 ) |
1428 ) |
1215 ) |
1429 ) |
1216 ) |
1430 ! ! |
1217 ! ! |
1431 |
1218 |
|
1219 !UISelectionPanel class methodsFor:'interface specs'! |
|
1220 |
|
1221 nameAndSelectorSpec |
|
1222 "This resource specification was automatically generated |
|
1223 by the UIPainter of ST/X." |
|
1224 |
|
1225 "Do not manually edit this!! If it is corrupted, |
|
1226 the UIPainter may not be able to read the specification." |
|
1227 |
|
1228 " |
|
1229 UIPainter new openOnClass:UISelectionPanel andSelector:#nameAndSelectorSpec |
|
1230 UISelectionPanel new openInterface:#nameAndSelectorSpec |
|
1231 " |
|
1232 |
|
1233 <resource: #canvas> |
|
1234 |
|
1235 ^ |
|
1236 #(FullSpec |
|
1237 name: nameAndSelectorSpec |
|
1238 window: |
|
1239 (WindowSpec |
|
1240 label: 'Painter' |
|
1241 name: 'Painter' |
|
1242 min: (Point 10 10) |
|
1243 bounds: (Rectangle 14 46 329 262) |
|
1244 ) |
|
1245 component: |
|
1246 (SpecCollection |
|
1247 collection: ( |
|
1248 (LabelSpec |
|
1249 label: 'Class & selectors to access user specs:' |
|
1250 name: 'title' |
|
1251 layout: (Point 5 10) |
|
1252 resizeForLabel: true |
|
1253 adjust: left |
|
1254 ) |
|
1255 (LabelSpec |
|
1256 label: 'Class:' |
|
1257 name: 'classLabel' |
|
1258 layout: (AlignmentOrigin 68 0.11 51 0 1 0.5) |
|
1259 resizeForLabel: true |
|
1260 adjust: right |
|
1261 ) |
|
1262 (InputFieldSpec |
|
1263 name: 'classField' |
|
1264 layout: (LayoutFrame 74 0.11 39 0 -5 1.0 61 0) |
|
1265 tabable: true |
|
1266 model: className |
|
1267 type: string |
|
1268 acceptOnPointerLeave: false |
|
1269 ) |
|
1270 (LabelSpec |
|
1271 label: 'Labels:' |
|
1272 name: 'labelsLabel' |
|
1273 layout: (AlignmentOrigin 68 0.11 74 0 1 0.5) |
|
1274 resizeForLabel: true |
|
1275 adjust: right |
|
1276 ) |
|
1277 (InputFieldSpec |
|
1278 name: 'labelsField' |
|
1279 layout: (LayoutFrame 74 0.11 64 0 -5 1.0 86 0) |
|
1280 tabable: true |
|
1281 model: labelsKey |
|
1282 type: symbolOrNil |
|
1283 acceptOnPointerLeave: false |
|
1284 ) |
|
1285 (LabelSpec |
|
1286 label: 'Specifications:' |
|
1287 name: 'specsLabel' |
|
1288 layout: (AlignmentOrigin 68 0.11 99 0 1 0.5) |
|
1289 resizeForLabel: true |
|
1290 adjust: right |
|
1291 ) |
|
1292 (InputFieldSpec |
|
1293 name: 'specsField' |
|
1294 layout: (LayoutFrame 74 0.11 89 0 -5 1.0 111 0) |
|
1295 tabable: true |
|
1296 model: specsKey |
|
1297 type: symbolOrNil |
|
1298 acceptOnPointerLeave: false |
|
1299 ) |
|
1300 (HorizontalPanelViewSpec |
|
1301 name: 'commitPanel' |
|
1302 layout: (LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0) |
|
1303 horizontalLayout: fitSpace |
|
1304 verticalLayout: fit |
|
1305 horizontalSpace: 3 |
|
1306 verticalSpace: 3 |
|
1307 reverseOrderIfOKAtLeft: true |
|
1308 component: |
|
1309 (SpecCollection |
|
1310 collection: ( |
|
1311 (ActionButtonSpec |
|
1312 label: 'cancel' |
|
1313 name: 'cancel' |
|
1314 tabable: true |
|
1315 model: cancel |
|
1316 extent: (Point 153 23) |
|
1317 ) |
|
1318 (ActionButtonSpec |
|
1319 label: 'ok' |
|
1320 name: 'accept' |
|
1321 tabable: true |
|
1322 model: accept |
|
1323 isDefault: true |
|
1324 extent: (Point 153 23) |
|
1325 ) |
|
1326 ) |
|
1327 |
|
1328 ) |
|
1329 ) |
|
1330 (CheckBoxSpec |
|
1331 label: 'Update Default Resources' |
|
1332 name: 'updateDefaultResources' |
|
1333 layout: (Point 5 133) |
|
1334 model: updateDefaultResources |
|
1335 ) |
|
1336 ) |
|
1337 |
|
1338 ) |
|
1339 ) |
|
1340 ! |
|
1341 |
|
1342 windowSpec |
|
1343 "This resource specification was automatically generated |
|
1344 by the UIPainter of ST/X." |
|
1345 |
|
1346 "Do not manually edit this!! If it is corrupted, |
|
1347 the UIPainter may not be able to read the specification." |
|
1348 |
|
1349 " |
|
1350 UIPainter new openOnClass:UISelectionPanel andSelector:#windowSpec |
|
1351 UISelectionPanel new openInterface:#windowSpec |
|
1352 UISelectionPanel open |
|
1353 " |
|
1354 |
|
1355 <resource: #canvas> |
|
1356 |
|
1357 ^ |
|
1358 #(FullSpec |
|
1359 name: windowSpec |
|
1360 window: |
|
1361 (WindowSpec |
|
1362 label: 'Widget Gallery' |
|
1363 name: 'Widget Gallery' |
|
1364 min: (Point 100 280) |
|
1365 bounds: (Rectangle 14 46 508 348) |
|
1366 ) |
|
1367 component: |
|
1368 (SpecCollection |
|
1369 collection: ( |
|
1370 (NoteBookViewSpec |
|
1371 name: 'NoteBook1' |
|
1372 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
1373 model: majorChannel |
|
1374 menu: majorList |
|
1375 direction: right |
|
1376 useIndex: true |
|
1377 canvas: gallery |
|
1378 ) |
|
1379 ) |
|
1380 |
|
1381 ) |
|
1382 ) |
|
1383 ! ! |
|
1384 |
|
1385 !UISelectionPanel class methodsFor:'menus'! |
|
1386 |
|
1387 menuSelected |
|
1388 |
|
1389 <resource: #menu> |
|
1390 |
|
1391 ^ #(#Menu #( |
|
1392 #(#MenuItem |
|
1393 #'label:' 'copy' |
|
1394 #'value:' #copy |
|
1395 ) |
|
1396 #(#MenuItem |
|
1397 #'label:' 'cut' |
|
1398 #'value:' #cut |
|
1399 ) |
|
1400 ) |
|
1401 nil |
|
1402 nil |
|
1403 ) |
|
1404 |
|
1405 "Modified: / 29.10.1997 / 03:20:30 / cg" |
|
1406 ! |
|
1407 |
|
1408 menuUnselected |
|
1409 <resource: #menu> |
|
1410 |
|
1411 ^ #(#Menu #( |
|
1412 #(#MenuItem |
|
1413 #'label:' 'paste' |
|
1414 #'value:' #paste |
|
1415 ) |
|
1416 ) |
|
1417 nil |
|
1418 nil |
|
1419 ) |
|
1420 |
|
1421 "Modified: / 29.10.1997 / 03:20:38 / cg" |
|
1422 ! ! |
|
1423 |
|
1424 !UISelectionPanel class methodsFor:'resources'! |
|
1425 |
|
1426 classResources |
|
1427 "my translations are found in the UIPainter classes resources" |
|
1428 |
|
1429 ^ UIPainter classResources |
|
1430 ! ! |
|
1431 |
1432 !UISelectionPanel methodsFor:'actions'! |
1432 !UISelectionPanel methodsFor:'actions'! |
1433 |
1433 |
1434 defineClassAndSelector |
1434 defineClassAndSelector |
1435 |bd cls sel lbl| |
1435 |bd cls sel lbl| |
1436 |
1436 |