equal
deleted
inserted
replaced
49 |
49 |
50 !UIHelpTool class methodsFor:'help specs'! |
50 !UIHelpTool class methodsFor:'help specs'! |
51 |
51 |
52 helpSpec |
52 helpSpec |
53 "return a dictionary filled with helpKey -> helptext associations. |
53 "return a dictionary filled with helpKey -> helptext associations. |
54 These are used by the activeHelp tool." |
54 These are used by the activeHelp tool. |
55 |
55 " |
56 |dict| |
56 ^ super helpSpec addPairsFrom:#( |
57 |
57 |
58 dict := super helpSpec. |
58 #activeHelpAccessKey |
59 dict at:#activeHelpAccessKey put:'This ID is used to access an active |
59 'This ID is used to access an active |
60 help text for the selected component'. |
60 help text for the selected component' |
61 ^ dict |
61 |
|
62 ) |
|
63 |
62 ! ! |
64 ! ! |
63 |
65 |
64 !UIHelpTool class methodsFor:'interface specs'! |
66 !UIHelpTool class methodsFor:'interface specs'! |
65 |
67 |
66 windowSpec |
68 windowSpec |