2200 openSubSpecGuiPainter

  2201     "opens a GUI Painter on the current subspecification"

  2202 

  2203     |spec cls meta sel|

  2204 

  2205     spec := self specTool specification.

  2206     cls := spec majorKey.

  2207     cls isNil ifTrue:[

  2208         cls := self specClass.

  2209     ].

  2210     (cls isNil or:[(cls := self resolveName:specClass) isNil]) ifTrue:[

  2211         ^ self warn:'Cannot find class'.

  2212     ].

  2213     sel := spec minorKey.

  2214     meta := cls class whichClassIncludesSelector:sel.

  2215     meta isNil ifTrue:[

  2216         ^ self warn:'Cannot find ''', sel, ''' in class ''', cls name, ''''

  2217     ].

  2218 

  2219     self class openOnClass:meta soleInstance andSelector:spec minorKey.

  2220 

  2221     "Created: / 6.2.1998 / 13:03:59 / stefan"

  2222     "Modified: / 6.2.1998 / 13:59:30 / stefan"

  2223 !

  2224