# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 889605655 -3600
# Node ID 325eba9f37b7719448b2305f7a1fe72cb126bfdb
# Parent  7f228c9cde2e9a357a998c5523d0c420526d9796
Add menu entry to inspect selected specification

diff -r 7f228c9cde2e -r 325eba9f37b7 UIPainter.st
--- 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
     "