Если есть знания правь birthday.tcl как хочешь, в данном виде не предусмотрен выбор форм. Например чтоб при команде !др лист скрыть год нужно
Цитата
lappend out "$::gcolor(4)${i}.$::gcolor(14) [lrange ${line} 0 0].[lrange ${line} 1 1].[lrange ${line} 2 2] -$::gcolor(5) [join [lrange ${line} 3 3]]"
заменить на:
Цитата
lappend out "$::gcolor(4)${i}.$::gcolor(14) [lrange ${line} 0 0].[lrange ${line} 1 1] -$::gcolor(5) [join [lrange ${line} 3 3]]"