こんにちは、樋口です。書き込みありがとうございます。
ここまで来ていればあと一歩ですね。
抽出語リスト作成用のウィンドウを開くためのプログラムは
「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);