#!/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 Rigid 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 { }
set text_list {ncyl nhead writeprecomp reducedcurrent drivestep landingzonecyl rpl rotationaloffset rotationalrate}
set text_descriptions {"Number of Cylinders " "Number of Heads " "Starting Write Precomp " "Starting Reduced Current " "Drive Step Rate " "Landing Zone Cylinder" "RPL " "Rotational Offset " "Rotational Rate" }

set switch {-g}
set label_width 23
set text_width 10

frame .f1
frame .f2
frame .f3

generate_textboxes

label .dummy -text " "

pack .ncyl .nhead .writeprecomp .reducedcurrent .drivestep -in .f1 -pady 10 -anchor w

pack .landingzonecyl .rpl .rotationaloffset .rotationalrate .dummy -in .f2 -pady 10 -anchor w

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

read_page $argv "-X"
read_modifiable $argv