#REFACTORING by exept
authorClaus Gittinger <cg@exept.de>
Thu, 31 Oct 2019 10:24:38 +0100
changeset 19237 f0c43f38c554
parent 19236 9ab7fe39c29f
child 19238 48a556523d70
#REFACTORING by exept class: ChangesBrowser changed: #initialize
ChangesBrowser.st
--- a/ChangesBrowser.st	Thu Oct 31 10:24:21 2019 +0100
+++ b/ChangesBrowser.st	Thu Oct 31 10:24:38 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
@@ -1677,7 +1675,7 @@
     oldStyle ifTrue:[
         buttonPanel := VerticalPanelView in:upperFrame.
         buttonPanel origin:(0.75 @ 0.0) corner:(1.0 @ 1.0).
-        buttonPanel verticalLayout:#topSpace; horizontalLayout:#leftSpace.
+        buttonPanel horizontalLayout:#leftSpace verticalLayout:#topSpace.
 
         checkBox := CheckBox new model:autoCompare.
         checkBox label:(resources string:'Auto Compare').
@@ -3829,7 +3827,7 @@
     "/ does not care for VW qualified names
     "/ ^ Parser parseExpression:text inNameSpace:nameSpace.
 
-    (text includesString:'§') ifTrue:[
+    (text includesString:'§') ifTrue:[
         self halt:'should no longer happen'
     ].
 
@@ -7047,7 +7045,7 @@
     "
     clsName := nil.
 
-    (chunkText includesString:'§') ifTrue:[
+    (chunkText includesString:'§') ifTrue:[
         self halt:'should no longer happen'
     ].