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 !