| i event x y downTime | downTime := SystemClock uptimeMillis. x := y := 100. i := Instrumentation new. event := [:action| MotionEvent obtain: downTime eventTime: SystemClock uptimeMillis action: action x: x y: y metaState: 0 ]. [ i sendPointerSync: (event value: 0"ACTION_DOWN"). i sendPointerSync: (event value: 1"ACTION_UP"). ] on: Error do: [:ex| self print: 'OOps - ',ex description ] |