--- a/VariablePanel.st	Wed Apr 02 12:09:05 2014 +0200
+++ b/VariablePanel.st	Thu Apr 03 16:33:38 2014 +0200
@@ -625,7 +625,7 @@
         (DefaultVCursor notNil and:[device == Display]) ifTrue:[
             cursor := DefaultVCursor
         ] ifFalse:[
-            device platformName = 'WIN32' ifFalse:[
+            device isWindowsPlatform ifFalse:[
                 cursor := Cursor 
                             sourceForm:(Smalltalk imageFromFileNamed:'VVPanel.xbm' forClass:self)
                             maskForm:(Smalltalk imageFromFileNamed:'VVPanel_m.xbm' forClass:self)
@@ -650,7 +650,7 @@
         (DefaultHCursor notNil and:[device == Display]) ifTrue:[      
             cursor := DefaultHCursor
         ] ifFalse:[
-            device platformName = 'WIN32' ifFalse:[
+            device isWindowsPlatform ifFalse:[
                 cursor := Cursor 
                             sourceForm:(Smalltalk imageFromFileNamed:'VHPanel.xbm' forClass:self)
                             maskForm:(Smalltalk imageFromFileNamed:'VHPanel_m.xbm' forClass:self)
@@ -2599,10 +2599,10 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.101 2014-03-19 13:36:25 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.102 2014-04-03 14:33:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.101 2014-03-19 13:36:25 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.102 2014-04-03 14:33:38 cg Exp $'
 ! !