--- a/FontPanel.st	Mon Nov 09 10:18:44 2009 +0100
+++ b/FontPanel.st	Tue Nov 10 17:33:39 2009 +0100
@@ -500,7 +500,7 @@
 
     super initialize.
 
-    showFontNameLabel := device platformName ~= 'WIN32'.
+    showFontNameLabel := device platformName ~= #WIN32.
     sizeUnit := #pt.
 
     mm := ViewSpacing.
@@ -666,7 +666,7 @@
     |availableEncodings listPresentedToUser|
 
     listOfEncodings := OrderedCollection new.
-    device platformName = 'WIN32' ifTrue:[
+    device platformName = #WIN32 ifTrue:[
         listOfEncodings
             addAll:
                 #(
@@ -1224,5 +1224,9 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.103 2009-09-25 08:59:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.104 2009-11-10 16:33:39 stefan Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.104 2009-11-10 16:33:39 stefan Exp $'
 ! !