{-# LINE 2 "./Graphics/UI/Gtk/Buttons/ToggleButton.chs" #-}
module Graphics.UI.Gtk.Buttons.ToggleButton (
ToggleButton,
ToggleButtonClass,
castToToggleButton, gTypeToggleButton,
toToggleButton,
toggleButtonNew,
toggleButtonNewWithLabel,
toggleButtonNewWithMnemonic,
toggleButtonSetMode,
toggleButtonGetMode,
toggleButtonToggled,
toggleButtonGetActive,
toggleButtonSetActive,
toggleButtonGetInconsistent,
toggleButtonSetInconsistent,
toggleButtonActive,
toggleButtonInconsistent,
toggleButtonDrawIndicator,
toggleButtonMode,
toggled,
) where
import Control.Monad (liftM)
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
{-# LINE 103 "./Graphics/UI/Gtk/Buttons/ToggleButton.chs" #-}
import Graphics.UI.Gtk.Signals
{-# LINE 104 "./Graphics/UI/Gtk/Buttons/ToggleButton.chs" #-}
{-# LINE 106 "./Graphics/UI/Gtk/Buttons/ToggleButton.chs" #-}
toggleButtonNew :: IO ToggleButton
toggleButtonNew =
makeNewObject mkToggleButton $
liftM (castPtr :: Ptr Widget -> Ptr ToggleButton) $
gtk_toggle_button_new
{-# LINE 118 "./Graphics/UI/Gtk/Buttons/ToggleButton.chs" #-}
toggleButtonNewWithLabel :: GlibString string
=> string
-> IO ToggleButton
toggleButtonNewWithLabel label =
makeNewObject mkToggleButton $
liftM (castPtr :: Ptr Widget -> Ptr ToggleButton) $
withUTFString label $ \labelPtr ->
gtk_toggle_button_new_with_label
{-# LINE 130 "./Graphics/UI/Gtk/Buttons/ToggleButton.chs" #-}
labelPtr
toggleButtonNewWithMnemonic :: GlibString string
=> string
-> IO ToggleButton
toggleButtonNewWithMnemonic label =
makeNewObject mkToggleButton $
liftM (castPtr :: Ptr Widget -> Ptr ToggleButton) $
withUTFString label $ \labelPtr ->
gtk_toggle_button_new_with_mnemonic
{-# LINE 146 "./Graphics/UI/Gtk/Buttons/ToggleButton.chs" #-}
labelPtr
toggleButtonSetMode :: ToggleButtonClass self => self
-> Bool
-> IO ()
toggleButtonSetMode self drawIndicator =
(\(ToggleButton arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_toggle_button_set_mode argPtr1 arg2)
{-# LINE 166 "./Graphics/UI/Gtk/Buttons/ToggleButton.chs" #-}
(toToggleButton self)
(fromBool drawIndicator)
toggleButtonGetMode :: ToggleButtonClass self => self
-> IO Bool
toggleButtonGetMode self =
liftM toBool $
(\(ToggleButton arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_toggle_button_get_mode argPtr1)
{-# LINE 178 "./Graphics/UI/Gtk/Buttons/ToggleButton.chs" #-}
(toToggleButton self)
toggleButtonToggled :: ToggleButtonClass self => self -> IO ()
toggleButtonToggled self =
(\(ToggleButton arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_toggle_button_toggled argPtr1)
{-# LINE 186 "./Graphics/UI/Gtk/Buttons/ToggleButton.chs" #-}
(toToggleButton self)
toggleButtonGetActive :: ToggleButtonClass self => self -> IO Bool
toggleButtonGetActive self =
liftM toBool $
(\(ToggleButton arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_toggle_button_get_active argPtr1)
{-# LINE 195 "./Graphics/UI/Gtk/Buttons/ToggleButton.chs" #-}
(toToggleButton self)
toggleButtonSetActive :: ToggleButtonClass self => self
-> Bool
-> IO ()
toggleButtonSetActive self isActive =
(\(ToggleButton arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_toggle_button_set_active argPtr1 arg2)
{-# LINE 206 "./Graphics/UI/Gtk/Buttons/ToggleButton.chs" #-}
(toToggleButton self)
(fromBool isActive)
toggleButtonGetInconsistent :: ToggleButtonClass self => self
-> IO Bool
toggleButtonGetInconsistent self =
liftM toBool $
(\(ToggleButton arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_toggle_button_get_inconsistent argPtr1)
{-# LINE 217 "./Graphics/UI/Gtk/Buttons/ToggleButton.chs" #-}
(toToggleButton self)
toggleButtonSetInconsistent :: ToggleButtonClass self => self
-> Bool
-> IO ()
toggleButtonSetInconsistent self setting =
(\(ToggleButton arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_toggle_button_set_inconsistent argPtr1 arg2)
{-# LINE 233 "./Graphics/UI/Gtk/Buttons/ToggleButton.chs" #-}
(toToggleButton self)
(fromBool setting)
toggleButtonActive :: ToggleButtonClass self => Attr self Bool
toggleButtonActive = newAttr
toggleButtonGetActive
toggleButtonSetActive
toggleButtonInconsistent :: ToggleButtonClass self => Attr self Bool
toggleButtonInconsistent = newAttr
toggleButtonGetInconsistent
toggleButtonSetInconsistent
toggleButtonDrawIndicator :: ToggleButtonClass self => Attr self Bool
toggleButtonDrawIndicator = newAttrFromBoolProperty "draw-indicator"
toggleButtonMode :: ToggleButtonClass self => Attr self Bool
toggleButtonMode = newAttr
toggleButtonGetMode
toggleButtonSetMode
toggled :: ToggleButtonClass self => Signal self (IO ())
toggled = Signal (connect_NONE__NONE "toggled")
foreign import ccall unsafe "gtk_toggle_button_new"
gtk_toggle_button_new :: (IO (Ptr Widget))
foreign import ccall unsafe "gtk_toggle_button_new_with_label"
gtk_toggle_button_new_with_label :: ((Ptr CChar) -> (IO (Ptr Widget)))
foreign import ccall unsafe "gtk_toggle_button_new_with_mnemonic"
gtk_toggle_button_new_with_mnemonic :: ((Ptr CChar) -> (IO (Ptr Widget)))
foreign import ccall safe "gtk_toggle_button_set_mode"
gtk_toggle_button_set_mode :: ((Ptr ToggleButton) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_toggle_button_get_mode"
gtk_toggle_button_get_mode :: ((Ptr ToggleButton) -> (IO CInt))
foreign import ccall safe "gtk_toggle_button_toggled"
gtk_toggle_button_toggled :: ((Ptr ToggleButton) -> (IO ()))
foreign import ccall unsafe "gtk_toggle_button_get_active"
gtk_toggle_button_get_active :: ((Ptr ToggleButton) -> (IO CInt))
foreign import ccall safe "gtk_toggle_button_set_active"
gtk_toggle_button_set_active :: ((Ptr ToggleButton) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_toggle_button_get_inconsistent"
gtk_toggle_button_get_inconsistent :: ((Ptr ToggleButton) -> (IO CInt))
foreign import ccall safe "gtk_toggle_button_set_inconsistent"
gtk_toggle_button_set_inconsistent :: ((Ptr ToggleButton) -> (CInt -> (IO ())))