{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, GeneralizedNewtypeDeriving, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}
---------- GENERATED FILE, EDITS WILL BE LOST ----------

{-# LANGUAGE NoMonomorphismRestriction #-}

module Graphics.UI.Qtah.Gui.QCursor (
  QCursorValue (..),
  QCursorConstPtr (..),
  QCursorPtr (..),
  QCursorConst,
  QCursor,
  castConst,
  cast,
  downCastConst,
  downCast,
  decode,
  new,
  newCopy,
  newWithCursorShape,
  aSSIGN,
  eQ,
  nE,
  pos,
  setPos,
  setPosRaw,
  ) where

import qualified Foreign.Hoppy.Runtime as QtahFHR
import Graphics.UI.Qtah.Generated.Gui.QCursor
import qualified Graphics.UI.Qtah.Generated.Gui.QCursor as M108
import Prelude ()
import qualified Prelude as QtahP


castConst = toQCursorConst
cast = toQCursor
downCastConst = downToQCursorConst
downCast = downToQCursor

decode :: (QCursorConstPtr this) => this -> QtahP.IO M108.QCursor
decode = QtahFHR.decode QtahP.. toQCursorConst