module Qtc.Enums.Gui.QFont (
QFontStyleHint, eHelvetica, eSansSerif, eTimes, eSerif, eCourier, eTypeWriter, eOldEnglish, eDecorative, eAnyStyle
, StyleStrategy, ePreferDefault, ePreferBitmap, ePreferDevice, ePreferOutline, eForceOutline, ePreferMatch, ePreferQuality, ePreferAntialias, eNoAntialias, eOpenGLCompatible, eNoFontMerging
, Weight, eDemiBold, eBlack
, QFontStyle, eStyleNormal, eStyleItalic, eStyleOblique
, Stretch, eUltraCondensed, eExtraCondensed, eCondensed, eSemiCondensed, eUnstretched, eSemiExpanded, eExpanded, eExtraExpanded, eUltraExpanded
)
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 CQFontStyleHint a = CQFontStyleHint a
type QFontStyleHint = QEnum(CQFontStyleHint Int)
ieQFontStyleHint :: Int -> QFontStyleHint
ieQFontStyleHint x = QEnum (CQFontStyleHint x)
instance QEnumC (CQFontStyleHint Int) where
qEnum_toInt (QEnum (CQFontStyleHint x)) = x
qEnum_fromInt x = QEnum (CQFontStyleHint 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 -> QFontStyleHint -> 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 ()
eHelvetica :: QFontStyleHint
eHelvetica
= ieQFontStyleHint $ 0
eSansSerif :: QFontStyleHint
eSansSerif
= ieQFontStyleHint $ 0
eTimes :: QFontStyleHint
eTimes
= ieQFontStyleHint $ 1
eSerif :: QFontStyleHint
eSerif
= ieQFontStyleHint $ 1
eCourier :: QFontStyleHint
eCourier
= ieQFontStyleHint $ 2
eTypeWriter :: QFontStyleHint
eTypeWriter
= ieQFontStyleHint $ 2
eOldEnglish :: QFontStyleHint
eOldEnglish
= ieQFontStyleHint $ 3
eDecorative :: QFontStyleHint
eDecorative
= ieQFontStyleHint $ 3
instance QeSystem QFontStyleHint where
eSystem
= ieQFontStyleHint $ 4
eAnyStyle :: QFontStyleHint
eAnyStyle
= ieQFontStyleHint $ 5
data CStyleStrategy a = CStyleStrategy a
type StyleStrategy = QEnum(CStyleStrategy Int)
ieStyleStrategy :: Int -> StyleStrategy
ieStyleStrategy x = QEnum (CStyleStrategy x)
instance QEnumC (CStyleStrategy Int) where
qEnum_toInt (QEnum (CStyleStrategy x)) = x
qEnum_fromInt x = QEnum (CStyleStrategy 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 -> StyleStrategy -> 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 ()
ePreferDefault :: StyleStrategy
ePreferDefault
= ieStyleStrategy $ 1
ePreferBitmap :: StyleStrategy
ePreferBitmap
= ieStyleStrategy $ 2
ePreferDevice :: StyleStrategy
ePreferDevice
= ieStyleStrategy $ 4
ePreferOutline :: StyleStrategy
ePreferOutline
= ieStyleStrategy $ 8
eForceOutline :: StyleStrategy
eForceOutline
= ieStyleStrategy $ 16
ePreferMatch :: StyleStrategy
ePreferMatch
= ieStyleStrategy $ 32
ePreferQuality :: StyleStrategy
ePreferQuality
= ieStyleStrategy $ 64
ePreferAntialias :: StyleStrategy
ePreferAntialias
= ieStyleStrategy $ 128
eNoAntialias :: StyleStrategy
eNoAntialias
= ieStyleStrategy $ 256
eOpenGLCompatible :: StyleStrategy
eOpenGLCompatible
= ieStyleStrategy $ 512
eNoFontMerging :: StyleStrategy
eNoFontMerging
= ieStyleStrategy $ 32768
data CWeight a = CWeight a
type Weight = QEnum(CWeight Int)
ieWeight :: Int -> Weight
ieWeight x = QEnum (CWeight x)
instance QEnumC (CWeight Int) where
qEnum_toInt (QEnum (CWeight x)) = x
qEnum_fromInt x = QEnum (CWeight 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 -> Weight -> 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 QeLight Weight where
eLight
= ieWeight $ 25
instance QeNormal Weight where
eNormal
= ieWeight $ 50
eDemiBold :: Weight
eDemiBold
= ieWeight $ 63
instance QeBold Weight where
eBold
= ieWeight $ 75
eBlack :: Weight
eBlack
= ieWeight $ 87
data CQFontStyle a = CQFontStyle a
type QFontStyle = QEnum(CQFontStyle Int)
ieQFontStyle :: Int -> QFontStyle
ieQFontStyle x = QEnum (CQFontStyle x)
instance QEnumC (CQFontStyle Int) where
qEnum_toInt (QEnum (CQFontStyle x)) = x
qEnum_fromInt x = QEnum (CQFontStyle 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 -> QFontStyle -> 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 ()
eStyleNormal :: QFontStyle
eStyleNormal
= ieQFontStyle $ 0
eStyleItalic :: QFontStyle
eStyleItalic
= ieQFontStyle $ 1
eStyleOblique :: QFontStyle
eStyleOblique
= ieQFontStyle $ 2
data CStretch a = CStretch a
type Stretch = QEnum(CStretch Int)
ieStretch :: Int -> Stretch
ieStretch x = QEnum (CStretch x)
instance QEnumC (CStretch Int) where
qEnum_toInt (QEnum (CStretch x)) = x
qEnum_fromInt x = QEnum (CStretch 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 -> Stretch -> 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 ()
eUltraCondensed :: Stretch
eUltraCondensed
= ieStretch $ 50
eExtraCondensed :: Stretch
eExtraCondensed
= ieStretch $ 62
eCondensed :: Stretch
eCondensed
= ieStretch $ 75
eSemiCondensed :: Stretch
eSemiCondensed
= ieStretch $ 87
eUnstretched :: Stretch
eUnstretched
= ieStretch $ 100
eSemiExpanded :: Stretch
eSemiExpanded
= ieStretch $ 112
eExpanded :: Stretch
eExpanded
= ieStretch $ 125
eExtraExpanded :: Stretch
eExtraExpanded
= ieStretch $ 150
eUltraExpanded :: Stretch
eUltraExpanded
= ieStretch $ 200