--- a/RangeAdaptor.st Wed Jul 22 13:16:57 1998 +0200
+++ b/RangeAdaptor.st Mon Jul 27 09:53:45 1998 +0200
@@ -164,18 +164,23 @@
!RangeAdaptor methodsFor:'actions'!
decrement
+ "deccrement my value by grid"
(grid notNil and:[subject notNil]) ifTrue:[
- self value:(subject value - grid max:rangeStart)
+ self value:((subject value - grid) max:rangeStart)
]
+ "Modified: / 27.7.1998 / 09:53:37 / cg"
!
increment
+ "increment my value by grid"
(grid notNil and:[subject notNil]) ifTrue:[
- self value:(subject value + grid min:rangeStop)
+ self value:((subject value + grid) min:rangeStop)
]
+
+ "Modified: / 27.7.1998 / 09:53:28 / cg"
! !
!RangeAdaptor methodsFor:'change & update'!
@@ -245,5 +250,5 @@
!RangeAdaptor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/RangeAdaptor.st,v 1.1 1997-10-11 14:32:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/RangeAdaptor.st,v 1.2 1998-07-27 07:53:45 cg Exp $'
! !