--- a/ConvertedValue.st Fri Sep 15 16:30:57 2006 +0200
+++ b/ConvertedValue.st Fri Sep 15 20:02:35 2006 +0200
@@ -1,3 +1,5 @@
+"{ Package: 'stx:libview2' }"
+
ValueHolder subclass:#ConvertedValue
instanceVariableNames:'conversion'
classVariableNames:''
@@ -21,7 +23,7 @@
ifTrue:[Color red]
ifFalse:[Color blue]];
value:false.
-
+
toggle := Toggle label:'change color'.
toggle controller pressChannel:converter.
@@ -42,7 +44,7 @@
!ConvertedValue methodsFor:'accessing'!
-conversion:aBlock
+conversion:aBlock
conversion := aBlock
!
@@ -57,5 +59,5 @@
!ConvertedValue class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ConvertedValue.st,v 1.4 1996-05-10 16:42:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ConvertedValue.st,v 1.5 2006-09-15 18:02:35 cg Exp $'
! !