--- a/AbstractLauncherApplication.st	Thu Feb 28 11:49:05 2002 +0100
+++ b/AbstractLauncherApplication.st	Thu Feb 28 17:18:55 2002 +0100
@@ -4084,7 +4084,7 @@
      component localCheck oldIndent nm fn manager
      showErrorNotifier showVerboseStack
      syntaxColoring fullSelectorCheck autoFormat
-     resources pos currentUserPrefs|
+     resources pos currentUserPrefs checkClassesWhenCheckingIn checkClassesBox|
 
     currentUserPrefs := UserPreferences current.
 
@@ -4132,6 +4132,7 @@
     autoFormat := currentUserPrefs autoFormatting asValue.
 
     sourceCacheDir := nil asValue.
+    checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
 
     "/
     "/ create a box on those values ...
@@ -4222,6 +4223,9 @@
         localCheck := box addCheckBox:(resources string:'if present, use local source (suppress checkout)') on:localSourceFirst.
         localCheck enableChannel:useManager.
 
+        checkClassesBox := box addCheckBox:(resources string:'check for halt/error-messages when checking in') on:checkClassesWhenCheckingIn.
+        checkClassesBox enableChannel:useManager.
+
         box leftIndent:oldIndent.
 
         (AbstractSourceCodeManager isNil 
@@ -4331,6 +4335,8 @@
         currentUserPrefs syntaxColoring:syntaxColoring value.
         currentUserPrefs at:#fullSelectorCheck put:fullSelectorCheck value.
         currentUserPrefs autoFormatting:autoFormat value.
+
+        UserPreferences current at:#checkClassesWhenCheckingIn put:checkClassesWhenCheckingIn value.
     ].
     box destroy
 
@@ -6419,5 +6425,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.192 2002-02-28 10:48:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.193 2002-02-28 16:18:55 cg Exp $'
 ! !