--- 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 $'
! !