namazu-ml(avocado)

[Satoru Takabayashi <ccsatoru@xxxxxxxxxxxxxxxxxx>]

Satoru Takabayashi <ccsatoru@xxxxxxxxxxxxxxxxxx> wrote:

>あと、色合いが Tcl/Tk のグレーとマッチしていないようです。私の方で
>後からちょっと調整してみます。

あまり代わり映えしないかもしれませんが、色を変えたものを

<URL:http://saturn.aichi-u.ac.jp/%7Eccsatoru/image/tknamazu/>

に何種類か置いておきました。広瀬さんの好みにあったものがあると良い
のですが。


># Doc-CD用の .tknmzrc を準備しています。複数のインデックスに対応し
># ている点が嬉しいです。

これでちょっとはまりました。というのは .tknmzrc で DATABASES[0-9]+
で指定したインデックスの名前を取得する部分が [0-z]+ という正規表現
だったため、 linux-users みたいにハイフンの入るもので

|can't read "title": no such variable
|    while executing
|".tknmz.file.menu.seldb add check -label $title..."
|    invoked from within
|"if [regexp {DATABASES([0-9]+)} $dbs ] {
|            regexp {^([0-z]+) +(.*)$} $conf($dbs) match title value
|            .tknmz.file.menu.seldb add che ..."
|    ("foreach" body line 2)
|    invoked from within
|"foreach dbs [array names conf] {
|        if [regexp {DATABASES([0-9]+)} $dbs ] {
|            regexp {^([0-z]+) +(.*)$} $conf($dbs) match title value
|  ..."
|    (procedure "MakeDBLuncher" line 5)
|    invoked from within
|"MakeDBLuncher"
|    (file "/usr/local/namazu/tknamazu/tknamazu.tcl" line 624)

のようなエラーが出てしまいました。これを修正するためのパッチいい加
減なを作ってみたので添付しておきます。

--
高林 哲 Satoru Takabayashi

*** tknamazu.tcl.orig	Fri Apr  3 15:54:11 1998
--- tknamazu.tcl	Fri Apr  3 15:55:52 1998
***************
*** 130,136 ****
                  set conf(DATABASES) {}
                  set conf(initflag) 0
              }
!             regexp {^([0-z]+) +(.*)$} $conf($dbs) match title value
              append conf(DATABASES) " $value"
          }
      }
--- 130,136 ----
                  set conf(DATABASES) {}
                  set conf(initflag) 0
              }
!             regexp {^([^ ]+) +(.*)$} $conf($dbs) match title value
              append conf(DATABASES) " $value"
          }
      }
***************
*** 224,230 ****
      menu .tknmz.file.menu.seldb
      foreach dbs [array names conf] {
          if [regexp {DATABASES([0-9]+)} $dbs ] {
!             regexp {^([0-z]+) +(.*)$} $conf($dbs) match title value
              .tknmz.file.menu.seldb add check -label $title -variable seldb($dbs) -selectcolor blue
          }
      } 
--- 224,230 ----
      menu .tknmz.file.menu.seldb
      foreach dbs [array names conf] {
          if [regexp {DATABASES([0-9]+)} $dbs ] {
!             regexp {^([^ ]+) +(.*)$} $conf($dbs) match title value
              .tknmz.file.menu.seldb add check -label $title -variable seldb($dbs) -selectcolor blue
          }
      }