diff options
Diffstat (limited to 'src/bin/pgaccess/lib/forms.tcl')
| -rw-r--r-- | src/bin/pgaccess/lib/forms.tcl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/bin/pgaccess/lib/forms.tcl b/src/bin/pgaccess/lib/forms.tcl index 631c3537c72..de4761e9f67 100644 --- a/src/bin/pgaccess/lib/forms.tcl +++ b/src/bin/pgaccess/lib/forms.tcl @@ -419,6 +419,10 @@ global PgAcVar CurrentDB } lappend info [list $PgAcVar(fdobj,$i,class) $PgAcVar(fdobj,$i,name) $PgAcVar(fdobj,$i,coord) $PgAcVar(fdobj,$i,command) $PgAcVar(fdobj,$i,label) $PgAcVar(fdobj,$i,variable) $PgAcVar(fdobj,$i,value) $PgAcVar(fdobj,$i,relief) $PgAcVar(fdobj,$i,fcolor) $PgAcVar(fdobj,$i,bcolor) $PgAcVar(fdobj,$i,borderwidth) $wfont] } + if {[string length $info]>8000} { + tk_messageBox -title [intlmsg Error] -message [intlmsg "Form too big!\nSource size [string length $info] bytes\nCannot save !"] + return 0 + } sql_exec noquiet "delete from pga_forms where formname='$PgAcVar(fdvar,formtitle)'" regsub -all "'" $info "''" info sql_exec noquiet "insert into pga_forms values ('$PgAcVar(fdvar,formtitle)','$info')" |