|
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
|