# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1375269231 -7200
# Node ID b62c4b71910c645173c5ef75b0cea73ef218a2a1
# Parent  c407489f2fafe2881542f7f3f768f94750865253
class: Tools::ViewTreeInspectorApplication
changed:
        #submenuInspector:
        #submenuInterface:

diff -r c407489f2faf -r b62c4b71910c Tools__ViewTreeApplication.st
--- 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