# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 886773949 -3600
# Node ID 60f89fba074ac6bdc1eee07032b7de8e9c080e4b
# Parent  8610ea5b501d680ddc7e4cf255a88d61f252208b
Allow opening of a GUI Painter for a subSpecification.

diff -r 8610ea5b501d -r 60f89fba074a UIPainter.st
--- a/UIPainter.st	Fri Feb 06 03:46:07 1998 +0100
+++ b/UIPainter.st	Fri Feb 06 15:05:49 1998 +0100
@@ -2197,6 +2197,31 @@
     ]
 !
 
+openSubSpecGuiPainter
+    "opens a GUI Painter on the current subspecification"
+
+    |spec cls meta sel|
+
+    spec := self specTool specification.
+    cls := spec majorKey.
+    cls isNil ifTrue:[
+        cls := self specClass.
+    ].
+    (cls isNil or:[(cls := self resolveName:specClass) isNil]) ifTrue:[
+        ^ self warn:'Cannot find class'.
+    ].
+    sel := spec minorKey.
+    meta := cls class whichClassIncludesSelector:sel.
+    meta isNil ifTrue:[
+        ^ self warn:'Cannot find ''', sel, ''' in class ''', cls name, ''''
+    ].
+
+    self class openOnClass:meta soleInstance andSelector:spec minorKey.
+
+    "Created: / 6.2.1998 / 13:03:59 / stefan"
+    "Modified: / 6.2.1998 / 13:59:30 / stefan"
+!
+
 openTabItemEditor
     "opens a column editor
     "