Ключевые слова:tcl, tk, window, button, (найти похожие документы)
Date: Mon, 13 Aug 2001 14:02:48 +0000 (UTC)
From: Baranov Andrey <abaranov@w-trade.spb.ru>
Newsgroups: fido7.ru.unix.prog
Subject: Порождение группы одинаковых окон в Tcl/Tk.
> Как реализовать возможность порождать одинаковые окна с одной кнопки?
> Допустим есть главное окно, в нем кнопка, нажимаю, открывается
> независимое второе окно, нажимаю еще раз, открывается еще одно
> такое-же, и т.д., и все эти дети-окна содержат форму заполнения скажем
> фамили и имени, и чтобы если всех их заполнить разными фамилиями
> и чтобы их можно было бы обработать (сохранить в базу даных).
>
Можно сделать так:
button .b1 -command newb1
pack .b1
set i 0
proc get_result {win i} {
upvar b${i} res
// out result
puts $res
destroy $win
}
proc newb1 {} {
global i
set win ".nb${i}"
set var "b${i}"
# init var
upvar $var val
set val "test${i}"
toplevel $win
entry $win.e -textvariable $var
pack $win.e
wm protocol $win WM_DELETE_WINDOW "get_result $win $i"
incr i
}