{-# LINE 2 "./Graphics/UI/Gtk/Misc/IMMulticontext.chs" #-}
module Graphics.UI.Gtk.Misc.IMMulticontext (
IMMulticontext,
IMMulticontextClass,
castToIMMulticontext, gTypeIMMulticontext,
toIMMulticontext,
imMulticontextNew,
imMulticontextAppendMenuitems,
) where
import System.Glib.FFI
import Graphics.UI.Gtk.Types
{-# LINE 54 "./Graphics/UI/Gtk/Misc/IMMulticontext.chs" #-}
{-# LINE 56 "./Graphics/UI/Gtk/Misc/IMMulticontext.chs" #-}
imMulticontextNew :: IO IMContext
imMulticontextNew :: IO IMContext
imMulticontextNew =
(ForeignPtr IMContext -> IMContext, FinalizerPtr IMContext)
-> IO (Ptr IMContext) -> IO IMContext
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
wrapNewGObject (ForeignPtr IMContext -> IMContext, FinalizerPtr IMContext)
forall {a}. (ForeignPtr IMContext -> IMContext, FinalizerPtr a)
mkIMContext (IO (Ptr IMContext) -> IO IMContext)
-> IO (Ptr IMContext) -> IO IMContext
forall a b. (a -> b) -> a -> b
$
IO (Ptr IMContext)
gtk_im_multicontext_new
{-# LINE 66 "./Graphics/UI/Gtk/Misc/IMMulticontext.chs" #-}
imMulticontextAppendMenuitems :: (IMMulticontextClass self, MenuShellClass menushell) => self
-> menushell
-> IO ()
self
self menushell
menushell =
(\(IMMulticontext ForeignPtr IMMulticontext
arg1) (MenuShell ForeignPtr MenuShell
arg2) -> ForeignPtr IMMulticontext -> (Ptr IMMulticontext -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr IMMulticontext
arg1 ((Ptr IMMulticontext -> IO ()) -> IO ())
-> (Ptr IMMulticontext -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr IMMulticontext
argPtr1 ->ForeignPtr MenuShell -> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr MenuShell
arg2 ((Ptr MenuShell -> IO ()) -> IO ())
-> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr MenuShell
argPtr2 ->Ptr IMMulticontext -> Ptr MenuShell -> IO ()
gtk_im_multicontext_append_menuitems Ptr IMMulticontext
argPtr1 Ptr MenuShell
argPtr2)
{-# LINE 79 "./Graphics/UI/Gtk/Misc/IMMulticontext.chs" #-}
(toIMMulticontext self)
(menushell -> MenuShell
forall o. MenuShellClass o => o -> MenuShell
toMenuShell menushell
menushell)
foreign import ccall safe "gtk_im_multicontext_new"
gtk_im_multicontext_new :: (IO (Ptr IMContext))
foreign import ccall safe "gtk_im_multicontext_append_menuitems"
:: ((Ptr IMMulticontext) -> ((Ptr MenuShell) -> (IO ())))