Allow opening of a GUI Painter for a subSpecification.
--- 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
"