--- a/Tools__ViewTreeApplication.st	Tue May 11 12:03:35 2010 +0200
+++ b/Tools__ViewTreeApplication.st	Tue May 11 12:54:30 2010 +0200
@@ -1368,7 +1368,7 @@
     list add:(MenuDesc separator).
 
     (view respondsTo:#'model:') ifTrue:[
-        inst := model.
+        inst := view model.
 
         inst isNil ifTrue:[ label := value := nil ]
                   ifFalse:[ label := inst displayString.
@@ -1398,6 +1398,20 @@
         list add:(MenuDesc title:'enableChannel' value:label action:value).
     ].
 
+    #( #action #pressaAction #releaseAction ) do:[:actionSelector |
+        (view respondsTo:actionSelector) ifTrue:[
+            inst := view perform:actionSelector.
+
+            inst isNil 
+                ifTrue:[ label := value := nil ]
+                ifFalse:[ label := inst displayString.
+                            value := [ (view perform:actionSelector) inspect ].
+                        ].
+
+            list add:(MenuDesc title:'action' value:label action:value).
+        ].
+    ].
+
     list last isSeparator ifFalse:[ list add:(MenuDesc separator) ].
 
     (view respondsTo:#listHolder) ifTrue:[
@@ -1423,6 +1437,8 @@
 
     list last isSeparator ifTrue:[ list removeLast ].
   ^ MenuDesc buildFromList:list onGC:aMenu
+
+    "Modified: / 11-05-2010 / 12:53:24 / cg"
 !
 
 submenuVisibility:aMenu