--- a/LicenceBox.st	Mon Mar 07 17:56:29 2005 +0100
+++ b/LicenceBox.st	Thu Mar 10 18:00:48 2005 +0100
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: '__NoProject__' }"
+
 DialogBox subclass:#LicenceBox
 	instanceVariableNames:'accepted destroySemaphore fileName textView'
 	classVariableNames:'LicenceRejectSignal'
@@ -218,6 +220,17 @@
     self stickAtBottomWithVariableHeight:textView.
 
     "Modified: 9.9.1996 / 17:52:13 / stefan"
+!
+
+raise
+    "kludge for MS-windows.
+     Raise/Activate seem to work only within my own (ST/X)-windows;
+     they do not raise one of my views above another (for example: command.com)-window.
+     Can anyone tell me what the difference between raise, activate and setForefround 
+     really is (I mean really - not what is written in the crappy documentation)"
+
+    self setForegroundWindow.
+    super raise
 ! !
 
 !LicenceBox methodsFor:'private'!
@@ -306,6 +319,7 @@
 !LicenceBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.19 2001-11-17 14:22:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.20 2005-03-10 17:00:48 cg Exp $'
 ! !
+
 LicenceBox initialize!