module Qtc.Core.QPointF (
QqqPointF(..), QqPointF(..)
,QqqPointF_nf(..), QqPointF_nf(..)
,qtoPoint, qqtoPoint
,qPointF_delete
)
where
import Foreign.C.Types
import Qth.ClassTypes.Core
import Qtc.Enums.Base
import Qtc.Classes.Base
import Qtc.Classes.Qccs
import Qtc.Classes.Core
import Qtc.ClassTypes.Core
import Qth.ClassTypes.Core
class QqqPointF x1 where
qqPointF :: x1 -> IO (QPointF ())
class QqPointF x1 where
qPointF :: x1 -> IO (QPointF ())
instance QqPointF (()) where
qPointF ()
= withQPointFResult $
qtc_QPointF
foreign import ccall "qtc_QPointF" qtc_QPointF :: IO (Ptr (TQPointF ()))
instance QqqPointF ((QPoint t1)) where
qqPointF (x1)
= withQPointFResult $
withObjectPtr x1 $ \cobj_x1 ->
qtc_QPointF1 cobj_x1
foreign import ccall "qtc_QPointF1" qtc_QPointF1 :: Ptr (TQPoint t1) -> IO (Ptr (TQPointF ()))
instance QqPointF ((Point)) where
qPointF (x1)
= withQPointFResult $
withCPoint x1 $ \cpoint_x1_x cpoint_x1_y ->
qtc_QPointF2 cpoint_x1_x cpoint_x1_y
foreign import ccall "qtc_QPointF2" qtc_QPointF2 :: CInt -> CInt -> IO (Ptr (TQPointF ()))
instance QqqPointF ((QPointF t1)) where
qqPointF (x1)
= withQPointFResult $
withObjectPtr x1 $ \cobj_x1 ->
qtc_QPointF3 cobj_x1
foreign import ccall "qtc_QPointF3" qtc_QPointF3 :: Ptr (TQPointF t1) -> IO (Ptr (TQPointF ()))
instance QqPointF ((PointF)) where
qPointF (x1)
= withQPointFResult $
withCPointF x1 $ \cpointf_x1_x cpointf_x1_y ->
qtc_QPointF4 cpointf_x1_x cpointf_x1_y
foreign import ccall "qtc_QPointF4" qtc_QPointF4 :: CDouble -> CDouble -> IO (Ptr (TQPointF ()))
instance QqPointF ((Double, Double)) where
qPointF (x1, x2)
= withQPointFResult $
qtc_QPointF5 (toCDouble x1) (toCDouble x2)
foreign import ccall "qtc_QPointF5" qtc_QPointF5 :: CDouble -> CDouble -> IO (Ptr (TQPointF ()))
class QqqPointF_nf x1 where
qqPointF_nf :: x1 -> IO (QPointF ())
class QqPointF_nf x1 where
qPointF_nf :: x1 -> IO (QPointF ())
instance QqPointF_nf (()) where
qPointF_nf ()
= withObjectRefResult $
qtc_QPointF
instance QqqPointF_nf ((QPoint t1)) where
qqPointF_nf (x1)
= withObjectRefResult $
withObjectPtr x1 $ \cobj_x1 ->
qtc_QPointF1 cobj_x1
instance QqPointF_nf ((Point)) where
qPointF_nf (x1)
= withObjectRefResult $
withCPoint x1 $ \cpoint_x1_x cpoint_x1_y ->
qtc_QPointF2 cpoint_x1_x cpoint_x1_y
instance QqqPointF_nf ((QPointF t1)) where
qqPointF_nf (x1)
= withObjectRefResult $
withObjectPtr x1 $ \cobj_x1 ->
qtc_QPointF3 cobj_x1
instance QqPointF_nf ((PointF)) where
qPointF_nf (x1)
= withObjectRefResult $
withCPointF x1 $ \cpointf_x1_x cpointf_x1_y ->
qtc_QPointF4 cpointf_x1_x cpointf_x1_y
instance QqPointF_nf ((Double, Double)) where
qPointF_nf (x1, x2)
= withObjectRefResult $
qtc_QPointF5 (toCDouble x1) (toCDouble x2)
instance QqisNull (QPointF a) (()) where
qisNull x0 ()
= withBoolResult $
withObjectPtr x0 $ \cobj_x0 ->
qtc_QPointF_isNull cobj_x0
foreign import ccall "qtc_QPointF_isNull" qtc_QPointF_isNull :: Ptr (TQPointF a) -> IO CBool
instance QqsetX (QPointF a) ((Double)) where
qsetX x0 (x1)
= withObjectPtr x0 $ \cobj_x0 ->
qtc_QPointF_setX cobj_x0 (toCDouble x1)
foreign import ccall "qtc_QPointF_setX" qtc_QPointF_setX :: Ptr (TQPointF a) -> CDouble -> IO ()
instance QqsetY (QPointF a) ((Double)) where
qsetY x0 (x1)
= withObjectPtr x0 $ \cobj_x0 ->
qtc_QPointF_setY cobj_x0 (toCDouble x1)
foreign import ccall "qtc_QPointF_setY" qtc_QPointF_setY :: Ptr (TQPointF a) -> CDouble -> IO ()
qtoPoint :: QPointF a -> (()) -> IO (Point)
qtoPoint x0 ()
= withPointResult $ \cpoint_ret_x cpoint_ret_y ->
withObjectPtr x0 $ \cobj_x0 ->
qtc_QPointF_toPoint_qth cobj_x0 cpoint_ret_x cpoint_ret_y
foreign import ccall "qtc_QPointF_toPoint_qth" qtc_QPointF_toPoint_qth :: Ptr (TQPointF a) -> Ptr CInt -> Ptr CInt -> IO ()
qqtoPoint :: QPointF a -> (()) -> IO (QPoint ())
qqtoPoint x0 ()
= withQPointResult $
withObjectPtr x0 $ \cobj_x0 ->
qtc_QPointF_toPoint cobj_x0
foreign import ccall "qtc_QPointF_toPoint" qtc_QPointF_toPoint :: Ptr (TQPointF a) -> IO (Ptr (TQPoint ()))
instance Qqx (QPointF a) (()) (IO (Double)) where
qx x0 ()
= withDoubleResult $
withObjectPtr x0 $ \cobj_x0 ->
qtc_QPointF_x cobj_x0
foreign import ccall "qtc_QPointF_x" qtc_QPointF_x :: Ptr (TQPointF a) -> IO CDouble
instance Qqy (QPointF a) (()) (IO (Double)) where
qy x0 ()
= withDoubleResult $
withObjectPtr x0 $ \cobj_x0 ->
qtc_QPointF_y cobj_x0
foreign import ccall "qtc_QPointF_y" qtc_QPointF_y :: Ptr (TQPointF a) -> IO CDouble
qPointF_delete :: QPointF a -> IO ()
qPointF_delete x0
= withObjectPtr x0 $ \cobj_x0 ->
qtc_QPointF_delete cobj_x0
foreign import ccall "qtc_QPointF_delete" qtc_QPointF_delete :: Ptr (TQPointF a) -> IO ()