#!/bin/sh
# comment \
exec wish "$0" "$@"
#
proc open_browser {} {
  exec  netscape -remote "openBrowser()" &
  exit
}

proc restart_netscape {} {
  exec  killall -q -KILL netscape
  exec  rm -f ~/.netscape/lock
  exec  netscape &
  exit
}
#
set nsbg "#c0c0c0"
wm title . "Netscape: Question"
. configure -bg $nsbg
set nsfont "-adobe-helvetica-medium-r-normal--12-*-*-*-*-*-iso8859-1"
set lbl "Ǥ Netscape ưƤ褦Ǥɤޤ"
label  .lb1 -bg $nsbg -textvariable lbl -font $nsfont
button .b1 -bg $nsbg -highlightbackground $nsbg \
    -activebackground $nsbg -font $nsfont \
    -text "⤦Ĥο Navigator ɥ򳫤ޤ" \
    -command { open_browser }
button .b2 -bg $nsbg -highlightbackground $nsbg \
    -activebackground $nsbg -font $nsfont \
    -text "ХäΤ Netscape λƵưޤ" \
    -command { restart_netscape  }
button .b3 -bg $nsbg  -highlightbackground $nsbg \
    -activebackground $nsbg -font $nsfont \
    -text "⤻ΥɥĤޤ" \
    -command exit
pack .lb1 .b1 .b2 .b3 -side top -padx 1 -pady 1 -ipadx 0 -ipady 0 -expand yes 

