{-# LINE 2 "./Graphics/UI/Gtk/Buttons/VolumeButton.chs" #-}
module Graphics.UI.Gtk.Buttons.VolumeButton (
VolumeButton,
VolumeButtonClass,
castToVolumeButton,
toVolumeButton,
volumeButtonNew,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Types
{-# LINE 69 "./Graphics/UI/Gtk/Buttons/VolumeButton.chs" #-}
{-# LINE 71 "./Graphics/UI/Gtk/Buttons/VolumeButton.chs" #-}
volumeButtonNew :: IO VolumeButton
volumeButtonNew :: IO VolumeButton
volumeButtonNew =
(ForeignPtr VolumeButton -> VolumeButton,
FinalizerPtr VolumeButton)
-> IO (Ptr VolumeButton) -> IO VolumeButton
forall obj.
ObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr VolumeButton -> VolumeButton,
FinalizerPtr VolumeButton)
forall {a}.
(ForeignPtr VolumeButton -> VolumeButton, FinalizerPtr a)
mkVolumeButton (IO (Ptr VolumeButton) -> IO VolumeButton)
-> IO (Ptr VolumeButton) -> IO VolumeButton
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr VolumeButton)
-> IO (Ptr Widget) -> IO (Ptr VolumeButton)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr VolumeButton
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr VolumeButton) (IO (Ptr Widget) -> IO (Ptr VolumeButton))
-> IO (Ptr Widget) -> IO (Ptr VolumeButton)
forall a b. (a -> b) -> a -> b
$
IO (Ptr Widget)
gtk_volume_button_new
{-# LINE 85 "./Graphics/UI/Gtk/Buttons/VolumeButton.chs" #-}
foreign import ccall safe "gtk_volume_button_new"
gtk_volume_button_new :: (IO (Ptr Widget))