Как изменить фон окна в tcl/tk?

Question

[Роман]

Как изменить фон в tcl/tk? Есть написанная программа:

#!/usr/bin/env tclsh

package require Tcl
package require Tk

set version 1.3
set FORWARDS {
10170 10220
}

wm title . "Text v$version"
wm resizable . 0 0
wm withdraw .
wm geometry . "700x350"
wm deiconify .

Как можно изменить фон этого окна? Например, на черный. Я tcl/tk не понимаю, программа досталась по наследству, в гугле у всех другой подход/синтаксис, поэтому ответ немого найти. Спасибо за помощь.

Comments

[Viktor T2]

tk_setPalette "black"

#!/usr/bin/env tclsh

package require Tcl
package require Tk

set version 1.3
set FORWARDS {
10170 10220
}

# wm - это не окно, это менеджер окон 
wm title . "Text v$version" 
wm resizable . 0 0

# Установить чорную палитру на все окна
tk_setPalette "black"   

# Вот окно
toplevel .win1 -background "white"

wm withdraw .
wm geometry . "700x350"
wm deiconify .

Answer 1

[O . J]

Чтобы изменить фон окна в Tcl/Tk, можно использовать команду configure для установки свойства background окна на желаемый цвет. Например, чтобы установить черный фон, можно добавить следующую строку перед вызовом wm deiconify:

configure . -background black

Полный код с измененным фоном будет выглядеть так:

#!/usr/bin/env tclsh

package require Tcl
package require Tk

set version 1.3
set FORWARDS {
10170 10220
}

wm title . "Text v$version"
wm resizable . 0 0
wm withdraw .
wm geometry . "700x350"

# Установка черного фона
configure . -background black

wm deiconify .

После запуска программы, вы должны увидеть, что фон окна стал черным.