utils/heap-view/common-bits

   1  -----------------------------------------------------------------------------
   2
   3  xInitialise :: [String] -> Int -> Int -> IO ()
   4  xInitialise str x y =
   5          _ccall_ haskXBegin x y (0::Int)        `seqPrimIO`
   6          return ()
   7
   8  xHandleEvent :: IO ()
   9  xHandleEvent =
  10          _ccall_ haskHandleEvent                `thenPrimIO` \ n ->
  11          case (n::Int) of
  12                  0 -> return ()
  13                  _ -> error "Unknown Message back from Handle Event"
  14
  15  xClose :: IO ()
  16  xClose =
  17           _ccall_ haskXClose            `seqPrimIO`
  18           return ()
  19
  20  xCls :: IO ()
  21  xCls =
  22          _ccall_ haskXCls               `seqPrimIO`
  23          return ()
  24
  25  xDrawLine :: Int -> Int -> Int -> Int -> IO ()
  26  xDrawLine x1 y1 x2 y2 =
  27          _ccall_ haskXDraw x1 y1 x2 y2  `seqPrimIO`
  28          return ()
  29
  30  ----------------------------------------------------------------
  31
  32  usleep :: Int -> IO ()
  33  usleep t =
  34          _ccall_ usleep t               `seqPrimIO`
  35          return ()