*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 26 Feb 1998 02:59:21 +0100
changeset 1492 b703e42a7bd0
parent 1491 fa75bbd0aee9
child 1493 3a714097f19d
*** empty log message ***
Launcher.st
--- a/Launcher.st	Thu Feb 26 02:55:30 1998 +0100
+++ b/Launcher.st	Thu Feb 26 02:59:21 1998 +0100
@@ -1662,9 +1662,7 @@
     component := box addTextLabel:('(mm)').
     component width:0.1; left:0.9; adjust:#center; borderWidth:0.
 
-    box addVerticalSpace.
-    box addHorizontalLine.
-    box addVerticalSpace.
+    box addVerticalSpace; addHorizontalLine; addVerticalSpace.
 
     (box addTextLabel:(resources string:'Screen: depth: %1 visual: %2  (%3)'
 				 with:Screen current depth printString
@@ -1672,9 +1670,7 @@
 				 with:Screen current serverVendor))
 	adjust:#left.
 
-    box addVerticalSpace.
-    box addHorizontalLine.
-    box addVerticalSpace.
+    box addVerticalSpace; addHorizontalLine; addVerticalSpace.
 
     box addCheckBox:(resources string:'color monitor') on:isColorMonitor.
 
@@ -1696,9 +1692,7 @@
     box addVerticalSpace.
     box addCheckBox:(resources string:'allow colored/grayscale icons') on:deepIcons.
 
-    box addVerticalSpace.
-    box addHorizontalLine.
-    box addVerticalSpace.
+    box addVerticalSpace; addHorizontalLine; addVerticalSpace.
 
     component := box addPopUpList:(resources string:'clipBoard encoding:') on:clipEncodingList.
     component superView horizontalLayout:#leftSpace.
@@ -2400,9 +2394,8 @@
     ].
 
     commandListPop list:commandList.
-    box addVerticalSpace.
-    box addHorizontalLine.
-    box addVerticalSpace.
+
+    box addVerticalSpace; addHorizontalLine; addVerticalSpace.
 
     row := OrderedCollection new.
     row add:(formatLabel := Label label:(resources string:'page format:')).
@@ -2440,9 +2433,7 @@
     box makeTabable:(formatComponent).
     box makeTabable:(landscapeComponent).
 
-    box addVerticalSpace.
-    box addHorizontalLine.
-    box addVerticalSpace.
+    box addVerticalSpace; addHorizontalLine; addVerticalSpace.
 
     y := box yPosition.
 
@@ -4810,9 +4801,8 @@
 
 	box leftIndent:i.
 	box yPosition:(box yPosition max:y2).
-	box addVerticalSpace.
-	box addHorizontalLine.
-	box addVerticalSpace.
+
+        box addVerticalSpace; addHorizontalLine; addVerticalSpace.
 
 	b action:[
 	    |f|
@@ -4997,5 +4987,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.316 1998-02-05 23:03:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.317 1998-02-26 01:59:21 cg Exp $'
 ! !