# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1110474048 -3600
# Node ID 889c4e54581022ee929d3409b8d9787b255e63ce
# Parent  80afa90b592d094673256a05194844b8c35b3f4b
raising again (wrong focus in dialogs)

diff -r 80afa90b592d -r 889c4e545810 LicenceBox.st
--- 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!