#!/bin/sh
# comment \
exec wish "$0" "$@"
#
set prompt(newwindow) 1
#
proc open_adduser {} {
  global prompt
  if {$prompt(newwindow)} {
    destroy .
    exec  /usr/X11R6/bin/kterm -T adduser -e /usr/sbin/adduser ja 
    exit
  } else {
    exec  chmod 644 /root/.question_adduser
    exit
  }
}

#
set nsbg "#c0c0c0"
wm title . "Question"
. configure -bg $nsbg
set nsfont "-*-fixed-medium-r-normal--14-*-*-*-*-*-iso8859-1"
set lbl "ٹ\n
Plamo Linux Ǥ root  X ĶѤꤷʤΤǡ
ΤޤޤǤܸĶ­ѤǤޤ󡣡 \n
ɬ adduser ɲḁ̈桼 startx ޤ礦\n
Plamo  adduser ñ˥桼ǤϤʤ
롡
ɥޥ͡
޻ϡ
ˣģŤΥեȡ
ʤɤꤷؤܸĶ٤󶡤ޤ "

frame .frm1 -bg $nsbg -relief raised -bd 1
 frame .frm1.spc -bg $nsbg -bd 6
  label  .frm1.spc.lb1 -bg $nsbg -textvariable lbl -font $nsfont
  pack .frm1.spc.lb1 
 pack .frm1.spc

frame .frm2 -bg $nsbg -relief raised -bd 1

 frame .frm2.spc1 -bg $nsbg -bd 8
  radiobutton .frm2.spc1.pc1 -font $nsfont -bg $nsbg -highlightbackground $nsbg -activebackground $nsbg \
    -text " adduser ǥ桼ȯԤ롣" -variable prompt(newwindow) \
    -value 1 -anchor w
  pack .frm2.spc1.pc1 -side left

 frame .frm2.scp2 -bg $nsbg -bd 8
  radiobutton .frm2.scp2.pc2 -font $nsfont -bg $nsbg -highlightbackground $nsbg -activebackground $nsbg \
    -text "ΤäƤޤ;פʤä" -variable prompt(newwindow) \
    -value 0 -anchor w
  pack .frm2.scp2.pc2 -side left
 pack .frm2.spc1 .frm2.scp2 -side top -fill x

frame .frm3 -bg $nsbg -relief raised -bd 1
 frame .frm3.spc -bg $nsbg -bd 8
  button .frm3.spc.bt1 -bg $nsbg -highlightbackground $nsbg \
    -activebackground $nsbg -font $nsfont \
    -text "λ" \
    -command { open_adduser }
  button .frm3.spc.bt2 -bg $nsbg -highlightbackground $nsbg \
    -activebackground $nsbg -font $nsfont \
    -text "󥻥" \
    -command exit
  pack .frm3.spc.bt2 -side right
  pack .frm3.spc.bt1 -side left
 pack .frm3.spc -fill x

pack .frm1 .frm2 .frm3 -side top -fill both
