時間のかかる処理を実行中に、その処理の進行状況を表示したい時は、 w[ProgressBar]を使います。w[ProgressBar] = v は、vとして(0から1までの) 実数が与えられた時は、ウインドウの右下にProgress Barを表示します。vとして Nullが与えられた時は、Progress Barは非表示状態になります。以下のコードは、 FrameをマウスでクリックするとProgress Barを0%から100%まで変化させます。
FFS;
w = KBMainFrame["ProgBarExample", f, Title->"Progress Bar Example"];
Bind[f,"<Button-1>", Do[w[ProgressBar]=i/100, {i,0,100}]; w[ProgressBar]=Null];
TkWait[];