;////////////////////////////////////////////////////////////////////////
;
;  Вызов окна настройки цветов (Options->Colors)
;
;////////////////////////////////////////////////////////////////////////
setup_colors:
	; массив цветов во врем. буфер
	ld	hl,color_array		; откуда
	ld	de,tmp_color_list	; куда (врем. буфер)
	ld	bc,len_color_array	; размер массива
	ldir
	; вывод окна
	ld	hl,dial_colors		; описатель окна
	call	DialogW
	cp	evCommand		; событие "команда"
	jr	nz,set_colors_done
	ld	a,(hl)			;+1 what
	cp	cmOkey			; "Set"
	jr	nz,set_colors_done
	; цвет. настройки в промеж. буфер
	ld	hl,tmp_color_list	; откуда
	ld	de,temp_colors		; куда (врем. буфер)
	ld	bc,len_color_array	; размер массива
	ldir
set_colors_done:
	; Применить настройки "Colors"
	call	test_show_panels	; тест на режим вкл. панелей
	ret	z
	ld	hl,what			; поле событий
	ld	a,(hl)
	cp	evCommand
	ret	nz
	inc	hl
	ld	a,(hl)
	cp	cmDefault
	jr	nz,$+7
	ld	hl,default_colors	; массив цветов по-умолчанию
	jr	$+8
	cp	cmOkey
	ret	nz
	; применить цвет. настройки
	ld	hl,temp_colors		; откуда
	ld	de,color_array		; куда
	ld	bc,len_color_array	; размер массива
	ldir
	call	set_colors		; настройка цветов оболочки
	; обновить цвета панелей
;apply_colors__:			; <- из set_attrib
	call	change_panel		; сменить панель
	call	A20FC			; обновить панель
	call	change_panel
	call	A20FC
	call	print_compath		; обновить ком-строку
	call	print_keybar		; обновить key-бар
	jp	show_pointer		; обновить указатель