subclass window 1, @"Click somewhere in the window"

void local fn DoDialog( ev as long )
  select ( ev )
    case _windowMouseDown
      CGPoint pt = fn EventLocationInWindow
      cls : printf @"%.0fx, %.0fy",pt.x,pt.y
  end select
end fn

on dialog fn DoDialog

HandleEvents