--- a/Tools__VariableList.st	Fri Sep 06 15:49:08 2013 +0100
+++ b/Tools__VariableList.st	Mon Sep 09 02:02:10 2013 +0100
@@ -520,14 +520,27 @@
     | nm entry |
 
     nm := name.
+    "/ Hack for Java classes to display field type
+    cls theNonMetaclass isJavaClass ifTrue:[
+        | field |
+
+        field := cls theNonMetaclass lookupFieldFor:name static: (cls isMetaclass) onlyPublic: false.
+        field notNil ifTrue:[
+            nm := nm asText , 
+                    ' ' , 
+                        (('< ' , (JavaMethod fieldTypeFromStream: (field descriptor readStream) in: cls theNonMetaclass javaPackage) , ' >')
+                                asText colorizeAllWith: Color brown).
+        ].
+    ].
     entry := Tools::VariableList::VariableEntry application: self class: cls name: nm.
     entry sortingByNameHolder:sortVariablesByName.
     classInfo notNil ifTrue:[
-	entry type: (classInfo infoForInstvarOrNil: name).
+        entry type: (classInfo infoForInstvarOrNil: name).
     ].
     ^entry
 
     "Created: / 27-11-2011 / 17:17:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 09-09-2013 / 01:44:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 listOfVariables