module Qtc.Gui.QToolTip (
qToolTipFont
,qToolTipHideText
,qToolTipPalette
,qToolTipSetFont
,qToolTipSetPalette
,QqToolTipShowText(..), QqqToolTipShowText(..)
)
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
import Qtc.Classes.Gui
import Qtc.ClassTypes.Gui
qToolTipFont :: (()) -> IO (QFont ())
qToolTipFont ()
= withQFontResult $
qtc_QToolTip_font
foreign import ccall "qtc_QToolTip_font" qtc_QToolTip_font :: IO (Ptr (TQFont ()))
qToolTipHideText :: (()) -> IO ()
qToolTipHideText ()
= qtc_QToolTip_hideText
foreign import ccall "qtc_QToolTip_hideText" qtc_QToolTip_hideText :: IO ()
qToolTipPalette :: (()) -> IO (QPalette ())
qToolTipPalette ()
= withQPaletteResult $
qtc_QToolTip_palette
foreign import ccall "qtc_QToolTip_palette" qtc_QToolTip_palette :: IO (Ptr (TQPalette ()))
qToolTipSetFont :: ((QFont t1)) -> IO ()
qToolTipSetFont (x1)
= withObjectPtr x1 $ \cobj_x1 ->
qtc_QToolTip_setFont cobj_x1
foreign import ccall "qtc_QToolTip_setFont" qtc_QToolTip_setFont :: Ptr (TQFont t1) -> IO ()
qToolTipSetPalette :: ((QPalette t1)) -> IO ()
qToolTipSetPalette (x1)
= withObjectPtr x1 $ \cobj_x1 ->
qtc_QToolTip_setPalette cobj_x1
foreign import ccall "qtc_QToolTip_setPalette" qtc_QToolTip_setPalette :: Ptr (TQPalette t1) -> IO ()
class QqToolTipShowText x1 where
qToolTipShowText :: x1 -> IO ()
class QqqToolTipShowText x1 where
qqToolTipShowText :: x1 -> IO ()
instance QqToolTipShowText ((Point, String)) where
qToolTipShowText (x1, x2)
= withCPoint x1 $ \cpoint_x1_x cpoint_x1_y ->
withCWString x2 $ \cstr_x2 ->
qtc_QToolTip_showText_qth cpoint_x1_x cpoint_x1_y cstr_x2
foreign import ccall "qtc_QToolTip_showText_qth" qtc_QToolTip_showText_qth :: CInt -> CInt -> CWString -> IO ()
instance QqToolTipShowText ((Point, String, QWidget t3)) where
qToolTipShowText (x1, x2, x3)
= withCPoint x1 $ \cpoint_x1_x cpoint_x1_y ->
withCWString x2 $ \cstr_x2 ->
withObjectPtr x3 $ \cobj_x3 ->
qtc_QToolTip_showText1_qth cpoint_x1_x cpoint_x1_y cstr_x2 cobj_x3
foreign import ccall "qtc_QToolTip_showText1_qth" qtc_QToolTip_showText1_qth :: CInt -> CInt -> CWString -> Ptr (TQWidget t3) -> IO ()
instance QqToolTipShowText ((Point, String, QWidget t3, Rect)) where
qToolTipShowText (x1, x2, x3, x4)
= withCPoint x1 $ \cpoint_x1_x cpoint_x1_y ->
withCWString x2 $ \cstr_x2 ->
withObjectPtr x3 $ \cobj_x3 ->
withCRect x4 $ \crect_x4_x crect_x4_y crect_x4_w crect_x4_h ->
qtc_QToolTip_showText2_qth cpoint_x1_x cpoint_x1_y cstr_x2 cobj_x3 crect_x4_x crect_x4_y crect_x4_w crect_x4_h
foreign import ccall "qtc_QToolTip_showText2_qth" qtc_QToolTip_showText2_qth :: CInt -> CInt -> CWString -> Ptr (TQWidget t3) -> CInt -> CInt -> CInt -> CInt -> IO ()
instance QqqToolTipShowText ((QPoint t1, String)) where
qqToolTipShowText (x1, x2)
= withObjectPtr x1 $ \cobj_x1 ->
withCWString x2 $ \cstr_x2 ->
qtc_QToolTip_showText cobj_x1 cstr_x2
foreign import ccall "qtc_QToolTip_showText" qtc_QToolTip_showText :: Ptr (TQPoint t1) -> CWString -> IO ()
instance QqqToolTipShowText ((QPoint t1, String, QWidget t3)) where
qqToolTipShowText (x1, x2, x3)
= withObjectPtr x1 $ \cobj_x1 ->
withCWString x2 $ \cstr_x2 ->
withObjectPtr x3 $ \cobj_x3 ->
qtc_QToolTip_showText1 cobj_x1 cstr_x2 cobj_x3
foreign import ccall "qtc_QToolTip_showText1" qtc_QToolTip_showText1 :: Ptr (TQPoint t1) -> CWString -> Ptr (TQWidget t3) -> IO ()
instance QqqToolTipShowText ((QPoint t1, String, QWidget t3, QRect t4)) where
qqToolTipShowText (x1, x2, x3, x4)
= withObjectPtr x1 $ \cobj_x1 ->
withCWString x2 $ \cstr_x2 ->
withObjectPtr x3 $ \cobj_x3 ->
withObjectPtr x4 $ \cobj_x4 ->
qtc_QToolTip_showText2 cobj_x1 cstr_x2 cobj_x3 cobj_x4
foreign import ccall "qtc_QToolTip_showText2" qtc_QToolTip_showText2 :: Ptr (TQPoint t1) -> CWString -> Ptr (TQWidget t3) -> Ptr (TQRect t4) -> IO ()