chatwidget: committed changes to cvs

diff --git a/lib/chatwidget/ChangeLog b/lib/chatwidget/ChangeLog
index 50b83e198dcca2a849dce2629ccfa8662bfa59f8..0131403da55c806cd122ffa1c9be1f385b17fb9a 100644 (file)
--- a/lib/chatwidget/ChangeLog
+++ b/lib/chatwidget/ChangeLog
@@ -1,3 +1,7 @@
+2008-06-20  Pat Thoyts  <patthoyts@users.sourceforge.net>
+
+       * chatwidget.tcl: Fixed a number of minor bugs. 
+
 2008-02-16  Pat Thoyts  <patthoyts@users.sourceforge.net>
 
        * pkgIndex.tcl:   Incremented to 1.1.0

diff --git a/lib/chatwidget/chatwidget.man b/lib/chatwidget/chatwidget.man
index 4b5db2bf1430cc5860284263672272cf14cde03b..d044ca9e77f3cec3ff4b917056fc2cf3ecf78049 100644 (file)
--- a/lib/chatwidget/chatwidget.man
+++ b/lib/chatwidget/chatwidget.man
@@ -86,6 +86,11 @@ display of this element in the widget.
 Passthrough to the entry text widget. See the [cmd text] widget manual
 for all available commands.
 
+[call [cmd \$widget] chat [arg args]]
+
+Passthrough to the chat text widget. See the [cmd text] widget manual for 
+all available commands.
+
 [list_end]
 
 

diff --git a/lib/chatwidget/chatwidget.tcl b/lib/chatwidget/chatwidget.tcl
index eef48fc9905efd7dd654af73e3b1497dff1e19d5..5e22e8291391fc099013dae8b3c07bd3704de450 100644 (file)
--- a/lib/chatwidget/chatwidget.tcl
+++ b/lib/chatwidget/chatwidget.tcl
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: chatwidget.tcl,v 1.3 2007/10/24 10:32:19 patthoyts Exp $
+# RCS: @(#) $Id: chatwidget.tcl,v 1.4 2008/06/20 22:53:54 patthoyts Exp $
 
 package require Tk 8.5
 
@@ -195,7 +195,7 @@ proc chatwidget::Message {self text args} {
             -nick { set nick [Pop args 1] }
             -time { set time [Pop args 1] }
             -type { set type [Pop args 1] }
-            -mark { set type [Pop args 1] }
+            -mark { set mark [Pop args 1] }
             -tags { set tags [Pop args 1] }
             default {
                 return -code error "unknown option \"$option\""
@@ -228,7 +228,7 @@ proc chatwidget::Message {self text args} {
     $chat insert $mark "\n" $tags
     $chat configure -state disabled
     if {$state(autoscroll)} {
-        $chat see end
+        $chat see $mark
     }
     return
 }