$pgl->Label(
	    -text => 'Project',
	    -justify => 'right',
	    -width => '20')
  ->grid(
	 $pr_list = $pgl->BrowseEntry(
				      -variable => \$state->{prSrcName},
				      -width => '20'),
	 -sticky => 'w', -pady => '20');

$pr_list->configure(
		    -browsecmd => \&doGetProject,
		    -listcmd => [ \&doLoadPr, $dbh, $pr_list ]
		   );