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