#!/usr/bin/wish -f

#############################################################################
#          Shutdown
#
# THE ACCOMPANYING PROGRAM IS PROVIDED UNDER THE TERMS OF THIS IBM
# PUBLIC LICENSE ("AGREEMENT"). See the file "IPL" in this directory 
# of this archive for more details.
#
#############################################################################

wm iconify .

exec "sync"
    set op "-1"
    set win [toplevel .win -width 500 -height 300]
    wm title .win "Shutdown"
    wm geometry .win 200x120+312+134
    wm resizable .win 0 0

    label .win.mess -justify "left" -text "Choose an option:"
    place .win.mess -x 25 -y 10

    radiobutton .win.opt1 -variable op -value "5" -text "Reboot"
    radiobutton .win.opt2 -variable op -value "6" -text "Shutdown"
   
    place .win.opt1 -x 60 -y 35
    place .win.opt2 -x 60 -y 55

    button .win.ok -width 6 -text "OK" -command { exec /IBM/bin/reboot_IBM_NS $op }
    button .win.cancel -width 6 -text "Cancel" -command { destroy . }
    
    place .win.ok -x 25 -y 85
    place .win.cancel -x 95 -y 85


