--- 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 $'
! !