ダイアログ作成のサンプルコード

スクリプトを実行した状態から、ユーザーの判断を仰ぐような場合に使用する confirmDialog コマンドというのがあります。

まずはサンプルから、

confirmDialog sample

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

global proc int isConfirm(string $msg) {     // コマンド作成     string $cmd ="";     $cmd +="confirmDialog ";     $cmd +="-t \"isConfirm\" ";     $cmd +=("-m \""+$msg+"\" ");     $cmd +="-b \"Ok\" ";     $cmd +="-b \"Cansel\" ";     $cmd +="-db \"Cansel\" ";     $cmd +="-cb \"Cansel\" ";     $cmd +="-ds \"Cansel\" ";     $cmd +="-icn \"question\" ";                 //------------------------------------------------------------------------------     string $result =`eval $cmd`;     if("Cansel"==$result) return 0;           return 1;       }

これを下のような風に呼び出すことで、こんなモーダルダイアログが出てきます。

confirmDialog call sample

1	isConfirm("sample");

サンプルでは、メッセージの文字列だけを引数にしていますが、汎用性を高めるために、タイトルやアイコンタイプを渡すようにしても良いかと思います。

これは filetest コマンドで、ファイルの上書き確認をするときなんかに良く使います。

こんな感じですかね。

confirmDialog call sample2

1 2 3 4 5

if(`filetest -f ($path+"/"+$file+".ma")`) {     if(!`isConfirm "over write?"`) return;       }

if判定をして intを返すようにしていますが、 confirmDialog は、押したボタンの文字列を返すようになっているので、何か特定のラベル名をしたボタンをいくつか作成して、switchで分岐させるというような使い方も出来ます。

confirmDialog sample2

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

global proc string choiceStr(string $msg) {     // コマンド作成     string $cmd ="";     $cmd +="confirmDialog ";     $cmd +="-t \"isConfirm\" ";     $cmd +=("-m \""+$msg+"\" ");     $cmd +="-b \"A\" ";     $cmd +="-b \"B\" ";     $cmd +="-b \"C\" ";     $cmd +="-b \"D\" ";     $cmd +="-b \"Cansel\" ";     $cmd +="-db \"Cansel\" ";     $cmd +="-cb \"Cansel\" ";     $cmd +="-ds \"Cansel\" ";     $cmd +="-icn \"question\" ";                 //------------------------------------------------------------------------------     string $result =`eval $cmd`;     if("Cansel"==$result) return "";           return $result;       }

ここでは、ボタンを直書きしていますが、ボタン名をリストで渡してループさせるとかすれば、汎用性は上がるでしょうか。

confirmDialog では、指定した文字の中から選択する形式ですが、自由入力ができる promptDialog コマンドというのもあります。

コマンドのサンプルコードには、こんなようなのが載っています。

promptDialog sample

1 2 3 4 5 6 7 8 9 10 11 12 13 14

string $result =`promptDialog     -title "Rename Object"     -message "Enter Name:"     -button "OK" -button "Cancel"     -defaultButton "OK" -cancelButton "Cancel"     -dismissString "Cancel"`;     string $text; if($result == "OK") {     $text =`promptDialog -query -text`;       }

このコマンドの注意点としては、アルファベットや数字以外にマルチバイト文字や記号なんかも無制限に受け付けてしまうので、取得した文字列の整合性チェックみたいなのをする必要があるのが面倒です。