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