proc toggleChecks { } {
global scrollblock
global check
set currRow [$scrollblock getEditingRow]
for {set i 0} {$i < [$scrollblock getRowCount]} {incr i} {
if {$i != $currRow} {
$check setCurrentValue $i "N"
}
}
}
GuidoForm frmssilmAvail {
-default_buttons
-label "Available ssilm licences"
-layout BoxLayout Y_AXIS
-tip SSILM_AVAIL_TIP
-help_id 1232
GuidoLabel desc {
-label "The licence class you have requested has no licences available."
}
GuidoFiller space {
-height 0.5
}
GuidoLabel desc {
-label "The list below displays available licence classes."
}
GuidoLabel desc {
-label "Please select another licence class."
}
GuidoFiller space {
-height 0.5
}
GuidoScrollPane frmssilmAvail_9 {
-height 10
GuidoTable scrollblock {
-instances 1 1 100
-interactive false
GuidoField server {
-display_length 20
-format none
-input false
-label Server
-max_length 16
-null false
-translate none
}
GuidoField class {
-display_length 12
-format none
-input false
-label Class
-max_length 16
-translate none
}
GuidoCheckBox check {
-default false
-label Use?
-selected_value Y
-unselected_value N
-action valueChanged {[toggleChecks]}
}
}
}
}
