{-# LINE 2 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
module Graphics.UI.Gtk.MenuComboToolbar.ComboBox (
ComboBox,
ComboBoxClass,
castToComboBox, gTypeComboBox,
toComboBox,
ComboBoxText,
comboBoxNew,
comboBoxNewWithEntry,
comboBoxNewText,
comboBoxNewWithModel,
comboBoxNewWithModelAndEntry,
comboBoxSetModelText,
comboBoxGetModelText,
comboBoxAppendText,
comboBoxInsertText,
comboBoxPrependText,
comboBoxRemoveText,
comboBoxGetActiveText,
comboBoxGetWrapWidth,
comboBoxSetWrapWidth,
comboBoxGetRowSpanColumn,
comboBoxSetRowSpanColumn,
comboBoxGetColumnSpanColumn,
comboBoxSetColumnSpanColumn,
comboBoxGetActive,
comboBoxSetActive,
comboBoxGetActiveIter,
comboBoxSetActiveIter,
comboBoxGetModel,
comboBoxSetModel,
comboBoxPopup,
comboBoxPopdown,
comboBoxSetRowSeparatorSource,
comboBoxSetAddTearoffs,
comboBoxGetAddTearoffs,
comboBoxSetTitle,
comboBoxGetTitle,
comboBoxSetFocusOnClick,
comboBoxGetFocusOnClick,
comboBoxModel,
comboBoxWrapWidth,
comboBoxRowSpanColumn,
comboBoxColumnSpanColumn,
comboBoxActive,
comboBoxAddTearoffs,
comboBoxHasFrame,
comboBoxFocusOnClick,
comboBoxTearoffTitle,
comboBoxPopupShown,
comboBoxTitle,
comboBoxGetHasEntry,
comboBoxSetEntryTextColumn,
comboBoxGetEntryTextColumn,
changed,
) where
import Control.Monad (liftM)
import Data.Text (Text)
import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.Attributes
import System.Glib.Properties
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Types hiding (ListStore)
import Graphics.UI.Gtk.ModelView.Types (receiveTreeIter,
comboQuark)
import Graphics.UI.Gtk.Signals
{-# LINE 176 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
import Graphics.UI.Gtk.ModelView.CustomStore
{-# LINE 177 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
import Graphics.UI.Gtk.ModelView.TreeModel
{-# LINE 178 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
import Graphics.UI.Gtk.ModelView.ListStore ( ListStore, listStoreNew,
listStoreInsert, listStorePrepend, listStoreAppend, listStoreRemove,
listStoreSafeGetValue )
import Graphics.UI.Gtk.ModelView.CellLayout ( cellLayoutSetAttributes,
cellLayoutPackStart, cellLayoutClear )
import Graphics.UI.Gtk.ModelView.CellRendererText ( cellRendererTextNew,
cellText)
{-# LINE 186 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
comboBoxNew :: IO ComboBox
comboBoxNew :: IO ComboBox
comboBoxNew =
(ForeignPtr ComboBox -> ComboBox, FinalizerPtr ComboBox)
-> IO (Ptr ComboBox) -> IO ComboBox
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr ComboBox -> ComboBox, FinalizerPtr ComboBox)
forall {a}. (ForeignPtr ComboBox -> ComboBox, FinalizerPtr a)
mkComboBox (IO (Ptr ComboBox) -> IO ComboBox)
-> IO (Ptr ComboBox) -> IO ComboBox
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr ComboBox)
-> IO (Ptr Widget) -> IO (Ptr ComboBox)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr ComboBox
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr ComboBox) (IO (Ptr Widget) -> IO (Ptr ComboBox))
-> IO (Ptr Widget) -> IO (Ptr ComboBox)
forall a b. (a -> b) -> a -> b
$
IO (Ptr Widget)
gtk_combo_box_new
{-# LINE 198 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
comboBoxNewWithEntry :: IO ComboBox
comboBoxNewWithEntry :: IO ComboBox
comboBoxNewWithEntry =
(ForeignPtr ComboBox -> ComboBox, FinalizerPtr ComboBox)
-> IO (Ptr ComboBox) -> IO ComboBox
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr ComboBox -> ComboBox, FinalizerPtr ComboBox)
forall {a}. (ForeignPtr ComboBox -> ComboBox, FinalizerPtr a)
mkComboBox (IO (Ptr ComboBox) -> IO ComboBox)
-> IO (Ptr ComboBox) -> IO ComboBox
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr ComboBox)
-> IO (Ptr Widget) -> IO (Ptr ComboBox)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr ComboBox
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr ComboBox) (IO (Ptr Widget) -> IO (Ptr ComboBox))
-> IO (Ptr Widget) -> IO (Ptr ComboBox)
forall a b. (a -> b) -> a -> b
$
IO (Ptr Widget)
gtk_combo_box_new_with_entry
{-# LINE 209 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
comboBoxNewText :: IO ComboBox
comboBoxNewText :: IO ComboBox
comboBoxNewText = do
ComboBox
combo <- IO ComboBox
comboBoxNew
ComboBox -> IO (ListStore ComboBoxText)
forall self.
ComboBoxClass self =>
self -> IO (ListStore ComboBoxText)
comboBoxSetModelText ComboBox
combo
ComboBox -> IO ComboBox
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ComboBox
combo
comboBoxNewWithModel :: TreeModelClass model =>
model
-> IO ComboBox
comboBoxNewWithModel :: forall model. TreeModelClass model => model -> IO ComboBox
comboBoxNewWithModel model
model =
(ForeignPtr ComboBox -> ComboBox, FinalizerPtr ComboBox)
-> IO (Ptr ComboBox) -> IO ComboBox
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr ComboBox -> ComboBox, FinalizerPtr ComboBox)
forall {a}. (ForeignPtr ComboBox -> ComboBox, FinalizerPtr a)
mkComboBox (IO (Ptr ComboBox) -> IO ComboBox)
-> IO (Ptr ComboBox) -> IO ComboBox
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr ComboBox)
-> IO (Ptr Widget) -> IO (Ptr ComboBox)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr ComboBox
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr ComboBox) (IO (Ptr Widget) -> IO (Ptr ComboBox))
-> IO (Ptr Widget) -> IO (Ptr ComboBox)
forall a b. (a -> b) -> a -> b
$
(\(TreeModel ForeignPtr TreeModel
arg1) -> ForeignPtr TreeModel
-> (Ptr TreeModel -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TreeModel
arg1 ((Ptr TreeModel -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> (Ptr TreeModel -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr TreeModel
argPtr1 ->Ptr TreeModel -> IO (Ptr Widget)
gtk_combo_box_new_with_model Ptr TreeModel
argPtr1)
{-# LINE 231 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toTreeModel model)
comboBoxNewWithModelAndEntry :: TreeModelClass model =>
model
-> IO ComboBox
comboBoxNewWithModelAndEntry :: forall model. TreeModelClass model => model -> IO ComboBox
comboBoxNewWithModelAndEntry model
model =
(ForeignPtr ComboBox -> ComboBox, FinalizerPtr ComboBox)
-> IO (Ptr ComboBox) -> IO ComboBox
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr ComboBox -> ComboBox, FinalizerPtr ComboBox)
forall {a}. (ForeignPtr ComboBox -> ComboBox, FinalizerPtr a)
mkComboBox (IO (Ptr ComboBox) -> IO ComboBox)
-> IO (Ptr ComboBox) -> IO ComboBox
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr ComboBox)
-> IO (Ptr Widget) -> IO (Ptr ComboBox)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr ComboBox
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr ComboBox) (IO (Ptr Widget) -> IO (Ptr ComboBox))
-> IO (Ptr Widget) -> IO (Ptr ComboBox)
forall a b. (a -> b) -> a -> b
$
(\(TreeModel ForeignPtr TreeModel
arg1) -> ForeignPtr TreeModel
-> (Ptr TreeModel -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TreeModel
arg1 ((Ptr TreeModel -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> (Ptr TreeModel -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr TreeModel
argPtr1 ->Ptr TreeModel -> IO (Ptr Widget)
gtk_combo_box_new_with_model_and_entry Ptr TreeModel
argPtr1)
{-# LINE 245 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toTreeModel model)
type ComboBoxText = Text
comboBoxSetModelText :: ComboBoxClass self => self -> IO (ListStore ComboBoxText)
comboBoxSetModelText :: forall self.
ComboBoxClass self =>
self -> IO (ListStore ComboBoxText)
comboBoxSetModelText self
combo = do
ComboBox -> IO ()
forall self. CellLayoutClass self => self -> IO ()
cellLayoutClear (self -> ComboBox
forall o. ComboBoxClass o => o -> ComboBox
toComboBox self
combo)
ListStore ComboBoxText
store <- [ComboBoxText] -> IO (ListStore ComboBoxText)
forall a. [a] -> IO (ListStore a)
listStoreNew ([] :: [ComboBoxText])
self -> Maybe (ListStore ComboBoxText) -> IO ()
forall self model.
(ComboBoxClass self, TreeModelClass model) =>
self -> Maybe model -> IO ()
comboBoxSetModel self
combo (ListStore ComboBoxText -> Maybe (ListStore ComboBoxText)
forall a. a -> Maybe a
Just ListStore ComboBoxText
store)
let colId :: ColumnId row ComboBoxText
colId = Int -> ColumnId row ComboBoxText
forall string row. GlibString string => Int -> ColumnId row string
makeColumnIdString Int
0
ListStore ComboBoxText
-> ColumnId ComboBoxText ComboBoxText
-> (ComboBoxText -> ComboBoxText)
-> IO ()
forall (model :: * -> *) row ty.
TypedTreeModelClass model =>
model row -> ColumnId row ty -> (row -> ty) -> IO ()
customStoreSetColumn ListStore ComboBoxText
store ColumnId ComboBoxText ComboBoxText
forall {row}. ColumnId row ComboBoxText
colId ComboBoxText -> ComboBoxText
forall a. a -> a
id
ComboBox -> ColumnId Any ComboBoxText -> IO ()
forall comboBox row.
ComboBoxClass comboBox =>
comboBox -> ColumnId row ComboBoxText -> IO ()
comboBoxSetEntryTextColumn (self -> ComboBox
forall o. ComboBoxClass o => o -> ComboBox
toComboBox self
combo) ColumnId Any ComboBoxText
forall {row}. ColumnId row ComboBoxText
colId
CellRendererText
ren <- IO CellRendererText
cellRendererTextNew
ComboBox -> CellRendererText -> Bool -> IO ()
forall self cell.
(CellLayoutClass self, CellRendererClass cell) =>
self -> cell -> Bool -> IO ()
cellLayoutPackStart (self -> ComboBox
forall o. ComboBoxClass o => o -> ComboBox
toComboBox self
combo) CellRendererText
ren Bool
True
ComboBox
-> CellRendererText
-> ListStore ComboBoxText
-> (ComboBoxText -> [AttrOp CellRendererText])
-> IO ()
forall self cell (model :: * -> *) row.
(CellLayoutClass self, CellRendererClass cell,
TreeModelClass (model row), TypedTreeModelClass model) =>
self -> cell -> model row -> (row -> [AttrOp cell]) -> IO ()
cellLayoutSetAttributes (self -> ComboBox
forall o. ComboBoxClass o => o -> ComboBox
toComboBox self
combo) CellRendererText
ren ListStore ComboBoxText
store (\ComboBoxText
a -> [Attr CellRendererText ComboBoxText
forall cr string.
(CellRendererTextClass cr, GlibString string) =>
Attr cr string
cellText Attr CellRendererText ComboBoxText
-> ComboBoxText -> AttrOp CellRendererText
forall o a b. ReadWriteAttr o a b -> b -> AttrOp o
:= ComboBoxText
a])
Quark -> self -> Maybe (ListStore ComboBoxText) -> IO ()
forall o a. GObjectClass o => Quark -> o -> Maybe a -> IO ()
objectSetAttribute Quark
comboQuark self
combo (ListStore ComboBoxText -> Maybe (ListStore ComboBoxText)
forall a. a -> Maybe a
Just ListStore ComboBoxText
store)
ListStore ComboBoxText -> IO (ListStore ComboBoxText)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ListStore ComboBoxText
store
comboBoxGetModelText :: ComboBoxClass self => self -> IO (ListStore ComboBoxText)
comboBoxGetModelText :: forall self.
ComboBoxClass self =>
self -> IO (ListStore ComboBoxText)
comboBoxGetModelText self
self = do
(Just ListStore ComboBoxText
store) <- Quark -> ComboBox -> IO (Maybe (ListStore ComboBoxText))
forall o a. GObjectClass o => Quark -> o -> IO (Maybe a)
objectGetAttributeUnsafe Quark
comboQuark (self -> ComboBox
forall o. ComboBoxClass o => o -> ComboBox
toComboBox self
self)
ListStore ComboBoxText -> IO (ListStore ComboBoxText)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ListStore ComboBoxText
store
comboBoxAppendText :: ComboBoxClass self => self -> ComboBoxText -> IO Int
comboBoxAppendText :: forall self. ComboBoxClass self => self -> ComboBoxText -> IO Int
comboBoxAppendText self
self ComboBoxText
text = do
ListStore ComboBoxText
store <- self -> IO (ListStore ComboBoxText)
forall self.
ComboBoxClass self =>
self -> IO (ListStore ComboBoxText)
comboBoxGetModelText self
self
ListStore ComboBoxText -> ComboBoxText -> IO Int
forall a. ListStore a -> a -> IO Int
listStoreAppend ListStore ComboBoxText
store ComboBoxText
text
comboBoxInsertText :: ComboBoxClass self => self
-> Int
-> ComboBoxText
-> IO ()
comboBoxInsertText :: forall self.
ComboBoxClass self =>
self -> Int -> ComboBoxText -> IO ()
comboBoxInsertText self
self Int
position ComboBoxText
text = do
ListStore ComboBoxText
store <- self -> IO (ListStore ComboBoxText)
forall self.
ComboBoxClass self =>
self -> IO (ListStore ComboBoxText)
comboBoxGetModelText self
self
ListStore ComboBoxText -> Int -> ComboBoxText -> IO ()
forall a. ListStore a -> Int -> a -> IO ()
listStoreInsert ListStore ComboBoxText
store Int
position ComboBoxText
text
comboBoxPrependText :: ComboBoxClass self => self -> ComboBoxText -> IO ()
comboBoxPrependText :: forall self. ComboBoxClass self => self -> ComboBoxText -> IO ()
comboBoxPrependText self
self ComboBoxText
text = do
ListStore ComboBoxText
store <- self -> IO (ListStore ComboBoxText)
forall self.
ComboBoxClass self =>
self -> IO (ListStore ComboBoxText)
comboBoxGetModelText self
self
ListStore ComboBoxText -> ComboBoxText -> IO ()
forall a. ListStore a -> a -> IO ()
listStorePrepend ListStore ComboBoxText
store ComboBoxText
text
comboBoxRemoveText :: ComboBoxClass self => self
-> Int
-> IO ()
comboBoxRemoveText :: forall self. ComboBoxClass self => self -> Int -> IO ()
comboBoxRemoveText self
self Int
position = do
ListStore ComboBoxText
store <- self -> IO (ListStore ComboBoxText)
forall self.
ComboBoxClass self =>
self -> IO (ListStore ComboBoxText)
comboBoxGetModelText self
self
ListStore ComboBoxText -> Int -> IO ()
forall a. ListStore a -> Int -> IO ()
listStoreRemove ListStore ComboBoxText
store Int
position
comboBoxGetActiveText :: ComboBoxClass self => self -> IO (Maybe ComboBoxText)
comboBoxGetActiveText :: forall self. ComboBoxClass self => self -> IO (Maybe ComboBoxText)
comboBoxGetActiveText self
self = do
Int
activeId <- self -> IO Int
forall self. ComboBoxClass self => self -> IO Int
comboBoxGetActive self
self
if Int
activeId Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
< Int
0
then Maybe ComboBoxText -> IO (Maybe ComboBoxText)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ComboBoxText
forall a. Maybe a
Nothing
else do
ListStore ComboBoxText
listStore <- self -> IO (ListStore ComboBoxText)
forall self.
ComboBoxClass self =>
self -> IO (ListStore ComboBoxText)
comboBoxGetModelText self
self
ListStore ComboBoxText -> Int -> IO (Maybe ComboBoxText)
forall a. ListStore a -> Int -> IO (Maybe a)
listStoreSafeGetValue ListStore ComboBoxText
listStore Int
activeId
comboBoxGetWrapWidth :: ComboBoxClass self => self -> IO Int
comboBoxGetWrapWidth :: forall self. ComboBoxClass self => self -> IO Int
comboBoxGetWrapWidth self
self =
(CInt -> Int) -> IO CInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CInt -> IO Int) -> IO CInt -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(ComboBox ForeignPtr ComboBox
arg1) -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO CInt) -> IO CInt)
-> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> IO CInt
gtk_combo_box_get_wrap_width Ptr ComboBox
argPtr1)
{-# LINE 359 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
comboBoxSetWrapWidth :: ComboBoxClass self => self -> Int -> IO ()
comboBoxSetWrapWidth :: forall self. ComboBoxClass self => self -> Int -> IO ()
comboBoxSetWrapWidth self
self Int
width =
(\(ComboBox ForeignPtr ComboBox
arg1) CInt
arg2 -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO ()) -> IO ())
-> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> CInt -> IO ()
gtk_combo_box_set_wrap_width Ptr ComboBox
argPtr1 CInt
arg2)
{-# LINE 369 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
width)
comboBoxGetRowSpanColumn :: ComboBoxClass self => self -> IO (ColumnId row Int)
comboBoxGetRowSpanColumn :: forall self row.
ComboBoxClass self =>
self -> IO (ColumnId row Int)
comboBoxGetRowSpanColumn self
self =
(CInt -> ColumnId row Int) -> IO CInt -> IO (ColumnId row Int)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> ColumnId row Int
forall row. Int -> ColumnId row Int
makeColumnIdInt (Int -> ColumnId row Int)
-> (CInt -> Int) -> CInt -> ColumnId row Int
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO (ColumnId row Int))
-> IO CInt -> IO (ColumnId row Int)
forall a b. (a -> b) -> a -> b
$
(\(ComboBox ForeignPtr ComboBox
arg1) -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO CInt) -> IO CInt)
-> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> IO CInt
gtk_combo_box_get_row_span_column Ptr ComboBox
argPtr1)
{-# LINE 381 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
comboBoxSetRowSpanColumn :: ComboBoxClass self => self -> ColumnId row Int -> IO ()
comboBoxSetRowSpanColumn :: forall self row.
ComboBoxClass self =>
self -> ColumnId row Int -> IO ()
comboBoxSetRowSpanColumn self
self ColumnId row Int
rowSpan =
(\(ComboBox ForeignPtr ComboBox
arg1) CInt
arg2 -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO ()) -> IO ())
-> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> CInt -> IO ()
gtk_combo_box_set_row_span_column Ptr ComboBox
argPtr1 CInt
arg2)
{-# LINE 392 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt)
-> (ColumnId row Int -> Int) -> ColumnId row Int -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ColumnId row Int -> Int
forall row ty. ColumnId row ty -> Int
columnIdToNumber) ColumnId row Int
rowSpan)
comboBoxGetColumnSpanColumn :: ComboBoxClass self => self -> IO (ColumnId row Int)
comboBoxGetColumnSpanColumn :: forall self row.
ComboBoxClass self =>
self -> IO (ColumnId row Int)
comboBoxGetColumnSpanColumn self
self =
(CInt -> ColumnId row Int) -> IO CInt -> IO (ColumnId row Int)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> ColumnId row Int
forall row. Int -> ColumnId row Int
makeColumnIdInt (Int -> ColumnId row Int)
-> (CInt -> Int) -> CInt -> ColumnId row Int
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO (ColumnId row Int))
-> IO CInt -> IO (ColumnId row Int)
forall a b. (a -> b) -> a -> b
$
(\(ComboBox ForeignPtr ComboBox
arg1) -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO CInt) -> IO CInt)
-> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> IO CInt
gtk_combo_box_get_column_span_column Ptr ComboBox
argPtr1)
{-# LINE 404 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
comboBoxSetColumnSpanColumn :: ComboBoxClass self => self -> ColumnId row Int -> IO ()
comboBoxSetColumnSpanColumn :: forall self row.
ComboBoxClass self =>
self -> ColumnId row Int -> IO ()
comboBoxSetColumnSpanColumn self
self ColumnId row Int
columnSpan =
(\(ComboBox ForeignPtr ComboBox
arg1) CInt
arg2 -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO ()) -> IO ())
-> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> CInt -> IO ()
gtk_combo_box_set_column_span_column Ptr ComboBox
argPtr1 CInt
arg2)
{-# LINE 415 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt)
-> (ColumnId row Int -> Int) -> ColumnId row Int -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ColumnId row Int -> Int
forall row ty. ColumnId row ty -> Int
columnIdToNumber) ColumnId row Int
columnSpan)
comboBoxGetActive :: ComboBoxClass self => self
-> IO Int
comboBoxGetActive :: forall self. ComboBoxClass self => self -> IO Int
comboBoxGetActive self
self =
(CInt -> Int) -> IO CInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CInt -> IO Int) -> IO CInt -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(ComboBox ForeignPtr ComboBox
arg1) -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO CInt) -> IO CInt)
-> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> IO CInt
gtk_combo_box_get_active Ptr ComboBox
argPtr1)
{-# LINE 431 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
comboBoxSetActive :: ComboBoxClass self => self
-> Int
-> IO ()
comboBoxSetActive :: forall self. ComboBoxClass self => self -> Int -> IO ()
comboBoxSetActive self
self Int
index =
(\(ComboBox ForeignPtr ComboBox
arg1) CInt
arg2 -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO ()) -> IO ())
-> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> CInt -> IO ()
gtk_combo_box_set_active Ptr ComboBox
argPtr1 CInt
arg2)
{-# LINE 442 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
index)
comboBoxGetActiveIter :: ComboBoxClass self => self -> IO (Maybe TreeIter)
comboBoxGetActiveIter :: forall self. ComboBoxClass self => self -> IO (Maybe TreeIter)
comboBoxGetActiveIter self
self =
(Ptr TreeIter -> IO CInt) -> IO (Maybe TreeIter)
receiveTreeIter ((Ptr TreeIter -> IO CInt) -> IO (Maybe TreeIter))
-> (Ptr TreeIter -> IO CInt) -> IO (Maybe TreeIter)
forall a b. (a -> b) -> a -> b
$ \Ptr TreeIter
iterPtr ->
(\(ComboBox ForeignPtr ComboBox
arg1) Ptr TreeIter
arg2 -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO CInt) -> IO CInt)
-> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> Ptr TreeIter -> IO CInt
gtk_combo_box_get_active_iter Ptr ComboBox
argPtr1 Ptr TreeIter
arg2)
{-# LINE 453 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
Ptr TreeIter
iterPtr
comboBoxSetActiveIter :: ComboBoxClass self => self
-> TreeIter
-> IO ()
comboBoxSetActiveIter :: forall self. ComboBoxClass self => self -> TreeIter -> IO ()
comboBoxSetActiveIter self
self TreeIter
iter =
TreeIter -> (Ptr TreeIter -> IO ()) -> IO ()
forall a b. Storable a => a -> (Ptr a -> IO b) -> IO b
with TreeIter
iter ((Ptr TreeIter -> IO ()) -> IO ())
-> (Ptr TreeIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TreeIter
iterPtr ->
(\(ComboBox ForeignPtr ComboBox
arg1) Ptr TreeIter
arg2 -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO ()) -> IO ())
-> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> Ptr TreeIter -> IO ()
gtk_combo_box_set_active_iter Ptr ComboBox
argPtr1 Ptr TreeIter
arg2)
{-# LINE 466 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
Ptr TreeIter
iterPtr
comboBoxGetModel :: ComboBoxClass self
=> self
-> IO (Maybe TreeModel)
comboBoxGetModel :: forall self. ComboBoxClass self => self -> IO (Maybe TreeModel)
comboBoxGetModel self
self =
(IO (Ptr TreeModel) -> IO TreeModel)
-> IO (Ptr TreeModel) -> IO (Maybe TreeModel)
forall a. (IO (Ptr a) -> IO a) -> IO (Ptr a) -> IO (Maybe a)
maybeNull ((ForeignPtr TreeModel -> TreeModel, FinalizerPtr TreeModel)
-> IO (Ptr TreeModel) -> IO TreeModel
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr TreeModel -> TreeModel, FinalizerPtr TreeModel)
forall {a}. (ForeignPtr TreeModel -> TreeModel, FinalizerPtr a)
mkTreeModel) (IO (Ptr TreeModel) -> IO (Maybe TreeModel))
-> IO (Ptr TreeModel) -> IO (Maybe TreeModel)
forall a b. (a -> b) -> a -> b
$
(\(ComboBox ForeignPtr ComboBox
arg1) -> ForeignPtr ComboBox
-> (Ptr ComboBox -> IO (Ptr TreeModel)) -> IO (Ptr TreeModel)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO (Ptr TreeModel)) -> IO (Ptr TreeModel))
-> (Ptr ComboBox -> IO (Ptr TreeModel)) -> IO (Ptr TreeModel)
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> IO (Ptr TreeModel)
gtk_combo_box_get_model Ptr ComboBox
argPtr1)
{-# LINE 479 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
comboBoxSetModel :: (ComboBoxClass self, TreeModelClass model) => self ->
Maybe model -> IO ()
comboBoxSetModel :: forall self model.
(ComboBoxClass self, TreeModelClass model) =>
self -> Maybe model -> IO ()
comboBoxSetModel self
self Maybe model
model =
(\(ComboBox ForeignPtr ComboBox
arg1) (TreeModel ForeignPtr TreeModel
arg2) -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO ()) -> IO ())
-> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->ForeignPtr TreeModel -> (Ptr TreeModel -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TreeModel
arg2 ((Ptr TreeModel -> IO ()) -> IO ())
-> (Ptr TreeModel -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TreeModel
argPtr2 ->Ptr ComboBox -> Ptr TreeModel -> IO ()
gtk_combo_box_set_model Ptr ComboBox
argPtr1 Ptr TreeModel
argPtr2)
{-# LINE 494 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
(TreeModel -> (model -> TreeModel) -> Maybe model -> TreeModel
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (ForeignPtr TreeModel -> TreeModel
TreeModel ForeignPtr TreeModel
forall a. ForeignPtr a
nullForeignPtr) model -> TreeModel
forall o. TreeModelClass o => o -> TreeModel
toTreeModel Maybe model
model)
comboBoxPopup :: ComboBoxClass self => self -> IO ()
self
self =
(\(ComboBox ForeignPtr ComboBox
arg1) -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO ()) -> IO ())
-> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> IO ()
gtk_combo_box_popup Ptr ComboBox
argPtr1)
{-# LINE 505 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
comboBoxPopdown :: ComboBoxClass self => self -> IO ()
comboBoxPopdown :: forall self. ComboBoxClass self => self -> IO ()
comboBoxPopdown self
self =
(\(ComboBox ForeignPtr ComboBox
arg1) -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO ()) -> IO ())
-> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> IO ()
gtk_combo_box_popdown Ptr ComboBox
argPtr1)
{-# LINE 516 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
comboBoxSetRowSeparatorSource :: (ComboBoxClass self,
TreeModelClass (model row),
TypedTreeModelClass model)
=> self
-> Maybe (model row, row -> Bool)
-> IO ()
comboBoxSetRowSeparatorSource :: forall self (model :: * -> *) row.
(ComboBoxClass self, TreeModelClass (model row),
TypedTreeModelClass model) =>
self -> Maybe (model row, row -> Bool) -> IO ()
comboBoxSetRowSeparatorSource self
self Maybe (model row, row -> Bool)
Nothing =
(\(ComboBox ForeignPtr ComboBox
arg1) FunPtr (Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO CInt)
arg2 Ptr ()
arg3 FunPtr (Ptr () -> IO ())
arg4 -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO ()) -> IO ())
-> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox
-> FunPtr (Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO CInt)
-> Ptr ()
-> FunPtr (Ptr () -> IO ())
-> IO ()
gtk_combo_box_set_row_separator_func Ptr ComboBox
argPtr1 FunPtr (Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO CInt)
arg2 Ptr ()
arg3 FunPtr (Ptr () -> IO ())
arg4)
{-# LINE 536 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self) FunPtr (Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO CInt)
forall a. FunPtr a
nullFunPtr Ptr ()
forall a. Ptr a
nullPtr FunPtr (Ptr () -> IO ())
forall a. FunPtr a
nullFunPtr
comboBoxSetRowSeparatorSource self
self (Just (model row
model, row -> Bool
extract)) = do
FunPtr (Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO CInt)
funPtr <- (Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO CInt)
-> IO (FunPtr (Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO CInt))
mkRowSeparatorFunc ((Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO CInt)
-> IO
(FunPtr (Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO CInt)))
-> (Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO CInt)
-> IO (FunPtr (Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO CInt))
forall a b. (a -> b) -> a -> b
$ \Ptr TreeModel
_ Ptr TreeIter
iterPtr Ptr ()
_ -> do
TreeIter
iter <- Ptr TreeIter -> IO TreeIter
forall a. Storable a => Ptr a -> IO a
peek Ptr TreeIter
iterPtr
row
value <- model row -> TreeIter -> IO row
forall (model :: * -> *) row.
TypedTreeModelClass model =>
model row -> TreeIter -> IO row
customStoreGetRow model row
model TreeIter
iter
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> CInt
forall a. Num a => Bool -> a
fromBool (Bool -> CInt) -> Bool -> CInt
forall a b. (a -> b) -> a -> b
$ row -> Bool
extract row
value)
(\(ComboBox ForeignPtr ComboBox
arg1) FunPtr (Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO CInt)
arg2 Ptr ()
arg3 FunPtr (Ptr () -> IO ())
arg4 -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO ()) -> IO ())
-> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox
-> FunPtr (Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO CInt)
-> Ptr ()
-> FunPtr (Ptr () -> IO ())
-> IO ()
gtk_combo_box_set_row_separator_func Ptr ComboBox
argPtr1 FunPtr (Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO CInt)
arg2 Ptr ()
arg3 FunPtr (Ptr () -> IO ())
arg4)
{-# LINE 543 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self) FunPtr (Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO CInt)
funPtr (FunPtr (Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO CInt)
-> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr (Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO CInt)
funPtr) FunPtr (Ptr () -> IO ())
destroyFunPtr
type TreeViewRowSeparatorFunc = FunPtr (((Ptr TreeModel) -> ((Ptr TreeIter) -> ((Ptr ()) -> (IO CInt)))))
{-# LINE 546 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
foreign import ccall "wrapper" mkRowSeparatorFunc ::
(Ptr TreeModel -> Ptr TreeIter -> Ptr () -> IO (CInt)) -> IO TreeViewRowSeparatorFunc
comboBoxSetAddTearoffs :: ComboBoxClass self => self
-> Bool
-> IO ()
comboBoxSetAddTearoffs :: forall self. ComboBoxClass self => self -> Bool -> IO ()
comboBoxSetAddTearoffs self
self Bool
addTearoffs =
(\(ComboBox ForeignPtr ComboBox
arg1) CInt
arg2 -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO ()) -> IO ())
-> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> CInt -> IO ()
gtk_combo_box_set_add_tearoffs Ptr ComboBox
argPtr1 CInt
arg2)
{-# LINE 560 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
addTearoffs)
comboBoxGetAddTearoffs :: ComboBoxClass self => self -> IO Bool
comboBoxGetAddTearoffs :: forall self. ComboBoxClass self => self -> IO Bool
comboBoxGetAddTearoffs self
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(ComboBox ForeignPtr ComboBox
arg1) -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO CInt) -> IO CInt)
-> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> IO CInt
gtk_combo_box_get_add_tearoffs Ptr ComboBox
argPtr1)
{-# LINE 569 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
comboBoxSetTitle :: (ComboBoxClass self, GlibString string) => self
-> string
-> IO ()
comboBoxSetTitle :: forall self string.
(ComboBoxClass self, GlibString string) =>
self -> string -> IO ()
comboBoxSetTitle self
self string
title =
string -> (CString -> IO ()) -> IO ()
forall a. string -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString string
title ((CString -> IO ()) -> IO ()) -> (CString -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \CString
titlePtr ->
(\(ComboBox ForeignPtr ComboBox
arg1) CString
arg2 -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO ()) -> IO ())
-> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> CString -> IO ()
gtk_combo_box_set_title Ptr ComboBox
argPtr1 CString
arg2)
{-# LINE 583 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
CString
titlePtr
comboBoxGetTitle :: (ComboBoxClass self, GlibString string) => self
-> IO string
comboBoxGetTitle :: forall self string.
(ComboBoxClass self, GlibString string) =>
self -> IO string
comboBoxGetTitle self
self =
(\(ComboBox ForeignPtr ComboBox
arg1) -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO CString) -> IO CString
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO CString) -> IO CString)
-> (Ptr ComboBox -> IO CString) -> IO CString
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> IO CString
gtk_combo_box_get_title Ptr ComboBox
argPtr1)
{-# LINE 596 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
IO CString -> (CString -> IO string) -> IO string
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= CString -> IO string
forall s. GlibString s => CString -> IO s
peekUTFString
comboBoxGetHasEntry :: ComboBoxClass self => self
-> IO Bool
comboBoxGetHasEntry :: forall self. ComboBoxClass self => self -> IO Bool
comboBoxGetHasEntry self
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(ComboBox ForeignPtr ComboBox
arg1) -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO CInt) -> IO CInt)
-> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> IO CInt
gtk_combo_box_get_has_entry Ptr ComboBox
argPtr1)
{-# LINE 610 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
comboBoxSetEntryTextColumn :: ComboBoxClass comboBox => comboBox
-> ColumnId row ComboBoxText
-> IO ()
comboBoxSetEntryTextColumn :: forall comboBox row.
ComboBoxClass comboBox =>
comboBox -> ColumnId row ComboBoxText -> IO ()
comboBoxSetEntryTextColumn comboBox
comboBox ColumnId row ComboBoxText
textColumn =
(\(ComboBox ForeignPtr ComboBox
arg1) CInt
arg2 -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO ()) -> IO ())
-> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> CInt -> IO ()
gtk_combo_box_set_entry_text_column Ptr ComboBox
argPtr1 CInt
arg2)
{-# LINE 626 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox comboBox)
((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt)
-> (ColumnId row ComboBoxText -> Int)
-> ColumnId row ComboBoxText
-> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ColumnId row ComboBoxText -> Int
forall row ty. ColumnId row ty -> Int
columnIdToNumber) ColumnId row ComboBoxText
textColumn)
comboBoxGetEntryTextColumn :: ComboBoxClass comboBox => comboBox
-> IO (ColumnId row ComboBoxText)
comboBoxGetEntryTextColumn :: forall comboBox row.
ComboBoxClass comboBox =>
comboBox -> IO (ColumnId row ComboBoxText)
comboBoxGetEntryTextColumn comboBox
comboBox =
(CInt -> ColumnId row ComboBoxText)
-> IO CInt -> IO (ColumnId row ComboBoxText)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> ColumnId row ComboBoxText
forall string row. GlibString string => Int -> ColumnId row string
makeColumnIdString (Int -> ColumnId row ComboBoxText)
-> (CInt -> Int) -> CInt -> ColumnId row ComboBoxText
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO (ColumnId row ComboBoxText))
-> IO CInt -> IO (ColumnId row ComboBoxText)
forall a b. (a -> b) -> a -> b
$
(\(ComboBox ForeignPtr ComboBox
arg1) -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO CInt) -> IO CInt)
-> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> IO CInt
gtk_combo_box_get_entry_text_column Ptr ComboBox
argPtr1)
{-# LINE 639 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox comboBox)
comboBoxSetFocusOnClick :: ComboBoxClass self => self
-> Bool
-> IO ()
comboBoxSetFocusOnClick :: forall self. ComboBoxClass self => self -> Bool -> IO ()
comboBoxSetFocusOnClick self
self Bool
focusOnClick =
(\(ComboBox ForeignPtr ComboBox
arg1) CInt
arg2 -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO ()) -> IO ())
-> (Ptr ComboBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> CInt -> IO ()
gtk_combo_box_set_focus_on_click Ptr ComboBox
argPtr1 CInt
arg2)
{-# LINE 656 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
focusOnClick)
comboBoxGetFocusOnClick :: ComboBoxClass self => self
-> IO Bool
comboBoxGetFocusOnClick :: forall self. ComboBoxClass self => self -> IO Bool
comboBoxGetFocusOnClick self
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(ComboBox ForeignPtr ComboBox
arg1) -> ForeignPtr ComboBox -> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ComboBox
arg1 ((Ptr ComboBox -> IO CInt) -> IO CInt)
-> (Ptr ComboBox -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr ComboBox
argPtr1 ->Ptr ComboBox -> IO CInt
gtk_combo_box_get_focus_on_click Ptr ComboBox
argPtr1)
{-# LINE 671 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
(toComboBox self)
comboBoxModel :: (ComboBoxClass self, TreeModelClass treeModel) => ReadWriteAttr self TreeModel treeModel
comboBoxModel :: forall self treeModel.
(ComboBoxClass self, TreeModelClass treeModel) =>
ReadWriteAttr self TreeModel treeModel
comboBoxModel = String -> GType -> ReadWriteAttr self TreeModel treeModel
forall gobj gobj' gobj''.
(GObjectClass gobj, GObjectClass gobj', GObjectClass gobj'') =>
String -> GType -> ReadWriteAttr gobj gobj' gobj''
newAttrFromObjectProperty String
"model"
GType
gtk_tree_model_get_type
{-# LINE 685 "./Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs" #-}
comboBoxWrapWidth :: ComboBoxClass self => Attr self Int
comboBoxWrapWidth :: forall self. ComboBoxClass self => Attr self Int
comboBoxWrapWidth = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"wrap-width"
comboBoxRowSpanColumn :: ComboBoxClass self => Attr self (ColumnId row Int)
comboBoxRowSpanColumn :: forall self row. ComboBoxClass self => Attr self (ColumnId row Int)
comboBoxRowSpanColumn = (self -> IO (ColumnId row Int))
-> (self -> ColumnId row Int -> IO ())
-> ReadWriteAttr self (ColumnId row Int) (ColumnId row Int)
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO (ColumnId row Int)
forall self row.
ComboBoxClass self =>
self -> IO (ColumnId row Int)
comboBoxGetRowSpanColumn
self -> ColumnId row Int -> IO ()
forall self row.
ComboBoxClass self =>
self -> ColumnId row Int -> IO ()
comboBoxSetRowSpanColumn
comboBoxColumnSpanColumn :: ComboBoxClass self => Attr self (ColumnId row Int)
comboBoxColumnSpanColumn :: forall self row. ComboBoxClass self => Attr self (ColumnId row Int)
comboBoxColumnSpanColumn = (self -> IO (ColumnId row Int))
-> (self -> ColumnId row Int -> IO ())
-> ReadWriteAttr self (ColumnId row Int) (ColumnId row Int)
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO (ColumnId row Int)
forall self row.
ComboBoxClass self =>
self -> IO (ColumnId row Int)
comboBoxGetColumnSpanColumn
self -> ColumnId row Int -> IO ()
forall self row.
ComboBoxClass self =>
self -> ColumnId row Int -> IO ()
comboBoxSetColumnSpanColumn
comboBoxActive :: ComboBoxClass self => Attr self Int
comboBoxActive :: forall self. ComboBoxClass self => Attr self Int
comboBoxActive = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"active"
comboBoxAddTearoffs :: ComboBoxClass self => Attr self Bool
comboBoxAddTearoffs :: forall self. ComboBoxClass self => Attr self Bool
comboBoxAddTearoffs = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"add-tearoffs"
comboBoxHasFrame :: ComboBoxClass self => Attr self Bool
comboBoxHasFrame :: forall self. ComboBoxClass self => Attr self Bool
comboBoxHasFrame = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"has-frame"
comboBoxFocusOnClick :: ComboBoxClass self => Attr self Bool
comboBoxFocusOnClick :: forall self. ComboBoxClass self => Attr self Bool
comboBoxFocusOnClick = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"focus-on-click"
comboBoxTearoffTitle :: (ComboBoxClass self, GlibString string) => Attr self string
comboBoxTearoffTitle :: forall self string.
(ComboBoxClass self, GlibString string) =>
Attr self string
comboBoxTearoffTitle = String -> Attr self string
forall gobj string.
(GObjectClass gobj, GlibString string) =>
String -> Attr gobj string
newAttrFromStringProperty String
"tearoff-title"
comboBoxPopupShown :: ComboBoxClass self => ReadAttr self Bool
= String -> ReadAttr self Bool
forall gobj. GObjectClass gobj => String -> ReadAttr gobj Bool
readAttrFromBoolProperty String
"popup-shown"
comboBoxTitle :: (ComboBoxClass self, GlibString string) => Attr self string
comboBoxTitle :: forall self string.
(ComboBoxClass self, GlibString string) =>
Attr self string
comboBoxTitle = (self -> IO string)
-> (self -> string -> IO ()) -> ReadWriteAttr self string string
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO string
forall self string.
(ComboBoxClass self, GlibString string) =>
self -> IO string
comboBoxGetTitle
self -> string -> IO ()
forall self string.
(ComboBoxClass self, GlibString string) =>
self -> string -> IO ()
comboBoxSetTitle
changed :: ComboBoxClass self => Signal self (IO ())
changed :: forall self. ComboBoxClass self => Signal self (IO ())
changed = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"changed")
foreign import ccall safe "gtk_combo_box_new"
gtk_combo_box_new :: (IO (Ptr Widget))
foreign import ccall safe "gtk_combo_box_new_with_entry"
gtk_combo_box_new_with_entry :: (IO (Ptr Widget))
foreign import ccall safe "gtk_combo_box_new_with_model"
gtk_combo_box_new_with_model :: ((Ptr TreeModel) -> (IO (Ptr Widget)))
foreign import ccall safe "gtk_combo_box_new_with_model_and_entry"
gtk_combo_box_new_with_model_and_entry :: ((Ptr TreeModel) -> (IO (Ptr Widget)))
foreign import ccall safe "gtk_combo_box_get_wrap_width"
gtk_combo_box_get_wrap_width :: ((Ptr ComboBox) -> (IO CInt))
foreign import ccall safe "gtk_combo_box_set_wrap_width"
gtk_combo_box_set_wrap_width :: ((Ptr ComboBox) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_combo_box_get_row_span_column"
gtk_combo_box_get_row_span_column :: ((Ptr ComboBox) -> (IO CInt))
foreign import ccall safe "gtk_combo_box_set_row_span_column"
gtk_combo_box_set_row_span_column :: ((Ptr ComboBox) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_combo_box_get_column_span_column"
gtk_combo_box_get_column_span_column :: ((Ptr ComboBox) -> (IO CInt))
foreign import ccall safe "gtk_combo_box_set_column_span_column"
gtk_combo_box_set_column_span_column :: ((Ptr ComboBox) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_combo_box_get_active"
gtk_combo_box_get_active :: ((Ptr ComboBox) -> (IO CInt))
foreign import ccall safe "gtk_combo_box_set_active"
gtk_combo_box_set_active :: ((Ptr ComboBox) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_combo_box_get_active_iter"
gtk_combo_box_get_active_iter :: ((Ptr ComboBox) -> ((Ptr TreeIter) -> (IO CInt)))
foreign import ccall safe "gtk_combo_box_set_active_iter"
gtk_combo_box_set_active_iter :: ((Ptr ComboBox) -> ((Ptr TreeIter) -> (IO ())))
foreign import ccall unsafe "gtk_combo_box_get_model"
gtk_combo_box_get_model :: ((Ptr ComboBox) -> (IO (Ptr TreeModel)))
foreign import ccall safe "gtk_combo_box_set_model"
gtk_combo_box_set_model :: ((Ptr ComboBox) -> ((Ptr TreeModel) -> (IO ())))
foreign import ccall safe "gtk_combo_box_popup"
:: ((Ptr ComboBox) -> (IO ()))
foreign import ccall safe "gtk_combo_box_popdown"
gtk_combo_box_popdown :: ((Ptr ComboBox) -> (IO ()))
foreign import ccall safe "gtk_combo_box_set_row_separator_func"
gtk_combo_box_set_row_separator_func :: ((Ptr ComboBox) -> ((FunPtr ((Ptr TreeModel) -> ((Ptr TreeIter) -> ((Ptr ()) -> (IO CInt))))) -> ((Ptr ()) -> ((FunPtr ((Ptr ()) -> (IO ()))) -> (IO ())))))
foreign import ccall safe "gtk_combo_box_set_add_tearoffs"
gtk_combo_box_set_add_tearoffs :: ((Ptr ComboBox) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_combo_box_get_add_tearoffs"
gtk_combo_box_get_add_tearoffs :: ((Ptr ComboBox) -> (IO CInt))
foreign import ccall safe "gtk_combo_box_set_title"
gtk_combo_box_set_title :: ((Ptr ComboBox) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "gtk_combo_box_get_title"
gtk_combo_box_get_title :: ((Ptr ComboBox) -> (IO (Ptr CChar)))
foreign import ccall safe "gtk_combo_box_get_has_entry"
gtk_combo_box_get_has_entry :: ((Ptr ComboBox) -> (IO CInt))
foreign import ccall safe "gtk_combo_box_set_entry_text_column"
gtk_combo_box_set_entry_text_column :: ((Ptr ComboBox) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_combo_box_get_entry_text_column"
gtk_combo_box_get_entry_text_column :: ((Ptr ComboBox) -> (IO CInt))
foreign import ccall safe "gtk_combo_box_set_focus_on_click"
gtk_combo_box_set_focus_on_click :: ((Ptr ComboBox) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_combo_box_get_focus_on_click"
gtk_combo_box_get_focus_on_click :: ((Ptr ComboBox) -> (IO CInt))
foreign import ccall unsafe "gtk_tree_model_get_type"
gtk_tree_model_get_type :: CULong