UIHelpTool.st
changeset 833 ff2f237a309a
parent 832 2c5b61b168e8
child 835 13793eec85d5
equal deleted inserted replaced
832:2c5b61b168e8 833:ff2f237a309a
    65 ! !
    65 ! !
    66 
    66 
    67 !UIHelpTool class methodsFor:'instance creation'!
    67 !UIHelpTool class methodsFor:'instance creation'!
    68 
    68 
    69 open
    69 open
    70     |className cls|
    70     ^ self openOnClass:nil.
    71 
    71 
    72     className := Dialog request:(ClassResources string:'Open on which class ?').
    72 "/    |className cls|
    73     className size > 0 ifTrue:[
    73 "/
    74         cls := Smalltalk at:className asSymbol.
    74 "/    className := Dialog request:(ClassResources string:'Open on which class ?').
    75         cls notNil ifTrue:[
    75 "/    className size > 0 ifTrue:[
    76             ^ self openOnClass:cls.
    76 "/        cls := Smalltalk at:className asSymbol.
    77         ].
    77 "/        cls notNil ifTrue:[
    78         self warn:(ClassResources string:'No such class').
    78 "/            ^ self openOnClass:cls.
    79     ].
    79 "/        ].
    80 
    80 "/        self warn:(ClassResources string:'No such class').
    81     "Created: / 20.5.1998 / 00:55:05 / cg"
    81 "/    ].
    82     "Modified: / 20.5.1998 / 00:57:45 / cg"
    82 "/
       
    83 "/    "Created: / 20.5.1998 / 00:55:05 / cg"
       
    84 "/
       
    85 
       
    86     "Modified: / 20.5.1998 / 01:06:07 / cg"
    83 !
    87 !
    84 
    88 
    85 openOnClass:aClass
    89 openOnClass:aClass
    86     "opens a Help Tool on aClass"
    90     "opens a Help Tool on aClass"
       
    91 
       
    92     self new openOnClass:aClass
    87 
    93 
    88     "
    94     "
    89      UIHelpTool openOnClass:self
    95      UIHelpTool openOnClass:self
    90     "
    96     "
    91 
    97 
    92     UIHelpTool new openOnClass:aClass
    98     "Modified: / 20.5.1998 / 01:06:14 / cg"
    93 
       
    94 ! !
    99 ! !
    95 
   100 
    96 !UIHelpTool class methodsFor:'constants'!
   101 !UIHelpTool class methodsFor:'constants'!
    97 
   102 
    98 label
   103 label