Attachment "849829.patch" to
ticket [849829ffff]
added by
dgp
2003-12-03 05:46:07.
Index: tkchat.tcl
===================================================================
RCS file: /cvsroot/tcllib/tclapps/apps/tkchat/tkchat.tcl,v
retrieving revision 1.128
diff -u -r1.128 tkchat.tcl
--- tkchat.tcl 8 Oct 2003 10:56:59 -0000 1.128
+++ tkchat.tcl 2 Dec 2003 22:44:00 -0000
@@ -3346,7 +3346,7 @@
proc ::tkchat::scroll_set {sbar f1 f2} {
global Options
$sbar set $f1 $f2
- if {[string equal "$f1$f2" "01"]} {
+ if {($f1 == 0) && ($f2 == 1)} {
grid remove $sbar
} else {
if {[winfo exists .pane]} {
@@ -3355,7 +3355,7 @@
grid $sbar
}
}
- set Options(AutoScroll) [string equal $f2 1]
+ set Options(AutoScroll) [expr {$f2 == 1}]
}
