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

#
# $Id: tkgnats,v 1.7 1993/06/15 21:19:14 mh 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.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.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)
