#!/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 .header
label .header.label 
message .header.message -width 400 -bg pink -text \
	{Scsi Notch Page configuration.}

pack .header.label .header.message -side left -padx 15

pack .header -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

