--- a/UserPreferences.st Thu May 05 06:48:19 2016 +0200
+++ b/UserPreferences.st Thu May 12 09:30:28 2016 +0200
@@ -1970,8 +1970,12 @@
fn := Object readFrom:s.
self useXftFontsOnly ifTrue:[
fn := XftFontDescription for:fn
- ].
- Display notNil ifTrue:[fn := fn onDevice:Display].
+ "/ cg: don't allocate on the display, because it takes
+ "/ dam long sometimes when Xft fonts are used.
+ "/ startup feels better, if we do it lazy.
+ ] ifFalse:[
+ Display notNil ifTrue:[fn := fn onDevice:Display].
+ ]
].
fn
].
@@ -4023,7 +4027,9 @@
If on, the image will grow over time by about 10-20 Mb.
(will stay that high, even if switched off afterwards)"
- ^ self at:#keepMethodSourceCode ifAbsent:false
+ "/ changed to always cache the sources.
+ "/ these days, memory is so cheap (times of 4Mb machines are gone)
+ ^ self at:#keepMethodSourceCode ifAbsent:true
"
UserPreferences current keepMethodSourceCode
@@ -5159,6 +5165,34 @@
"
!
+sendMessagesOnlyToTranscript
+ "return the flag which controls if info/error messages are to be shown
+ on Stderr (if true is returned, they are only shown on the Transcript)"
+
+ ^ self at:#sendMessagesOnlyToTranscript ifAbsent:false
+
+ "
+ UserPreferences current sendMessagesOnlyToTranscript
+ "
+!
+
+sendMessagesOnlyToTranscript:aBoolean
+ "set the flag which controls if info/error messages are to be shown
+ on Stderr (if true is returned, they are only shown on the Transcript)"
+
+ self at:#sendMessagesOnlyToTranscript put:aBoolean
+
+ "
+ UserPreferences current sendMessagesOnlyToTranscript:true.
+ 'hello' errorPrintCR.
+
+ UserPreferences current sendMessagesOnlyToTranscript:false.
+ 'hello' errorPrintCR.
+
+ UserPreferences current sendMessagesOnlyToTranscript
+ "
+!
+
showClockInLauncher
"return the flag which controls if a clock is shown in the launcher"