$pgl->Label(-text => 'Project', -justify => 'right', -width => '20')
			->grid($pr_list = $pgl->BrowseEntry(-variable => \$state->{prSrcName}, -browsecmd => \&doGetProject, -listcmd => [ \&doLoadPr, $dbh, $pr_list ], -width => '20'), -sticky => 'w', -pady => '20');