--- 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!