--- a/HierarchicalVersionDiffBrowser.st	Mon Dec 27 15:16:34 1999 +0100
+++ b/HierarchicalVersionDiffBrowser.st	Mon Dec 27 15:22:23 1999 +0100
@@ -12,15 +12,15 @@
 	privateIn:HierarchicalVersionDiffBrowser
 !
 
-HierarchicalVersionDiffBrowser::AbstractVersionDiffBrowserItem subclass:#ClassItemRoot
-	instanceVariableNames:''
+HierarchicalVersionDiffBrowser::AbstractVersionDiffBrowserItem subclass:#ClassItem
+	instanceVariableNames:'myClass'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:HierarchicalVersionDiffBrowser
 !
 
-HierarchicalVersionDiffBrowser::AbstractVersionDiffBrowserItem subclass:#ClassItem
-	instanceVariableNames:'myClass'
+HierarchicalVersionDiffBrowser::AbstractVersionDiffBrowserItem subclass:#ClassItemRoot
+	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:HierarchicalVersionDiffBrowser
@@ -112,7 +112,7 @@
           #name: 'Hierarchical Version DiffBrowser'
           #min: #(#Point 10 10)
           #max: #(#Point 9999 9999)
-          #bounds: #(#Rectangle 12 22 877 551)
+          #bounds: #(#Rectangle 16 46 881 575)
         )
         #component: 
        #(#SpecCollection
@@ -130,8 +130,8 @@
             )
            #(#VariableHorizontalPanelSpec
               #name: 'VariableHorizontalPanel1'
-              #layout: #(#LayoutFrame 0 0.0 21 0.0 0 1.0 0 1.0)
-              #level: 0
+              #layout: #(#LayoutFrame 0 0.0 25 0.0 0 1.0 0 1.0)
+              #level: 2
               #component: 
              #(#SpecCollection
                 #collection: #(
@@ -449,17 +449,6 @@
     ^false
 ! !
 
-!HierarchicalVersionDiffBrowser::ClassItemRoot methodsFor:'initialization'!
-
-initialize
-    super initialize.
-
-    children   := OrderedCollection new.
-    isExpanded := true.
-
-
-! !
-
 !HierarchicalVersionDiffBrowser::ClassItem methodsFor:'accessing'!
 
 myClass
@@ -516,6 +505,17 @@
 
 ! !
 
+!HierarchicalVersionDiffBrowser::ClassItemRoot methodsFor:'initialization'!
+
+initialize
+    super initialize.
+
+    children   := OrderedCollection new.
+    isExpanded := true.
+
+
+! !
+
 !HierarchicalVersionDiffBrowser::RevisionItem methodsFor:'accessing'!
 
 revision
@@ -549,5 +549,5 @@
 !HierarchicalVersionDiffBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/HierarchicalVersionDiffBrowser.st,v 1.1 1999-12-23 15:31:19 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/HierarchicalVersionDiffBrowser.st,v 1.2 1999-12-27 14:22:23 ps Exp $'
 ! !