#!/usr/local/bin/wish -file

#
# $Id: tkgnats,v 1.3 1993/11/16 22:19:33 jason Exp $
#
set TkGnats(lib) ./; ##TKGNATSLIB##

source $TkGnats(lib)/tkpr_library.t

frame .top
wm title . $TkGnats(LogName)

button .top.query \
    -relief raised \
    -text "Query Problem Reports" \
    -command {exec tkquerypr &; schedule_reap}

button .top.send \
    -relief raised \
    -text "Create Problem Report" \
    -command {exec tksendpr &; schedule_reap}

button .top.send_tkgnats \
    -relief raised \
    -text "Report a tkgnats problem" \
    -command "exec tksendpr -categories \"tkgnats\" -address $TkGnats(TKGNATS_GNATS_ADDR) &; schedule_reap"

button .top.quit \
    -relief raised \
    -text "Quit" \
    -command {destroy .}

button .top.info \
    -relief raised \
    -text "Info" \
    -command "exec $TkGnats(InfoReader) &; schedule_reap"

pack append . .top {}
pack append .top \
	.top.query {top fillx} \
	.top.send {top fillx} \
	.top.send_tkgnats {top fillx} \
	.top.info {top fillx} \

if {[info exists TkGnats(MailReader)]} {
    button .top.mail \
	-relief raised \
	-text "Mail system" \
	-command "exec $TkGnats(MailReader) &; schedule_reap"
  pack append .top .top.mail {top fillx}
}

pack append .top .top.quit {top fillx pady 16} 

wm iconbitmap . @$TkGnats(lib)/tkgnats.xbm
wm iconname . "$TkGnats(LogName)'s tkgnats"
