equal
deleted
inserted
replaced
240 ) |
240 ) |
241 |
241 |
242 "Modified: / 08-09-2006 / 16:07:36 / cg" |
242 "Modified: / 08-09-2006 / 16:07:36 / cg" |
243 ! ! |
243 ! ! |
244 |
244 |
|
245 !UserPreferences class methodsFor:'accessing - defaults'! |
|
246 |
|
247 defaultUserSettingsFile |
|
248 ^ (Filename homeDirectory construct:'.smalltalk') construct:'settings.rc' |
|
249 |
|
250 "Created: / 06-10-2008 / 08:27:15 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
251 ! ! |
|
252 |
245 !UserPreferences class methodsFor:'accessing defaultPrefs'! |
253 !UserPreferences class methodsFor:'accessing defaultPrefs'! |
246 |
254 |
247 defaultSettingsFilename |
255 defaultSettingsFilename |
248 ^ 'settings.stx' |
256 ^ 'settings.stx' |
249 ! |
257 ! |
624 ^ super at:key put:value |
632 ^ super at:key put:value |
625 |
633 |
626 "Modified: / 02-11-2010 / 00:00:10 / cg" |
634 "Modified: / 02-11-2010 / 00:00:10 / cg" |
627 ! ! |
635 ! ! |
628 |
636 |
|
637 |
629 !UserPreferences methodsFor:'accessing-misc-communication'! |
638 !UserPreferences methodsFor:'accessing-misc-communication'! |
630 |
639 |
631 dotNetBridgeRunsInIDE |
640 dotNetBridgeRunsInIDE |
632 "a debugging flag: if true, the dotNetBridge is assumed to be |
641 "a debugging flag: if true, the dotNetBridge is assumed to be |
633 already running and the bridge-exe will not be started by st/x" |
642 already running and the bridge-exe will not be started by st/x" |
733 ! |
742 ! |
734 |
743 |
735 soapLoggingLevel:anIntegerBetween0_and_3 |
744 soapLoggingLevel:anIntegerBetween0_and_3 |
736 ^ self at:#soapLoggingLevel put:anIntegerBetween0_and_3 |
745 ^ self at:#soapLoggingLevel put:anIntegerBetween0_and_3 |
737 ! ! |
746 ! ! |
|
747 |
738 |
748 |
739 !UserPreferences methodsFor:'accessing-pref''d tools'! |
749 !UserPreferences methodsFor:'accessing-pref''d tools'! |
740 |
750 |
741 changesBrowserClass |
751 changesBrowserClass |
742 self useNewChangesBrowser ifTrue:[ |
752 self useNewChangesBrowser ifTrue:[ |
1491 |
1501 |
1492 toolTipAutoHideDelay:aTimeDuration |
1502 toolTipAutoHideDelay:aTimeDuration |
1493 "set the time, tooltips are shown. Nil means: dont hide" |
1503 "set the time, tooltips are shown. Nil means: dont hide" |
1494 |
1504 |
1495 self at:#toolTipAutoHideDelay put:aTimeDuration. |
1505 self at:#toolTipAutoHideDelay put:aTimeDuration. |
1496 FlyByHelp showTime:aTimeDuration asSeconds. |
1506 FlyByHelp showTime: (aTimeDuration isInteger ifTrue:[aTimeDuration] ifFalse:[aTimeDuration asSeconds]). |
1497 |
1507 |
1498 " |
1508 " |
1499 UserPreferences current toolTipAutoHideDelay:10 seconds |
1509 UserPreferences current toolTipAutoHideDelay:10 seconds |
1500 " |
1510 " |
1501 |
1511 |
1502 "Created: / 10-11-2010 / 12:09:33 / cg" |
1512 "Created: / 10-11-2010 / 12:09:33 / cg" |
|
1513 "Modified: / 07-03-2011 / 23:56:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1503 ! |
1514 ! |
1504 |
1515 |
1505 waitCursorVisibleTime |
1516 waitCursorVisibleTime |
1506 "anser the time (in ms), how long a wait cursor should be visible at least" |
1517 "anser the time (in ms), how long a wait cursor should be visible at least" |
1507 |
1518 |
1882 ^ emp |
1893 ^ emp |
1883 |
1894 |
1884 " |
1895 " |
1885 self allInstancesDo:[:pref |pref at:#emphasisForModifiedBuffer put:nil]. |
1896 self allInstancesDo:[:pref |pref at:#emphasisForModifiedBuffer put:nil]. |
1886 " |
1897 " |
|
1898 ! |
|
1899 |
|
1900 emphasisForNamespacedCode |
|
1901 "the emphasis for changed code (in changeSet) in the browser" |
|
1902 |
|
1903 |emp| |
|
1904 |
|
1905 emp := self at:#emphasisForNamespacedCode ifAbsent:nil. |
|
1906 emp isNil ifTrue:[ |
|
1907 emp := #color->Color green darkened. |
|
1908 "/ emp := Array with:#bold with:emp. |
|
1909 "/ emp := #color->Color blue darkened. |
|
1910 self at:#emphasisForNamespacedCode put:emp. |
|
1911 ]. |
|
1912 ^ emp |
|
1913 |
|
1914 " |
|
1915 self allInstancesDo:[:pref |pref at:#emphasisForNamespacedCode put:nil]. |
|
1916 UserPreferences current emphasisForNamespacedCode. |
|
1917 UserPreferences current at:#emphasisForNamespacedCode put:nil. |
|
1918 " |
|
1919 |
|
1920 "Created: / 01-07-2010 / 18:39:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1887 ! |
1921 ! |
1888 |
1922 |
1889 emphasisForObsoleteCode |
1923 emphasisForObsoleteCode |
1890 |emp| |
1924 |emp| |
1891 |
1925 |
3251 ! |
3285 ! |
3252 |
3286 |
3253 verboseBacktraceInDebugger:aBoolean |
3287 verboseBacktraceInDebugger:aBoolean |
3254 ^ self at:#verboseBacktraceInDebugger put:aBoolean |
3288 ^ self at:#verboseBacktraceInDebugger put:aBoolean |
3255 ! ! |
3289 ! ! |
|
3290 |
3256 |
3291 |
3257 |
3292 |
3258 !UserPreferences methodsFor:'default settings - syntax colors'! |
3293 !UserPreferences methodsFor:'default settings - syntax colors'! |
3259 |
3294 |
3260 listOfPredefinedSyntaxColoringSchemes |
3295 listOfPredefinedSyntaxColoringSchemes |
3472 self class saveSettings:self in:fileName |
3507 self class saveSettings:self in:fileName |
3473 ! ! |
3508 ! ! |
3474 |
3509 |
3475 !UserPreferences class methodsFor:'documentation'! |
3510 !UserPreferences class methodsFor:'documentation'! |
3476 |
3511 |
3477 version |
|
3478 ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.273 2011-06-22 15:36:46 stefan Exp $' |
|
3479 ! |
|
3480 |
|
3481 version_CVS |
3512 version_CVS |
3482 ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.273 2011-06-22 15:36:46 stefan Exp $' |
3513 ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.274 2011-06-28 10:40:08 vrany Exp $' |
|
3514 ! |
|
3515 |
|
3516 version_SVN |
|
3517 ^ ' Id: UserPreferences.st 10648 2011-06-23 15:55:10Z vranyj1 ' |
3483 ! ! |
3518 ! ! |