equal
deleted
inserted
replaced
55 " |
55 " |
56 |helpTool| |
56 |helpTool| |
57 |
57 |
58 helpTool := UIHelpTool new. |
58 helpTool := UIHelpTool new. |
59 helpTool openInterface:#standAloneSpec. |
59 helpTool openInterface:#standAloneSpec. |
60 helpTool helpSpecFrom:UIPainter |
60 helpTool helpSpecFrom:aClass |
61 |
61 |
62 |
62 |
63 ! ! |
63 ! ! |
64 |
64 |
65 !UIHelpTool class methodsFor:'constants'! |
65 !UIHelpTool class methodsFor:'constants'! |
70 |
70 |
71 !UIHelpTool class methodsFor:'help specs'! |
71 !UIHelpTool class methodsFor:'help specs'! |
72 |
72 |
73 helpSpec |
73 helpSpec |
74 "return a dictionary filled with helpKey -> helptext associations. |
74 "return a dictionary filled with helpKey -> helptext associations. |
75 These are used by the activeHelp tool. |
75 These are used by the activeHelp tool." |
76 " |
76 |
|
77 " |
|
78 UIHelpTool openOnClass:UIHelpTool |
|
79 " |
|
80 |
77 ^ super helpSpec addPairsFrom:#( |
81 ^ super helpSpec addPairsFrom:#( |
78 |
82 |
79 #activeHelpAccessKey |
83 #activeHelpAccessKey |
80 'This ID is used to access an active help text for the selected component' |
84 'This ID is used to access an active help text for the selected component' |
81 |
85 |
82 ) |
86 ) |
83 |
|
84 ! ! |
87 ! ! |
85 |
88 |
86 !UIHelpTool class methodsFor:'interface specs'! |
89 !UIHelpTool class methodsFor:'interface specs'! |
87 |
90 |
88 menuPanelStandAlone |
91 menuPanelStandAlone |
115 ) |
118 ) |
116 #(#MenuItem |
119 #(#MenuItem |
117 #'label:' '-' |
120 #'label:' '-' |
118 ) |
121 ) |
119 #(#MenuItem |
122 #(#MenuItem |
120 #'label:' 'close' |
123 #'label:' 'quit' |
121 #'value:' #closeRequest |
124 #'value:' #closeRequest |
122 ) |
125 ) |
123 ) nil |
126 ) nil |
124 nil |
127 nil |
125 ) |
128 ) |
395 |
398 |
396 src nextPutAll: |
399 src nextPutAll: |
397 |
400 |
398 'helpSpec |
401 'helpSpec |
399 "return a dictionary filled with helpKey -> helptext associations. |
402 "return a dictionary filled with helpKey -> helptext associations. |
400 These are used by the activeHelp tool. |
403 These are used by the activeHelp tool." |
401 " |
404 |
|
405 " |
|
406 UIHelpTool openOnClass:', cls name asString ,' |
|
407 " |
|
408 |
402 ^ super helpSpec addPairsFrom:#( |
409 ^ super helpSpec addPairsFrom:#( |
403 |
410 |
404 '. |
411 '. |
405 |
412 |
406 dictionary keysAndValuesDo:[:key :txt| |
413 dictionary keysAndValuesDo:[:key :txt| |