module GI.Gtk.Objects.GestureZoom
(
GestureZoom(..) ,
GestureZoomK ,
toGestureZoom ,
noGestureZoom ,
gestureZoomGetScaleDelta ,
gestureZoomNew ,
GestureZoomScaleChangedCallback ,
GestureZoomScaleChangedCallbackC ,
GestureZoomScaleChangedSignalInfo ,
afterGestureZoomScaleChanged ,
gestureZoomScaleChangedCallbackWrapper ,
gestureZoomScaleChangedClosure ,
mkGestureZoomScaleChangedCallback ,
noGestureZoomScaleChangedCallback ,
onGestureZoomScaleChanged ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.GObject as GObject
newtype GestureZoom = GestureZoom (ForeignPtr GestureZoom)
foreign import ccall "gtk_gesture_zoom_get_type"
c_gtk_gesture_zoom_get_type :: IO GType
type instance ParentTypes GestureZoom = GestureZoomParentTypes
type GestureZoomParentTypes = '[Gesture, EventController, GObject.Object]
instance GObject GestureZoom where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_gesture_zoom_get_type
class GObject o => GestureZoomK o
instance (GObject o, IsDescendantOf GestureZoom o) => GestureZoomK o
toGestureZoom :: GestureZoomK o => o -> IO GestureZoom
toGestureZoom = unsafeCastTo GestureZoom
noGestureZoom :: Maybe GestureZoom
noGestureZoom = Nothing
type GestureZoomScaleChangedCallback =
Double ->
IO ()
noGestureZoomScaleChangedCallback :: Maybe GestureZoomScaleChangedCallback
noGestureZoomScaleChangedCallback = Nothing
type GestureZoomScaleChangedCallbackC =
Ptr () ->
CDouble ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkGestureZoomScaleChangedCallback :: GestureZoomScaleChangedCallbackC -> IO (FunPtr GestureZoomScaleChangedCallbackC)
gestureZoomScaleChangedClosure :: GestureZoomScaleChangedCallback -> IO Closure
gestureZoomScaleChangedClosure cb = newCClosure =<< mkGestureZoomScaleChangedCallback wrapped
where wrapped = gestureZoomScaleChangedCallbackWrapper cb
gestureZoomScaleChangedCallbackWrapper ::
GestureZoomScaleChangedCallback ->
Ptr () ->
CDouble ->
Ptr () ->
IO ()
gestureZoomScaleChangedCallbackWrapper _cb _ scale _ = do
let scale' = realToFrac scale
_cb scale'
onGestureZoomScaleChanged :: (GObject a, MonadIO m) => a -> GestureZoomScaleChangedCallback -> m SignalHandlerId
onGestureZoomScaleChanged obj cb = liftIO $ connectGestureZoomScaleChanged obj cb SignalConnectBefore
afterGestureZoomScaleChanged :: (GObject a, MonadIO m) => a -> GestureZoomScaleChangedCallback -> m SignalHandlerId
afterGestureZoomScaleChanged obj cb = connectGestureZoomScaleChanged obj cb SignalConnectAfter
connectGestureZoomScaleChanged :: (GObject a, MonadIO m) =>
a -> GestureZoomScaleChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectGestureZoomScaleChanged obj cb after = liftIO $ do
cb' <- mkGestureZoomScaleChangedCallback (gestureZoomScaleChangedCallbackWrapper cb)
connectSignalFunPtr obj "scale-changed" cb' after
type instance AttributeList GestureZoom = GestureZoomAttributeList
type GestureZoomAttributeList = ('[ '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)])
data GestureZoomScaleChangedSignalInfo
instance SignalInfo GestureZoomScaleChangedSignalInfo where
type HaskellCallbackType GestureZoomScaleChangedSignalInfo = GestureZoomScaleChangedCallback
connectSignal _ = connectGestureZoomScaleChanged
type instance SignalList GestureZoom = GestureZoomSignalList
type GestureZoomSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("scale-changed", GestureZoomScaleChangedSignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_gesture_zoom_new" gtk_gesture_zoom_new ::
Ptr Widget ->
IO (Ptr GestureZoom)
gestureZoomNew ::
(MonadIO m, WidgetK a) =>
a ->
m GestureZoom
gestureZoomNew widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_gesture_zoom_new widget'
checkUnexpectedReturnNULL "gtk_gesture_zoom_new" result
result' <- (wrapObject GestureZoom) result
touchManagedPtr widget
return result'
foreign import ccall "gtk_gesture_zoom_get_scale_delta" gtk_gesture_zoom_get_scale_delta ::
Ptr GestureZoom ->
IO CDouble
gestureZoomGetScaleDelta ::
(MonadIO m, GestureZoomK a) =>
a ->
m Double
gestureZoomGetScaleDelta _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gesture_zoom_get_scale_delta _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'