--- 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 $'
! !