--- a/AbstractSettingsApplication.st	Tue Oct 14 09:57:41 2003 +0200
+++ b/AbstractSettingsApplication.st	Tue Oct 14 10:03:54 2003 +0200
@@ -7270,19 +7270,14 @@
 
 !AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
 
-stcCompilationDemoStrings
-
-    ^ #('never')
-!
-
-stcCompilationFullVersionStrings
-
-    ^ #('always' 'primitive code only' 'never')
-!
-
 stcCompilationOptions
 
-    ^ #( always default never)
+    ^ #(default never)
+!
+
+stcCompilationStrings
+
+    ^ #('primitive code only' 'never')
 ! !
 
 !AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
@@ -7714,13 +7709,10 @@
             self stcLibraryPath value:t
         ]
     ].
-    self thisIsADemoVersion ifTrue:[
-        self stcCompilationSelection value:(self class stcCompilationOptions 
-                    indexOf:(Compiler stcCompilation)
-                    ifAbsent:2)
-    ] ifFalse:[
-        self stcCompilationSelection value:2
-    ].
+
+    self stcCompilationSelection value:(self class stcCompilationOptions 
+             indexOf:(Compiler stcCompilation)
+             ifAbsent:1).
     self modifiedChannel value:false
 ! !
 
@@ -7787,11 +7779,7 @@
 stcCompilationList
 
     stcCompilationList isNil ifTrue:[
-        self thisIsADemoVersion ifTrue:[
-            stcCompilationList := (resources array:(self class stcCompilationDemoStrings)) asList.
-        ] ifFalse:[
-            stcCompilationList := (resources array:(self class stcCompilationFullVersionStrings)) asList.
-        ]
+        stcCompilationList := (resources array:(self class stcCompilationStrings)) asList.
     ].
     ^ stcCompilationList.
 !
@@ -7799,11 +7787,7 @@
 stcCompilationSelection
 
     stcCompilationSelection isNil ifTrue:[
-        self thisIsADemoVersion ifTrue:[
-            stcCompilationSelection := (self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2) asValue.
-        ] ifFalse:[
-            stcCompilationSelection := 2 asValue.
-        ].
+       stcCompilationSelection := (self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:1) asValue.
         stcCompilationSelection onChangeSend:#updateModifiedChannel to:self.
     ].
     ^ stcCompilationSelection.
@@ -7880,11 +7864,6 @@
             ])]) 
         ]]]]]]]]]]] 
     )
-!
-
-thisIsADemoVersion
-
-    ^ Smalltalk releaseIdentification = 'ST/X_free_demo_vsn'
 ! !
 
 !AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
@@ -10927,5 +10906,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.111 2003-09-24 15:48:53 penk Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.112 2003-10-14 08:03:54 mb Exp $'
+! !