;////////////////////////////////////////////////////////////////////////
;
;  Вызов окна настройки подтверждений (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


; Подготовка массива ячеек 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