mirror of
https://github.com/Tolik-Trek/File-Manager.git
synced 2026-06-15 09:21:37 +03:00
55 lines
1.2 KiB
NASM
Executable File
55 lines
1.2 KiB
NASM
Executable File
;////////////////////////////////////////////////////////////////////////
|
||
;
|
||
; ‚맮¢ ®ª áâனª¨ ¯®¤â¢¥à¦¤¥¨© (Options->Confirmations)
|
||
;
|
||
;////////////////////////////////////////////////////////////////////////
|
||
set_confirm:
|
||
; áâநâì ¬ áᨢ ï祥ª CheckBox-
|
||
call prep_confirm_ceils
|
||
; ¢ë¢®¤ ®ª
|
||
ld hl,win_dial_confirm ; ®¯¨á â¥«ì ®ª
|
||
call DialogW
|
||
cp evCommand ; ᮡë⨥ "ª®¬ ¤ "
|
||
ret nz
|
||
ld a,(hl) ;+1 what
|
||
cp cmOkey ; "Yes"
|
||
ret nz
|
||
; ‘®åà ¨âì áâனª¨
|
||
ld hl,confirm_ceil0 ; ç «® ¬ áᨢ ï祥ª
|
||
ld a,(hl)
|
||
ld (copy_overwrite),a ; copy
|
||
inc hl
|
||
ld a,(hl)
|
||
;ld (),a ; move
|
||
inc hl
|
||
ld a,(hl)
|
||
ld (del_confirm),a ; delete
|
||
inc hl
|
||
ld a,(hl)
|
||
ld (flag_del_non_empty),a ; delete non-empty folders
|
||
inc hl
|
||
ld a,(hl)
|
||
ld (confirm_quit),a ; exit
|
||
ret
|
||
|
||
|
||
; <20>®¤£®â®¢ª ¬ áᨢ ï祥ª CheckBox-
|
||
prep_confirm_ceils:
|
||
ld hl,confirm_ceil0 ; ç «® ¬ áᨢ ï祥ª
|
||
ld a,false
|
||
ld a,(copy_overwrite) ; copy
|
||
ld (hl),a
|
||
inc hl
|
||
;ld a,() ; move
|
||
ld (hl),a
|
||
inc hl
|
||
ld a,(del_confirm) ; delete
|
||
ld (hl),a
|
||
inc hl
|
||
ld a,(flag_del_non_empty) ; delete non-empty folders
|
||
ld (hl),a
|
||
inc hl
|
||
ld a,(confirm_quit) ; exit
|
||
ld (hl),a
|
||
ret
|