class: XWorkstation
authorStefan Vogel <sv@exept.de>
Tue, 04 Feb 2014 12:01:39 +0100
changeset 6224 7daf58f73b10
parent 6223 5e154dcb2acd
child 6225 b953824e744c
class: XWorkstation changed: #lastErrorString
XWorkstation.st
--- a/XWorkstation.st	Tue Feb 04 11:22:47 2014 +0100
+++ b/XWorkstation.st	Tue Feb 04 12:01:39 2014 +0100
@@ -636,7 +636,9 @@
             s := '/usr/share/X11/XErrorDB' asFilename readStreamOrNil.
             s notNil ifTrue:[
                 errorLine := s peekForLineStartingWith:match.
-                errorLine := errorLine copyFrom:(errorLine indexOf:$:)+1.
+                errorLine notNil ifTrue:[    
+                    errorLine := errorLine copyFrom:(errorLine indexOf:$:)+1.
+                ].
                 s close.
             ].
             errorLine
@@ -13044,11 +13046,11 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.580 2014-02-03 10:33:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.581 2014-02-04 11:01:39 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.580 2014-02-03 10:33:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.581 2014-02-04 11:01:39 stefan Exp $'
 !
 
 version_SVN