[Tkabber-dev] r762 - in trunk/tkabber: . ifacetk

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Oct 15 21:05:18 MSD 2006


Author: sergei
Date: 2006-10-15 21:05:13 +0400 (Sun, 15 Oct 2006)
New Revision: 762

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/custom.tcl
   trunk/tkabber/ifacetk/iface.tcl
Log:
	* ifacetk/iface.tcl: Restored "Activate lists at startup" menu
	  item for privacy lists. Since it is autosaved when switched it
	  makes sense to use it again.

	* custom.tcl: Fixed sorting subgroups.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2006-10-14 17:33:54 UTC (rev 761)
+++ trunk/tkabber/ChangeLog	2006-10-15 17:05:13 UTC (rev 762)
@@ -1,3 +1,11 @@
+2006-10-15  Sergei Golovan  <sgolovan at nes.ru>
+
+	* ifacetk/iface.tcl: Restored "Activate lists at startup" menu
+	  item for privacy lists. Since it is autosaved when switched it
+	  makes sense to use it again.
+
+	* custom.tcl: Fixed sorting subgroups.
+
 2006-10-14  Sergei Golovan  <sgolovan at nes.ru>
 
 	* messages.tcl: Use threads for normal messages (they aren't

Modified: trunk/tkabber/custom.tcl
===================================================================
--- trunk/tkabber/custom.tcl	2006-10-14 17:33:54 UTC (rev 761)
+++ trunk/tkabber/custom.tcl	2006-10-15 17:05:13 UTC (rev 762)
@@ -259,7 +259,7 @@
 
     set butwidth 0
     foreach member [concat $group(members,$gid) \
-			[lsort -dictionary $group(subgroups,$gid)]] {
+			[lsort -dictionary -index 1 $group(subgroups,$gid)]] {
 	lassign $member type data
 	switch -- $type {
 	    group {

Modified: trunk/tkabber/ifacetk/iface.tcl
===================================================================
--- trunk/tkabber/ifacetk/iface.tcl	2006-10-14 17:33:54 UTC (rev 761)
+++ trunk/tkabber/ifacetk/iface.tcl	2006-10-15 17:05:13 UTC (rev 762)
@@ -264,6 +264,8 @@
 				 -command {privacy::edit_special_list invisible}] \
 			    [list command [string trim [::msgcat::mc "Edit ignore list "]] {} {} {} \
 				 -command {privacy::edit_special_list ignore}] \
+			    [list checkbutton [::msgcat::mc "Activate lists at startup"] {} {} {} \
+				 -variable privacy::options(activate_at_startup)] \
 			    {separator} \
 			    [list command [::msgcat::mc "Manually edit rules"] {} {} {} \
 				 -command {privacy::request_lists}]]] \



More information about the Tkabber-dev mailing list