LicenceBox.st
changeset 3395 5e78f238902d
parent 2801 014471b1e14b
child 3396 1f85adcd01fd
--- a/LicenceBox.st	Fri Apr 25 16:19:38 2008 +0200
+++ b/LicenceBox.st	Wed May 14 12:46:29 2008 +0200
@@ -218,6 +218,7 @@
     self abortAction:[self destroy. accepted := false. LicenceRejectSignal raise].
     self okAction:[self destroy. accepted := true].
     self stickAtBottomWithVariableHeight:textView.
+    self label:'Licence Dialog'.
 
     "Modified: 9.9.1996 / 17:52:13 / stefan"
 !
@@ -339,7 +340,7 @@
 !LicenceBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.25 2005-03-17 12:01:02 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.26 2008-05-14 10:46:29 cg Exp $'
 ! !
 
 LicenceBox initialize!