#REFACTORING by exept
authorClaus Gittinger <cg@exept.de>
Thu, 31 Oct 2019 10:25:46 +0100
changeset 19238 48a556523d70
parent 19237 f0c43f38c554
child 19239 da76ef339c48
#REFACTORING by exept class: DebugView changed: #initializeButtons1In: #initializeButtons2In: #initializeButtonsIn:
DebugView.st
--- a/DebugView.st	Thu Oct 31 10:24:38 2019 +0100
+++ b/DebugView.st	Thu Oct 31 10:25:46 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -3603,8 +3605,7 @@
 
     buttonWidth := 170.
     
-    bpanel horizontalLayout:#leftSpace.
-    bpanel verticalLayout:#centerMax.
+    bpanel horizontalLayout:#leftSpace verticalLayout:#centerMax.
     bpanel verticalSpace:ViewSpacing // 2.
 
     self initializeContinueButtonIn:bpanel.
@@ -3647,8 +3648,7 @@
     "/ buttonWidth := 130.
 
     "/ bpanel horizontalLayout:#leftSpaceMax.
-    bpanel horizontalLayout:#leftSpace.
-    bpanel verticalLayout:#centerMax.
+    bpanel horizontalLayout:#leftSpace verticalLayout:#centerMax.
     bpanel verticalSpace:ViewSpacing // 2.
 
     self initializeNextButtonIn:bpanel.
@@ -3713,8 +3713,7 @@
 initializeButtonsIn:bpanel
     |separator|
 
-    bpanel horizontalLayout:#leftSpaceMax.
-    bpanel verticalLayout:#centerMax.
+    bpanel horizontalLayout:#leftSpaceMax verticalLayout:#centerMax.
     bpanel verticalSpace:ViewSpacing // 2.
 
     self initializeAbortButtonIn:bpanel.
@@ -9081,7 +9080,7 @@
                 ]
             ].
 
-            s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ].
+            s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ].
             "/ s infoPrintCR.
             RememberedCallChain notNil ifTrue:[
                 (RememberedCallChain includesIdentical:aContext) ifTrue:[
@@ -10985,7 +10984,7 @@
 
 printConditionOn:aStream
     ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[
-        aStream nextPutAll:(' if called from %1 » %2'
+        aStream nextPutAll:(' if called from %1 » %2'
                                 bindWith:ignoredSendingClassAndSelectors first first
                                 with:ignoredSendingClassAndSelectors first second).
         ^ self.