[Tkabber-dev] r1401 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Apr 16 21:09:01 MSD 2008


Author: sergei
Date: 2008-04-16 21:09:01 +0400 (Wed, 16 Apr 2008)
New Revision: 1401

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/privacy.tcl
Log:
	* privacy.tcl: Changed "no default list" and "no active list"
	  radiobutton values from "" to "\u0000" to workaround a bug with
	  radiobutton tristate mode in Tk 8.5.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2008-04-16 13:26:14 UTC (rev 1400)
+++ trunk/tkabber/ChangeLog	2008-04-16 17:09:01 UTC (rev 1401)
@@ -1,3 +1,9 @@
+2008-04-16  Sergei Golovan  <sgolovan at nes.ru>
+
+	* privacy.tcl: Changed "no default list" and "no active list"
+	  radiobutton values from "" to "\u0000" to workaround a bug with
+	  radiobutton tristate mode in Tk 8.5.
+
 2008-04-07  Sergei Golovan  <sgolovan at nes.ru>
 
 	* msgs/de.msg: Updated German translation (thanks to Roger Sondermann).

Modified: trunk/tkabber/privacy.tcl
===================================================================
--- trunk/tkabber/privacy.tcl	2008-04-16 13:26:14 UTC (rev 1400)
+++ trunk/tkabber/privacy.tcl	2008-04-16 17:09:01 UTC (rev 1401)
@@ -124,13 +124,13 @@
     set default [radiobutton $tools.default \
 		     -text [::msgcat::mc "No default list"] \
 		     -variable [namespace current]::data(default) \
-		     -value ""]
+		     -value "\u0000"]
     pack $default -side left -padx 1m
 
     set active [radiobutton $tools.active \
 		    -text [::msgcat::mc "No active list"] \
 		    -variable [namespace current]::data(active) \
-		    -value ""]
+		    -value "\u0000"]
     pack $active -side left -padx 1m
 
     jlib::wrapper:splitxml $child tag vars isempty chdata children
@@ -156,8 +156,8 @@
     grid columnconfigure $f 3 -weight 1
     grid columnconfigure $f 4 -weight 1
 
-    set data(active) ""
-    set data(default) ""
+    set data(active) "\u0000"
+    set data(default) "\u0000"
     set data(nlists) 0
     set i 0
     foreach item $items {
@@ -714,7 +714,7 @@
 	return -code error "Option -connection is mandatory"
     }
 
-    if {$name != ""} {
+    if {$name != "\u0000"} {
 	set vars [list name $name]
     } else {
 	set vars {}



More information about the Tkabber-dev mailing list