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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Oct 17 22:38:31 MSD 2008


Author: sergei
Date: 2008-10-17 22:38:30 +0400 (Fri, 17 Oct 2008)
New Revision: 1528

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/ifacetk/iface.tcl
Log:
	* ifacetk/iface.tcl: Fixed privacy menu items.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2008-10-17 18:32:30 UTC (rev 1527)
+++ trunk/tkabber/ChangeLog	2008-10-17 18:38:30 UTC (rev 1528)
@@ -34,6 +34,8 @@
 
 	* pubsub.tcl: Fixed closing brackets at the end of several commands.
 
+	* ifacetk/iface.tcl: Fixed privacy menu items.
+
 2008-10-11  Sergei Golovan  <sgolovan at nes.ru>
 
 	* AUTHORS: Fixed authors list.

Modified: trunk/tkabber/ifacetk/iface.tcl
===================================================================
--- trunk/tkabber/ifacetk/iface.tcl	2008-10-17 18:32:30 UTC (rev 1527)
+++ trunk/tkabber/ifacetk/iface.tcl	2008-10-17 18:38:30 UTC (rev 1528)
@@ -335,17 +335,17 @@
 			    [list checkbutton [::msgcat::mc "Activate lists at startup"] {} {} {} \
 				 -variable privacy::options(activate_at_startup)] \
 			    [list command [string trim [::msgcat::mc "Edit invisible list "]] {} {} {} \
-				 -command {privacy::edit_special_list invisible}] \
+				 -command {privacy::edit_special_list "" invisible}] \
 			    [list command [string trim [::msgcat::mc "Edit ignore list "]] {} {} {} \
-				 -command {privacy::edit_special_list ignore}] \
+				 -command {privacy::edit_special_list "" ignore}] \
 			    [list command [string trim [::msgcat::mc "Edit conference list "]] {} {} {} \
-				 -command {privacy::edit_special_list conference}] \
+				 -command {privacy::edit_special_list "" conference}] \
 			    [list checkbutton [::msgcat::mc "Accept messages from roster users only"] {} {} {} \
 				 -variable privacy::accept_from_roster_only \
-				 -command privacy::on_accept_from_roster_only_change] \
+				 -command {privacy::on_accept_from_roster_only_change ""}] \
 			    {separator} \
 			    [list command [::msgcat::mc "Manually edit rules"] {} {} {} \
-				 -command {privacy::request_lists}]]] \
+				 -command {privacy::request_lists ""}]]] \
 		  {separator} \
 		  [list cascad [::msgcat::mc "View"] {} {} $ifacetk::options(show_tearoffs) \
 		   [list \



More information about the Tkabber-dev mailing list