--- a/VersionDiffBrowser.st	Wed Sep 04 17:25:44 2002 +0200
+++ b/VersionDiffBrowser.st	Wed Sep 04 21:37:43 2002 +0200
@@ -1134,7 +1134,7 @@
     <return: self>
     "
 
-    (aBuilder componentAt:#TopHorizontalPanel) ignoreInvisibleComponents:true.
+    (self componentAt:#TopHorizontalPanel) ignoreInvisibleComponents:true.
     ^ super postBuildWith:aBuilder
 ! !
 
@@ -1347,7 +1347,7 @@
     diffTextView := self diffTextView.
     leftView := diffTextView leftTextView.
     rightView := diffTextView rightTextView.
-    singleView := self builder componentAt:#singleTextView.
+    singleView := self componentAt:#singleTextView.
 
     (Array 
         with:leftView
@@ -1476,12 +1476,10 @@
 
     <return: self>
     "
-    |builder|
 
-    builder := self builder.
-    (builder componentAt:#diffTextViewBox) raise; beVisible.
-    (builder componentAt:#singleTextView) beInvisible.
-    (builder componentAt:#diffTextView) realizeAllSubViews.
+    (self componentAt:#diffTextViewBox) raise; beVisible.
+    (self componentAt:#singleTextView) beInvisible.
+    (self componentAt:#diffTextView) realizeAllSubViews.
 
     self addAcceptToTextViewMenus.
 !
@@ -1495,11 +1493,8 @@
     <return: self>
     "
 
-    |builder|
-
-    builder := self builder.
-    (builder componentAt:#singleTextView) raise; beVisible.
-    (builder componentAt:#diffTextViewBox) beInvisible.
+    (self componentAt:#singleTextView) raise; beVisible.
+    (self componentAt:#diffTextViewBox) beInvisible.
     self addAcceptToTextViewMenus.
 !
 
@@ -1517,12 +1512,12 @@
     (theVersionA := self versionA) notNil ifTrue:[
         self diffTextLabelA value:theVersionA.
         self onlyInALabelHolder value:('Only in ' , theVersionA).
-        (builder componentAt:#OnlyInALabel) backgroundColor:Color green darkened.
+        (self componentAt:#OnlyInALabel) backgroundColor:Color green darkened.
     ].
     (theVersionB :=self versionB) notNil ifTrue:[
         self diffTextLabelB value:theVersionB.
         self onlyInBLabelHolder value:('Only in ' , theVersionB).
-        (builder componentAt:#OnlyInBLabel) backgroundColor:Color red darkened.
+        (self componentAt:#OnlyInBLabel) backgroundColor:Color red darkened.
     ].
 !
 
@@ -1975,5 +1970,5 @@
 !VersionDiffBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.59 2002-09-04 12:05:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.60 2002-09-04 19:37:43 cg Exp $'
 ! !