Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
authorclaus
Tue, 02 May 1995 01:06:45 +0200
changeset 62 194eb0590b1e
parent 61 7918207ff50a
child 63 23617db5f7db
Initial revision
ValHolder.st file | annotate | diff | comparison | revisions
ValModel.st file | annotate | diff | comparison | revisions
ValueHolder.st file | annotate | diff | comparison | revisions
ValueModel.st file | annotate | diff | comparison | revisions 
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ValHolder.st	Tue May 02 01:06:45 1995 +0200
@@ -0,0 +1,44 @@
+ValueModel subclass:#ValueHolder 
+	 instanceVariableNames:'value changeMsg changeReceiver'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'ST80-Compatibility'
+!
+
+!ValueHolder class methodsFor:'instance creation'!
+
+with:anObject
+    ^ (super new) value:anObject
+!
+
+newString
+    ^ self with:''
+!
+
+newBoolean
+    ^ self with:false
+! !
+
+!ValueHolder methodsFor:'accessing'!
+
+onChangeSend:selector to:someone
+    changeMsg := selector.
+    changeReceiver := someone
+!
+
+value:anObject
+    |oldValue|
+
+    oldValue := value.
+    value := anObject.
+    self changed:#value.
+    changeReceiver notNil ifTrue:[
+	changeMsg notNil ifTrue:[
+	    changeReceiver perform:changeMsg
+	]
+    ]
+!
+
+value
+    ^ value
+! !
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ValModel.st	Tue May 02 01:06:45 1995 +0200
@@ -0,0 +1,43 @@
+Model subclass:#ValueModel 
+	 instanceVariableNames:'accepted'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'ST80-Compatibility'
+!
+
+!ValueModel class methodsFor:'instance creation'!
+
+new
+    ^ (super new) initialize
+! !
+
+!ValueModel methodsFor:'initialization'!
+
+initialize
+    accepted := false
+! !
+
+!ValueModel methodsFor:'accessing'!
+
+accept
+    accepted := true
+!
+
+value 
+    self subclassResponsibility
+!
+
+setValue:newValue 
+    self subclassResponsibility
+!
+
+value:anObject
+    |oldValue|
+
+    oldValue := self value.
+    self setValue:anObject.
+    anObject ~= oldValue ifTrue:[
+	self changed:#value
+    ]
+! !
+
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ValueHolder.st	Tue May 02 01:06:45 1995 +0200
@@ -0,0 +1,44 @@
+ValueModel subclass:#ValueHolder 
+	 instanceVariableNames:'value changeMsg changeReceiver'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'ST80-Compatibility'
+!
+
+!ValueHolder class methodsFor:'instance creation'!
+
+with:anObject
+    ^ (super new) value:anObject
+!
+
+newString
+    ^ self with:''
+!
+
+newBoolean
+    ^ self with:false
+! !
+
+!ValueHolder methodsFor:'accessing'!
+
+onChangeSend:selector to:someone
+    changeMsg := selector.
+    changeReceiver := someone
+!
+
+value:anObject
+    |oldValue|
+
+    oldValue := value.
+    value := anObject.
+    self changed:#value.
+    changeReceiver notNil ifTrue:[
+	changeMsg notNil ifTrue:[
+	    changeReceiver perform:changeMsg
+	]
+    ]
+!
+
+value
+    ^ value
+! !
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ValueModel.st	Tue May 02 01:06:45 1995 +0200
@@ -0,0 +1,43 @@
+Model subclass:#ValueModel 
+	 instanceVariableNames:'accepted'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'ST80-Compatibility'
+!
+
+!ValueModel class methodsFor:'instance creation'!
+
+new
+    ^ (super new) initialize
+! !
+
+!ValueModel methodsFor:'initialization'!
+
+initialize
+    accepted := false
+! !
+
+!ValueModel methodsFor:'accessing'!
+
+accept
+    accepted := true
+!
+
+value 
+    self subclassResponsibility
+!
+
+setValue:newValue 
+    self subclassResponsibility
+!
+
+value:anObject
+    |oldValue|
+
+    oldValue := self value.
+    self setValue:anObject.
+    anObject ~= oldValue ifTrue:[
+	self changed:#value
+    ]
+! !
+
hg/stx-libview2