Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-25 10:30:50 +00:00
Code Issues Projects Releases Wiki Activity

identify entry file picker winfo

Browse Source
This commit is contained in:
Joshua Bell 2018-03-14 20:38:47 -07:00
parent d6b757849b
commit e014bda697
7 changed files with 62 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
desktop/desktop.s
View File

@ -4437,7 +4437,7 @@ fontptr: .addr DEFAULT_FONT
nextwinfo: .addr 0
.endproc
.proc winfo15
.proc winfo_entrydlg_file_picker
window_id: .byte $15
options: .byte MGTK::option_dialog_box
title: .addr 0
@ -4449,15 +4449,15 @@ vthumbmax: .byte 3
vthumbpos: .byte 0
status: .byte 0
reserved: .byte 0
mincontwidth: .word $64
maxcontwidth: .word $46
mincontlength: .word $64
maxcontlength: .word $46
mincontwidth: .word 100
maxcontwidth: .word 70
mincontlength: .word 100
maxcontlength: .word 70
port:
viewloc: DEFINE_POINT $35, $32
viewloc: DEFINE_POINT 53, 50
mapbits: .addr MGTK::screen_mapbits
mapwidth: .word MGTK::screen_mapwidth
cliprect: DEFINE_RECT 0, 0, $7D, $46
cliprect: DEFINE_RECT 0, 0, 125, 70
penpattern: .res 8, $FF
colormasks: .byte MGTK::colormask_and, MGTK::colormask_or
penloc: DEFINE_POINT 0, 0
@ -4481,15 +4481,15 @@ vthumbmax: .byte 0
vthumbpos: .byte 0
status: .byte 0
reserved: .byte 0
mincontwidth: .word $96
maxcontwidth: .word $32
mincontlength: .word $1F4
maxcontlength: .word $8C
mincontwidth: .word 150
maxcontwidth: .word 50
mincontlength: .word 500
maxcontlength: .word 140
port:
viewloc: DEFINE_POINT $50, $28
viewloc: DEFINE_POINT 80, 40
mapbits: .addr MGTK::screen_mapbits
mapwidth: .word MGTK::screen_mapwidth
cliprect: DEFINE_RECT 0, 0, $190, $6E
cliprect: DEFINE_RECT 0, 0, 400, 110
penpattern: .res 8, $FF
colormasks: .byte MGTK::colormask_and, MGTK::colormask_or
penloc: DEFINE_POINT 0, 0
@ -4514,15 +4514,15 @@ vthumbmax: .byte 0
vthumbpos: .byte 0
status: .byte 0
reserved: .byte 0
mincontwidth: .word $96
maxcontwidth: .word $32
mincontlength: .word $1F4
maxcontlength: .word $8C
mincontwidth: .word 150
maxcontwidth: .word 50
mincontlength: .word 500
maxcontlength: .word 140
port:
viewloc: DEFINE_POINT $69, $19
viewloc: DEFINE_POINT 105, 25
mapbits: .addr MGTK::screen_mapbits
mapwidth: .word MGTK::screen_mapwidth
cliprect: DEFINE_RECT 0, 0, $15E, $6E
cliprect: DEFINE_RECT 0, 0, 350, 110
penpattern: .res 8, $FF
colormasks: .byte MGTK::colormask_and, MGTK::colormask_or
penloc: DEFINE_POINT 0, 0
@ -4540,7 +4540,7 @@ rect1: DEFINE_RECT 40,61,360,71, rect1
point6: DEFINE_POINT 45,70, point6
pos_dialog_title: DEFINE_POINT 0, 18, pos_dialog_title
point7: DEFINE_POINT 40,18, point7
pointD: DEFINE_POINT $28, $23, pointD
pointD: DEFINE_POINT 40, 35, pointD
dialog_label_default_x := 40
dialog_label_pos:
@ -4551,7 +4551,7 @@ dialog_label_pos:
.addr MGTK::screen_mapbits
.byte MGTK::screen_mapwidth
.byte 0
DEFINE_RECT 0, 0, $166, $64
DEFINE_RECT 0, 0, 358, 100
.endproc
;; ???

2
desktop/inc/desktoplc.inc
View File

@ -71,7 +71,7 @@ updatethumb_stash := updatethumb_params + 5 ; not part of struct
winfoF := $D57D
winfo12 := $D5B7
winfo15 := $D5F1
winfo_entrydlg_file_picker := $D5F1
winfo1B := $D665
path_buf0 := $D402

37
desktop/ovl3.s
View File

@ -794,38 +794,39 @@ L97D4: asl a
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
rts
L9822: lda $D20A
cmp #$02
bne L982C
;; key down handler
L9822: lda event_modifiers
cmp #MGTK::event_modifier_solid_apple
bne :+
return #$FF
L982C: lda $D209
: lda event_key
and #$7F
cmp #$08
bne L9838
cmp #CHAR_LEFT
bne :+
jmp L98F8
L9838: cmp #$15
bne L983F
: cmp #CHAR_RIGHT
bne :+
jmp L98AC
L983F: cmp #$0D
bne L9846
: cmp #CHAR_RETURN
bne :+
jmp L985E
L9846: cmp #$1B
bne L984D
: cmp #CHAR_ESCAPE
bne :+
jmp L9885
L984D: cmp #$0A
bne L9854
: cmp #CHAR_DOWN
bne :+
jmp L9978
L9854: cmp #$0B
bne L985B
: cmp #CHAR_UP
bne :+
jmp L993F
L985B: return #$FF
: return #$FF
L985E: MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, $D6F8

30
desktop/ovl4.s
View File

@ -816,31 +816,31 @@ params: .addr 0
L59B8: rts
L59B9: lda $D20A
L59B9: lda event_modifiers
beq L59F7
lda $D209
lda event_key
and #$7F
cmp #$08
cmp #CHAR_LEFT
bne L59CA
jmp L6D3F
L59CA: cmp #$15
L59CA: cmp #CHAR_RIGHT
bne L59D1
jmp L6D42
L59D1: bit L5105
bmi L59E4
cmp #$0A
cmp #CHAR_DOWN
bne L59DD
jmp L5C0E
L59DD: cmp #$0B
L59DD: cmp #CHAR_UP
bne L59E4
jmp L5BF6
L59E4: cmp #$30
L59E4: cmp #'0'
bcc L59EF
cmp #$3A
cmp #'9'+1
bcs L59EF
jmp L5B23
@ -848,25 +848,25 @@ L59EF: bit L5105
bmi L5A4F
jmp L5B70
L59F7: lda $D209
L59F7: lda event_key
and #$7F
cmp #$08
cmp #CHAR_LEFT
bne L5A03
jmp L6D39
L5A03: cmp #$15
L5A03: cmp #CHAR_RIGHT
bne L5A0A
jmp L6D3C
L5A0A: cmp #$0D
L5A0A: cmp #CHAR_RETURN
bne L5A11
jmp L5ACC
L5A11: cmp #$1B
L5A11: cmp #CHAR_ESCAPE
bne L5A18
jmp L5AF7
L5A18: cmp #$7F
L5A18: cmp #CHAR_DELETE
bne L5A1F
jmp L5B1F
@ -874,7 +874,7 @@ L5A1F: bit L5105
bpl L5A27
jmp L5AC4
L5A27: cmp #$09
L5A27: cmp #CHAR_TAB
bne L5A52
lda $D5B7
jsr L62C8

4
desktop/ovl5.s
View File

@ -168,7 +168,7 @@ L7192: lda #$40
L7198: addr_call common_overlay::L647C, path_buf1
bne L7192
MGTK_RELAY_CALL MGTK::CloseWindow, winfo15
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
MGTK_RELAY_CALL MGTK::CloseWindow, winfo12
lda #0
sta $50A8
@ -185,7 +185,7 @@ L7198: addr_call common_overlay::L647C, path_buf1
;;; ============================================================
L71D8: MGTK_RELAY_CALL MGTK::CloseWindow, winfo15
L71D8: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
MGTK_RELAY_CALL MGTK::CloseWindow, winfo12
lda #0
sta $D8EC

4
desktop/ovl6.s
View File

@ -74,7 +74,7 @@ L70B1: addr_call common_overlay::L647C, path_buf0
jsr JUMP_TABLE_ALERT_0
rts
L70C0: MGTK_RELAY_CALL MGTK::CloseWindow, winfo15
L70C0: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
MGTK_RELAY_CALL MGTK::CloseWindow, winfo12
lda #0
sta $D8EC
@ -87,7 +87,7 @@ L70C0: MGTK_RELAY_CALL MGTK::CloseWindow, winfo15
.byte 0
L70EA: MGTK_RELAY_CALL MGTK::CloseWindow, winfo15
L70EA: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
MGTK_RELAY_CALL MGTK::CloseWindow, winfo12
lda #0
sta $D8EC

4
desktop/ovl7.s
View File

@ -239,7 +239,7 @@ L72E8: lda #$FB
L72EE: MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport3
MGTK_RELAY_CALL MGTK::CloseWindow, winfo15
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
MGTK_RELAY_CALL MGTK::CloseWindow, winfo12
sta $D8EC
jsr common_overlay::L55BA
@ -252,7 +252,7 @@ L72EE: MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport3
MGTK_RELAY_CALL MGTK::CloseWindow, winfo15
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
MGTK_RELAY_CALL MGTK::CloseWindow, winfo12
lda #$00
sta $D8EC