--- a/OldLauncher.st	Sat Mar 25 23:23:29 1995 +0100
+++ b/OldLauncher.st	Sat Mar 25 23:24:57 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.25 1995-03-20 06:04:25 claus Exp $
+$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.26 1995-03-25 22:24:20 claus Exp $
 '!
 
 !Launcher class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.25 1995-03-20 06:04:25 claus Exp $
+$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.26 1995-03-25 22:24:20 claus Exp $
 "
 !
 
@@ -947,38 +947,7 @@
 !
 
 showAbout
-    |box dark green lbl|
-
-    device hasColors ifTrue:[
-	green := (Color red:0 green:80 blue:20) darkened.
-    ] ifFalse:[
-	green := White.
-    ].
-    device hasGreyscales ifTrue:[
-	dark := Color grey:10.
-    ] ifFalse:[
-	dark := Black.
-    ].
-
-    box := InfoBox new.
-    box viewBackground:dark; allSubViewsDo:[:s | s viewBackground:dark].
-    box form:(Form fromFile:'SmalltalkX.xbm' resolution:100).
-    (lbl := box formLabel) viewBackground:dark.
-    lbl foregroundColor:green backgroundColor:dark.
-    (lbl := box textLabel) viewBackground:dark.
-    lbl foregroundColor:White backgroundColor:dark.
-    box title:
-'Smalltalk/X
-
-Version ......... ' , Smalltalk versionString , ' (' , Smalltalk versionDate printString , ')
-Configuration ... ' , Smalltalk configuration , '
-Running on ...... ' , OperatingSystem getHostName , '
-
-' , Smalltalk copyrightString.
-
-    box okText:'close'.
-    box autoHideAfter:10 with:[].
-    box showAt:device center - (box extent // 2).
+    AboutBox new show
 !
 
 showOverview
@@ -1001,3 +970,11 @@
 '.
     self showDocumentFile:'doc/online/english/' , baseName
 ! !
+
+!Launcher methodsFor:'misc'!
+
+processName
+    "the name of my process - for the processMonitor only"
+
+    ^ 'Launcher'.
+! !