ListView.st
branchdelegated_gc
changeset 5132 045af422a364
parent 5023 a18a03c5c572
child 5154 b8ffbe20c669
--- a/ListView.st	Fri Sep 26 12:25:16 2014 +0200
+++ b/ListView.st	Fri Sep 26 12:25:34 2014 +0200
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-'From Smalltalk/X, Version:6.2.3.0 on 08-05-2014 at 10:09:59'                   !
-
 "{ Package: 'stx:libwidg' }"
 
 View subclass:#ListView
@@ -2493,7 +2491,7 @@
     lineSpacing := 2.
     "/ q&d temporary hack.
     "/ X11 fonts are currently so ugly... add more spacing.
-    self graphicsDevice platformName = #X11 ifTrue:[
+    self graphicsDevice isX11Platform ifTrue:[
         lineSpacing := lineSpacing + 3.
     ].
     fgColor := DefaultForegroundColor.
@@ -5269,10 +5267,10 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.391.2.1 2014-05-08 08:30:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.391.2.2 2014-09-26 10:25:34 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.391.2.1 2014-05-08 08:30:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.391.2.2 2014-09-26 10:25:34 stefan Exp $'
 ! !