--- a/StandardSystemView.st	Wed Apr 28 20:16:23 1999 +0200
+++ b/StandardSystemView.st	Wed Apr 28 20:16:54 1999 +0200
@@ -1105,10 +1105,14 @@
      mask - future versions may add alpha channel masks, if the device supports
      them ..."
 
+    device supportsIconMasks ifFalse:[^ nil].
+
     aMask depth ~~ 1 ifTrue:[
-	^ aMask asMonochromeFormOn
+        ^ aMask asMonochromeFormOn:device
     ].
     ^ aMask
+
+    "Modified: / 28.4.1999 / 20:00:00 / cg"
 !
 
 setWindowGroupFromApplication
@@ -1408,6 +1412,6 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.110 1999-04-24 14:20:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.111 1999-04-28 18:16:54 cg Exp $'
 ! !
 StandardSystemView initialize!

--- a/StdSysV.st	Wed Apr 28 20:16:23 1999 +0200
+++ b/StdSysV.st	Wed Apr 28 20:16:54 1999 +0200
@@ -1105,10 +1105,14 @@
      mask - future versions may add alpha channel masks, if the device supports
      them ..."
 
+    device supportsIconMasks ifFalse:[^ nil].
+
     aMask depth ~~ 1 ifTrue:[
-	^ aMask asMonochromeFormOn
+        ^ aMask asMonochromeFormOn:device
     ].
     ^ aMask
+
+    "Modified: / 28.4.1999 / 20:00:00 / cg"
 !
 
 setWindowGroupFromApplication
@@ -1408,6 +1412,6 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.110 1999-04-24 14:20:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.111 1999-04-28 18:16:54 cg Exp $'
 ! !
 StandardSystemView initialize!