--- a/AbstractSettingsApplication.st	Fri Sep 16 18:37:16 2011 +0200
+++ b/AbstractSettingsApplication.st	Fri Sep 16 18:48:11 2011 +0200
@@ -250,7 +250,8 @@
 AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
 	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs
 		canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
-		stcCompilationSelection stcCompilationList makeCommand'
+		stcCompilationSelection stcCompilationList makeCommand
+		stcKeepCIntermediate'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:AbstractSettingsApplication
@@ -11106,7 +11107,7 @@
           label: 'STC Compiler Settings'
           name: 'STC Compiler Settings'
           min: (Point 10 10)
-          bounds: (Rectangle 0 0 600 478)
+          bounds: (Rectangle 0 0 600 602)
         )
         component: 
        (SpecCollection
@@ -11226,6 +11227,31 @@
                     extent: (Point 600 30)
                   )
                  (ViewSpec
+                    name: 'Box2'
+                    component: 
+                   (SpecCollection
+                      collection: (
+                       (LabelSpec
+                          label: 'Keep Intermediate C File:'
+                          name: 'Label15'
+                          layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+                          translateLabel: true
+                          adjust: right
+                        )
+                       (CheckToggleSpec
+                          name: 'CheckToggle1'
+                          layout: (LayoutOrigin 203 0 4 0)
+                          model: stcKeepCIntermediate
+                          isTriggerOnDown: true
+                          showLamp: false
+                          lampColor: (Color 100.0 100.0 0.0)
+                        )
+                       )
+                     
+                    )
+                    extent: (Point 600 30)
+                  )
+                 (ViewSpec
                     name: 'CCCommandBox3'
                     component: 
                    (SpecCollection
@@ -11525,6 +11551,7 @@
     self stcIncludes value:ParserFlags stcCompilationIncludes.
     self stcDefines value:ParserFlags stcCompilationDefines.
     self stcOptions value:ParserFlags stcCompilationOptions.
+    self stcKeepCIntermediate value:ParserFlags stcKeepCIntermediate.
     self ccOptions value:ParserFlags ccCompilationOptions.
     self cc value:ParserFlags ccPath.
     self stc value:ParserFlags stcPath.
@@ -11546,6 +11573,7 @@
              ifAbsent:1).
 
     "Modified: / 09-08-2006 / 18:49:38 / fm"
+    "Modified: / 16-09-2011 / 18:45:15 / cg"
 !
 
 basicSaveSettings
@@ -11554,6 +11582,7 @@
     ParserFlags stcCompilationIncludes:self stcIncludes value.
     ParserFlags stcCompilationDefines:self stcDefines value.
     ParserFlags stcCompilationOptions:self stcOptions value.
+    ParserFlags stcKeepCIntermediate:self stcKeepCIntermediate value.
     ParserFlags ccCompilationOptions:self ccOptions value.
     ParserFlags ccPath:self cc value.
     ParserFlags makeCommand:self makeCommand value.
@@ -11572,6 +11601,7 @@
     ].
 
     "Modified: / 09-08-2006 / 19:33:10 / fm"
+    "Modified: / 16-09-2011 / 18:45:28 / cg"
 ! !
 
 !AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
@@ -11689,6 +11719,16 @@
     ^ stcIncludes.
 !
 
+stcKeepCIntermediate
+    stcKeepCIntermediate isNil ifTrue:[
+        stcKeepCIntermediate := false asValue.
+        stcKeepCIntermediate onChangeSend:#updateModifiedChannel to:self.
+    ].
+    ^ stcKeepCIntermediate.
+
+    "Created: / 16-09-2011 / 18:42:10 / cg"
+!
+
 stcLibraries
 
     stcLibraries isNil ifTrue:[
@@ -11736,11 +11776,13 @@
 hasUnsavedChanges
     | searchedLibs |
 
+    ((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true].
+
     ((ParserFlags stcCompilation ? #default) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) ifTrue:[^ true].
-    ((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true].
     ((ParserFlags stcCompilationIncludes) ~= self stcIncludes value) ifTrue:[^ true].
     ((ParserFlags stcCompilationDefines) ~= self stcDefines value) ifTrue:[^ true].
     ((ParserFlags stcCompilationOptions) ~= self stcOptions value) ifTrue:[^ true].
+    ((ParserFlags stcKeepCIntermediate) ~= self stcKeepCIntermediate value) ifTrue:[^ true].
     ((ParserFlags ccCompilationOptions) ~= self ccOptions value) ifTrue:[^ true].
     ((ParserFlags ccPath) ~= self cc value) ifTrue:[^ true].
     ((ParserFlags stcPath) ~= self stc value) ifTrue:[^ true].
@@ -11757,6 +11799,7 @@
     ^ false.
 
     "Modified: / 09-08-2006 / 18:50:36 / fm"
+    "Modified: / 16-09-2011 / 18:42:00 / cg"
 ! !
 
 !AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
@@ -16285,9 +16328,9 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.403 2011-09-16 16:20:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.404 2011-09-16 16:48:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.403 2011-09-16 16:20:29 cg Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.404 2011-09-16 16:48:11 cg Exp $'
+! !