Re: SOF: Tcl/Tk

[Anton Kovalenko <a_kovalenko@mtu-net.ru>]

>>>>> Denis Dzyubenko writes:

    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

Проверяйте  платформу, а  затем, если  это windows  -- бегом  в реестр
(package require registry), и оттуда берём всё нужное.

Если вы пишете кросс-платформенное приложение, то для windows советую
хранить настройки в реестре, а не в каком-нибудь $env(USERPROFILE)/.mydotfile.
Ну не принято это в виндах. Не положено.

    VW> Хорошего способа не знаю. В принципе wish -class дает требуемый
    VW> результат, но мне не удавалось засунуть это в строчку с #!
    > О, точно! вот так работает:
    > =+==
    > #!/bin/sh 
    > # the next line restarts using wish \
    > exec wish "$0" -class "wndclass" "$@"
    > =+==
    > Это из хэлпа, хотя я не понимаю почему такая конструкция работает.

С точки  зрения /bin/sh, здесь  закомментированы две первые  строки, а
третью нужно  выполнить. С  точки зрения tclsh  и wish,  третья строка
является продолжением второй, то есть частью комментария.

    VW> Для того,  чтобы получить  значение опции из  option database.
    VW> Там можно хранить не только те опции виджетов, которые виджеты
    VW> подбирают  автоматически, но  и любые  другие конфигурационные
    VW> данные.

    > т.е. option db != xrdb ?  даже optiondb > xrdb ?

Ну, в xrdb частенько кладут не только свойства виджетов, но и настройки
самого приложения. Для такого случая xrdb и пригождается.

Кроме того, частенько пишутся "мегавиджеты" на основе чистого Tcl и Tk.
Прочитать из option db умолчания для мегавиджета тоже бывает нужно.

    VW> Например, если ты пользуешься тэгами в текстовом виджете, то цвета 
    VW> шрифта помеченного тэгом автоматически из optiondb не подберутся.
    VW> А с помощью $widget tag configure -fg [option get $widget mytagfont TagFont]
    VW> ты ее оттуда добудешь.

    > вот так не работает
    > option readfile ~/.Xdefaults
    > puts "[option get . myfont font]"

Во-первых, синтаксис  "option get  window _name_ _class_"  означает не
то, что вы  подумали. В данном случае window  должно быть сопоставлено
шаблону *myfont. А name и class -- это "имя опции" и "класс опции".

Сиречь
   option readfile .Xdefaults
   frame .myfont 
   puts "[option get .myfont font Font]"
будет работать на вашем примере.

    > В ~/.Xdefaults
    > *myfont*font: sdssd

Во-вторых, читать файл .Xdefaults  -- странное занятие для приложения.
Вам  следует   либо  довольствоваться  ресурсами   xrdb,  которые  уже
определены для данного дисплея (в debian они читаются из ~/.Xresources
при   запуске   X-сервера);   либо   написать   корректную   обработку
XENVIRONMENT  и XFILESEARCHPATH  (см.  man X),  чтобы  вести себя  как
"классическое иксовое приложение". Либо, на худой конец, подчитывать
какой-нибудь ~/.myapprc и /etc/myapp.conf, но _не_ .Xdefaults или .Xresources.

-- 
With Best Wishes, Anton Kovalenko /* http://kovalenko.webzone.ru */
#!/usr/bin/wish - best wish I have for you!