UserPreferences.st
branchjv
changeset 17912 80eb31a5a622
parent 17911 a99f15c5efa5
child 17914 fc66d64c0fac
--- a/UserPreferences.st	Thu Jan 19 11:46:00 2012 +0000
+++ b/UserPreferences.st	Sun Jan 22 23:07:15 2012 +0000
@@ -811,18 +811,6 @@
     "
 !
 
-flyByHelpActive
-
-    ^ self at:#flyByHelpActive ifAbsent:true "(FlyByHelp notNil and:[FlyByHelp isActive])"
-!
-
-flyByHelpActive:aBoolean
-    aBoolean ~~ self flyByHelpActive ifTrue:[
-	self at:#flyByHelpActive put:aBoolean.
-	self flyByHelpSettingChanged.
-    ].
-!
-
 inspectorClassSetting
     self useNewInspector ifTrue:[
 	^ (NewInspector::NewInspectorView ? InspectorView)
@@ -833,67 +821,6 @@
     "Created: / 12.11.2001 / 15:49:00 / cg"
 !
 
-nativeDialogs
-    ^ self at:#nativeDialogs ifAbsent:false
-
-    "Created: / 24-08-2010 / 17:01:47 / sr"
-!
-
-nativeDialogs:aBoolean
-    |currentScreen|
-
-    self at:#nativeDialogs put:aBoolean.
-    currentScreen := Screen current.
-    currentScreen notNil ifTrue:[
-        currentScreen supportsNativeDialogs ifTrue:[
-            currentScreen nativeDialogs:aBoolean
-        ].
-    ].
-
-    "Modified: / 24-08-2010 / 18:06:43 / sr"
-!
-
-nativeFileDialogs
-    ^ self at:#nativeFileDialogs ifAbsent:false
-
-    "Created: / 24-08-2010 / 17:01:59 / sr"
-!
-
-nativeFileDialogs:aBoolean
-    |currentScreen|
-
-    self at:#nativeFileDialogs put:aBoolean.
-    currentScreen := Screen current.
-    currentScreen notNil ifTrue:[
-        currentScreen supportsNativeFileDialogs ifTrue:[
-            currentScreen nativeFileDialogs:aBoolean
-        ].
-    ].
-
-    "Modified: / 24-08-2010 / 18:06:27 / sr"
-!
-
-nativeWidgets
-    ^ self at:#nativeWidgets ifAbsent:false
-
-    "Created: / 24-08-2010 / 16:58:44 / sr"
-!
-
-nativeWidgets:aBoolean
-    |currentScreen|
-
-    self at:#nativeWidgets put:aBoolean.
-    currentScreen := Screen current.
-    currentScreen notNil ifTrue:[
-        currentScreen supportsNativeWidgets ifTrue:[
-            currentScreen nativeWidgets:aBoolean
-        ].
-    ].
-
-    "Created: / 24-08-2010 / 16:58:14 / sr"
-    "Modified: / 24-08-2010 / 18:05:56 / sr"
-!
-
 showTipOfTheDayAtStartup
     ^ self at:#showTipOfTheDayAtStartup ifAbsent:false
 !
@@ -1359,6 +1286,18 @@
     "
 !
 
+flyByHelpActive
+
+    ^ self at:#flyByHelpActive ifAbsent:true "(FlyByHelp notNil and:[FlyByHelp isActive])"
+!
+
+flyByHelpActive:aBoolean
+    aBoolean ~~ self flyByHelpActive ifTrue:[
+	self at:#flyByHelpActive put:aBoolean.
+	self flyByHelpSettingChanged.
+    ].
+!
+
 focusFollowsMouse
     "return the flag which controls if the keyboard focus should
      follow the mouse (as in X) - as opposed to click mode (as in MS-win).
@@ -1433,6 +1372,67 @@
     "
 !
 
+nativeDialogs
+    ^ self at:#nativeDialogs ifAbsent:false
+
+    "Created: / 24-08-2010 / 17:01:47 / sr"
+!
+
+nativeDialogs:aBoolean
+    |currentScreen|
+
+    self at:#nativeDialogs put:aBoolean.
+    currentScreen := Screen current.
+    currentScreen notNil ifTrue:[
+        currentScreen supportsNativeDialogs ifTrue:[
+            currentScreen nativeDialogs:aBoolean
+        ].
+    ].
+
+    "Modified: / 24-08-2010 / 18:06:43 / sr"
+!
+
+nativeFileDialogs
+    ^ self at:#nativeFileDialogs ifAbsent:false
+
+    "Created: / 24-08-2010 / 17:01:59 / sr"
+!
+
+nativeFileDialogs:aBoolean
+    |currentScreen|
+
+    self at:#nativeFileDialogs put:aBoolean.
+    currentScreen := Screen current.
+    currentScreen notNil ifTrue:[
+        currentScreen supportsNativeFileDialogs ifTrue:[
+            currentScreen nativeFileDialogs:aBoolean
+        ].
+    ].
+
+    "Modified: / 24-08-2010 / 18:06:27 / sr"
+!
+
+nativeWidgets
+    ^ self at:#nativeWidgets ifAbsent:false
+
+    "Created: / 24-08-2010 / 16:58:44 / sr"
+!
+
+nativeWidgets:aBoolean
+    |currentScreen|
+
+    self at:#nativeWidgets put:aBoolean.
+    currentScreen := Screen current.
+    currentScreen notNil ifTrue:[
+        currentScreen supportsNativeWidgets ifTrue:[
+            currentScreen nativeWidgets:aBoolean
+        ].
+    ].
+
+    "Created: / 24-08-2010 / 16:58:14 / sr"
+    "Modified: / 24-08-2010 / 18:05:56 / sr"
+!
+
 opaqueTableColumnResizing
     "return the flag which controls if table column resizing should be done
      animated (opaque)"
@@ -3344,22 +3344,6 @@
     "Created: / 15-05-2007 / 13:29:31 / cg"
 !
 
-buildDirectory
-    ^ self at:#buildDirectory ifAbsent:nil
-
-    "
-     UserPreferences current buildDirectory
-    "
-!
-
-buildDirectory:aFilenameStringOrNil
-    ^ self at:#buildDirectory put:aFilenameStringOrNil
-
-    "
-     UserPreferences current buildDirectory
-    "
-!
-
 editToolbarVisibleInWorkspace
     "return the flag which defaults the edit-toolbar-visibility in a workspace application"
 
@@ -3401,22 +3385,6 @@
     "Created: / 14-07-2007 / 16:43:44 / cg"
 !
 
-localBuild
-    ^ self at:#localBuild ifAbsent:true
-
-    "Created: / 20-09-2006 / 23:55:01 / cg"
-!
-
-localBuild:aBoolean
-    ^ self at:#localBuild put:aBoolean
-
-    "
-     UserPreferences current localBuild
-    "
-
-    "Created: / 20-09-2006 / 23:55:26 / cg"
-!
-
 showClockInLauncher
     "return the flag which controls if a clock is shown in the launcher"
 
@@ -3506,6 +3474,65 @@
     ^ self at:#verboseBacktraceInDebugger put:aBoolean
 ! !
 
+!UserPreferences methodsFor:'accessing-prefs-tools-building'!
+
+buildDirectory
+    ^ self at:#buildDirectory ifAbsent:nil
+
+    "
+     UserPreferences current buildDirectory
+    "
+!
+
+buildDirectory:aFilenameStringOrNil
+    ^ self at:#buildDirectory put:aFilenameStringOrNil
+
+    "
+     UserPreferences current buildDirectory
+    "
+!
+
+localBuild
+    "deployment-build in  a local directory (as opposed to making via the repository)"
+
+    ^ self at:#localBuild ifAbsent:true
+
+    "Created: / 20-09-2006 / 23:55:01 / cg"
+!
+
+localBuild:aBoolean
+    "deployment-build in  a local directory (as opposed to making via the repository)"
+
+    ^ self at:#localBuild put:aBoolean
+
+    "
+     UserPreferences current localBuild
+    "
+
+    "Created: / 20-09-2006 / 23:55:26 / cg"
+!
+
+usedCompilerForBuild
+    ^ self at:#usedCompilerForBuild ifAbsent:nil
+
+    "
+     UserPreferences current usedCompilerForBuild
+    "
+
+    "Created: / 22-01-2012 / 10:52:47 / cg"
+!
+
+usedCompilerForBuild:aString
+    ^ self at:#usedCompilerForBuild put:aString
+
+    "
+     UserPreferences current usedCompilerForBuild
+     UserPreferences current usedCompilerForBuild:'bcc'
+    "
+
+    "Created: / 22-01-2012 / 10:52:59 / cg"
+! !
+
 !UserPreferences methodsFor:'accessing-scm'!
 
 showBadRevisionStringDialogs
@@ -3744,16 +3771,17 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.295 2012/01/18 09:59:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.296 2012/01/22 10:07:42 cg Exp $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.295 2012/01/18 09:59:52 cg Exp '
+    ^ 'Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.296 2012/01/22 10:07:42 cg Exp '
 !
 
 version_SVN
-    ^ '$Id: UserPreferences.st 10761 2012-01-19 11:46:00Z vranyj1 $'
+    ^ '$Id: UserPreferences.st 10763 2012-01-22 23:07:15Z vranyj1 $'
 ! !
 
 
 
+