[Tkabber-dev] r1548 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Oct 18 13:21:39 MSD 2008


Author: sergei
Date: 2008-10-18 13:21:39 +0400 (Sat, 18 Oct 2008)
New Revision: 1548

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/gpgme.tcl
   trunk/tkabber/privacy.tcl
Log:
	* gpgme.tcl, privacy.tcl: Fixed widget paths with connection token in
	  their names.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2008-10-18 08:44:05 UTC (rev 1547)
+++ trunk/tkabber/ChangeLog	2008-10-18 09:21:39 UTC (rev 1548)
@@ -20,6 +20,9 @@
 
 	* search.tcl: Fixed typo.
 
+	* gpgme.tcl, privacy.tcl: Fixed widget paths with connection token in
+	  their names.
+
 2008-10-17  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/general/sound.tcl: Cleared sound external program option

Modified: trunk/tkabber/gpgme.tcl
===================================================================
--- trunk/tkabber/gpgme.tcl	2008-10-18 08:44:05 UTC (rev 1547)
+++ trunk/tkabber/gpgme.tcl	2008-10-18 09:21:39 UTC (rev 1548)
@@ -215,7 +215,7 @@
         }
     }
 
-    set dw .selectkey$xlib
+    set dw .selectkey[string map {: #} $xlib]
     catch {destroy $dw}
 
     set titles {}
@@ -316,7 +316,7 @@
         return $passphrase($keyid)
     }
 
-    set pw .passphrase$xlib
+    set pw .passphrase[string map {: #} $xlib]
     if {[winfo exists $pw]} {
         destroy $pw
     }
@@ -419,7 +419,7 @@
         if {![info exists warnings(verify-traffic,$xlib)]} {
 
             set warnings(verify-traffic,$xlib) 1
-            after idle [list NonmodalMessageDlg .verify_error$xlib -aspect 50000 -icon error \
+            after idle [list NonmodalMessageDlg .verify_error[string map {: #} $xlib] -aspect 50000 -icon error \
                 -message [::msgcat::mc "Error in signature verification software: %s." \
 				       $result]]
         }

Modified: trunk/tkabber/privacy.tcl
===================================================================
--- trunk/tkabber/privacy.tcl	2008-10-18 08:44:05 UTC (rev 1547)
+++ trunk/tkabber/privacy.tcl	2008-10-18 09:21:39 UTC (rev 1548)
@@ -1208,7 +1208,7 @@
 			    set_status \
 				[::msgcat::mc "Privacy list is not created"]
 
-			    NonmodalMessageDlg .privacy_list_error$xlib \
+			    NonmodalMessageDlg .privacy_list_error[string map {: #} $xlib] \
 				-aspect 50000 -icon error \
 				-title [::msgcat::mc "Privacy lists error"] \
 				-message \
@@ -1240,7 +1240,7 @@
 		    set_status \
 			[::msgcat::mc "Privacy list is not activated"]
 
-		    NonmodalMessageDlg .privacy_list_error$xlib \
+		    NonmodalMessageDlg .privacy_list_error[string map {: #} $xlib] \
 			-aspect 50000 -icon error \
 			-title [::msgcat::mc "Privacy lists error"] \
 			-message \



More information about the Tkabber-dev mailing list