{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, GeneralizedNewtypeDeriving, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}
{-# 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