proc initialise { rpt_loc_name function form } {
if {[string match "SPREADSHEET" [$function getCurrentValue]]} {
$rpt_loc_name setFileMask "*.csv"
$form setHelpURL sched/spread.htm
} else {
if {[string match "LIST SCHEDULE" [$function getCurrentValue]]} {
$rpt_loc_name setFileMask "*.lst"
$form setHelpURL sched/lstsched.htm
} else {
if {[string match "BENCH REPORT" [$function getCurrentValue]]} {
$form setHelpURL sched/benrpt.htm
} else {
if {[string match "PERIOD REPORT" [$function getCurrentValue]]} {
$form setHelpURL sched/perdrpt.htm
} else {
if {[string match "SEQUENCE PLOT" [$function getCurrentValue]]} {
$form setHelpURL sched/seqplot.htm
}
}
}
}
}
}
GuidoForm frm50124 {
-action initial {[initialise $rpt_loc_name $function $frm50124]}
-default_buttons
-help_id 1126
-label "Scheduler Report Filename"
-tip "50124_TIP_001"
GuidoLabel frm50124_2 {
-label "Report Function"
}
GuidoLabel function {}
GuidoFileBrowserField rpt_loc_name {
-display_length 26
-extension false
-format none
-label "Report Location Name"
-max_length 40
-tip "50124_TIP_002"
-translate none
}
GuidoFiller fill {}
GuidoPanel overlay {
-layout OverlayLayout
GuidoPanel listSchedule {
-layout FlowLayout Left
GuidoLabel overlayLabel {
-label "The extension .lst is added to the entered name"
-dependency {"[$function getCurrentValue]" == "LIST SCHEDULE"}
}
-dependency {"[$function getCurrentValue]" == "LIST SCHEDULE"}
}
GuidoPanel spreadsheet {
-layout FlowLayout Left
GuidoLabel spreadsheetLabel {
-label "The extension .csv is added to the entered name"
-dependency {"[$function getCurrentValue]" == "SPREADSHEET"}
}
-dependency {"[$function getCurrentValue]" == "SPREADSHEET"}
}
GuidoPanel benchReport {
-layout FlowLayout Left
GuidoLabel benchReportLabel {
-label "Each layer ID is attached to the entered name"
-dependency {"[$function getCurrentValue]" == "BENCH REPORT"}
}
-dependency {"[$function getCurrentValue]" == "BENCH REPORT"}
}
GuidoPanel periodReport {
-layout FlowLayout Left
GuidoLabel periodReportLabel {
-label "Each period scheduled is attached to entered name"
-dependency {"[$function getCurrentValue]" == "PERIOD REPORT"}
}
-dependency {"[$function getCurrentValue]" == "PERIOD REPORT"}
}
GuidoPanel sequencePlot {
-layout FlowLayout Left
GuidoLabel sequencePlotLabel {
-label "Each layer ID is attached to the entered location"
-dependency {"[$function getCurrentValue]" == "SEQUENCE PLOT"}
}
-dependency {"[$function getCurrentValue]" == "SEQUENCE PLOT"}
}
}
}
