--- a/UIPainter.st Wed Mar 11 01:41:25 1998 +0100
+++ b/UIPainter.st Wed Mar 11 09:40:55 1998 +0100
@@ -1224,9 +1224,18 @@
nil
)
)
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Inspect Spec'
+ #value: #inspectSpec
+ )
) nil
nil
)
+
+ "Modified: / 10.3.1998 / 18:12:11 / stefan"
!
menuMove
@@ -1659,6 +1668,24 @@
]
!
+inspectSpec
+ "inspect the selected specification"
+
+ |spec|
+
+ (spec := self painter specForSelection) isNil ifTrue:[
+ treeView isCanvasSelected ifTrue:[
+ spec := treeView canvasSpec.
+ ]
+ ].
+ spec notNil ifTrue:[
+ spec inspect
+ ]
+
+ "Created: / 10.3.1998 / 18:11:42 / stefan"
+ "Modified: / 10.3.1998 / 18:19:55 / stefan"
+!
+
moveSelectionDown
"move selected components down
"