Na}{

File Content: `verify`

#!/usr/bin/wish -f
# Copyright 1993 Yggdrasil Computing, Incorporated
# You may copy this file according to the terms and conditions of version 2
# of the GNU General Public License as published by the Free Software
# Foundation.

frame .h
label .h.info -bitmap info -bg pink
message .h.message -width 400 -bg pink -text \
	{Verify Error Recovery Page configuration.}

pack .h.info .h.message -padx 10 -side left
pack .h -pady 10

source /usr/lib/scsi/generic

# Here we set the bits that depend upon the menu we are in
set button_list { eer per dte dcr }
set text_list { ver_retry ver_corrspan ver_recoverytime}

set text_descriptions {"Verify Retry Count " "Verify Correction Span (bits) " "Verify Recovery Time Limit (ms) " }

set switch {-V}
set label_width 30
set text_width 10


frame .err_buttons
frame .f1
frame .f3

generate_textboxes

checkbutton .eer -text "EER" -command { check_trykey }
checkbutton .per -text "PER" -command { check_trykey }
checkbutton .dte -text "DTE" -command { check_trykey }
checkbutton .dcr -text "DCR" -command { check_trykey }

pack .eer .per .dte .dcr -in .err_buttons -side left -padx 3m

pack .err_buttons

pack .ver_retry .ver_corrspan .ver_recoverytime -in .f1 -pady 10 -anchor w

pack .f1 -in .f3 -side left -padx 3m -pady 3m
pack .f3  -padx 3m -pady 3m

proc check_trykey { } {
	global eer
	global per
	global dte
	global dcr
	set valid { 1 1 0 0 1 1 1 1 1 0 0 0 1 0 1 0 }
	set r1 0
        if { $eer == 1 } then { set r1 [expr $r1+8]}
        if { $per == 1 } then { set r1 [expr $r1+4]}
        if { $dte == 1 } then { set r1 [expr $r1+2]}
        if { $dcr == 1 } then { set r1 [expr $r1+1]}
	if { [ string compare [lindex $valid $r1] "0" ] == 0} then { .buttons.apply configure -state disabled } else { .buttons.apply configure -state normal } 
}

read_page $argv "-X"
read_modifiable $argv
check_trykey

Name	Size	Permission
cache	1436 bytes	0755
control	1455 bytes	0755
disconnect	1222 bytes	0755
error	2300 bytes	0755
format	1968 bytes	0755
generic	3397 bytes	0644
inquiry	6093 bytes	0755
notch	1828 bytes	0755
overview	12915 bytes	0755
peripheral	3120 bytes	0755
rigid	1289 bytes	0755
save-changes	868 bytes	0755
save-file	1793 bytes	0755
tworands	6136 bytes	0755
verify	1853 bytes	0755

File Content: verify

File Content: `verify`