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

#
# $Id: tkviewpr,v 1.5 1993/08/05 04:42:25 mh Exp $
#

wm minsize . 100 100
frame .top
pack append . .top {expand fill}
set f .top

scrollbar $f.sb -command "$f.text yview" -relief sunken
text $f.text \
	-font 7x14 \
	-yscrollcommand "$f.sb set" \
	-height 30 -width 80 -relief sunken -padx 4 -insertwidth 1 \
	-insertofftime 400 -borderwidth 2

pack append $f \
	$f.sb {left filly} \
	$f.text {right expand fill}

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