checkin from browser
authorClaus Gittinger <cg@exept.de>
Fri, 22 May 1998 15:03:58 +0200
changeset 944 4ef99f8da24f
parent 943 40c17a6db86d
child 945 55006a8d9727
checkin from browser
TypeConv.st
TypeConverter.st
--- a/TypeConv.st	Fri May 22 11:57:17 1998 +0200
+++ b/TypeConv.st	Fri May 22 15:03:58 1998 +0200
@@ -522,7 +522,7 @@
                     value := value max:minVal.
                 ].
                 maxVal notNil ifTrue:[
-                    value := value min:minVal.
+                    value := value min:maxVal.
                 ].
                 model value:value]
 
@@ -665,5 +665,5 @@
 !TypeConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/TypeConv.st,v 1.12 1998-05-22 09:57:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/TypeConv.st,v 1.13 1998-05-22 13:03:58 cg Exp $'
 ! !
--- a/TypeConverter.st	Fri May 22 11:57:17 1998 +0200
+++ b/TypeConverter.st	Fri May 22 15:03:58 1998 +0200
@@ -522,7 +522,7 @@
                     value := value max:minVal.
                 ].
                 maxVal notNil ifTrue:[
-                    value := value min:minVal.
+                    value := value min:maxVal.
                 ].
                 model value:value]
 
@@ -665,5 +665,5 @@
 !TypeConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.12 1998-05-22 09:57:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.13 1998-05-22 13:03:58 cg Exp $'
 ! !