#REFACTORING by exept
class: DebugView
changed:
#initializeButtons1In:
#initializeButtons2In:
#initializeButtonsIn:
--- 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.