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

#!/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 \
	{Scsi Notch 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 {notched logical }
set text_list {nnotch activenotch startbound endbound pagenotched}
set text_descriptions {"Number of Notches " "Active Notch" "Starting Boundary " "Ending Boundary " "Mode Pages Notched" }
set switch {-n}
set label_width 21
set text_width 10

generate_textboxes

.pagenotched.text configure -width 20

frame .err_buttons
checkbutton .notched -text "Notched Drive" 
checkbutton .logical -text "Logical Notch"

pack .notched .logical -in .err_buttons -side left -padx 3m
pack .err_buttons

pack .nnotch .activenotch .startbound .endbound .pagenotched -pady 10 -anchor w

read_page $argv "-X"
read_modifiable $argv

#New settings are needed since even unchangeable fields may change when the notch is changed.

proc enable_texts {} {
    global text_list

foreach x $text_list {
      .$x.text configure -state normal
    }
}

.buttons1.default configure -command {
	enable_texts
        read_page $argv "-M"
	read_modifiable $argv
}
.buttons1.saved configure -command {
	enable_texts
        read_page $argv "-S"
	read_modifiable $argv
}
.buttons1.current configure -command {
	enable_texts
        read_page $argv "-X"
	read_modifiable $argv
}
.buttons.apply configure -command {
        write_page $argv "-X"
	enable_texts
        read_page $argv "-X"
	read_modifiable $argv
}

${this.title}

Code Editor : notch