Mouse position: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
No edit summary |
||
| Line 560: | Line 560: | ||
end if |
end if |
||
wend</syntaxhighlight> |
wend</syntaxhighlight> |
||
=={{header|FutureBasic}}== |
|||
<syntaxhighlight lang="futurebasic"> |
|||
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 |
|||
</syntaxhighlight> |
|||
=={{header|Gambas}}== |
=={{header|Gambas}}== |
||