diff -r e95ad72c0f46 -r 5f1c47696cd6 AbstractLauncherApplication.st
--- a/AbstractLauncherApplication.st	Thu Jun 24 00:25:10 1999 +0200
+++ b/AbstractLauncherApplication.st	Fri Jun 25 12:25:25 1999 +0200
@@ -1,3 +1,16 @@
+"
+ COPYRIGHT (c) 1997 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+
+
 ToolApplicationModel subclass:#AbstractLauncherApplication
 	instanceVariableNames:'transcript'
 	classVariableNames:'NotifyingEmergencyHandler OpenLaunchers'
@@ -12,6 +25,36 @@
 	privateIn:AbstractLauncherApplication
 !
 
+!AbstractLauncherApplication class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1997 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+
+!
+
+documentation
+"
+    This is an abstract class, providing mechanisms and common functionality
+    for launcher-type applications. Subclasses may implement their GUI either
+    with or without the UIPainter framework, and still use the common functions
+    provided here.
+
+    [author:]
+        Claus Gittinger, eXept Software AG
+"
+
+
+! !
 
 !AbstractLauncherApplication class methodsFor:'accessing'!
 
@@ -64,6 +107,16 @@
     "Modified: 15.1.1997 / 21:15:38 / cg"
 ! !
 
+!AbstractLauncherApplication class methodsFor:'queries'!
+
+isVisualStartable
+    "return true, if this application can be started via #open"
+
+    ^ self isSubclassOf:AbstractLauncherApplication
+
+
+! !
+
 !AbstractLauncherApplication methodsFor:'private'!
 
 findWindow:title
@@ -4353,5 +4406,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.33 1999-06-23 22:25:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.34 1999-06-25 10:25:25 cg Exp $'
 ! !