Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-12-01 05:50:24 +00:00
Code Issues Projects Releases Wiki Activity

disasm: handle_title_click

Browse Source
This commit is contained in:
Joshua Bell 2019-04-24 23:41:53 -07:00
parent 4c875790b0
commit f5b12036df
1 changed files with 29 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
desktop/desktop_main.s
View File

@ -4223,9 +4223,11 @@ L60D5: jsr push_pointers
;;; ============================================================ ;;; ============================================================
.proc handle_title_click .proc handle_title_click
jmp L60DE ptr := $06
L60DE: lda active_window_id jmp :+
: lda active_window_id
sta event_params sta event_params
MGTK_RELAY_CALL MGTK::FrontWindow, active_window_id MGTK_RELAY_CALL MGTK::FrontWindow, active_window_id
lda active_window_id lda active_window_id
@ -4233,53 +4235,54 @@ L60DE: lda active_window_id
MGTK_RELAY_CALL MGTK::DragWindow, event_params MGTK_RELAY_CALL MGTK::DragWindow, event_params
lda active_window_id lda active_window_id
jsr window_lookup jsr window_lookup
stax $06 stax ptr
ldy #$16 ldy #MGTK::Winfo::port + MGTK::GrafPort::viewloc + MGTK::Point::ycoord
lda ($06),y lda (ptr),y
cmp #$19 cmp #$19 ; ???
bcs L6112 bcs :+
lda #$19 lda #$19
sta ($06),y sta (ptr),y
L6112: ldy #$14
sub16in ($06),y, port_copy+MGTK::GrafPort::viewloc+MGTK::Point::xcoord, L6197 : ldy #MGTK::Winfo::port + MGTK::GrafPort::viewloc + MGTK::Point::xcoord
sub16in (ptr),y, port_copy+MGTK::GrafPort::viewloc+MGTK::Point::xcoord, deltax
iny iny
sub16in ($06),y, port_copy+MGTK::GrafPort::viewloc+MGTK::Point::ycoord, L6199 sub16in (ptr),y, port_copy+MGTK::GrafPort::viewloc+MGTK::Point::ycoord, deltay
ldx active_window_id ldx active_window_id
dex dex
lda win_view_by_table,x lda win_view_by_table,x
beq L6143 ; view by icon beq :+ ; view by icon
rts rts
L6143: copy active_window_id, cached_window_id ;; Update icon positions
: copy active_window_id, cached_window_id
jsr LoadWindowIconTable jsr LoadWindowIconTable
ldx #$00 ldx #0
L614E: cpx cached_window_icon_count next: cpx cached_window_icon_count
bne L6161 bne :+
jsr StoreWindowIconTable jsr StoreWindowIconTable
copy #0, cached_window_id copy #0, cached_window_id
jsr LoadWindowIconTable jsr LoadWindowIconTable
jmp L6196 jmp done
L6161: txa : txa
pha pha
lda cached_window_icon_list,x lda cached_window_icon_list,x
jsr icon_entry_lookup jsr icon_entry_lookup
stax $06 stax ptr
ldy #$03 ldy #IconEntry::iconx
add16in ($06),y, L6197, ($06),y add16in (ptr),y, deltax, (ptr),y
iny iny
add16in ($06),y, L6199, ($06),y add16in (ptr),y, deltay, (ptr),y
pla pla
tax tax
inx inx
jmp L614E jmp next
L6196: rts done: rts
L6197: .word 0 deltax: .word 0
L6199: .word 0 deltay: .word 0
.endproc .endproc