[Tkabber-dev] r522 - in trunk/plugins/notes: . ifaces xmpp

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Aug 21 20:22:01 MSK 2012


Author: Totktonada
Date: 2012-08-21 20:22:01 +0400 (Tue, 21 Aug 2012)
New Revision: 522

Modified:
   trunk/plugins/notes/ifaces/gui.tcl
   trunk/plugins/notes/notes.tcl
   trunk/plugins/notes/xmpp/xmpp-notes.tcl
Log:
Notes plugin:

* Remove Tclx function calls (cequal).


Modified: trunk/plugins/notes/ifaces/gui.tcl
===================================================================
--- trunk/plugins/notes/ifaces/gui.tcl	2012-08-21 16:14:39 UTC (rev 521)
+++ trunk/plugins/notes/ifaces/gui.tcl	2012-08-21 16:22:01 UTC (rev 522)
@@ -204,7 +204,7 @@
 proc ifaces::gui::edit_note {idx args} {
     if {[llength [plugins::notes::connections]] == 0} return
 
-    if {[cequal $idx end]} {
+    if {[string equal $idx end]} {
         set title ""
         set tags_str ""
         set text ""
@@ -295,7 +295,7 @@
 proc ifaces::gui::update_lbox_at {idx new_note} {
     set lbox .notes.lbox_frame.lbox
 
-    if {![cequal $idx end]} {
+    if {![string equal $idx end]} {
         $lbox delete $idx $idx
     }
 

Modified: trunk/plugins/notes/notes.tcl
===================================================================
--- trunk/plugins/notes/notes.tcl	2012-08-21 16:14:39 UTC (rev 521)
+++ trunk/plugins/notes/notes.tcl	2012-08-21 16:22:01 UTC (rev 522)
@@ -144,13 +144,13 @@
 # also, see all proc, where run this hook and all proc, added to this hook in gui.tcl
 
     if {[info exists current_xlib]} {
-        if {[cequal $current_xlib $xlib]} {
+        if {[string equal $current_xlib $xlib]} {
             if {[llength [connections]] > 0} {
                 set_current_xlib [lindex [connections] 0]
             } else {
                 unset_current_xlib
             }
-#TODO: need unset current_xlib if {![cequal $current_xlib $xlib]} ?
+#TODO: need unset current_xlib if {![string equal $current_xlib $xlib]} ?
         }
     }
 }
@@ -225,7 +225,7 @@
     if {[llength $new_note] == 0} {
         set notes($current_xlib) [lreplace $notes($current_xlib) $real_idx $real_idx]
     } else {
-        if {[cequal $real_idx end]} {
+        if {[string equal $real_idx end]} {
             lappend notes($current_xlib) $new_note
         } else {
             lset notes($current_xlib) $real_idx $new_note
@@ -273,7 +273,7 @@
 
 # TODO: replace ugly get_real_index with notes id.
 proc notes::get_real_index {idx {search_tags {}}} {
-    if {[cequal $idx end]} {
+    if {[string equal $idx end]} {
         return end
     }
 

Modified: trunk/plugins/notes/xmpp/xmpp-notes.tcl
===================================================================
--- trunk/plugins/notes/xmpp/xmpp-notes.tcl	2012-08-21 16:14:39 UTC (rev 521)
+++ trunk/plugins/notes/xmpp/xmpp-notes.tcl	2012-08-21 16:22:01 UTC (rev 522)
@@ -83,7 +83,7 @@
     foreach xmldata $xml {
     ::xmpp::xml::split $xmldata tag xmlns attrs cdata subels
 
-    if {[cequal $xmlns "http://miranda-im.org/storage#notes"]} {
+    if {[string equal $xmlns "http://miranda-im.org/storage#notes"]} {
         foreach note $subels {
             ::xmpp::xml::split $note n_tag n_xmlns n_attrs n_cdata n_subels
 



More information about the Tkabber-dev mailing list