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> </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 ####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. 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 WGReset = 86
WGGetState = 88 WGGetState = 88
WGPendingClick = 90 WGPendingClick = 90
WGClearPendingClick = 92

10
views.s
View File

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

Binary file not shown.

View File

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