module GI.Gtk.Objects.Scale
(
Scale(..) ,
ScaleK ,
toScale ,
noScale ,
scaleAddMark ,
scaleClearMarks ,
scaleGetDigits ,
scaleGetDrawValue ,
scaleGetHasOrigin ,
scaleGetLayout ,
scaleGetLayoutOffsets ,
scaleGetValuePos ,
scaleNew ,
scaleNewWithRange ,
scaleSetDigits ,
scaleSetDrawValue ,
scaleSetHasOrigin ,
scaleSetValuePos ,
ScaleDigitsPropertyInfo ,
constructScaleDigits ,
getScaleDigits ,
setScaleDigits ,
ScaleDrawValuePropertyInfo ,
constructScaleDrawValue ,
getScaleDrawValue ,
setScaleDrawValue ,
ScaleHasOriginPropertyInfo ,
constructScaleHasOrigin ,
getScaleHasOrigin ,
setScaleHasOrigin ,
ScaleValuePosPropertyInfo ,
constructScaleValuePos ,
getScaleValuePos ,
setScaleValuePos ,
ScaleFormatValueCallback ,
ScaleFormatValueCallbackC ,
ScaleFormatValueSignalInfo ,
afterScaleFormatValue ,
mkScaleFormatValueCallback ,
noScaleFormatValueCallback ,
onScaleFormatValue ,
scaleFormatValueCallbackWrapper ,
scaleFormatValueClosure ,
) 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.Atk as Atk
import qualified GI.GObject as GObject
import qualified GI.Pango as Pango
newtype Scale = Scale (ForeignPtr Scale)
foreign import ccall "gtk_scale_get_type"
c_gtk_scale_get_type :: IO GType
type instance ParentTypes Scale = ScaleParentTypes
type ScaleParentTypes = '[Range, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject Scale where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_scale_get_type
class GObject o => ScaleK o
instance (GObject o, IsDescendantOf Scale o) => ScaleK o
toScale :: ScaleK o => o -> IO Scale
toScale = unsafeCastTo Scale
noScale :: Maybe Scale
noScale = Nothing
type ScaleFormatValueCallback =
Double ->
IO T.Text
noScaleFormatValueCallback :: Maybe ScaleFormatValueCallback
noScaleFormatValueCallback = Nothing
type ScaleFormatValueCallbackC =
Ptr () ->
CDouble ->
Ptr () ->
IO CString
foreign import ccall "wrapper"
mkScaleFormatValueCallback :: ScaleFormatValueCallbackC -> IO (FunPtr ScaleFormatValueCallbackC)
scaleFormatValueClosure :: ScaleFormatValueCallback -> IO Closure
scaleFormatValueClosure cb = newCClosure =<< mkScaleFormatValueCallback wrapped
where wrapped = scaleFormatValueCallbackWrapper cb
scaleFormatValueCallbackWrapper ::
ScaleFormatValueCallback ->
Ptr () ->
CDouble ->
Ptr () ->
IO CString
scaleFormatValueCallbackWrapper _cb _ value _ = do
let value' = realToFrac value
result <- _cb value'
result' <- textToCString result
return result'
onScaleFormatValue :: (GObject a, MonadIO m) => a -> ScaleFormatValueCallback -> m SignalHandlerId
onScaleFormatValue obj cb = liftIO $ connectScaleFormatValue obj cb SignalConnectBefore
afterScaleFormatValue :: (GObject a, MonadIO m) => a -> ScaleFormatValueCallback -> m SignalHandlerId
afterScaleFormatValue obj cb = connectScaleFormatValue obj cb SignalConnectAfter
connectScaleFormatValue :: (GObject a, MonadIO m) =>
a -> ScaleFormatValueCallback -> SignalConnectMode -> m SignalHandlerId
connectScaleFormatValue obj cb after = liftIO $ do
cb' <- mkScaleFormatValueCallback (scaleFormatValueCallbackWrapper cb)
connectSignalFunPtr obj "format-value" cb' after
getScaleDigits :: (MonadIO m, ScaleK o) => o -> m Int32
getScaleDigits obj = liftIO $ getObjectPropertyCInt obj "digits"
setScaleDigits :: (MonadIO m, ScaleK o) => o -> Int32 -> m ()
setScaleDigits obj val = liftIO $ setObjectPropertyCInt obj "digits" val
constructScaleDigits :: Int32 -> IO ([Char], GValue)
constructScaleDigits val = constructObjectPropertyCInt "digits" val
data ScaleDigitsPropertyInfo
instance AttrInfo ScaleDigitsPropertyInfo where
type AttrAllowedOps ScaleDigitsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ScaleDigitsPropertyInfo = (~) Int32
type AttrBaseTypeConstraint ScaleDigitsPropertyInfo = ScaleK
type AttrGetType ScaleDigitsPropertyInfo = Int32
type AttrLabel ScaleDigitsPropertyInfo = "Scale::digits"
attrGet _ = getScaleDigits
attrSet _ = setScaleDigits
attrConstruct _ = constructScaleDigits
getScaleDrawValue :: (MonadIO m, ScaleK o) => o -> m Bool
getScaleDrawValue obj = liftIO $ getObjectPropertyBool obj "draw-value"
setScaleDrawValue :: (MonadIO m, ScaleK o) => o -> Bool -> m ()
setScaleDrawValue obj val = liftIO $ setObjectPropertyBool obj "draw-value" val
constructScaleDrawValue :: Bool -> IO ([Char], GValue)
constructScaleDrawValue val = constructObjectPropertyBool "draw-value" val
data ScaleDrawValuePropertyInfo
instance AttrInfo ScaleDrawValuePropertyInfo where
type AttrAllowedOps ScaleDrawValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ScaleDrawValuePropertyInfo = (~) Bool
type AttrBaseTypeConstraint ScaleDrawValuePropertyInfo = ScaleK
type AttrGetType ScaleDrawValuePropertyInfo = Bool
type AttrLabel ScaleDrawValuePropertyInfo = "Scale::draw-value"
attrGet _ = getScaleDrawValue
attrSet _ = setScaleDrawValue
attrConstruct _ = constructScaleDrawValue
getScaleHasOrigin :: (MonadIO m, ScaleK o) => o -> m Bool
getScaleHasOrigin obj = liftIO $ getObjectPropertyBool obj "has-origin"
setScaleHasOrigin :: (MonadIO m, ScaleK o) => o -> Bool -> m ()
setScaleHasOrigin obj val = liftIO $ setObjectPropertyBool obj "has-origin" val
constructScaleHasOrigin :: Bool -> IO ([Char], GValue)
constructScaleHasOrigin val = constructObjectPropertyBool "has-origin" val
data ScaleHasOriginPropertyInfo
instance AttrInfo ScaleHasOriginPropertyInfo where
type AttrAllowedOps ScaleHasOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ScaleHasOriginPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ScaleHasOriginPropertyInfo = ScaleK
type AttrGetType ScaleHasOriginPropertyInfo = Bool
type AttrLabel ScaleHasOriginPropertyInfo = "Scale::has-origin"
attrGet _ = getScaleHasOrigin
attrSet _ = setScaleHasOrigin
attrConstruct _ = constructScaleHasOrigin
getScaleValuePos :: (MonadIO m, ScaleK o) => o -> m PositionType
getScaleValuePos obj = liftIO $ getObjectPropertyEnum obj "value-pos"
setScaleValuePos :: (MonadIO m, ScaleK o) => o -> PositionType -> m ()
setScaleValuePos obj val = liftIO $ setObjectPropertyEnum obj "value-pos" val
constructScaleValuePos :: PositionType -> IO ([Char], GValue)
constructScaleValuePos val = constructObjectPropertyEnum "value-pos" val
data ScaleValuePosPropertyInfo
instance AttrInfo ScaleValuePosPropertyInfo where
type AttrAllowedOps ScaleValuePosPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ScaleValuePosPropertyInfo = (~) PositionType
type AttrBaseTypeConstraint ScaleValuePosPropertyInfo = ScaleK
type AttrGetType ScaleValuePosPropertyInfo = PositionType
type AttrLabel ScaleValuePosPropertyInfo = "Scale::value-pos"
attrGet _ = getScaleValuePos
attrSet _ = setScaleValuePos
attrConstruct _ = constructScaleValuePos
type instance AttributeList Scale = ScaleAttributeList
type ScaleAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-value", ScaleDrawValuePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-origin", ScaleHasOriginPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value-pos", ScaleValuePosPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)])
data ScaleFormatValueSignalInfo
instance SignalInfo ScaleFormatValueSignalInfo where
type HaskellCallbackType ScaleFormatValueSignalInfo = ScaleFormatValueCallback
connectSignal _ = connectScaleFormatValue
type instance SignalList Scale = ScaleSignalList
type ScaleSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-value", ScaleFormatValueSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_scale_new" gtk_scale_new ::
CUInt ->
Ptr Adjustment ->
IO (Ptr Scale)
scaleNew ::
(MonadIO m, AdjustmentK a) =>
Orientation ->
Maybe (a) ->
m Scale
scaleNew orientation adjustment = liftIO $ do
let orientation' = (fromIntegral . fromEnum) orientation
maybeAdjustment <- case adjustment of
Nothing -> return nullPtr
Just jAdjustment -> do
let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment
return jAdjustment'
result <- gtk_scale_new orientation' maybeAdjustment
checkUnexpectedReturnNULL "gtk_scale_new" result
result' <- (newObject Scale) result
whenJust adjustment touchManagedPtr
return result'
foreign import ccall "gtk_scale_new_with_range" gtk_scale_new_with_range ::
CUInt ->
CDouble ->
CDouble ->
CDouble ->
IO (Ptr Scale)
scaleNewWithRange ::
(MonadIO m) =>
Orientation ->
Double ->
Double ->
Double ->
m Scale
scaleNewWithRange orientation min max step = liftIO $ do
let orientation' = (fromIntegral . fromEnum) orientation
let min' = realToFrac min
let max' = realToFrac max
let step' = realToFrac step
result <- gtk_scale_new_with_range orientation' min' max' step'
checkUnexpectedReturnNULL "gtk_scale_new_with_range" result
result' <- (newObject Scale) result
return result'
foreign import ccall "gtk_scale_add_mark" gtk_scale_add_mark ::
Ptr Scale ->
CDouble ->
CUInt ->
CString ->
IO ()
scaleAddMark ::
(MonadIO m, ScaleK a) =>
a ->
Double ->
PositionType ->
Maybe (T.Text) ->
m ()
scaleAddMark _obj value position markup = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
let position' = (fromIntegral . fromEnum) position
maybeMarkup <- case markup of
Nothing -> return nullPtr
Just jMarkup -> do
jMarkup' <- textToCString jMarkup
return jMarkup'
gtk_scale_add_mark _obj' value' position' maybeMarkup
touchManagedPtr _obj
freeMem maybeMarkup
return ()
foreign import ccall "gtk_scale_clear_marks" gtk_scale_clear_marks ::
Ptr Scale ->
IO ()
scaleClearMarks ::
(MonadIO m, ScaleK a) =>
a ->
m ()
scaleClearMarks _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_scale_clear_marks _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_scale_get_digits" gtk_scale_get_digits ::
Ptr Scale ->
IO Int32
scaleGetDigits ::
(MonadIO m, ScaleK a) =>
a ->
m Int32
scaleGetDigits _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scale_get_digits _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_scale_get_draw_value" gtk_scale_get_draw_value ::
Ptr Scale ->
IO CInt
scaleGetDrawValue ::
(MonadIO m, ScaleK a) =>
a ->
m Bool
scaleGetDrawValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scale_get_draw_value _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_scale_get_has_origin" gtk_scale_get_has_origin ::
Ptr Scale ->
IO CInt
scaleGetHasOrigin ::
(MonadIO m, ScaleK a) =>
a ->
m Bool
scaleGetHasOrigin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scale_get_has_origin _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_scale_get_layout" gtk_scale_get_layout ::
Ptr Scale ->
IO (Ptr Pango.Layout)
scaleGetLayout ::
(MonadIO m, ScaleK a) =>
a ->
m Pango.Layout
scaleGetLayout _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scale_get_layout _obj'
checkUnexpectedReturnNULL "gtk_scale_get_layout" result
result' <- (newObject Pango.Layout) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_scale_get_layout_offsets" gtk_scale_get_layout_offsets ::
Ptr Scale ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
scaleGetLayoutOffsets ::
(MonadIO m, ScaleK a) =>
a ->
m (Int32,Int32)
scaleGetLayoutOffsets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
x <- allocMem :: IO (Ptr Int32)
y <- allocMem :: IO (Ptr Int32)
gtk_scale_get_layout_offsets _obj' x y
x' <- peek x
y' <- peek y
touchManagedPtr _obj
freeMem x
freeMem y
return (x', y')
foreign import ccall "gtk_scale_get_value_pos" gtk_scale_get_value_pos ::
Ptr Scale ->
IO CUInt
scaleGetValuePos ::
(MonadIO m, ScaleK a) =>
a ->
m PositionType
scaleGetValuePos _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scale_get_value_pos _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_scale_set_digits" gtk_scale_set_digits ::
Ptr Scale ->
Int32 ->
IO ()
scaleSetDigits ::
(MonadIO m, ScaleK a) =>
a ->
Int32 ->
m ()
scaleSetDigits _obj digits = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_scale_set_digits _obj' digits
touchManagedPtr _obj
return ()
foreign import ccall "gtk_scale_set_draw_value" gtk_scale_set_draw_value ::
Ptr Scale ->
CInt ->
IO ()
scaleSetDrawValue ::
(MonadIO m, ScaleK a) =>
a ->
Bool ->
m ()
scaleSetDrawValue _obj draw_value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let draw_value' = (fromIntegral . fromEnum) draw_value
gtk_scale_set_draw_value _obj' draw_value'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_scale_set_has_origin" gtk_scale_set_has_origin ::
Ptr Scale ->
CInt ->
IO ()
scaleSetHasOrigin ::
(MonadIO m, ScaleK a) =>
a ->
Bool ->
m ()
scaleSetHasOrigin _obj has_origin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let has_origin' = (fromIntegral . fromEnum) has_origin
gtk_scale_set_has_origin _obj' has_origin'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_scale_set_value_pos" gtk_scale_set_value_pos ::
Ptr Scale ->
CUInt ->
IO ()
scaleSetValuePos ::
(MonadIO m, ScaleK a) =>
a ->
PositionType ->
m ()
scaleSetValuePos _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pos' = (fromIntegral . fromEnum) pos
gtk_scale_set_value_pos _obj' pos'
touchManagedPtr _obj
return ()