--- a/StandardSystemView.st	Wed Oct 31 01:52:44 2007 +0100
+++ b/StandardSystemView.st	Wed Oct 31 01:55:33 2007 +0100
@@ -792,6 +792,27 @@
 
 !StandardSystemView methodsFor:'accessing-look'!
 
+addTrayIcon:anImageOrForm toolTipMessage:toolTipMessage
+    "WIN32 only: add a tray icon"
+
+    self device
+         addTrayIconFor:self
+         icon:anImageOrForm iconMask:nil
+         toolTipMessage:toolTipMessage
+
+    "
+     |v icon|
+
+     v := StandardSystemView new.
+     v openAndWait.
+
+     icon := Icon stxIcon.
+     v addTrayIcon:icon toolTipMessage:'Hi There'
+    "
+
+    "Modified: / 31-10-2007 / 01:55:06 / cg"
+!
+
 icon
     "return the form defined as icon"
 
@@ -1578,7 +1599,7 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.179 2007-10-31 00:50:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.180 2007-10-31 00:55:33 cg Exp $'
 ! !
 
 StandardSystemView initialize!