--- a/AbstractSettingsApplication.st	Thu Sep 25 17:18:08 2014 +0200
+++ b/AbstractSettingsApplication.st	Thu Sep 25 21:46:59 2014 +0200
@@ -8207,7 +8207,7 @@
     self shadows value:PopUpView shadows.
     self cartoonToolTipStyle value: (currentUserPrefs toolTipShapeStyle == #cartoon).
 
-    currentScreen platformName = 'WIN32' ifTrue:[   
+    currentScreen isWindowsPlatform ifTrue:[   
         self lowerOnRightClickInTitle value:(currentScreen rightButtonIsLowerWindow:nil).
         self lowerOnShiftClickInTitle value:(currentScreen shiftedLeftButtonIsLowerWindow:nil).
     ].
@@ -8247,7 +8247,7 @@
         writeAspects:(self aspectsFromUserPreferences)
         to:currentUserPrefs.
 
-    currentScreen platformName = 'WIN32' ifTrue:[
+    currentScreen isWindowsPlatform ifTrue:[
         currentScreen rightButtonIsLowerWindow:(self lowerOnRightClickInTitle value).
         currentScreen shiftedLeftButtonIsLowerWindow:(self lowerOnShiftClickInTitle value).
     ].
@@ -8382,7 +8382,7 @@
     self shadows value ~= PopUpView shadows ifTrue:[^ true].
     (currentUserPrefs toolTipShapeStyle == #cartoon) ~= cartoonToolTipStyle value ifTrue:[^ true].
 
-    currentScreen platformName = 'WIN32' ifTrue:[   
+    currentScreen isWindowsPlatform ifTrue:[   
         (currentScreen rightButtonIsLowerWindow:nil) ~= (self lowerOnRightClickInTitle value) ifTrue:[^ true].
         (currentScreen shiftedLeftButtonIsLowerWindow:nil) ~= (self lowerOnShiftClickInTitle value) ifTrue:[^ true].
     ].
@@ -8392,7 +8392,7 @@
 !
 
 isWindowsDisplay
-     ^ Screen current platformName = 'WIN32'
+     ^ Screen current isWindowsPlatform
 ! !
 
 !AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'help specs'!
@@ -18550,10 +18550,10 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.561 2014-07-09 01:26:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.562 2014-09-25 19:46:59 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.561 2014-07-09 01:26:48 cg Exp $'
-! !
-
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.562 2014-09-25 19:46:59 stefan Exp $'
+! !
+