From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Fri, 20 Jun 2008 23:03:51 +0000 (+0100)
Subject: chatwidget: committed changes to cvs
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=edb2b8486da3e8cc480fdb9eae08ceb85dd62f69;p=Bullfrog

chatwidget: committed changes to cvs
---

diff --git a/lib/chatwidget/ChangeLog b/lib/chatwidget/ChangeLog
index 50b83e1..0131403 100644
--- 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 4b5db2b..d044ca9 100644
--- 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 eef48fc..5e22e82 100644
--- 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
 }