{-# LINE 2 "./Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs" #-}
module Graphics.UI.Gtk.MenuComboToolbar.MenuShell (
MenuShell,
MenuShellClass,
castToMenuShell, gTypeMenuShell,
toMenuShell,
menuShellAppend,
menuShellPrepend,
menuShellInsert,
menuShellDeactivate,
menuShellActivateItem,
menuShellSelectItem,
menuShellDeselect,
menuShellSelectFirst,
menuShellCancel,
menuShellSetTakeFocus,
menuShellGetTakeFocus,
menuShellTakeFocus,
onActivateCurrent,
afterActivateCurrent,
onCancel,
afterCancel,
onDeactivated,
afterDeactivated,
MenuDirectionType(..),
onMoveCurrent,
afterMoveCurrent,
onSelectionDone,
afterSelectionDone
) where
import Control.Monad (liftM)
import System.Glib.FFI
import System.Glib.Attributes
import Graphics.UI.Gtk.Types
{-# LINE 100 "./Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs" #-}
import Graphics.UI.Gtk.Signals
{-# LINE 101 "./Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs" #-}
import Graphics.UI.Gtk.General.Enums (MenuDirectionType(..))
{-# LINE 104 "./Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs" #-}
menuShellAppend :: (MenuShellClass self, MenuItemClass child) => self
-> child
-> IO ()
self
self child
child =
(\(MenuShell ForeignPtr MenuShell
arg1) (Widget ForeignPtr Widget
arg2) -> ForeignPtr MenuShell -> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr MenuShell
arg1 ((Ptr MenuShell -> IO ()) -> IO ())
-> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr MenuShell
argPtr1 ->ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg2 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr2 ->Ptr MenuShell -> Ptr Widget -> IO ()
gtk_menu_shell_append Ptr MenuShell
argPtr1 Ptr Widget
argPtr2)
{-# LINE 115 "./Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs" #-}
(toMenuShell self)
(child -> Widget
forall o. WidgetClass o => o -> Widget
toWidget child
child)
menuShellPrepend :: (MenuShellClass self, MenuItemClass child) => self
-> child
-> IO ()
self
self child
child =
(\(MenuShell ForeignPtr MenuShell
arg1) (Widget ForeignPtr Widget
arg2) -> ForeignPtr MenuShell -> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr MenuShell
arg1 ((Ptr MenuShell -> IO ()) -> IO ())
-> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr MenuShell
argPtr1 ->ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg2 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr2 ->Ptr MenuShell -> Ptr Widget -> IO ()
gtk_menu_shell_prepend Ptr MenuShell
argPtr1 Ptr Widget
argPtr2)
{-# LINE 125 "./Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs" #-}
(toMenuShell self)
(child -> Widget
forall o. WidgetClass o => o -> Widget
toWidget child
child)
menuShellInsert :: (MenuShellClass self, MenuItemClass child) => self
-> child
-> Int
-> IO ()
self
self child
child Int
position =
(\(MenuShell ForeignPtr MenuShell
arg1) (Widget ForeignPtr Widget
arg2) CInt
arg3 -> ForeignPtr MenuShell -> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr MenuShell
arg1 ((Ptr MenuShell -> IO ()) -> IO ())
-> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr MenuShell
argPtr1 ->ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg2 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr2 ->Ptr MenuShell -> Ptr Widget -> CInt -> IO ()
gtk_menu_shell_insert Ptr MenuShell
argPtr1 Ptr Widget
argPtr2 CInt
arg3)
{-# LINE 138 "./Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs" #-}
(toMenuShell self)
(child -> Widget
forall o. WidgetClass o => o -> Widget
toWidget child
child)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
position)
menuShellDeactivate :: MenuShellClass self => self -> IO ()
self
self =
(\(MenuShell ForeignPtr MenuShell
arg1) -> ForeignPtr MenuShell -> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr MenuShell
arg1 ((Ptr MenuShell -> IO ()) -> IO ())
-> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr MenuShell
argPtr1 ->Ptr MenuShell -> IO ()
gtk_menu_shell_deactivate Ptr MenuShell
argPtr1)
{-# LINE 148 "./Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs" #-}
(toMenuShell self)
menuShellActivateItem :: (MenuShellClass self, MenuItemClass menuItem) => self
-> menuItem
-> Bool
-> IO ()
self
self menuItem
menuItem Bool
forceDeactivate =
(\(MenuShell ForeignPtr MenuShell
arg1) (Widget ForeignPtr Widget
arg2) CInt
arg3 -> ForeignPtr MenuShell -> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr MenuShell
arg1 ((Ptr MenuShell -> IO ()) -> IO ())
-> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr MenuShell
argPtr1 ->ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg2 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr2 ->Ptr MenuShell -> Ptr Widget -> CInt -> IO ()
gtk_menu_shell_activate_item Ptr MenuShell
argPtr1 Ptr Widget
argPtr2 CInt
arg3)
{-# LINE 160 "./Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs" #-}
(toMenuShell self)
(menuItem -> Widget
forall o. WidgetClass o => o -> Widget
toWidget menuItem
menuItem)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
forceDeactivate)
menuShellSelectItem :: (MenuShellClass self, MenuItemClass menuItem) => self
-> menuItem
-> IO ()
self
self menuItem
menuItem =
(\(MenuShell ForeignPtr MenuShell
arg1) (Widget ForeignPtr Widget
arg2) -> ForeignPtr MenuShell -> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr MenuShell
arg1 ((Ptr MenuShell -> IO ()) -> IO ())
-> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr MenuShell
argPtr1 ->ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg2 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr2 ->Ptr MenuShell -> Ptr Widget -> IO ()
gtk_menu_shell_select_item Ptr MenuShell
argPtr1 Ptr Widget
argPtr2)
{-# LINE 171 "./Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs" #-}
(toMenuShell self)
(menuItem -> Widget
forall o. WidgetClass o => o -> Widget
toWidget menuItem
menuItem)
menuShellDeselect :: MenuShellClass self => self -> IO ()
self
self =
(\(MenuShell ForeignPtr MenuShell
arg1) -> ForeignPtr MenuShell -> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr MenuShell
arg1 ((Ptr MenuShell -> IO ()) -> IO ())
-> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr MenuShell
argPtr1 ->Ptr MenuShell -> IO ()
gtk_menu_shell_deselect Ptr MenuShell
argPtr1)
{-# LINE 179 "./Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs" #-}
(toMenuShell self)
menuShellSelectFirst :: MenuShellClass self => self
-> Bool
-> IO ()
self
self Bool
searchSensitive =
(\(MenuShell ForeignPtr MenuShell
arg1) CInt
arg2 -> ForeignPtr MenuShell -> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr MenuShell
arg1 ((Ptr MenuShell -> IO ()) -> IO ())
-> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr MenuShell
argPtr1 ->Ptr MenuShell -> CInt -> IO ()
gtk_menu_shell_select_first Ptr MenuShell
argPtr1 CInt
arg2)
{-# LINE 195 "./Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs" #-}
(toMenuShell self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
searchSensitive)
menuShellCancel :: MenuShellClass self => self -> IO ()
self
self =
(\(MenuShell ForeignPtr MenuShell
arg1) -> ForeignPtr MenuShell -> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr MenuShell
arg1 ((Ptr MenuShell -> IO ()) -> IO ())
-> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr MenuShell
argPtr1 ->Ptr MenuShell -> IO ()
gtk_menu_shell_cancel Ptr MenuShell
argPtr1)
{-# LINE 207 "./Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs" #-}
(toMenuShell self)
menuShellSetTakeFocus :: MenuShellClass self => self
-> Bool
-> IO ()
self
self Bool
takeFocus =
(\(MenuShell ForeignPtr MenuShell
arg1) CInt
arg2 -> ForeignPtr MenuShell -> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr MenuShell
arg1 ((Ptr MenuShell -> IO ()) -> IO ())
-> (Ptr MenuShell -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr MenuShell
argPtr1 ->Ptr MenuShell -> CInt -> IO ()
gtk_menu_shell_set_take_focus Ptr MenuShell
argPtr1 CInt
arg2)
{-# LINE 242 "./Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs" #-}
(toMenuShell self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
takeFocus)
menuShellGetTakeFocus :: MenuShellClass self => self
-> IO Bool
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
$
(\(MenuShell ForeignPtr MenuShell
arg1) -> ForeignPtr MenuShell -> (Ptr MenuShell -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr MenuShell
arg1 ((Ptr MenuShell -> IO CInt) -> IO CInt)
-> (Ptr MenuShell -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr MenuShell
argPtr1 ->Ptr MenuShell -> IO CInt
gtk_menu_shell_get_take_focus Ptr MenuShell
argPtr1)
{-# LINE 255 "./Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs" #-}
(toMenuShell self)
menuShellTakeFocus :: MenuShellClass self => Attr self Bool
= (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Bool
forall self. MenuShellClass self => self -> IO Bool
menuShellGetTakeFocus
self -> Bool -> IO ()
forall self. MenuShellClass self => self -> Bool -> IO ()
menuShellSetTakeFocus
onActivateCurrent, afterActivateCurrent :: MenuShellClass self => self
-> (Bool -> IO ())
-> IO (ConnectId self)
onActivateCurrent :: forall self.
MenuShellClass self =>
self -> (Bool -> IO ()) -> IO (ConnectId self)
onActivateCurrent = SignalName
-> Bool -> self -> (Bool -> IO ()) -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
SignalName -> Bool -> obj -> (Bool -> IO ()) -> IO (ConnectId obj)
connect_BOOL__NONE SignalName
"activate-current" Bool
False
afterActivateCurrent :: forall self.
MenuShellClass self =>
self -> (Bool -> IO ()) -> IO (ConnectId self)
afterActivateCurrent = SignalName
-> Bool -> self -> (Bool -> IO ()) -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
SignalName -> Bool -> obj -> (Bool -> IO ()) -> IO (ConnectId obj)
connect_BOOL__NONE SignalName
"activate-current" Bool
True
onCancel, afterCancel :: MenuShellClass self => self
-> IO ()
-> IO (ConnectId self)
onCancel :: forall self.
MenuShellClass self =>
self -> IO () -> IO (ConnectId self)
onCancel = SignalName -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
SignalName -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE SignalName
"cancel" Bool
False
afterCancel :: forall self.
MenuShellClass self =>
self -> IO () -> IO (ConnectId self)
afterCancel = SignalName -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
SignalName -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE SignalName
"cancel" Bool
True
onDeactivated, afterDeactivated :: MenuShellClass self => self
-> IO ()
-> IO (ConnectId self)
onDeactivated :: forall self.
MenuShellClass self =>
self -> IO () -> IO (ConnectId self)
onDeactivated = SignalName -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
SignalName -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE SignalName
"deactivate" Bool
False
afterDeactivated :: forall self.
MenuShellClass self =>
self -> IO () -> IO (ConnectId self)
afterDeactivated = SignalName -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
SignalName -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE SignalName
"deactivate" Bool
True
onMoveCurrent, afterMoveCurrent :: MenuShellClass self => self
-> (MenuDirectionType -> IO ())
-> IO (ConnectId self)
onMoveCurrent :: forall self.
MenuShellClass self =>
self -> (MenuDirectionType -> IO ()) -> IO (ConnectId self)
onMoveCurrent = SignalName
-> Bool
-> self
-> (MenuDirectionType -> IO ())
-> IO (ConnectId self)
forall a obj.
(Enum a, GObjectClass obj) =>
SignalName -> Bool -> obj -> (a -> IO ()) -> IO (ConnectId obj)
connect_ENUM__NONE SignalName
"move-current" Bool
False
afterMoveCurrent :: forall self.
MenuShellClass self =>
self -> (MenuDirectionType -> IO ()) -> IO (ConnectId self)
afterMoveCurrent = SignalName
-> Bool
-> self
-> (MenuDirectionType -> IO ())
-> IO (ConnectId self)
forall a obj.
(Enum a, GObjectClass obj) =>
SignalName -> Bool -> obj -> (a -> IO ()) -> IO (ConnectId obj)
connect_ENUM__NONE SignalName
"move-current" Bool
True
onSelectionDone, afterSelectionDone :: MenuShellClass self => self
-> IO ()
-> IO (ConnectId self)
onSelectionDone :: forall self.
MenuShellClass self =>
self -> IO () -> IO (ConnectId self)
onSelectionDone = SignalName -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
SignalName -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE SignalName
"selection-done" Bool
False
afterSelectionDone :: forall self.
MenuShellClass self =>
self -> IO () -> IO (ConnectId self)
afterSelectionDone = SignalName -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
SignalName -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE SignalName
"selection-done" Bool
True
foreign import ccall safe "gtk_menu_shell_append"
:: ((Ptr MenuShell) -> ((Ptr Widget) -> (IO ())))
foreign import ccall safe "gtk_menu_shell_prepend"
:: ((Ptr MenuShell) -> ((Ptr Widget) -> (IO ())))
foreign import ccall safe "gtk_menu_shell_insert"
:: ((Ptr MenuShell) -> ((Ptr Widget) -> (CInt -> (IO ()))))
foreign import ccall safe "gtk_menu_shell_deactivate"
:: ((Ptr MenuShell) -> (IO ()))
foreign import ccall safe "gtk_menu_shell_activate_item"
:: ((Ptr MenuShell) -> ((Ptr Widget) -> (CInt -> (IO ()))))
foreign import ccall safe "gtk_menu_shell_select_item"
:: ((Ptr MenuShell) -> ((Ptr Widget) -> (IO ())))
foreign import ccall safe "gtk_menu_shell_deselect"
:: ((Ptr MenuShell) -> (IO ()))
foreign import ccall safe "gtk_menu_shell_select_first"
:: ((Ptr MenuShell) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_menu_shell_cancel"
:: ((Ptr MenuShell) -> (IO ()))
foreign import ccall safe "gtk_menu_shell_set_take_focus"
:: ((Ptr MenuShell) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_menu_shell_get_take_focus"
:: ((Ptr MenuShell) -> (IO CInt))