--- a/WinWorkstation.st	Wed Mar 05 13:19:37 1997 +0100
+++ b/WinWorkstation.st	Wed Mar 05 13:24:01 1997 +0100
@@ -1379,6 +1379,37 @@
 !
 
 createWindowFor:aView
+                 origin:origin
+                 extent:extent
+                 minExtent:minExt 
+                 maxExtent:maxExt
+                 borderWidth:bWidth
+                 subViewOf:wsuperView
+                 onTop:wisPopUpView
+                 inputOnly:winputOnly
+                 label:wlabel
+                 cursor:wcursor
+                 icon:wicon
+                 iconView:wiconView
+
+    ^ self
+	createWindowFor:aView
+                 origin:origin
+                 extent:extent
+                 minExtent:minExt 
+                 maxExtent:maxExt
+                 borderWidth:bWidth
+                 subViewOf:wsuperView
+                 onTop:wisPopUpView
+                 inputOnly:winputOnly
+                 label:wlabel
+                 cursor:wcursor
+                 icon:wicon 
+		 iconMask:iconMask
+                 iconView:wiconView
+!
+
+createWindowFor:aView
 		 origin:origin
 		 extent:extent
 		 minExtent:minExt 
@@ -1389,11 +1420,12 @@
 		 inputOnly:winputOnly
 		 label:wlabel
 		 cursor:wcursor
-		 icon:wicon
+		 icon:wicon 
+	         iconMask:wiconMask
 		 iconView:wiconView
 
     |xpos ypos wwidth wheight minWidth minHeight maxWidth maxHeight 
-     bColorId wsuperViewId wcursorId wiconId windowId
+     bColorId wsuperViewId wcursorId wiconId wiconMaskId windowId
      weventMask wiconViewId bitGravity viewGravity vBgColor
      vBgForm deepForm preferredVisual preferredDepth wiconHeight 
      wiconWidth|
@@ -1437,6 +1469,9 @@
 	wiconId := wicon id.
 	wiconHeight := wicon height.
 	wiconWidth  := wicon width.
+	wiconMask notNil ifTrue:[
+	    wiconMaskId := wiconMask id
+	]
     ].
     wiconView notNil ifTrue:[
 	wiconViewId := wiconView id
@@ -5335,7 +5370,7 @@
 !WinWorkstation  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.19 1997-03-05 12:18:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.20 1997-03-05 12:24:01 cg Exp $'
 ! !
 
 WinWorkstation initialize!