equal
deleted
inserted
replaced
628 self |
628 self |
629 at: #'changeFileName' |
629 at: #'changeFileName' |
630 put: aFilename. |
630 put: aFilename. |
631 ! ! |
631 ! ! |
632 |
632 |
|
633 |
633 !UserPreferences methodsFor:'accessing-locale'! |
634 !UserPreferences methodsFor:'accessing-locale'! |
634 |
635 |
635 dateInputFormat |
636 dateInputFormat |
636 "return a format used when tools read a date from the user" |
637 "return a format used when tools read a date from the user" |
637 |
638 |
2393 bg isNil ifTrue:[ |
2394 bg isNil ifTrue:[ |
2394 View notNil ifTrue:[ |
2395 View notNil ifTrue:[ |
2395 bg := View defaultBackgroundColor. |
2396 bg := View defaultBackgroundColor. |
2396 ]. |
2397 ]. |
2397 bg isNil ifTrue:[ |
2398 bg isNil ifTrue:[ |
2398 ^ Color grey |
2399 ^ Color gray |
2399 ]. |
2400 ]. |
2400 ]. |
2401 ]. |
2401 |
2402 |
2402 (Color grey brightness - (bg brightness)) abs < 0.3 ifTrue:[ |
2403 (Color gray brightness - (bg brightness)) abs < 0.3 ifTrue:[ |
2403 (bg brightness) > 0.7 ifTrue:[ |
2404 (bg brightness) > 0.7 ifTrue:[ |
2404 ^ Color grey:20. |
2405 ^ Color gray:20. |
2405 ]. |
2406 ]. |
2406 ^ Color grey:80. |
2407 ^ Color gray:80. |
2407 ]. |
2408 ]. |
2408 ^ Color grey |
2409 ^ Color gray |
2409 |
2410 |
2410 "Created: / 07-09-2011 / 09:51:12 / cg" |
2411 "Created: / 07-09-2011 / 09:51:12 / cg" |
2411 ! |
2412 ! |
2412 |
2413 |
2413 emphasisForChangedCode |
2414 emphasisForChangedCode |
4951 ! ! |
4952 ! ! |
4952 |
4953 |
4953 !UserPreferences class methodsFor:'documentation'! |
4954 !UserPreferences class methodsFor:'documentation'! |
4954 |
4955 |
4955 version |
4956 version |
4956 ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.381 2014-07-04 10:26:35 cg Exp $' |
4957 ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.382 2014-07-08 21:16:24 cg Exp $' |
4957 ! |
4958 ! |
4958 |
4959 |
4959 version_CVS |
4960 version_CVS |
4960 ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.381 2014-07-04 10:26:35 cg Exp $' |
4961 ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.382 2014-07-08 21:16:24 cg Exp $' |
4961 ! |
4962 ! |
4962 |
4963 |
4963 version_SVN |
4964 version_SVN |
4964 ^ '$ Id: UserPreferences.st 10648 2011-06-23 15:55:10Z vranyj1 $' |
4965 ^ '$ Id: UserPreferences.st 10648 2011-06-23 15:55:10Z vranyj1 $' |
4965 ! ! |
4966 ! ! |