--- a/Launcher.st	Wed Jul 17 20:44:34 1996 +0200
+++ b/Launcher.st	Thu Jul 18 10:39:12 1996 +0200
@@ -820,7 +820,7 @@
 
 compilerSettings
     |box warnings warnSTX warnUnderscore warnOldStyle allowUnderscore immutableArrays
-     warnSTXBox warnUnderscoreBox warnOldStyleBox 
+     warnSTXBox warnUnderscoreBox warnOldStyleBox warnCommonMistakes warnCommonMistakesBox
      stcCompilation compilationList stcCompilationOptions stcIncludes stcDefines stcOptions
      stcLibraries historyLines sourceMode catchRedefs keepSourceOptions keepSource  
      foldConstants constantFoldingOptions constantFolding
@@ -831,6 +831,7 @@
     warnSTX := Compiler warnSTXSpecials asValue.
     warnUnderscore := Compiler warnUnderscoreInIdentifier asValue.
     warnOldStyle := Compiler warnOldStyleAssignment asValue.
+    warnCommonMistakes := Compiler warnCommonMistakes asValue.
     allowUnderscore := Compiler allowUnderscoreInIdentifier asValue.
     immutableArrays := Compiler arraysAreImmutable asValue.
 
@@ -860,6 +861,7 @@
               warnings value ifTrue:[
                 warnSTXBox enable. 
                 warnOldStyleBox enable.
+                warnCommonMistakesBox enable.
                 allowUnderscore value ifTrue:[
                     warnUnderscoreBox enable.
                 ] ifFalse:[
@@ -869,6 +871,7 @@
                 warnSTXBox disable. 
                 warnUnderscoreBox disable.
                 warnOldStyleBox disable.
+                warnCommonMistakesBox disable.
               ]].
 
     warnings onChangeSend:#value to:warnEnabler.
@@ -979,12 +982,19 @@
     box addVerticalSpace.
     oldIndent := box leftIndent.
     box leftIndent:30.
+
     warnSTXBox := box addCheckBox:(resources string:'ST/X language extensions') on:warnSTX.
     box addVerticalSpace.
+
     warnUnderscoreBox := box addCheckBox:(resources string:'underscores in identifiers') on:warnUnderscore.
     box addVerticalSpace.
+
     warnOldStyleBox := box addCheckBox:(resources string:'oldStyle assignment') on:warnOldStyle.
     box addVerticalSpace.
+
+    warnCommonMistakesBox := box addCheckBox:(resources string:'common (beginners) mistakes') on:warnCommonMistakes.
+    box addVerticalSpace.
+
     box leftIndent:oldIndent.
 
     box 
@@ -1009,6 +1019,7 @@
         Compiler warnSTXSpecials:warnSTX value.
         Compiler warnOldStyleAssignment:warnOldStyle value.
         Compiler warnUnderscoreInIdentifier:warnUnderscore value.
+        Compiler warnCommonMistakes:warnCommonMistakes value.
         Compiler allowUnderscoreInIdentifier:allowUnderscore value.
         Compiler arraysAreImmutable:immutableArrays value.
         Compiler stcCompilation:(stcCompilationOptions at:stcCompilation selectionIndex).
@@ -1023,7 +1034,7 @@
     box destroy
 
     "Modified: 10.9.1995 / 19:19:18 / claus"
-    "Modified: 31.5.1996 / 22:54:29 / cg"
+    "Modified: 18.7.1996 / 10:37:38 / cg"
 !
 
 displaySettings
@@ -3300,5 +3311,5 @@
 !NewLauncher  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.171 1996-07-17 10:08:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.172 1996-07-18 08:39:12 cg Exp $'
 ! !