--- a/ChangesBrowser.st	Thu Aug 23 13:39:21 2001 +0200
+++ b/ChangesBrowser.st	Thu Aug 23 19:43:36 2001 +0200
@@ -516,7 +516,8 @@
 !
 
 initialize
-    |panel v upperFrame buttonPanel autoUpdateCheckBox applyInOriginalNameSpaceCheckBox|
+    |panel v upperFrame buttonPanel 
+     autoUpdateCheckBox applyInOriginalNameSpaceCheckBox protectExistingMethods|
 
     super initialize.
 
@@ -537,35 +538,40 @@
                               borderWidth:0
                                        in:self.
 
-    upperFrame := View origin:(0.0 @ 0.0) corner:(1.0 @ 0.3) in:panel.
+    upperFrame := VariableHorizontalPanel origin:(0.0 @ 0.0) corner:(1.0 @ 0.3) in:panel.
 
     v := HVScrollableView for:SelectionInListView miniScrollerH:true in:upperFrame.
-    v origin:(0.0 @ 0.0) corner:(0.8 @ 1.0).
+    v origin:(0.0 @ 0.0) corner:(0.75 @ 1.0).
+
     changeListView := v scrolledView.
     changeListView delegate:self.
     changeListView menuHolder:self; menuPerformer:self; menuMessage:#changeListMenu.
     changeListView doubleClickAction:[:line | self doubleClickOnChange:line].
 
     buttonPanel := VerticalPanelView in:upperFrame.
-    buttonPanel origin:(0.8 @ 0.0) corner:(1.0 @ 1.0).
+    buttonPanel origin:(0.75 @ 0.0) corner:(1.0 @ 1.0).
     buttonPanel verticalLayout:#topSpace; horizontalLayout:#leftSpace.
 
     compareCheckBox := CheckBox new.
-    compareCheckBox label:(resources string:'compare').
+    compareCheckBox label:(resources string:'Compare').
     compareCheckBox action:[:val | self compare:val].
     buttonPanel addSubView:compareCheckBox.
 
     autoUpdateCheckBox := CheckBox new.
-    autoUpdateCheckBox label:(resources string:'auto update').
+    autoUpdateCheckBox label:(resources string:'Auto update').
     autoUpdateCheckBox action:[:val | self autoUpdate:val].
     buttonPanel addSubView:autoUpdateCheckBox.
 
     applyInOriginalNameSpaceCheckBox := CheckBox new.
-    applyInOriginalNameSpaceCheckBox label:(resources string:'Apply in original nameSpace').
+    applyInOriginalNameSpaceCheckBox label:(resources string:'Apply in original NameSpace' withCRs).
     applyInOriginalNameSpaceCheckBox model:applyInOriginalNameSpace.
-
     buttonPanel addSubView:applyInOriginalNameSpaceCheckBox.
 
+"/    protectExistingMethods := CheckBox new.
+"/    protectExistingMethods label:(resources string:'Protect existing code' withCRs).
+"/    protectExistingMethods model:protectExistingMethods.
+"/    buttonPanel addSubView:protectExistingMethods.
+
     v := HVScrollableView for:CodeView miniScrollerH:true miniScrollerV:false in:panel.
     v origin:(0.0 @ 0.3) corner:(1.0 @ 1.0).
     codeView := v scrolledView.
@@ -3664,5 +3670,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.216 2001-08-02 09:56:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.217 2001-08-23 17:43:36 cg Exp $'
 ! !