module Qtc.Enums.Gui.QStyleOptionToolBar (
QStyleOptionToolBarStyleOptionType
, QStyleOptionToolBarStyleOptionVersion
, ToolBarPosition, ToolBarPositions, fBeginning, fMiddle, fEnd, fOnlyOne
, ToolBarFeature, ToolBarFeatures, eMovable, fMovable
)
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 CQStyleOptionToolBarStyleOptionType a = CQStyleOptionToolBarStyleOptionType a
type QStyleOptionToolBarStyleOptionType = QEnum(CQStyleOptionToolBarStyleOptionType Int)
ieQStyleOptionToolBarStyleOptionType :: Int -> QStyleOptionToolBarStyleOptionType
ieQStyleOptionToolBarStyleOptionType x = QEnum (CQStyleOptionToolBarStyleOptionType x)
instance QEnumC (CQStyleOptionToolBarStyleOptionType Int) where
qEnum_toInt (QEnum (CQStyleOptionToolBarStyleOptionType x)) = x
qEnum_fromInt x = QEnum (CQStyleOptionToolBarStyleOptionType 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 -> QStyleOptionToolBarStyleOptionType -> 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 QeType QStyleOptionToolBarStyleOptionType where
eType
= ieQStyleOptionToolBarStyleOptionType $ 16
data CQStyleOptionToolBarStyleOptionVersion a = CQStyleOptionToolBarStyleOptionVersion a
type QStyleOptionToolBarStyleOptionVersion = QEnum(CQStyleOptionToolBarStyleOptionVersion Int)
ieQStyleOptionToolBarStyleOptionVersion :: Int -> QStyleOptionToolBarStyleOptionVersion
ieQStyleOptionToolBarStyleOptionVersion x = QEnum (CQStyleOptionToolBarStyleOptionVersion x)
instance QEnumC (CQStyleOptionToolBarStyleOptionVersion Int) where
qEnum_toInt (QEnum (CQStyleOptionToolBarStyleOptionVersion x)) = x
qEnum_fromInt x = QEnum (CQStyleOptionToolBarStyleOptionVersion 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 -> QStyleOptionToolBarStyleOptionVersion -> 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 QStyleOptionToolBarStyleOptionVersion where
eVersion
= ieQStyleOptionToolBarStyleOptionVersion $ 1
data CToolBarPosition a = CToolBarPosition a
type ToolBarPosition = QEnum(CToolBarPosition Int)
ieToolBarPosition :: Int -> ToolBarPosition
ieToolBarPosition x = QEnum (CToolBarPosition x)
instance QEnumC (CToolBarPosition Int) where
qEnum_toInt (QEnum (CToolBarPosition x)) = x
qEnum_fromInt x = QEnum (CToolBarPosition 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 -> ToolBarPosition -> 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 CToolBarPositions a = CToolBarPositions a
type ToolBarPositions = QFlags(CToolBarPositions Int)
ifToolBarPositions :: Int -> ToolBarPositions
ifToolBarPositions x = QFlags (CToolBarPositions x)
instance QFlagsC (CToolBarPositions Int) where
qFlags_toInt (QFlags (CToolBarPositions x)) = x
qFlags_fromInt x = QFlags (CToolBarPositions 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 -> ToolBarPositions -> 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 QeBeginning ToolBarPosition where
eBeginning
= ieToolBarPosition $ 0
instance QeMiddle ToolBarPosition where
eMiddle
= ieToolBarPosition $ 1
instance QeEnd ToolBarPosition where
eEnd
= ieToolBarPosition $ 2
instance QeOnlyOne ToolBarPosition where
eOnlyOne
= ieToolBarPosition $ 3
fBeginning :: ToolBarPositions
fBeginning
= ifToolBarPositions $ 0
fMiddle :: ToolBarPositions
fMiddle
= ifToolBarPositions $ 1
fEnd :: ToolBarPositions
fEnd
= ifToolBarPositions $ 2
fOnlyOne :: ToolBarPositions
fOnlyOne
= ifToolBarPositions $ 3
data CToolBarFeature a = CToolBarFeature a
type ToolBarFeature = QEnum(CToolBarFeature Int)
ieToolBarFeature :: Int -> ToolBarFeature
ieToolBarFeature x = QEnum (CToolBarFeature x)
instance QEnumC (CToolBarFeature Int) where
qEnum_toInt (QEnum (CToolBarFeature x)) = x
qEnum_fromInt x = QEnum (CToolBarFeature 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 -> ToolBarFeature -> 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 CToolBarFeatures a = CToolBarFeatures a
type ToolBarFeatures = QFlags(CToolBarFeatures Int)
ifToolBarFeatures :: Int -> ToolBarFeatures
ifToolBarFeatures x = QFlags (CToolBarFeatures x)
instance QFlagsC (CToolBarFeatures Int) where
qFlags_toInt (QFlags (CToolBarFeatures x)) = x
qFlags_fromInt x = QFlags (CToolBarFeatures 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 -> ToolBarFeatures -> 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 ToolBarFeature where
eNone
= ieToolBarFeature $ 0
eMovable :: ToolBarFeature
eMovable
= ieToolBarFeature $ 1
instance QfNone ToolBarFeatures where
fNone
= ifToolBarFeatures $ 0
fMovable :: ToolBarFeatures
fMovable
= ifToolBarFeatures $ 1