 -- | Emitted when the user presses a key (e.g. Page Up, Home, Right Arrow) to
 -- move the slider. The 'ScrollType' parameter gives the key that was pressed.
 --
--- Usually you should use 'onValueChanged' \/ 'afterValueChanged' instead.
+-- Usually you should use 'onRangeValueChanged' \/
+-- 'afterRangeValueChanged' instead.
 --
 onMoveSlider, afterMoveSlider :: RangeClass self => self
  -> (ScrollType -> IO ())

  afterMoveSlider,
  onAdjustBounds,
  afterAdjustBounds,
--  onValueChanged,
--  afterValueChanged,
  ) where

import Monad	(liftM)

-- | Emitted when the range value is changed either programmatically or by
-- user action.
--
onRangeValueChanged, afterRangeValueChanged :: RangeClass self => self
 -> IO ()
 -> IO (ConnectId self)
onRangeValueChanged = connect_NONE__NONE "value_changed" False
afterRangeValueChanged = connect_NONE__NONE "value_changed" True

-- | Emitted when the range is adjusted by user action. Note the value can be
-- outside the bounds of the range since it depends on the mouse position.
--
-- Usually you should use 'onRangeValueChanged' \/ 'afterRangeValueChanged'
-- instead.
--
onAdjustBounds, afterAdjustBounds :: RangeClass self => self
 -> (Double -> IO ())
