#UI_ENHANCEMENT by cg
class: DebugView
changed:
#initializeButtons1In:
#initializeButtons2In:
--- a/DebugView.st Sun Nov 11 12:24:42 2018 +0100
+++ b/DebugView.st Mon Nov 12 19:01:03 2018 +0100
@@ -3174,7 +3174,8 @@
!
initializeButtons1In:bpanel
- "creates the top button row, consisting of 'continue', 'abort', 'terminate'..."
+ "creates the top button row,
+ consisting of 'continue', 'abort', 'terminate'..."
|separator buttonWidth|
@@ -3185,12 +3186,12 @@
bpanel verticalSpace:ViewSpacing // 2.
self initializeContinueButtonIn:bpanel.
- continueButton width:buttonWidth.
+ buttonWidth notNil ifTrue:[continueButton width:buttonWidth].
"/ separator := View extent:(10 @ 5) in:bpanel.
"/ separator borderWidth:0; level:0.
self initializeAbortButtonIn:bpanel.
- abortButton width:buttonWidth.
+ buttonWidth notNil ifTrue:[abortButton width:buttonWidth].
separator := View extent:(100 @ 5) in:bpanel.
separator borderWidth:0; level:0.
@@ -3212,28 +3213,30 @@
].
"Modified: / 30-11-2017 / 12:10:13 / cg"
- "Modified: / 29-07-2018 / 19:35:03 / Claus Gittinger"
+ "Modified: / 12-11-2018 / 09:52:04 / Claus Gittinger"
!
initializeButtons2In:bpanel
- "creates the second button row, consisting of 'next', 'step', 'return'..."
+ "creates the second button row,
+ consisting of 'next', 'step', 'return'..."
|separator buttonWidth|
- buttonWidth := 130.
-
- bpanel horizontalLayout:#leftSpaceMax.
+ "/ buttonWidth := 130.
+
+ "/ bpanel horizontalLayout:#leftSpaceMax.
+ bpanel horizontalLayout:#leftSpace.
bpanel verticalLayout:#centerMax.
bpanel verticalSpace:ViewSpacing // 2.
self initializeNextButtonIn:bpanel.
- nextButton width:buttonWidth.
+ buttonWidth notNil ifTrue:[nextButton width:buttonWidth].
self initializeStepButtonIn:bpanel.
- stepButton width:buttonWidth.
+ buttonWidth notNil ifTrue:[stepButton width:buttonWidth].
self initializeStepInButtonIn:bpanel.
- stepInButton width:buttonWidth.
+ buttonWidth notNil ifTrue:[stepInButton width:buttonWidth].
"/ cg:
"/ I disabled the stepIn / stepOut buttons - for now.
@@ -3269,20 +3272,20 @@
"/ in:bpanel.
self initializeSendButtonIn:bpanel.
- sendButton width:buttonWidth.
+ buttonWidth notNil ifTrue:[sendButton width:buttonWidth].
separator := View extent:(30 @ 5) in:bpanel.
separator borderWidth:0; level:0.
self initializeReturnButtonIn:bpanel.
- returnButton width:buttonWidth.
+ buttonWidth notNil ifTrue:[returnButton width:buttonWidth].
self initializeRestartButtonIn:bpanel.
- restartButton width:buttonWidth.
+ buttonWidth notNil ifTrue:[restartButton width:buttonWidth].
self initializeResendButtonIn:bpanel.
- resendButton width:buttonWidth.
+ buttonWidth notNil ifTrue:[resendButton width:buttonWidth].
"Modified: / 18-06-2010 / 08:32:05 / cg"
- "Modified: / 28-07-2018 / 11:56:44 / Claus Gittinger"
+ "Modified: / 12-11-2018 / 19:00:34 / Claus Gittinger"
!
initializeButtonsIn:bpanel