--- a/AboutBox.st	Thu Sep 05 21:57:30 1996 +0200
+++ b/AboutBox.st	Fri Sep 06 11:09:05 1996 +0200
@@ -55,28 +55,36 @@
     "return a string to be shown in the box.
      Can be redefined in custom subclasses."
 
-    |distributor|
+    |distributor expiration|
 
-    distributor := ''.
     distributor := Smalltalk distributorString.
     distributor notEmpty ifTrue:[
-        distributor := 'Distributed by: ' , distributor
+        distributor := 'Distributor ...... ', distributor
+    ].
+    expiration := Smalltalk expirationTime.
+    expiration notNil ifTrue:[
+        expiration := 'Expires ........... ', expiration printString
+    ] ifFalse:[
+        expiration := ''.
     ].
 
     ^
 'SmallTalk/X
 
-Version ......... ' , Smalltalk versionString , '.' , Smalltalk releaseNr printString ,
+Version ......... ', Smalltalk versionString , '.' , Smalltalk releaseNr printString ,
                       ' (' , Smalltalk versionDate printString , ')
-' , distributor , '
-Configuration ... ' , Smalltalk configuration , '
-Running on ...... ' , OperatingSystem getHostName , '
+', distributor, '
+', expiration , '
+Release ID ...... ', Smalltalk releaseIdentification, '
+Configuration ... ', Smalltalk configuration, '
+Running on ...... ', OperatingSystem getHostName, '
 
 ' , Smalltalk copyrightString , '
 
 '
 
     "Modified: 19.8.1996 / 18:09:39 / cg"
+    "Modified: 6.9.1996 / 10:11:08 / stefan"
 !
 
 defaultIcon
@@ -140,7 +148,7 @@
     "show the box.
      Redefined to automatically hide myself after some time"
 
-    self autoHideAfter:10 with:[].
+    self autoHideAfter:15 with:[].
     super showAtCenter.
 
     "
@@ -148,10 +156,11 @@
     "
 
     "Modified: 23.4.1996 / 17:10:03 / cg"
+    "Modified: 6.9.1996 / 09:47:10 / stefan"
 ! !
 
 !AboutBox  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.17 1996-08-19 16:10:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.18 1996-09-06 09:09:05 stefan Exp $'
 ! !