Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
cache	1.4 KB	-rwxr-xr-x
control	1.42 KB	-rwxr-xr-x
disconnect	1.19 KB	-rwxr-xr-x
error	2.25 KB	-rwxr-xr-x
format	1.92 KB	-rwxr-xr-x
generic	3.32 KB	-rw-r--r--
inquiry	5.95 KB	-rwxr-xr-x
notch	1.79 KB	-rwxr-xr-x
overview	12.61 KB	-rwxr-xr-x
peripheral	3.05 KB	-rwxr-xr-x
rigid	1.26 KB	-rwxr-xr-x
save-changes	868 B	-rwxr-xr-x
save-file	1.75 KB	-rwxr-xr-x
tworands	5.99 KB	-rwxr-xr-x
verify	1.81 KB	-rwxr-xr-x

Code Editor : 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

${this.title}

Code Editor : verify