DIALOG gr_options , tabtitle("Graph Options") BEGIN DEFINE colu0 00 DEFINE colu1 70 DEFINE colu2 180 DEFINE colu3 290 DEFINE colu4 380 DEFINE colu5 430 DEFINE colu6 520 DEFINE colu7 620 DEFINE colu8 740 DEFINE coluwd0 55 DEFINE coluwd1 100 CHECKBOX ck_graphs 10 20 560 75, /// groupbox label("Graphs: Select the graphs to be produced") /// onclickon(program pgr_options_graphs) /// onclickoff(script gr_options_graphs) TEXT tx_gra 20 _ss 400 ., /// label("Specify the codes of graphs (type off to do not produce any graph):") EDIT ed_gra @ _ss 500 ., /// option(gjobs) BUTTON bu_gra 530 @ 15 ., /// label("?") onpush(view help jgraphs) /// tooltip("Help - List of graphs and their codes") CHECKBOX ck_folgr 10 +40 560 75, /// groupbox label("Select the folder of graph results") /// onclickon(program pgr_options_folgr) /// onclickoff(script gr_options_folgr) TEXT tx_folgr +40 +25 80 ., /// label ("Folder") EDIT ed_folgr 100 @ 300 ., /// label ("Browse...") option("folgr") TEXT tx_frg colu1 +60 100 ., /// label("Min") TEXT tx_frg2 colu2 @ 100 ., /// label("Max") TEXT tx_psg colu3 @ 300 ., /// label("Other ¨twoway graph options") TEXT tx_gr1 colu0 +20 60 ., /// label("Graph_1") right EDIT en_min1 colu1 @ coluwd1 ., /// label("") option(min) default() EDIT en_max1 colu2 @ coluwd1 ., /// label("") option(max) default() EDIT en_opt1 colu3 @ 500 ., /// label("") option(ogr) default() TEXT tx_gr2 colu0 +30 60 ., /// label("Graph_2") right EDIT en_min2 colu1 @ coluwd1 ., /// label("") option(min) default() EDIT en_max2 colu2 @ coluwd1 ., /// label("") option(max) default() EDIT en_opt2 colu3 @ 500 ., /// label("") option(ogr) default() TEXT tx_gr3 colu0 +30 60 ., /// label("Graph_3") right EDIT en_min3 colu1 @ coluwd1 ., /// label("") option(min) default() EDIT en_max3 colu2 @ coluwd1 ., /// label("") option(max) default() EDIT en_opt3 colu3 @ 500 ., /// label("") option(ogr) default() TEXT tx_gr4 colu0 +30 60 ., /// label("Graph_4") right EDIT en_min4 colu1 @ coluwd1 ., /// label("") option(min) default() EDIT en_max4 colu2 @ coluwd1 ., /// label("") option(max) default() EDIT en_opt4 colu3 @ 500 ., /// label("") option(ogr) default() TEXT tx_gr5 colu0 +30 60 ., /// label("Graph_5") right EDIT en_min5 colu1 @ coluwd1 ., /// label("") option(min) default() EDIT en_max5 colu2 @ coluwd1 ., /// label("") option(max) default() EDIT en_opt5 colu3 @ 500 ., /// label("") option(ogr) default() TEXT tx_gr6 colu0 +30 60 ., /// label("Graph_6") right EDIT en_min6 colu1 @ coluwd1 ., /// label("") option(min) default() EDIT en_max6 colu2 @ coluwd1 ., /// label("") option(max) default() EDIT en_opt6 colu3 @ 500 ., /// label("") option(ogr) default() TEXT tx_gr7 colu0 +30 60 ., /// label("Graph_7") right EDIT en_min7 colu1 @ coluwd1 ., /// label("") option(min) default() EDIT en_max7 colu2 @ coluwd1 ., /// label("") option(max) default() EDIT en_opt7 colu3 @ 500 ., /// label("") option(ogr) default() TEXT tx_gr8 colu0 +30 60 ., /// label("Graph_8") right EDIT en_min8 colu1 @ coluwd1 ., /// label("") option(min) default() EDIT en_max8 colu2 @ coluwd1 ., /// label("") option(max) default() EDIT en_opt8 colu3 @ 500 ., /// label("") option(ogr) default() TEXT tx_gr9 colu0 +30 60 ., /// label("Graph_9") right EDIT en_min9 colu1 @ coluwd1 ., /// label("") option(min) default() EDIT en_max9 colu2 @ coluwd1 ., /// label("") option(max) default() EDIT en_opt9 colu3 @ 500 ., /// label("") option(ogr) default() TEXT tx_gr10 colu0 +30 60 ., /// label("Graph_10") right EDIT en_min10 colu1 @ coluwd1 ., /// label("") option(min) default() EDIT en_max10 colu2 @ coluwd1 ., /// label("") option(max) default() EDIT en_opt10 colu3 @ 500 ., /// label("") option(ogr) default() END PROGRAM gra_output BEGIN if !gr_options.en_min1.isdefault() | !gr_options.en_max1.isdefault() | !gr_options.en_opt1.isdefault() { put "opgr1(" if !gr_options.en_min1.isdefault(){ optionarg gr_options.en_min1 } if !gr_options.en_max1.isdefault(){ optionarg gr_options.en_max1 } if !gr_options.en_opt1.isdefault(){ optionarg gr_options.en_opt1 } put ")" } if !gr_options.en_min2.isdefault() | !gr_options.en_max2.isdefault() | !gr_options.en_opt2.isdefault() { put "opgr2(" if !gr_options.en_min2.isdefault(){ optionarg gr_options.en_min2 } if !gr_options.en_max2.isdefault(){ optionarg gr_options.en_max2 } if !gr_options.en_opt2.isdefault(){ optionarg gr_options.en_opt2 } put ")" } if !gr_options.en_min3.isdefault() | !gr_options.en_max3.isdefault() | !gr_options.en_opt3.isdefault() { put "opgr3(" if !gr_options.en_min3.isdefault(){ optionarg gr_options.en_min3 } if !gr_options.en_max3.isdefault(){ optionarg gr_options.en_max3 } if !gr_options.en_opt3.isdefault(){ optionarg gr_options.en_opt3 } put ")" } if !gr_options.en_min4.isdefault() | !gr_options.en_max4.isdefault() | !gr_options.en_opt4.isdefault() { put "opgr4(" if !gr_options.en_min4.isdefault(){ optionarg gr_options.en_min4 } if !gr_options.en_max4.isdefault(){ optionarg gr_options.en_max4 } if !gr_options.en_opt4.isdefault(){ optionarg gr_options.en_opt4 } put ")" } if !gr_options.en_min5.isdefault() | !gr_options.en_max5.isdefault() | !gr_options.en_opt5.isdefault() { put "opgr5(" if !gr_options.en_min5.isdefault(){ optionarg gr_options.en_min5 } if !gr_options.en_max5.isdefault(){ optionarg gr_options.en_max5 } if !gr_options.en_opt5.isdefault(){ optionarg gr_options.en_opt5 } put ")" } if !gr_options.en_min6.isdefault() | !gr_options.en_max6.isdefault() | !gr_options.en_opt6.isdefault() { put "opgr6(" if !gr_options.en_min6.isdefault(){ optionarg gr_options.en_min6 } if !gr_options.en_max6.isdefault(){ optionarg gr_options.en_max6 } if !gr_options.en_opt6.isdefault(){ optionarg gr_options.en_opt6 } put ")" } if !gr_options.en_min7.isdefault() | !gr_options.en_max7.isdefault() | !gr_options.en_opt7.isdefault() { put "opgr7(" if !gr_options.en_min7.isdefault(){ optionarg gr_options.en_min7 } if !gr_options.en_max7.isdefault(){ optionarg gr_options.en_max7 } if !gr_options.en_opt7.isdefault(){ optionarg gr_options.en_opt7 } put ")" } if !gr_options.en_min8.isdefault() | !gr_options.en_max8.isdefault() | !gr_options.en_opt8.isdefault() { put "opgr8(" if !gr_options.en_min8.isdefault(){ optionarg gr_options.en_min8 } if !gr_options.en_max8.isdefault(){ optionarg gr_options.en_max8 } if !gr_options.en_opt8.isdefault(){ optionarg gr_options.en_opt8 } put ")" } if !gr_options.en_min9.isdefault() | !gr_options.en_max9.isdefault() | !gr_options.en_opt9.isdefault() { put "opgr9(" if !gr_options.en_min9.isdefault(){ optionarg gr_options.en_min9 } if !gr_options.en_max9.isdefault(){ optionarg gr_options.en_max9 } if !gr_options.en_opt9.isdefault(){ optionarg gr_options.en_opt9 } put ")" } if !gr_options.en_min10.isdefault() | !gr_options.en_max10.isdefault() | !gr_options.en_opt10.isdefault() { put "opgr10(" if !gr_options.en_min10.isdefault(){ optionarg gr_options.en_min10 } if !gr_options.en_max10.isdefault(){ optionarg gr_options.en_max10 } if !gr_options.en_opt10.isdefault(){ optionarg gr_options.en_opt10 } put ")" } END PROGRAM pgr_options_graphs BEGIN if gr_options.ck_graphs { call gr_options.tx_gra.enable call gr_options.ed_gra.enable call gr_options.bu_gra.enable } if !gr_options.ck_graphs { call gr_options.tx_gra.disable call gr_options.ed_gra.disable call gr_options.bu_gra.disable } END SCRIPT gr_options_graphs BEGIN gr_options.tx_gra.disable gr_options.ed_gra.disable gr_options.bu_gra.disable END PROGRAM pgr_options_folgr BEGIN if gr_options.ck_folgr { call gr_options.tx_folgr.enable call gr_options.ed_folgr.enable } if !gr_options.ck_folgr { call gr_options.tx_folgr.disable call gr_options.ed_folgr.disable } END SCRIPT gr_options_folgr BEGIN gr_options.tx_folgr.disable gr_options.ed_folgr.disable END