#!/bin/sh
# \
exec wish "$0" "$@"
proc paint {i} {  #Создание процедуры "paint"
	global color r g b #обьявление глобальных переменных.
	set color [format #%2X%2X%2X  $r $g $b]
	set color [string map {" " 0} $color]   #присваивание переменных.
	.color configure -bg $color
	.ctrl configure -bg $color  
}
frame .ctrl
frame .color #создание области в окне
pack .ctrl .color -fill both -side bottom -expand yes  #"оживление" обласи/виджетов
scale .ctrl.r -relief groove -label Красный -from 255 -to 0 -variable r -command paint
scale .ctrl.g -relief groove -label Зелёный -from 255 -to 0 -variable g -command paint
scale .ctrl.b -relief groove -label Синий   -from 255 -to 0 -variable b -command paint
pack .ctrl.r .ctrl.g .ctrl.b -fill y -side left -expand yes   #виджеты и их установка в окне
set color #000000
label .color.name -textvariable color
pack .color.name