#!/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 Format Page configuration.}

message .message2 -width 400 -bg red -text \
	{Warning - altering any one of these parameters may make \
	the drive inaccessible until you perform a low-level format. \
	If the parameters are not stored in the non-volatile memory on \
	the drive, you should be able to restore the old parameters by \
	powering down the drive.}

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

pack .header -pady 10

pack .message2

source /usr/lib/scsi/generic

# Here we set the bits that depend upon the menu we are in
set button_list {remove hard  soft addrass }
set text_list {trackzone altseczone alttrackzone alttracklun sectortrack bytesector interleave trackskew cylskew}
set text_descriptions {"Tracks Per Zone " "Alternate Sectors per Zone " "Alternate Tracks per Zone " "Alternate Tracks per lun " "Sectors per Track " "Bytes per Sector " "Interleave " "Track Skew Factor " "Cylinder Skew Factor "}
set switch {-f}
set label_width 23
set text_width 10

frame .f1
frame .f2
frame .f3

generate_textboxes

checkbutton .hard -text "Supports Hard Sectoring"

checkbutton .soft -text "Supports Soft Sectoring"

checkbutton .remove -text "Removable"

checkbutton .dummy2 -text "Removable"

checkbutton .addrass -text "Addresses assigned by surface"

label .dummy -text " "
pack .trackzone .altseczone .alttrackzone .alttracklun .sectortrack .bytesector .interleave  -in .f1 -pady 5 -anchor w
pack .trackskew .cylskew .hard .soft  .remove .addrass .dummy -in .f2 -pady 5 -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
