--- a/AbstractSettingsApplication.st	Thu Sep 25 10:34:51 2008 +0200
+++ b/AbstractSettingsApplication.st	Thu Sep 25 10:35:09 2008 +0200
@@ -195,7 +195,7 @@
 AbstractSettingsApplication subclass:#SQLServerSettingsAppl
 	instanceVariableNames:'sqlServerEnabled sqlSmalltalkServerEnabled sqlLogging
 		sqlDataLogging sqlErrorLogging hasSQLServer sqlErrorDebugging
-		sqlServerPort'
+		sqlServerPort sqlStatementLogging'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:AbstractSettingsApplication
@@ -8933,6 +8933,24 @@
                     extent: (Point 600 25)
                   )
                  (ViewSpec
+                    name: 'LogDataBox'
+                    component: 
+                   (SpecCollection
+                      collection: (
+                       (CheckBoxSpec
+                          label: 'Log Data'
+                          name: 'LogDataCheckBox'
+                          layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+                          enableChannel: sqlServerEnabled
+                          model: sqlDataLogging
+                          translateLabel: true
+                        )
+                       )
+                     
+                    )
+                    extent: (Point 600 23)
+                  )
+                 (ViewSpec
                     name: 'LogRequestsBox'
                     component: 
                    (SpecCollection
@@ -8951,22 +8969,22 @@
                     extent: (Point 600 24)
                   )
                  (ViewSpec
-                    name: 'LogDataBox'
+                    name: 'LogSQLBox'
                     component: 
                    (SpecCollection
                       collection: (
                        (CheckBoxSpec
-                          label: 'Log Data'
-                          name: 'LogDataCheckBox'
+                          label: 'Log SQL'
+                          name: 'CheckBox1'
                           layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
                           enableChannel: sqlServerEnabled
-                          model: sqlDataLogging
-                          translateLabel: true
-                        )
-                       )
-                     
-                    )
-                    extent: (Point 600 23)
+                          model: sqlStatementLogging
+                          translateLabel: true
+                        )
+                       )
+                     
+                    )
+                    extent: (Point 600 24)
                   )
                  (ViewSpec
                     name: 'DebugErrorsBox'
@@ -9016,8 +9034,6 @@
          
         )
       )
-
-    "Modified: / 25-01-2007 / 17:48:20 / cg"
 ! !
 
 !AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'actions'!
@@ -9030,6 +9046,7 @@
         self sqlServerEnabled value:sqlServerClass serverRunning.
         self sqlSmalltalkServerEnabled value:sqlServerClass isSmalltalkServerEnabled.
         self sqlLogging value:sqlServerClass isLogging.
+        self sqlStatementLogging value:sqlServerClass isSQLLogging.
         self sqlErrorLogging value:sqlServerClass isErrorLogging.
         self sqlDataLogging value:sqlServerClass isDataLogging.
         self sqlErrorDebugging value:sqlServerClass isErrorCatching not.
@@ -9038,6 +9055,7 @@
         self sqlServerEnabled value:false.
         self sqlSmalltalkServerEnabled value:false.
         self sqlLogging value:false.
+        self sqlStatementLogging value:false.
         self sqlErrorLogging value:false.
         self sqlDataLogging value:false.
         self sqlErrorDebugging value:false.
@@ -9059,6 +9077,7 @@
 
     sqlServerClass defaultPort:port.
     sqlServerClass logging:self sqlLogging value.
+    sqlServerClass sqlLogging:self sqlStatementLogging value.
     sqlServerClass errorLogging:self sqlErrorLogging value.
     sqlServerClass dataLogging:self sqlDataLogging value.
     sqlServerClass errorCatching:(self sqlErrorDebugging value not).
@@ -9142,6 +9161,14 @@
         sqlSmalltalkServerEnabled onChangeSend:#sqlSmalltalkServerEnabledChanged to:self
     ].
     ^ sqlSmalltalkServerEnabled.
+!
+
+sqlStatementLogging
+    sqlStatementLogging isNil ifTrue:[
+        sqlStatementLogging := true asValue.
+        sqlStatementLogging onChangeSend:#updateModifiedChannel to:self
+    ].
+    ^ sqlStatementLogging.
 ! !
 
 !AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'change & update'!
@@ -9186,6 +9213,7 @@
     sqlServerClass serverRunning ifTrue:[
         self sqlSmalltalkServerEnabled value ~= sqlServerClass isSmalltalkServerEnabled ifTrue:[^ true].
         self sqlLogging value ~= sqlServerClass isLogging ifTrue:[^ true].
+        self sqlStatementLogging value ~= sqlServerClass isSQLLogging ifTrue:[^ true].
         self sqlErrorLogging value ~= sqlServerClass isErrorLogging ifTrue:[^ true].
         self sqlDataLogging value ~= sqlServerClass isDataLogging ifTrue:[^ true].
         self sqlErrorDebugging value ~= sqlServerClass isErrorCatching not ifTrue:[^ true].
@@ -14718,5 +14746,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.301 2008-09-22 11:31:21 cg Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.302 2008-09-25 08:35:09 cg Exp $'
+! !