Scrollbar in action

module Main(main) where

import Haggis

main =
 mkDC [] >>= \dc ->
  scrollbar XAxis              >>= \(sli,dh1) ->
  label  "0.00" dc             >>= \(lab,dh2) ->
 realiseDH dc (hbox [dh2,dh1]) >>
 loopIO (
   waitScrollbarMovement sli >>= \ (v,_) ->
   let
    str = printf "%1.2f" [UDouble v]
   in
   setLabel lab str) >>
 return ()