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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 28 Jul 1998 11:54:55 +0200
changeset 1009 b31628976be6
parent 1008 e0a54f96e34f
child 1010 2bd1011586d9
checkin from browser
BuffValHldr.st file | annotate | diff | comparison | revisions
BufferedValueHolder.st file | annotate | diff | comparison | revisions 
--- a/BuffValHldr.st	Tue Jul 28 11:54:04 1998 +0200
+++ b/BuffValHldr.st	Tue Jul 28 11:54:55 1998 +0200
@@ -173,32 +173,35 @@
 !BufferedValueHolder methodsFor:'change & update'!
 
 update:something with:aParameter from:changedObject
+    |triggerVal|
+
     changedObject == triggerChannel ifTrue:[
-        triggerChannel value == true ifTrue:[
+        triggerVal := triggerChannel value.
+
+        triggerVal == true ifTrue:[
             "
              now, store the buffered value into the subject
             "
             subject value:bufferedValue.
             ^ self
         ].
-        triggerChannel value == false ifTrue:[
+        triggerVal == false ifTrue:[
             "
              cancel: flush my buffered value
             "
             bufferedValue := NotYetAssigned.
+            self changed:#value.
         ].
-        self changed:#value.
-        "/ self notifyChange:#value. 
+"/        self changed:#value.
         ^ self
     ].
     changedObject == subject ifTrue:[
         bufferedValue := NotYetAssigned.
         self changed:#value.
-        "/ self notifyChange:#value.
         ^ self
     ].
 
-    "Modified: / 30.10.1997 / 05:01:30 / cg"
+    "Modified: / 28.7.1998 / 11:54:39 / cg"
 ! !
 
 !BufferedValueHolder methodsFor:'initialization'!
@@ -222,5 +225,5 @@
 !BufferedValueHolder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/BuffValHldr.st,v 1.13 1998-01-27 11:12:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/BuffValHldr.st,v 1.14 1998-07-28 09:54:55 cg Exp $'
 ! !
--- a/BufferedValueHolder.st	Tue Jul 28 11:54:04 1998 +0200
+++ b/BufferedValueHolder.st	Tue Jul 28 11:54:55 1998 +0200
@@ -173,32 +173,35 @@
 !BufferedValueHolder methodsFor:'change & update'!
 
 update:something with:aParameter from:changedObject
+    |triggerVal|
+
     changedObject == triggerChannel ifTrue:[
-        triggerChannel value == true ifTrue:[
+        triggerVal := triggerChannel value.
+
+        triggerVal == true ifTrue:[
             "
              now, store the buffered value into the subject
             "
             subject value:bufferedValue.
             ^ self
         ].
-        triggerChannel value == false ifTrue:[
+        triggerVal == false ifTrue:[
             "
              cancel: flush my buffered value
             "
             bufferedValue := NotYetAssigned.
+            self changed:#value.
         ].
-        self changed:#value.
-        "/ self notifyChange:#value. 
+"/        self changed:#value.
         ^ self
     ].
     changedObject == subject ifTrue:[
         bufferedValue := NotYetAssigned.
         self changed:#value.
-        "/ self notifyChange:#value.
         ^ self
     ].
 
-    "Modified: / 30.10.1997 / 05:01:30 / cg"
+    "Modified: / 28.7.1998 / 11:54:39 / cg"
 ! !
 
 !BufferedValueHolder methodsFor:'initialization'!
@@ -222,5 +225,5 @@
 !BufferedValueHolder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/BufferedValueHolder.st,v 1.13 1998-01-27 11:12:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/BufferedValueHolder.st,v 1.14 1998-07-28 09:54:55 cg Exp $'
 ! !
hg/stx-libview2