# listscr Version. 1.03 (Sep. 24, 2000)
# Written by Hisao Kawaura
#
### description: ${TOPAZMACRODIR}中のマクロファイル表示と実行
#
# Usage: このスクリプトを${TOPAZMACRODIR}にコピーし、Macro | File から実行して
#        ください。
#
# Caution: このマクロの実行により受けるいかなる損害も保証しませんので注
#          意してください。マクロを実行する前に、記述された内容を良く確
#          認の上利用してください。
#          作者は、このマクロの著作権を放棄しています。マクロ内容の修正
#          は自由です。

# ${TOPAZMACRODIR}が存在することが必要
if (!defined($TOPAZMACRODIR))
{
  print "\${TOPAZMACRODIR} is not defined!\n";
  exit(1);
}

# カレントパスを保存し、${TOPAZMACRODIR}に移る
$cwd = getcwd();
chdir($TOPAZMACRODIR);

# 単一選択モードでファイルのブラウズ画面をオープン
if (selectfile(0, ""))
{
   # selectfileは絶対パスを返すのでパス情報を除去
   execfile(removepath($_RET[0]));
}
# カレントパスをリストア
chdir($cwd);

exit(0);