Re: 抽出後リストの自動生成について (HIGUCHI Koichi) KH Coder 旧掲示板

こんにちは、樋口です。書き込みありがとうございます。

ここまで来ていればあと一歩ですね。

抽出語リスト作成用のウィンドウを開くためのプログラムは
「kh_lib\gui_window\word_list.pm」というファイルに入って
います。

このファイルを開いて「OK」ボタンの作成部分（145行目～）を
見てみると、「OK」ボタンクリック時の動作として「$self->save;」
を呼び出しています。

すなわち、このファイルの155行目の「save」というサブルーチン
を呼んでいます。このサブルーチンの中身を見ると、
mysql_words->word_list_custom()というサブルーチンを呼び出す
ことで抽出語リストを作成しています。

mysql_words->word_list_custom()に渡している引数はシンプルな
ものなので、この場合はわざわざ
「my $win = gui_window::word_list->open;」でWindowを開く必要
は無いでしょう。以下のように直接mysql_words->word_list_custom()
を呼べば良いかと思います。

my $target_file = mysql_words->word_list_custom(
type => 'def',
num => 'tf',
ftype => 'csv',
tani => undef,
);

gui_OtherWin->open($target_file);