Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-04-06 19:37:13 +00:00
Code Issues Projects Releases Wiki Activity

Flash button on keypress

Browse Source
This commit is contained in:
Joshua Bell 2018-05-28 21:23:31 -07:00
parent 6a19a7d741
commit 22bfad5bb2
1 changed files with 27 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
desk.acc/find.files.s
View File

@ -361,11 +361,17 @@ done: rts
not_meta:
lda event_params::key
cmp #CHAR_ESCAPE
beq exit
bne :+
addr_call flash_button, cancel_button_rect
jmp exit
;; cmp #CHAR_ENTER
;; beq do_search
cmp #CHAR_LEFT
: cmp #CHAR_RETURN
bne :+
addr_call flash_button, search_button_rect
jmp input_loop ; TODO: Implement
: cmp #CHAR_LEFT
bne :+
jmp do_left
: cmp #CHAR_RIGHT
@ -817,6 +823,23 @@ invert_rect:
rts
.endproc
;;; ============================================================
;;; Call with rect addr in A,X
.proc flash_button
stax fillrect_addr
lda #da_window_id
sta winport_params::window_id
MGTK_CALL MGTK::GetWinPort, winport_params
MGTK_CALL MGTK::SetPort, grafport
MGTK_CALL MGTK::SetPenMode, penxor
jsr sub
;; fall through...
sub: MGTK_CALL MGTK::PaintRect, 0, fillrect_addr
rts
.endproc
;;; ============================================================