class: Tools::ViewTreeInspectorApplication
changed:
#submenuInspector:
#submenuInterface:
--- a/Tools__ViewTreeApplication.st Wed Jul 31 11:23:27 2013 +0200
+++ b/Tools__ViewTreeApplication.st Wed Jul 31 13:13:51 2013 +0200
@@ -1426,7 +1426,7 @@
submenuInspector:aMenu
"builds and returns the inspector submenu"
- |view list n names label value|
+ |view list n names label value indices|
view := self selectedView.
view isNil ifTrue:[^ nil].
@@ -1436,10 +1436,12 @@
list := OrderedCollection new:n.
names := view class allInstVarNames.
+ indices := (1 to:names size) asArray.
+ names sortWith:indices.
1 to:n do:[:i| |action|
label := (names at:i) printString.
- value := view instVarAt:i.
+ value := view instVarAt:(indices at:i).
value isNil ifTrue:[
value := '------'.
action := nil.
@@ -1451,6 +1453,8 @@
].
^ MenuDesc buildFromList:list onGC:aMenu
+
+ "Modified: / 31-07-2013 / 13:12:52 / cg"
!
submenuInterface:aMenu
@@ -1542,7 +1546,7 @@
value := [ (view perform:actionSelector) inspect ].
].
- list add:(MenuDesc title:'action' value:label action:value).
+ list add:(MenuDesc title:actionSelector"'action'" value:label action:value).
].
].
@@ -1574,7 +1578,7 @@
list last isSeparator ifTrue:[ list removeLast ].
^ MenuDesc buildFromList:list onGC:aMenu
- "Modified: / 27-04-2012 / 14:22:34 / cg"
+ "Modified: / 31-07-2013 / 13:09:55 / cg"
!
submenuVisibility:aMenu