--- a/ValueModel.st	Thu Apr 26 12:36:26 2012 +0200
+++ b/ValueModel.st	Fri Apr 27 14:52:11 2012 +0200
@@ -146,6 +146,20 @@
     ^ BlockValue with:aBlock arguments:(Array with:self)
 ! !
 
+!ValueModel methodsFor:'misc'!
+
+deccrement
+    self value:(self value + 1)
+
+    "Created: / 27-04-2012 / 14:51:54 / cg"
+!
+
+increment
+    self value:(self value + 1)
+
+    "Created: / 27-04-2012 / 14:51:51 / cg"
+! !
+
 !ValueModel methodsFor:'queries'!
 
 isBuffering
@@ -167,5 +181,5 @@
 !ValueModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.32 2011-09-29 11:19:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.33 2012-04-27 12:52:11 cg Exp $'
 ! !