--- 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