Загрузка...

Графические Интерфейсы. Лабораторная работа №3.


wm geometry . 200×180
wm title . «Лабораторная работа №3»

. config -bg Blue
button .img1 -text «Водяные линии» -command [namespace code img1] -width 20 -bg White
button .img2 -text «Голубые холмы» -command [namespace code img2] -width 20 -bg White
button .img3 -text «Закат» -command [namespace code img3] -width 20 -bg White
button .img4 -text «Зима» -command [namespace code img4] -width 20 -bg White
button .ex -text «Выход» -command [namespace code exit] -width 20 -bg White

pack .img1 -side top -pady 4
pack .img2 -side top -pady 4
pack .img3 -side top -pady 4
pack .img4 -side top -pady 4
pack .ex -pady 12

# Процедура выполняемая по нажатию на кнопку Водяные лилии
proc img1 {} {
# Создание окна для отображения рисунка
set d .k
catch {destroy $d}

toplevel $d
wm title $d «Водяные лилии»
wm iconname $d «TCL/TK»
# Загрузка рисунка и отображение его на форме
image create photo risunok1 -file [file join d:\\ 5 5.gif]
label $d.l1 -image risunok1
pack $d.l1 -side bottom -padx 10 }

# Процедура выполняемая по нажатию на кнопку Голубые холмы
proc img2 {} {
# Создание окна для отображения рисунка
set d .k
catch {destroy $d}

toplevel $d
wm title $d «Голубые холмы»
wm iconname $d «TCL/TK»
# Загрузка рисунка и отображение его на форме
image create photo risunok1 -file [file join d:\\ 5 6.gif]
label $d.l1 -image risunok1
pack $d.l1 -side bottom -padx 10 }

# Процедура выполняемая по нажатию на кнопку Закат
proc img3 {} {
# Создание окна для отображения рисунка
set d .k
catch {destroy $d}

toplevel $d
wm title $d «Закат»
wm iconname $d «TCL/TK»
# Загрузка рисунка и отображение его на форме
image create photo risunok1 -file [file join d:\\ 5 7.gif]
label $d.l1 -image risunok1
pack $d.l1 -side bottom -padx 10 }

# Процедура выполняемая по нажатию на кнопку Зима
proc img4 {} {
# Создание окна для отображения рисунка
set d .k
catch {destroy $d}

toplevel $d
wm title $d «Зима»
wm iconname $d «TCL/TK»
# Загрузка рисунка и отображение его на форме
image create photo risunok1 -file [file join d:\\ 5 8.gif]
label $d.l1 -image risunok1
pack $d.l1 -side bottom -padx 10 }

Загрузка...