A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/History-variables/Smalltalk/history-variables.st
+++ b/Task/History-variables/Smalltalk/history-variables.st
@ -0,0 +1,35 @@
+Object subclass:'HVar'
+    instanceVariableNames:'values'
+    classVariableNames:''
+    poolDictionaries:''
+    category:'example'.
+!
+
+!HVar methodsFor:'accessing'!
+
+<-- value
+    (values ifNil:[values := OrderedCollection new]) add:value.
+    ^  value
+!
+
+value
+    ^ values last
+!
+
+undo
+    values removeLast.
+!
+
+history
+    ^ history
+! !
+
+|x|
+
+x := HVar new.
+x <-- 1.
+x value.
+x <-- 2.
+x <-- (x value + 1).
+x value.
+x history.