Re: SOF: Tcl/Tk
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
On Thu Dec 26, 2002 at 16:12:44 +0300, Victor Wagner wrote:
>> Сегодня написал свою первую программу на tcl и Tk, и появилось куча
>> вопросов, а где их можно задавать я не знаю.
VW> mailto:tcl-request@ice.ru?Subject=subscribe
спасибо
VW> Идеологически правильнее последний вариант. Глобальных переменных
VW> следует избегать. А хард-кодед имена неудобны тем, что когда тебе
VW> потребуется обвесить теми же процедурами другой виджет, их придется
VW> переписывать.
понятно
>> Как обработать закрытие окна - т.е. я нажимаю на кнопку закрытия окна (в
>> titlebar'е) и хочу чтобы появилось окно Save?Ok:Cancel
VW> wm protocol . WM_DELETE_WINDOW обработчик
понятно. Поиск destroy в хэлпе я делал а поискать слово delete не
догадался :(
>> Как писать портируемые программы - в Linux'е я в качестве начального
>> пути к файлам использую $env(HOME), но в windows нет такой переменной
>> окружения?
VW>
VW> if {$tcl_platform(platform) == "unix" } {
VW> set initial_path $env(HOME)
VW> } elseif {$tcl_platform(platform) == "windows" } {
VW> set initial_path $env(USERPROFILE)
насколько я понимаю это только для NT? в 98 вроде не определен
USERPROFILE
>> Как изменить класс моего окна? Обычно класс = имя приложения, но можно
>> ли сделать по другому?
>> toplevel -class ClassName создает новое окно с указанным класом. А как
>> изменить класс у главного (т.е. самого первого) окна приложения?
VW>
VW> Хорошего способа не знаю. В принципе wish -class дает требуемый
VW> результат, но мне не удавалось засунуть это в строчку с #!
О, точно! вот так работает:
=+==
#!/bin/sh
# the next line restarts using wish \
exec wish "$0" -class "wndclass" "$@"
=+==
Это из хэлпа, хотя я не понимаю почему такая конструкция работает.
>> Для чего существует команда option get и как ее использовать?
VW>
VW> Для того, чтобы получить значение опции из option database. Там
VW> можно хранить не только те опции виджетов, которые виджеты подбирают
VW> автоматически, но и любые другие конфигурационные данные.
т.е. option db != xrdb ? даже optiondb > xrdb ?
VW> Например, если ты пользуешься тэгами в текстовом виджете, то цвета
VW> шрифта помеченного тэгом автоматически из optiondb не подберутся.
VW> А с помощью $widget tag configure -fg [option get $widget mytagfont TagFont]
VW> ты ее оттуда добудешь.
вот так не работает
option readfile ~/.Xdefaults
puts "[option get . myfont font]"
В ~/.Xdefaults
*myfont*font: sdssd
- --
Denis
>Пришел на работу, включил компьютер, к интернету подключиться не смог...
пришлось работать
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: For info see http://www.gnupg.org
iD8DBQE+CyQb+zH7vYeuVKsRAsTAAJ9qSDaQW4+SsbldNlINcsupYlF4CACcDsM9
ZNG/Rs+s6lMoiJSmtq599LQ=
=06o3
-----END PGP SIGNATURE-----
Reply to: