TSperl 発言

ビットウォークの高橋です。

早速、自分の環境で問題の症状が再現するか確認してみました。使用した環境は、

Red Hat Linux 7.3
perl-5.6.1-34.99.6
perl-Tk-800.024-27bw

です。

残念ながら、デモサンプル/usr/bin/widgetを実行して「Vertical scale」のデ
モをおこなってみましたが特に不具合が見られませんでした。

また、

perl -MTk -e 'MainWindow->new->Scale->pack; MainLoop;'

についても同様に正常に動作しました。

RPMのスペックファイルをチェックしましたが、（廣島さんに教えてもらって）
manのインストール先を調べて変数にしている他は、ビルド／インストールで特
別なことはしていません（と思います）。

同じような現象についてポストされていないか、過去のcomp.lang.perl.tkを調
べてみます。

今自分が使っているTkモジュールは、確かRed Hat 7.2の時にビルド／インス
トールしたものがそのまま残っているものだと思うので、念のためビルドし直し
たものでもう一度確認もしてみます。

どなたか、原因をご存知の方、あるいは、しちさんと同じような症状の方がい
らっしゃれば是非教えてください。

今は何が原因なのか良く分からないので、情報を得られたらまたポストします。

取り急ぎ御連絡まで。

高橋

追伸：
nosrc.rpmのリビルド時に、XSetFontに関してエラーか警告が出ていませんか？

(SNIP)
> 
> 上記の nosrc を利用させて頂こうと思い、Tk800.024.tar.gz を取ってきて
> (何も手を加えずに)以下の環境でビルドし、インストールしました。
> 
> Vine Linux 2.1.5 / perl-5.00503_jp-14.2
> 
> /usr/bin/widget (Perl/Tk Widget Demonstrations)も順調に動いている
> ように見えたのですが「Vertical scale」を実行しようとすると
> 
> perl: error in loading shared libraries: /usr/lib/perl5/site_perl
> /5.005/i386-linux/auto/Tk/Scale/Scale.so: undefined symbol: XSetFont
> (実際は一行)
> 
> となる事に気付きました。以下のようなテストスクリプトでも同様でした。
> 
> $ perl -MTk -e 'MainWindow->new->Scale->pack; MainLoop;'
> perl: error in loading shared libraries: /usr/lib/perl5/site_perl
> /5.005/i386-linux/auto/Tk/Scale/Scale.so: undefined symbol: XSetFont
> (実際は一行)
> 
> よく分かっていませんが、私の環境でビルドしたものでは
> 
> $ objdump -T Scale.so | grep XSetFont
> 00000000      D  *UND*  00000000              XSetFont
> $ ldd Scale.so
>         libm.so.6 => /lib/libm.so.6 (0x2aab8000)
>         libc.so.6 => /lib/libc.so.6 (0x2aad5000)
>         /lib/ld-linux.so.2 => /lib/ld-linux.so.2 (0x55555000)
> $ objdump -T Tk.so | grep XSetFont
> $ ldd Tk.so
>         libX11.so.6 => /usr/X11R6/lib/libX11.so.6 (0x2ab61000)
>         libnsl.so.1 => /lib/libnsl.so.1 (0x2ac06000)
>         libm.so.6 => /lib/libm.so.6 (0x2ac1c000)
>         libc.so.6 => /lib/libc.so.6 (0x2ac3a000)
>         /lib/ld-linux.so.2 => /lib/ld-linux.so.2 (0x55555000)
> 
> となりますが、高橋さんがビルドされた以下のパッケージでは
>
(SNIP)


-- 
Keiichi Takahashi, bitWalk Co.,Ltd.
mailto:bitwalk@...
http://members10.tsukaeru.net/bitwalk/