Merge pull request #23 from a2-4am/master

add WGPendingClick and WGClearPendingClick
This commit is contained in:
blondie7575 2018-03-31 09:35:11 -07:00 committed by GitHub
commit f3a72567a0
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
5 changed files with 26 additions and 1 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

@ -75,4 +75,6 @@ WGStrokeRoundRect = 82
WGCreateRadio = 84 WGCreateRadio = 84
WGReset = 86 WGReset = 86
WGGetState = 88 WGGetState = 88
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

@ -78,7 +78,8 @@ WGEntryPointTable:
.addr WGCreateRadio .addr WGCreateRadio
.addr WGReset .addr WGReset
.addr WGGetState .addr WGGetState
.addr WGPendingClick
.addr WGClearPendingClick
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;