--- a/AppModel.st Sun Mar 26 22:11:31 1995 +0200
+++ b/AppModel.st Fri Mar 31 04:54:35 1995 +0200
@@ -39,7 +39,7 @@
version
"
-$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.2 1995-03-25 22:11:46 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.3 1995-03-31 02:54:35 claus Exp $
"
!
@@ -47,19 +47,22 @@
"
Since many ST-80 classes are subclasses of ApplicationModel, this class
is provided here to allow easier porting of ST-80 code.
+
It does not (currently) provide much functionality; therefore, manual
changes have to be made to get those applications to run under ST/X.
- (but at least, this enables you to fileIn that code)
+ (but at least, this enables you to fileIn that code and have a superclass
+ for them)
The classResources have been put into this class to allow ST/X
- view code to migrate smoothly into ApplicationModels.
+ applications (which used to be subclasses of StandardSystemView)
+ to migrate smoothly into ApplicationModels (which is better design ...).
Instance variables:
resources ResourcePack language string translation
builder ? dont know what that is used for yet,
some subclasses (see manchester goodies)
- depend on thise being there.
+ depend on this being there.
"
! !
@@ -85,6 +88,10 @@
open
self subclassResponsibility
+!
+
+openOn:aModel
+ self new openOn:aModel
! !
!ApplicationModel class methodsFor:'change & update'!
@@ -138,3 +145,40 @@
super initialize.
resources := self class classResources.
! !
+
+!ApplicationModel methodsFor:'startup'!
+
+openInterface
+ "mhmh - what does this do ?"
+
+ UIPainter new openOnClass:self class andSelector:#windowSpec.
+
+"/ self subclassResponsibility
+!
+
+openOn:aModel
+ UIPainter new openOn:aModel.
+!
+
+closeRequest
+ "mhmh - what does this do ?"
+
+ builder notNil ifTrue:[
+ builder closeRequest
+ ].
+! !
+
+!ApplicationModel methodsFor:'accessing'!
+
+resources
+ ^ resources
+!
+
+builder
+ ^ builder
+!
+
+builder:aBuilder
+ builder := aBuilder
+! !
+
--- a/ApplicationModel.st Sun Mar 26 22:11:31 1995 +0200
+++ b/ApplicationModel.st Fri Mar 31 04:54:35 1995 +0200
@@ -39,7 +39,7 @@
version
"
-$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.2 1995-03-25 22:11:46 claus Exp $
+$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.3 1995-03-31 02:54:35 claus Exp $
"
!
@@ -47,19 +47,22 @@
"
Since many ST-80 classes are subclasses of ApplicationModel, this class
is provided here to allow easier porting of ST-80 code.
+
It does not (currently) provide much functionality; therefore, manual
changes have to be made to get those applications to run under ST/X.
- (but at least, this enables you to fileIn that code)
+ (but at least, this enables you to fileIn that code and have a superclass
+ for them)
The classResources have been put into this class to allow ST/X
- view code to migrate smoothly into ApplicationModels.
+ applications (which used to be subclasses of StandardSystemView)
+ to migrate smoothly into ApplicationModels (which is better design ...).
Instance variables:
resources ResourcePack language string translation
builder ? dont know what that is used for yet,
some subclasses (see manchester goodies)
- depend on thise being there.
+ depend on this being there.
"
! !
@@ -85,6 +88,10 @@
open
self subclassResponsibility
+!
+
+openOn:aModel
+ self new openOn:aModel
! !
!ApplicationModel class methodsFor:'change & update'!
@@ -138,3 +145,40 @@
super initialize.
resources := self class classResources.
! !
+
+!ApplicationModel methodsFor:'startup'!
+
+openInterface
+ "mhmh - what does this do ?"
+
+ UIPainter new openOnClass:self class andSelector:#windowSpec.
+
+"/ self subclassResponsibility
+!
+
+openOn:aModel
+ UIPainter new openOn:aModel.
+!
+
+closeRequest
+ "mhmh - what does this do ?"
+
+ builder notNil ifTrue:[
+ builder closeRequest
+ ].
+! !
+
+!ApplicationModel methodsFor:'accessing'!
+
+resources
+ ^ resources
+!
+
+builder
+ ^ builder
+!
+
+builder:aBuilder
+ builder := aBuilder
+! !
+