1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!/usr/bin/wish -f
frame .warn
frame .warn.h
label .warn.h.l -bitmap questhead -background pink
message .warn.h.m -aspect 200 -background pink -justify center -text \
{Saving will cause the current operating parameters for the device \
to be stored in a non-volatile memory on the device so that they \
will be used the next time you turn on the machine.}
pack .warn.h.l .warn.h.m -padx 10 -side left
frame .warn.f
button .warn.f.quit -text "I Changed my Mind" -command exit \
-activebackground green
button .warn.f.continue -text "Go Ahead and Save" \
-activeforeground white -activebackground red \
-command {destroy .warn}
pack .warn.f.continue .warn.f.quit -side left -padx 10
pack .warn.h .warn.f -pady 10
pack .warn
tkwait window .warn
# This should do it. Do not come and complain to me if this
# does not work
exec /sbin/scsiinfo -R -S -X $argv
exit
|
