From 2a7ab4d91683314b7ac2afc3851a628f5233f8da Mon Sep 17 00:00:00 2001
From: Bruce Momjian <bruce@momjian.us>
Date: Sat, 27 Jan 2001 18:34:38 +0000
Subject: Update to pgaccess 0.98.7.

---
 src/bin/pgaccess/lib/forms.tcl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/bin/pgaccess/lib/forms.tcl')

diff --git a/src/bin/pgaccess/lib/forms.tcl b/src/bin/pgaccess/lib/forms.tcl
index de4761e9f67..c0f5938e53e 100644
--- a/src/bin/pgaccess/lib/forms.tcl
+++ b/src/bin/pgaccess/lib/forms.tcl
@@ -803,6 +803,7 @@ switch $PgAcVar(fdobj,$item,class) {
 			set DataControlVar($base.$name,recno) 0
 			set DataControlVar($base.$name,nrecs) \[pg_result \$res -numTuples\]
 			setCursor NORMAL
+			pg_result \$res -clear
 		}"
 		namespace eval ::DataControl($base.$name) "proc setSQL {sqlcmd} {
 			global DataControlVar
-- 
cgit v1.2.3