equal
deleted
inserted
replaced
106 ^ #help |
106 ^ #help |
107 ! ! |
107 ! ! |
108 |
108 |
109 !UIHelpTool class methodsFor:'help specs'! |
109 !UIHelpTool class methodsFor:'help specs'! |
110 |
110 |
111 helpSpec |
111 flyByHelpSpec |
112 "This resource specification was automatically generated |
112 "This resource specification was automatically generated |
113 by the UIHelpTool of ST/X." |
113 by the UIHelpTool of ST/X." |
114 |
114 |
115 "Do not manually edit this!! If it is corrupted, |
115 "Do not manually edit this!! If it is corrupted, |
116 the UIHelpTool may not be able to read the specification." |
116 the UIHelpTool may not be able to read the specification." |
119 UIHelpTool openOnClass:UIHelpTool |
119 UIHelpTool openOnClass:UIHelpTool |
120 " |
120 " |
121 |
121 |
122 <resource: #help> |
122 <resource: #help> |
123 |
123 |
124 ^ super helpSpec addPairsFrom:#( |
124 ^ super flyByHelpSpec addPairsFrom:#( |
125 |
125 |
126 #addHelpTextKey |
126 #addHelpTextKey |
127 'Adds the key to the help spec.' |
127 'Adds the key to the help spec.' |
128 |
128 |
129 #currentHelpTexts |
129 #currentHelpTexts |
288 " |
288 " |
289 |
289 |
290 <resource: #canvas> |
290 <resource: #canvas> |
291 |
291 |
292 ^ |
292 ^ |
293 #(FullSpec |
293 #(FullSpec |
294 name: windowSpec |
294 name: windowSpec |
295 window: |
295 window: |
296 (WindowSpec |
296 (WindowSpec |
297 label: 'Help Tool' |
297 label: 'Help Tool' |
298 name: 'Help Tool' |
298 name: 'Help Tool' |
299 min: (Point 300 300) |
299 min: (Point 300 300) |
300 bounds: (Rectangle 0 0 498 429) |
300 bounds: (Rectangle 0 0 498 429) |
301 menu: menu |
301 menu: menu |
302 ) |
302 ) |
303 component: |
303 component: |
304 (SpecCollection |
304 (SpecCollection |
305 collection: ( |
305 collection: ( |
306 (ViewSpec |
306 (ViewSpec |
307 name: 'mainPanel' |
307 name: 'mainPanel' |
308 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -24 1.0) |
308 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -24 1.0) |
309 component: |
309 component: |
310 (SpecCollection |
310 (SpecCollection |
311 collection: ( |
311 collection: ( |
312 (UISubSpecification |
312 (UISubSpecification |
313 name: 'innerSpec' |
313 name: 'innerSpec' |
314 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -24 1.0) |
314 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -24 1.0) |
315 minorKey: innerSpec |
315 minorKey: innerSpec |
316 ) |
|
317 (UISubSpecification |
|
318 name: 'windowSpecForCommit' |
|
319 layout: (LayoutFrame 0 0.0 -24 1.0 0 1.0 0 1.0) |
|
320 majorKey: ToolApplicationModel |
|
321 minorKey: windowSpecForCommit |
|
322 ) |
|
323 ) |
316 ) |
324 |
317 (UISubSpecification |
325 ) |
318 name: 'windowSpecForCommit' |
326 ) |
319 layout: (LayoutFrame 0 0.0 -30 1.0 0 1.0 0 1.0) |
327 (UISubSpecification |
320 majorKey: ToolApplicationModel |
328 name: 'infoBarSubSpec' |
321 minorKey: windowSpecForCommit |
329 layout: (LayoutFrame 0 0 -24 1 0 1 0 1) |
322 ) |
330 majorKey: ToolApplicationModel |
323 ) |
331 minorKey: windowSpecForInfoBar |
324 |
332 ) |
325 ) |
333 ) |
326 ) |
334 |
327 (UISubSpecification |
335 ) |
328 name: 'infoBarSubSpec' |
336 ) |
329 layout: (LayoutFrame 0 0 -24 1 0 1 0 1) |
|
330 majorKey: ToolApplicationModel |
|
331 minorKey: windowSpecForInfoBar |
|
332 ) |
|
333 ) |
|
334 |
|
335 ) |
|
336 ) |
337 ! ! |
337 ! ! |
338 |
338 |
339 !UIHelpTool class methodsFor:'menu specs'! |
339 !UIHelpTool class methodsFor:'menu specs'! |
340 |
340 |
341 helpTextMenu |
341 helpTextMenu |
517 ! ! |
517 ! ! |
518 |
518 |
519 !UIHelpTool methodsFor:'accessing'! |
519 !UIHelpTool methodsFor:'accessing'! |
520 |
520 |
521 helpKey |
521 helpKey |
522 "returns the helpKey as symbol or nil |
522 "returns the helpKey (symbol) or nil |
523 " |
523 " |
524 |key| |
524 |key| |
525 |
525 |
526 key := editModel value. |
526 key := editModel value. |
527 |
527 |
528 key size ~~ 0 ifTrue:[ |
528 key size ~~ 0 ifTrue:[ |
529 key := key withoutSeparators. |
529 key := key withoutSeparators. |
530 key notEmpty ifTrue:[ ^ key asSymbol ] |
530 key notEmpty ifTrue:[ ^ key asSymbol ] |
531 ]. |
531 ]. |
532 ^ nil |
532 ^ nil |
533 ! |
533 ! |
534 |
534 |
535 helpKey:aKey |
535 helpKey:aKey |
638 ]. |
638 ]. |
639 ^ contentsModifiedChannel |
639 ^ contentsModifiedChannel |
640 ! |
640 ! |
641 |
641 |
642 helpTextView |
642 helpTextView |
643 "the editView which keeps the current help contents assigned to the key |
643 "the editView which shows the current help contents assigned to the key |
644 " |
644 " |
645 ^ helpTextView |
645 ^ helpTextView |
646 ! |
646 ! |
647 |
647 |
648 infoLabelHolder |
648 infoLabelHolder |
1350 ! ! |
1350 ! ! |
1351 |
1351 |
1352 !UIHelpTool::KeyItem methodsFor:'accessing'! |
1352 !UIHelpTool::KeyItem methodsFor:'accessing'! |
1353 |
1353 |
1354 helpKey |
1354 helpKey |
1355 "returns the helpKey, a symbol |
1355 "returns the helpKey, a symbol" |
1356 " |
1356 |
1357 ^ helpKey |
1357 ^ helpKey |
1358 ! |
1358 ! |
1359 |
1359 |
1360 helpText |
1360 helpText |
1361 "returns the contents assigned to the helpKey or nil |
1361 "returns the contents assigned to the helpKey or nil |