--- a/Launcher.st	Tue Sep 17 11:41:56 1996 +0200
+++ b/Launcher.st	Fri Sep 20 09:36:27 1996 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:2.10.9 on 19-sep-1996 at 22:53:40'                   !
+
 ApplicationModel subclass:#Launcher
 	instanceVariableNames:'myMenu buttonPanel transcript infoView infoProcess helpIsOn
 		isMainLauncher'
@@ -843,7 +845,7 @@
      stcCompilation compilationList stcCompilationOptions stcIncludes stcDefines stcOptions
      stcLibraries stcLibraryPath historyLines sourceMode catchRedefs keepSourceOptions keepSource  
      foldConstants constantFoldingOptions constantFolding justInTimeCompilation
-     warnEnabler check component oldIndent t supportsJustInTimeCompilation|
+     warnEnabler check component oldIndent t supportsJustInTimeCompilation y|
 
     warnings := Compiler warnings asValue.
 
@@ -948,7 +950,7 @@
         component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
         component preferredExtent:(250 @ component preferredExtent y).
 
-        box addVerticalSpace.
+"/        box addVerticalSpace.
 
         component := box 
                         addLabelledInputField:(resources string:'stc defines:')
@@ -959,8 +961,7 @@
         component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
         component preferredExtent:(250 @ component preferredExtent y).
 
-
-        box addVerticalSpace.
+"/        box addVerticalSpace.
 
         component := box 
                         addLabelledInputField:(resources string:'stc options:')
@@ -972,7 +973,7 @@
         component preferredExtent:(250 @ component preferredExtent y).
 
         stcLibraries notNil ifTrue:[
-            box addVerticalSpace.
+"/            box addVerticalSpace.
 
             component := box 
                             addLabelledInputField:(resources string:'stc C-libraries:')
@@ -985,7 +986,7 @@
         ].
 
         stcLibraryPath notNil ifTrue:[
-            box addVerticalSpace.
+"/            box addVerticalSpace.
 
             component := box 
                             addLabelledInputField:(resources string:'stc libPath:')
@@ -997,7 +998,7 @@
             component preferredExtent:(250 @ component preferredExtent y).
         ].
 
-        box addVerticalSpace.
+"/        box addVerticalSpace.
         box addHorizontalLine.
 
         "/ if there is no compiler around,
@@ -1011,29 +1012,37 @@
     box addPopUpList:(resources string:'constant folding:') on:constantFolding.
     constantFolding selectionIndex:( constantFoldingOptions indexOf:(Compiler foldConstants) ifAbsent:1).
 
-    box addVerticalSpace.
+"/    box addVerticalSpace.
     box addCheckBox:(resources string:'allow underscore in identifiers') on:allowUnderscore.
-    box addVerticalSpace.
+"/    box addVerticalSpace.
     box addCheckBox:(resources string:'literal arrays are immutable') on:immutableArrays.
 
     box addHorizontalLine.
 
     box addCheckBox:(resources string:'warnings') on:warnings.
-    box addVerticalSpace.
+"/    box addVerticalSpace.
     oldIndent := box leftIndent.
     box leftIndent:30.
 
+    y := box yPosition.
+
     warnSTXBox := box addCheckBox:(resources string:'ST/X language extensions') on:warnSTX.
-    box addVerticalSpace.
+    warnSTXBox width:0.4.
+"/    box addVerticalSpace.
 
     warnUnderscoreBox := box addCheckBox:(resources string:'underscores in identifiers') on:warnUnderscore.
-    box addVerticalSpace.
-
+    warnUnderscoreBox width:0.4.
+"/    box addVerticalSpace.
+
+    box yPosition:y.
+    box leftIndent:0.
     warnOldStyleBox := box addCheckBox:(resources string:'oldStyle assignment') on:warnOldStyle.
-    box addVerticalSpace.
+    warnOldStyleBox left:0.5; width:0.4.
+"/    box addVerticalSpace.
 
     warnCommonMistakesBox := box addCheckBox:(resources string:'common mistakes') on:warnCommonMistakes.
-    box addVerticalSpace.
+    warnCommonMistakesBox left:0.5; width:0.4.
+"/    box addVerticalSpace.
 
     box leftIndent:oldIndent.
 
@@ -1086,8 +1095,8 @@
     box destroy
 
     "Modified: 10.9.1995 / 19:19:18 / claus"
-    "Modified: 30.8.1996 / 01:51:17 / cg"
     "Modified: 9.9.1996 / 22:42:47 / stefan"
+    "Modified: 19.9.1996 / 22:51:17 / cg"
 !
 
 displaySettings
@@ -3467,5 +3476,5 @@
 !Launcher  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.189 1996-09-14 11:30:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.190 1996-09-20 07:36:27 cg Exp $'
 ! !