# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1377608253 -7200
# Node ID 0ade5325ad8c2efb58ff8b6a15e9f2d1b139fc32
# Parent  1fd78da0cf17f484675d11b1a1814d0229d29405
class: Tools::VariableList
changed:
        #listEntryForClass:name:
        #listEntryForClass:name:info:
when sorting by name, it is a good idea to show
the class

diff -r 1fd78da0cf17 -r 0ade5325ad8c Tools__VariableList.st
--- a/Tools__VariableList.st	Tue Aug 27 14:21:57 2013 +0200
+++ b/Tools__VariableList.st	Tue Aug 27 14:57:33 2013 +0200
@@ -22,7 +22,7 @@
 !
 
 Object subclass:#VariableEntry
-	instanceVariableNames:'label application class name type icon'
+	instanceVariableNames:'label application class name type icon sortingByNameHolder'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:VariableList
@@ -505,7 +505,11 @@
                             hasSpecEntry := true]].
                 showWarningAboutMissingEntryInXmlSpec := hasSpecEntry not].    "
 
-    ^VariableEntry application: self class: cls name: name
+    |entry|
+
+    entry := VariableEntry application: self class: cls name: name.
+    entry sortingByNameHolder:sortVariablesByName.
+    ^ entry
 
     "Created: / 12-04-2011 / 15:41:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 12-04-2011 / 21:36:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -517,6 +521,7 @@
 
     nm := name.
     entry := Tools::VariableList::VariableEntry application: self class: cls name: nm.
+    entry sortingByNameHolder:sortVariablesByName.
     classInfo notNil ifTrue:[
         entry type: (classInfo infoForInstvarOrNil: name).
     ].
@@ -775,13 +780,23 @@
         label := name.
         type notNil ifTrue:[
             label := (label , ' ' ,  (type displayString colorizeAllWith: Color brown)) 
-        ]
+        ].
     ].
     ^label
 
     "Created: / 16-12-2011 / 00:54:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+labelWithClass
+    |l|
+
+    l := self label.
+    class notNil ifTrue:[
+        ^ label,' (' ,(class nameWithoutPrefix colorizeAllWith: Color grey),')' 
+    ].
+    ^label
+!
+
 name
     ^ name
 !
@@ -790,6 +805,10 @@
     name := aString.
 !
 
+sortingByNameHolder:something
+    sortingByNameHolder := something.
+!
+
 string
 
     ^name
@@ -816,13 +835,18 @@
 !VariableList::VariableEntry methodsFor:'displaying'!
 
 displayOn:aGC x:x y:y opaque: opaque
+    | icn shownLabel |
 
-    | icn |
     icn := self icon.
     icn ~~ #NOICON ifTrue:[
         icn displayOn:aGC x:x + 1 y:y - icn height.
     ].
-    ^self label displayOn:aGC x:x + 20 y:y opaque: opaque
+
+    shownLabel := sortingByNameHolder value 
+                    ifTrue:[ self labelWithClass ]
+                    ifFalse: [ self label ].
+
+    shownLabel displayOn:aGC x:x + 20 y:y opaque: opaque
 
     "Created: / 12-04-2011 / 15:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
@@ -840,6 +864,6 @@
 !VariableList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__VariableList.st,v 1.21 2013-07-10 12:04:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__VariableList.st,v 1.22 2013-08-27 12:57:33 cg Exp $'
 ! !