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 : cache

#!/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 300 -justify center -bg pink -text \
	"Scsi Cache Page configuration - $argv."

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

message .message -width 300 -justify center -bg red -fg white -text \
	"Caution! Do not turn on the write cache unless you know what you are doing."
pack .message -pady 10

source /usr/lib/scsi/generic

set button_list {wrcache rdcache dummy}
set text_list {readret writeret disprefetch minprefetch maxprefetch ceiling}
set switch {-c}
set text_descriptions {"Demand Read Retention Priority " "Demand Write Retention Priority " "Disable Pre-Fetch Transfer Length " "Minimum Pre-Fetch " "Maximum Pre-Fetch " "Maximum Pre-Fetch Ceiling " }
set label_width 35
set text_width 10

frame .f1

generate_textboxes

frame .but
checkbutton .rdcache -text "Read cache enabled"

checkbutton .wrcache -text "Write cache enabled"

checkbutton .dummy -text " "

pack .rdcache .wrcache -in .but -side left -padx 5

pack .but
pack .readret .writeret .disprefetch .minprefetch .maxprefetch .ceiling -in .f1 -pady 10 -anchor w
pack .f1 -side left -padx 3m -pady 3m

read_page $argv "-X"
read_modifiable $argv

${this.title}

Code Editor : cache