--- a/WinWorkstation.st	Thu Jul 24 14:44:23 2008 +0200
+++ b/WinWorkstation.st	Tue Aug 05 11:08:41 2008 +0200
@@ -17090,6 +17090,16 @@
     <apicall: bool "SendMessageA" (handle uint ulong ulong) module: "user32.dll" >
 !
 
+primSetForegroundWindow: aWindowId
+
+    "
+    If the window was brought to the foreground, the return value is nonzero.
+    If the window was not brought to the foreground, the return value is zero.
+    "
+
+    <apicall: bool "SetForegroundWindow" (handle) module: "user32.dll" >
+!
+
 primSetWindowIconId:wiconId maskId:wmaskId width:wiconWidth height:wiconHeight in:aWindowId
 %{
 
@@ -18020,7 +18030,7 @@
 !WinWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.369 2008-07-23 14:06:42 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.370 2008-08-05 09:08:41 fm Exp $'
 ! !
 
 WinWorkstation initialize!