#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Mon, 12 Nov 2018 19:01:03 +0100
changeset 18524 d12348dd1014
parent 18523 c6718fc416d8
child 18525 de9b7b5fc8ba
#UI_ENHANCEMENT by cg class: DebugView changed: #initializeButtons1In: #initializeButtons2In:
DebugView.st
--- 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