diff options
| -rw-r--r-- | src/bin/pgaccess/README | 2 | ||||
| -rw-r--r-- | src/bin/pgaccess/pgaccess.tcl | 7 |
2 files changed, 4 insertions, 5 deletions
diff --git a/src/bin/pgaccess/README b/src/bin/pgaccess/README index 23265fb1b0e..abee8c02f1c 100644 --- a/src/bin/pgaccess/README +++ b/src/bin/pgaccess/README @@ -23,7 +23,7 @@ PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. -PGACCESS 0.5 , 3 October 1997 +PGACCESS 0.51 , 3 October 1997 ================================ I dedicate this program to my little 4 year daughter Ana-Maria and my wife for their understanding. I hope they will forgive me for spending so many diff --git a/src/bin/pgaccess/pgaccess.tcl b/src/bin/pgaccess/pgaccess.tcl index 062e97e7886..b618bb9e2f2 100644 --- a/src/bin/pgaccess/pgaccess.tcl +++ b/src/bin/pgaccess/pgaccess.tcl @@ -1367,7 +1367,7 @@ for {set i 0} {$i<$nrecs} {incr i} { set posx 10 for {set j 0} {$j<$colcount} {incr j} { set fldtext [lindex $curtup [expr $j+$shift]] - if {$fldtext==""} {set fldtext " "}; + if {[string length $fldtext]==0} {set fldtext " "}; .mw.c create text $posx [expr 30+$i*14] -text $fldtext -tags [subst {$tagoid c$j rows}] -anchor w -font $tvfont incr posx [expr [lindex $colwidth $j]+2] } @@ -2327,7 +2327,7 @@ Window hide .qb} \ ql_draw_lizzard focus .ql.entt} \ -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-* -padx 9 \ - -pady 3 -text {Query lizzard :-)} + -pady 3 -text {Visual designer} ################### # SETTING GEOMETRY ################### @@ -2367,7 +2367,7 @@ proc vTclWindow.ql {base} { wm minsize $base 1 1 wm overrideredirect $base 0 wm resizable $base 1 1 - wm title $base "Query lizzard" + wm title $base "Visual query designer" bind $base <B1-Motion> { ql_pan %x %y } @@ -2620,4 +2620,3 @@ Window show . Window show .dw main $argc $argv - |