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