module Qtc.Enums.Gui.QStyleOptionFrameV2 (
QStyleOptionFrameV2StyleOptionVersion
, FrameFeature, FrameFeatures
)
where
import Foreign.C.Types
import Qtc.Classes.Base
import Qtc.ClassTypes.Core (QObject, TQObject, qObjectFromPtr)
import Qtc.Core.Base (Qcs, connectSlot, qtc_connectSlot_int, wrapSlotHandler_int)
import Qtc.Enums.Base
import Qtc.Enums.Classes.Core
data CQStyleOptionFrameV2StyleOptionVersion a = CQStyleOptionFrameV2StyleOptionVersion a
type QStyleOptionFrameV2StyleOptionVersion = QEnum(CQStyleOptionFrameV2StyleOptionVersion Int)
ieQStyleOptionFrameV2StyleOptionVersion :: Int -> QStyleOptionFrameV2StyleOptionVersion
ieQStyleOptionFrameV2StyleOptionVersion x = QEnum (CQStyleOptionFrameV2StyleOptionVersion x)
instance QEnumC (CQStyleOptionFrameV2StyleOptionVersion Int) where
qEnum_toInt (QEnum (CQStyleOptionFrameV2StyleOptionVersion x)) = x
qEnum_fromInt x = QEnum (CQStyleOptionFrameV2StyleOptionVersion x)
withQEnumResult x
= do
ti <- x
return $ qEnum_fromInt $ fromIntegral ti
withQEnumListResult x
= do
til <- x
return $ map qEnum_fromInt til
instance Qcs (QObject c -> QStyleOptionFrameV2StyleOptionVersion -> IO ()) where
connectSlot _qsig_obj _qsig_nam _qslt_obj _qslt_nam _handler
= do
funptr <- wrapSlotHandler_int slotHandlerWrapper_int
stptr <- newStablePtr (Wrap _handler)
withObjectPtr _qsig_obj $ \cobj_sig ->
withCWString _qsig_nam $ \cstr_sig ->
withObjectPtr _qslt_obj $ \cobj_slt ->
withCWString _qslt_nam $ \cstr_slt ->
qtc_connectSlot_int cobj_sig cstr_sig cobj_slt cstr_slt (toCFunPtr funptr) (castStablePtrToPtr stptr)
return ()
where
slotHandlerWrapper_int :: Ptr fun -> Ptr () -> Ptr (TQObject c) -> CInt -> IO ()
slotHandlerWrapper_int funptr stptr qobjptr cint
= do qobj <- qObjectFromPtr qobjptr
let hint = fromCInt cint
if (objectIsNull qobj)
then do when (stptr/=ptrNull)
(freeStablePtr (castPtrToStablePtr stptr))
when (funptr/=ptrNull)
(freeHaskellFunPtr (castPtrToFunPtr funptr))
else _handler qobj (qEnum_fromInt hint)
return ()
instance QeVersion QStyleOptionFrameV2StyleOptionVersion where
eVersion
= ieQStyleOptionFrameV2StyleOptionVersion $ 2
data CFrameFeature a = CFrameFeature a
type FrameFeature = QEnum(CFrameFeature Int)
ieFrameFeature :: Int -> FrameFeature
ieFrameFeature x = QEnum (CFrameFeature x)
instance QEnumC (CFrameFeature Int) where
qEnum_toInt (QEnum (CFrameFeature x)) = x
qEnum_fromInt x = QEnum (CFrameFeature x)
withQEnumResult x
= do
ti <- x
return $ qEnum_fromInt $ fromIntegral ti
withQEnumListResult x
= do
til <- x
return $ map qEnum_fromInt til
instance Qcs (QObject c -> FrameFeature -> IO ()) where
connectSlot _qsig_obj _qsig_nam _qslt_obj _qslt_nam _handler
= do
funptr <- wrapSlotHandler_int slotHandlerWrapper_int
stptr <- newStablePtr (Wrap _handler)
withObjectPtr _qsig_obj $ \cobj_sig ->
withCWString _qsig_nam $ \cstr_sig ->
withObjectPtr _qslt_obj $ \cobj_slt ->
withCWString _qslt_nam $ \cstr_slt ->
qtc_connectSlot_int cobj_sig cstr_sig cobj_slt cstr_slt (toCFunPtr funptr) (castStablePtrToPtr stptr)
return ()
where
slotHandlerWrapper_int :: Ptr fun -> Ptr () -> Ptr (TQObject c) -> CInt -> IO ()
slotHandlerWrapper_int funptr stptr qobjptr cint
= do qobj <- qObjectFromPtr qobjptr
let hint = fromCInt cint
if (objectIsNull qobj)
then do when (stptr/=ptrNull)
(freeStablePtr (castPtrToStablePtr stptr))
when (funptr/=ptrNull)
(freeHaskellFunPtr (castPtrToFunPtr funptr))
else _handler qobj (qEnum_fromInt hint)
return ()
data CFrameFeatures a = CFrameFeatures a
type FrameFeatures = QFlags(CFrameFeatures Int)
ifFrameFeatures :: Int -> FrameFeatures
ifFrameFeatures x = QFlags (CFrameFeatures x)
instance QFlagsC (CFrameFeatures Int) where
qFlags_toInt (QFlags (CFrameFeatures x)) = x
qFlags_fromInt x = QFlags (CFrameFeatures x)
withQFlagsResult x
= do
ti <- x
return $ qFlags_fromInt $ fromIntegral ti
withQFlagsListResult x
= do
til <- x
return $ map qFlags_fromInt til
instance Qcs (QObject c -> FrameFeatures -> IO ()) where
connectSlot _qsig_obj _qsig_nam _qslt_obj _qslt_nam _handler
= do
funptr <- wrapSlotHandler_int slotHandlerWrapper_int
stptr <- newStablePtr (Wrap _handler)
withObjectPtr _qsig_obj $ \cobj_sig ->
withCWString _qsig_nam $ \cstr_sig ->
withObjectPtr _qslt_obj $ \cobj_slt ->
withCWString _qslt_nam $ \cstr_slt ->
qtc_connectSlot_int cobj_sig cstr_sig cobj_slt cstr_slt (toCFunPtr funptr) (castStablePtrToPtr stptr)
return ()
where
slotHandlerWrapper_int :: Ptr fun -> Ptr () -> Ptr (TQObject c) -> CInt -> IO ()
slotHandlerWrapper_int funptr stptr qobjptr cint
= do qobj <- qObjectFromPtr qobjptr
let hint = fromCInt cint
if (objectIsNull qobj)
then do when (stptr/=ptrNull)
(freeStablePtr (castPtrToStablePtr stptr))
when (funptr/=ptrNull)
(freeHaskellFunPtr (castPtrToFunPtr funptr))
else _handler qobj (qFlags_fromInt hint)
return ()
instance QeNone FrameFeature where
eNone
= ieFrameFeature $ 0
instance QeFlat FrameFeature where
eFlat
= ieFrameFeature $ 1
instance QfNone FrameFeatures where
fNone
= ifFrameFeatures $ 0
instance QfFlat FrameFeatures where
fFlat
= ifFrameFeatures $ 1