XftFontDescription.st
changeset 7055 d16570f7beef
parent 7054 9036fd6f3d83
child 7061 bdace6fb405f
--- a/XftFontDescription.st	Mon Nov 02 20:59:36 2015 +0100
+++ b/XftFontDescription.st	Mon Nov 09 15:15:47 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libview' }"
 
 "{ NameSpace: Smalltalk }"
@@ -1906,7 +1908,10 @@
     "I am no longer available on the device"
 
     Lobby unregister:self.
-    self xftDrawDestroy.
+    "/ cg: no, xftDrawDestroy should not be done.
+    "/ (releaseFromDevice is called when either the display connection
+    "/ is lost, or a snapshot image is restarted)
+    "/ self xftDrawDestroy.
 
     device := nil.
     fontId := nil.