initial checkin
authorpenk
Fri, 08 Nov 2002 17:07:24 +0100
changeset 4226 44e2f83cc526
parent 4225 156064c1aa38
child 4227 ff28714fca33
initial checkin
AbstractSettingsApplication.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/AbstractSettingsApplication.st	Fri Nov 08 17:07:24 2002 +0100
@@ -0,0 +1,31 @@
+"{ Package: 'stx:libtool' }"
+
+ApplicationModel subclass:#AbstractSettingsApplication
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-Smalltalk'
+!
+
+
+!AbstractSettingsApplication methodsFor:'actions'!
+
+saveRequest
+
+    self subclassResponsibility
+! !
+
+!AbstractSettingsApplication methodsFor:'queries'!
+
+isPartOfSettinsDialog
+
+    | masterApplication |
+    masterApplication := self masterApplication.
+    ^ masterApplication notNil and:[ masterApplication class == SettingsDialog].
+! !
+
+!AbstractSettingsApplication class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.1 2002-11-08 16:07:24 penk Exp $'
+! !