equal
deleted
inserted
replaced
63 Thomas Zwick, eXept Software AG |
63 Thomas Zwick, eXept Software AG |
64 " |
64 " |
65 ! ! |
65 ! ! |
66 |
66 |
67 !UIHelpTool class methodsFor:'instance creation'! |
67 !UIHelpTool class methodsFor:'instance creation'! |
|
68 |
|
69 open |
|
70 |className cls| |
|
71 |
|
72 className := Dialog request:(ClassResources string:'Open on which class ?'). |
|
73 className size > 0 ifTrue:[ |
|
74 cls := Smalltalk at:className asSymbol. |
|
75 cls notNil ifTrue:[ |
|
76 ^ self openOnClass:cls. |
|
77 ]. |
|
78 self warn:(ClassResources string:'No such class'). |
|
79 ]. |
|
80 |
|
81 "Created: / 20.5.1998 / 00:55:05 / cg" |
|
82 "Modified: / 20.5.1998 / 00:57:45 / cg" |
|
83 ! |
68 |
84 |
69 openOnClass:aClass |
85 openOnClass:aClass |
70 "opens a Help Tool on aClass" |
86 "opens a Help Tool on aClass" |
71 |
87 |
72 " |
88 " |