equal
deleted
inserted
replaced
158 ) |
158 ) |
159 ! ! |
159 ! ! |
160 |
160 |
161 !UIHelpTool class methodsFor:'interface specs'! |
161 !UIHelpTool class methodsFor:'interface specs'! |
162 |
162 |
163 windowSpec |
163 innerSpec |
164 "This resource specification was automatically generated |
164 "This resource specification was automatically generated |
165 by the UIPainter of ST/X." |
165 by the UIPainter of ST/X." |
166 |
166 |
167 "Do not manually edit this!! If it is corrupted, |
167 "Do not manually edit this!! If it is corrupted, |
168 the UIPainter may not be able to read the specification." |
168 the UIPainter may not be able to read the specification." |
169 |
169 |
170 " |
170 " |
171 UIPainter new openOnClass:UIHelpTool andSelector:#windowSpec |
171 UIPainter new openOnClass:UIHelpTool andSelector:#innerSpec |
172 UIHelpTool new openInterface:#windowSpec |
172 UIHelpTool new openInterface:#innerSpec |
173 UIHelpTool open |
|
174 " |
173 " |
175 |
174 |
176 <resource: #canvas> |
175 <resource: #canvas> |
177 |
176 |
178 ^ |
177 ^ |
179 #(FullSpec |
178 #(FullSpec |
180 name: windowSpec |
179 name: innerSpec |
181 window: |
180 window: |
182 (WindowSpec |
181 (WindowSpec |
183 label: 'UIHelpTool' |
182 label: 'UIHelpTool' |
184 name: 'UIHelpTool' |
183 name: 'UIHelpTool' |
185 min: (Point 10 10) |
184 min: (Point 10 10) |
273 |
272 |
274 ) |
273 ) |
275 ) |
274 ) |
276 ! |
275 ! |
277 |
276 |
278 windowSpecForStandAlone |
277 windowSpec |
279 "This resource specification was automatically generated |
278 "This resource specification was automatically generated |
280 by the UIPainter of ST/X." |
279 by the UIPainter of ST/X." |
281 |
280 |
282 "Do not manually edit this!! If it is corrupted, |
281 "Do not manually edit this!! If it is corrupted, |
283 the UIPainter may not be able to read the specification." |
282 the UIPainter may not be able to read the specification." |
284 |
283 |
285 " |
284 " |
286 UIPainter new openOnClass:UIHelpTool andSelector:#windowSpecForStandAlone |
285 UIPainter new openOnClass:UIHelpTool andSelector:#windowSpec |
287 UIHelpTool new openInterface:#windowSpecForStandAlone |
286 UIHelpTool new openInterface:#windowSpec |
|
287 UIHelpTool open |
288 " |
288 " |
289 |
289 |
290 <resource: #canvas> |
290 <resource: #canvas> |
291 |
291 |
292 ^ |
292 ^ |
293 #(FullSpec |
293 #(FullSpec |
294 name: windowSpecForStandAlone |
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 14 46 512 475) |
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 (UISubSpecification |
306 (UISubSpecification |
307 name: 'windowSpec' |
307 name: 'innerSpec' |
308 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -50 1.0) |
308 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -50 1.0) |
309 minorKey: windowSpec |
309 minorKey: innerSpec |
310 ) |
310 ) |
311 (UISubSpecification |
311 (UISubSpecification |
312 name: 'windowSpecForCommit' |
312 name: 'windowSpecForCommit' |
313 layout: (LayoutFrame 0 0.0 -50 1.0 0 1.0 -24 1.0) |
313 layout: (LayoutFrame 0 0.0 -50 1.0 0 1.0 -24 1.0) |
314 majorKey: ToolApplicationModel |
314 majorKey: ToolApplicationModel |
466 itemValue: doSave |
466 itemValue: doSave |
467 translateLabel: true |
467 translateLabel: true |
468 ) |
468 ) |
469 (MenuItem |
469 (MenuItem |
470 label: '-' |
470 label: '-' |
|
471 isVisible: isStandAlone |
471 ) |
472 ) |
472 (MenuItem |
473 (MenuItem |
473 activeHelpKey: fileExit |
474 activeHelpKey: fileExit |
474 label: 'Exit' |
475 label: 'Exit' |
475 itemValue: closeRequest |
476 itemValue: closeRequest |
476 translateLabel: true |
477 translateLabel: true |
|
478 isVisible: isStandAlone |
477 ) |
479 ) |
478 ) |
480 ) |
479 nil |
481 nil |
480 nil |
482 nil |
481 ) |
483 ) |
487 keepLinkedMenu: true |
489 keepLinkedMenu: true |
488 ) |
490 ) |
489 (MenuItem |
491 (MenuItem |
490 label: 'History' |
492 label: 'History' |
491 translateLabel: true |
493 translateLabel: true |
|
494 isVisible: isStandAlone |
492 submenuChannel: menuHistory |
495 submenuChannel: menuHistory |
493 ) |
496 ) |
494 (MenuItem |
497 (MenuItem |
495 label: 'Help' |
498 label: 'Help' |
496 translateLabel: true |
499 translateLabel: true |
657 |
660 |
658 valueOfInfoLabel |
661 valueOfInfoLabel |
659 "returns the info label as value holder |
662 "returns the info label as value holder |
660 " |
663 " |
661 masterApplication notNil ifTrue:[ |
664 masterApplication notNil ifTrue:[ |
662 ^ masterApplication valueOfInfoLabel |
665 ^ masterApplication infoLabelHolder |
663 ]. |
666 ]. |
664 ^ super valueOfInfoLabel |
667 ^ super valueOfInfoLabel |
665 ! ! |
668 ! ! |
666 |
669 |
667 !UIHelpTool methodsFor:'building'! |
670 !UIHelpTool methodsFor:'building'! |
982 ! |
985 ! |
983 |
986 |
984 openOnClass:aClass andSelector: aSelector |
987 openOnClass:aClass andSelector: aSelector |
985 "opens the UIHelpTool on aClass and aSelector" |
988 "opens the UIHelpTool on aClass and aSelector" |
986 |
989 |
987 self openInterface:#windowSpecForStandAlone. |
990 self openInterface:#windowSpec "ForStandAlone". |
988 |
991 |
989 builder window label:'Help Tool'. |
992 builder window label:'Help Tool'. |
990 self loadFromClass:aClass andSelector:aSelector |
993 self loadFromClass:aClass andSelector:aSelector |
991 ! ! |
994 ! ! |
992 |
995 |