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

#
# $Id: tkviewpr,v 1.3 1993/11/16 22:19:49 jason Exp $
#

wm minsize . 100 100

set f [frame .top]
    pack .top -expand true -fill both
    set f .top

    scrollbar $f.sb -command "$f.text yview" -relief sunken
	pack $f.sb -side left -fill y

    text $f.text \
	-font fixed \
	-yscrollcommand "$f.sb set" \
	-height 30 -width 80 -relief sunken -padx 4 -insertwidth 1 \
	-insertofftime 400 -borderwidth 2
	pack $f.text -side right -expand true -fill both

frame .buttons
    pack .buttons -side bottom -fill x
    button .buttons.done -text "Done" -command "destroy ."
	pack .buttons.done -pady 10


set prid [lindex $argv 0]
$f.text insert 1.0 [exec query-pr --full [file tail $prid]]
wm title . "tkviewpr: problem report #$prid"
