UserPreferences.st
branchjv
changeset 19811 65fec19facb0
parent 19707 8e312f358d84
parent 19787 08c4eaf6cfb3
child 19812 0866264d6eed
--- 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"