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

New Folder/Rename dialog - don't forget part after IP (Fixes #118)

Browse Source
This commit is contained in:
Joshua Bell 2019-01-26 21:50:41 -08:00
parent f792fd374d
commit 262571c104
2 changed files with 22 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
RELEASE-NOTES.md
View File

@ -49,6 +49,7 @@ subdirectory.
* Prevent crash with more than two volumes on a SmartPort interface. (#45)
* Startup menu will include Slot 2. (#106)
* Correct odd behavior for file type $08. (#103)
* New Folder/Rename file dialog no longer truncated after IP. (#118)
* Desk Accessories:
* Date: Read-only on systems with a clock. On systems without a clock, date is saved for next session. (#30, #39)
* Calculator: don't mis-paint when moved offscreen and other fixes. (#33, #34)

29
desktop/desktop_main.s
View File

@ -13274,9 +13274,10 @@ LAE90: lda ($08),y
LAEC6: jsr prompt_input_loop
bmi LAEC6
bne LAF16
jsr merge_path_buf1_path_buf2
lda path_buf1
beq LAEC6
cmp #$10
cmp #16 ; max filename length
bcc LAEE1
LAED6: lda #ERR_NAME_TOO_LONG
jsr JT_SHOW_ALERT0
@ -14803,29 +14804,41 @@ LBCB3: pla
;;; ============================================================
.proc LBCC9
.proc merge_path_buf1_path_buf2
lda path_buf2
cmp #$02
bcs LBCD1
rts
cmp #2
bcc done
LBCD1: ldx path_buf2
;; Compute new path_buf1 length
ldx path_buf2
dex
txa
clc
adc path_buf1
pha
;; Copy chars from path_buf2 to path_buf1
tay
ldx path_buf2
LBCDF: lda path_buf2,x
loop: lda path_buf2,x
sta path_buf1,y
dex
dey
cpy path_buf1
bne LBCDF
bne loop
;; Finish up, shrinking path_buf2 to just an insertion point
pla
sta path_buf1
copy #1, path_buf2
done: rts
.endproc
;;; ============================================================
.proc LBCC9
jsr merge_path_buf1_path_buf2
MGTK_RELAY_CALL MGTK::MoveTo, name_input_textpos
jsr draw_filename_prompt
rts