Tk Library Source Code

Artifact d29437c3ac2bc6f29dad412407d66831807399813815ac16be71c23926d49923:

Attachment "PATCH-chatwidget" to ticket [b073f17fa0] added by gay 2021-03-02 13:54:39. (unpublished)

---

Index: modules/chatwidget/chatwidget.man
==================================================================
--- modules/chatwidget/chatwidget.man
+++ modules/chatwidget/chatwidget.man
@@ -1,7 +1,7 @@
 [comment {-*- tcl -*- doctools manpage}]
-[manpage_begin chatwidget n 1.0.0]
+[manpage_begin chatwidget n 1.1.1]
 [see_also text(n)]
 [keywords chat]
 [keywords chatwidget]
 [keywords {composite widget}]
 [keywords irc]
@@ -8,11 +8,11 @@
 [keywords mega-widget]
 [keywords widget]
 [moddesc   {Composite widget for chat applications}]
 [titledesc {Provides a multi-paned view suitable for display of chat room or irc channel information}]
 [require Tk 8.5]
-[require chatwidget [opt 1.0.0]]
+[require chatwidget [opt 1.1.1]]
 [description]
 
 This is a composite widget designed to simplify the construction of
 chat applications. The widget contains display areas for chat
 messages, user names and topic and an entry area. It automatically

Index: modules/chatwidget/chatwidget.tcl
==================================================================
--- modules/chatwidget/chatwidget.tcl
+++ modules/chatwidget/chatwidget.tcl
@@ -15,11 +15,11 @@
 
 package require Tcl 8.5
 package require Tk 8.5
 
 namespace eval chatwidget {
-    variable version 1.1.0
+    variable version 1.1.1
 
     namespace export chatwidget
 
     ttk::style layout ChatwidgetFrame {
         Entry.field -sticky news -border 1 -children {
@@ -264,10 +264,11 @@
             switch -exact -- [lindex $args 0] {
                 -full {
                     return $state(names)
                 }
                 default {
+                    set r {}
                     foreach item $state(names) { lappend r [lindex $item 0] }
                     return $r
                 }
             }
         }

Index: modules/chatwidget/pkgIndex.tcl
==================================================================
--- modules/chatwidget/pkgIndex.tcl
+++ modules/chatwidget/pkgIndex.tcl
@@ -1,1 +1,1 @@
-package ifneeded chatwidget 1.1.0 [list source [file join $dir chatwidget.tcl]]
+package ifneeded chatwidget 1.1.1 [list source [file join $dir chatwidget.tcl]]