1 #pragma TextEncoding = "UTF-8"
2 #pragma rtGlobals=3 // Use modern global access method and strict wave access.
3 #pragma IgorVersion = 6.1
4 #pragma ModuleName = PearlGuiTools
24 NewPanel /K=1 /N=ProgressPanel /W=(200,200,402,260) as title
25 TitleBox t_message,pos={2,2},size={189,13},title=message
26 TitleBox t_message,frame=0
27 ValDisplay vd_progress,pos={2,20},size={198,13}
28 ValDisplay vd_progress,limits={0,progress_max,0},barmisc={0,0},mode= 3,value= _NUM:0
29 Button b_abort,pos={74,38},size={50,20},title=
"Abort"
30 DoUpdate /W=ProgressPanel /E=1
39 if (!ParamIsDefault(message))
40 TitleBox t_message,title=message,win=ProgressPanel
42 if (ParamIsDefault(progress_max))
43 ValDisplay vd_progress,value=_NUM:progress,win=ProgressPanel
45 ValDisplay vd_progress,limits={0,progress_max,0},value=_NUM:progress,win=ProgressPanel
47 DoUpdate /W=ProgressPanel
52 KillWindow ProgressPanel