--- 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 $'
! !
+