add WGClearPendingClick

This commit is contained in:
4am 2018-03-31 11:49:58 -04:00
parent 92e32ec963
commit 39f6a9106a
5 changed files with 24 additions and 0 deletions

View File

@ -565,6 +565,18 @@ Not available
</table>
####WGClearPendingClick
Clear the currently pending click, if any. Most programs shouldn't need this, but you can use it to do your own low-level click handling if you wish.
<table width="100%">
<tr><th>Assembly</th><th>Applesoft</th></tr><tr><td><pre>
X: WGClearPendingClick
</td><td>
Not available
</td></tr>
</table>
####WGViewFocus
Focus is shifted to the currently selected view. This will highlight the view visually, as needed, and any affected views are redrawn as needed.

View File

@ -76,4 +76,5 @@ WGCreateRadio = 84
WGReset = 86
WGGetState = 88
WGPendingClick = 90
WGClearPendingClick = 92

10
views.s
View File

@ -1185,6 +1185,16 @@ WGPendingClick_done:
rts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; WGClearPendingClick
; clear mouse coordinates
;
WGClearPendingClick:
stz WG_MOUSECLICK_X
dec WG_MOUSECLICK_X
rts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; WGViewSetTitle
; Sets the title of the active view

Binary file not shown.

View File

@ -79,6 +79,7 @@ WGEntryPointTable:
.addr WGReset
.addr WGGetState
.addr WGPendingClick
.addr WGClearPendingClick
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;