[Tkabber-dev] r753 - in trunk/tkabber: . doc examples/xrdb ifacetk jabberlib-tclxml jabberlib-tclxml/tclxml msgs plugins/chat plugins/filetransfer plugins/general plugins/roster plugins/si trans

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Oct 10 00:25:13 MSD 2006


Author: sergei
Date: 2006-10-10 00:24:44 +0400 (Tue, 10 Oct 2006)
New Revision: 753

Removed:
   trunk/tkabber/textundo/
Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/Makefile
   trunk/tkabber/README
   trunk/tkabber/chats.tcl
   trunk/tkabber/ckabber.tcl
   trunk/tkabber/datagathering.tcl
   trunk/tkabber/doc/tkabber.html
   trunk/tkabber/doc/tkabber.xml
   trunk/tkabber/examples/xrdb/lighthouse.xrdb
   trunk/tkabber/filters.tcl
   trunk/tkabber/ifacetk/iface.tcl
   trunk/tkabber/jabberlib-tclxml/jlibauth.tcl
   trunk/tkabber/jabberlib-tclxml/jlibcomponent.tcl
   trunk/tkabber/jabberlib-tclxml/jlibdns.tcl
   trunk/tkabber/jabberlib-tclxml/stanzaerror.tcl
   trunk/tkabber/jabberlib-tclxml/tclxml/sgml-8.1.tcl
   trunk/tkabber/jabberlib-tclxml/tclxml/sgmlparser.tcl
   trunk/tkabber/jabberlib-tclxml/tclxml/tclparser-8.1.tcl
   trunk/tkabber/jabberlib-tclxml/tclxml/xml-8.1.tcl
   trunk/tkabber/messages.tcl
   trunk/tkabber/msgs/pl.msg
   trunk/tkabber/muc.tcl
   trunk/tkabber/plugins/chat/chatstate.tcl
   trunk/tkabber/plugins/chat/events.tcl
   trunk/tkabber/plugins/filetransfer/si.tcl
   trunk/tkabber/plugins/general/remote.tcl
   trunk/tkabber/plugins/general/xaddress.tcl
   trunk/tkabber/plugins/general/xcommands.tcl
   trunk/tkabber/plugins/roster/annotations.tcl
   trunk/tkabber/plugins/roster/conferences.tcl
   trunk/tkabber/plugins/roster/roster_delimiter.tcl
   trunk/tkabber/plugins/roster/rosterx.tcl
   trunk/tkabber/plugins/si/ibb.tcl
   trunk/tkabber/plugins/si/iqibb.tcl
   trunk/tkabber/plugins/si/socks5.tcl
   trunk/tkabber/pubsub.tcl
   trunk/tkabber/si.tcl
   trunk/tkabber/splash.tcl
   trunk/tkabber/tkabber.tcl
   trunk/tkabber/trans/pl.msg
   trunk/tkabber/utils.tcl
   trunk/tkabber/xmppmime.tcl
Log:
	* ifacetk/iface.tcl: Don't add message to tab or window
	  title when it is from chat log and is shown by
	  plugins/chat/log_on_open.tcl.

	* Makefile, chats.tcl, messages.tcl, splash.tcl, tkabber.tcl,
	  textundo/dkflib.tcl, textundo/textundo.tcl, utils.tcl:
	  Removed usage of textundo package. It leaves undeleted
	  variables after destroying widget and text widget in
	  Tcl/Tk 8.4 supports own undo mechanism. So, no undo when
	  using Tcl/Tk 8.3 from now.

	* *: Replaced obsolete JEP (Jabber Enhancement Proposal)
	  abbreviation by XEP (XMPP Extension Proposal) through all
	  of the sources.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/ChangeLog	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,3 +1,20 @@
+2006-10-09  Sergei Golovan  <sgolovan at nes.ru>
+
+	* ifacetk/iface.tcl: Don't add message to tab or window
+	  title when it is from chat log and is shown by
+	  plugins/chat/log_on_open.tcl.
+
+	* Makefile, chats.tcl, messages.tcl, splash.tcl, tkabber.tcl,
+	  textundo/dkflib.tcl, textundo/textundo.tcl, utils.tcl:
+	  Removed usage of textundo package. It leaves undeleted
+	  variables after destroying widget and text widget in
+	  Tcl/Tk 8.4 supports own undo mechanism. So, no undo when
+	  using Tcl/Tk 8.3 from now.
+
+	* *: Replaced obsolete JEP (Jabber Enhancement Proposal)
+	  abbreviation by XEP (XMPP Extension Proposal) through all
+	  of the sources.
+
 2006-10-08  Sergei Golovan  <sgolovan at nes.ru>
 
 	* custom.tcl: Fixed duplicate parent groups (thanks to Pavel
@@ -177,7 +194,7 @@
 	  some (registered) features even if the remote service has not
 	  provided it. Especially, always show
 	  http://jabber.org/protocol/commands node if there is a
-	  correspondent feature. It helps for example to control Psi
+	  corresponding feature. It helps for example to control Psi
 	  client remotely.
 
 2006-09-23  Sergei Golovan  <sgolovan at nes.ru>
@@ -252,7 +269,7 @@
 	  which creates x:data field tag (thanks to Artem Borodin).
 
 	* disco.tcl: Added subnodes registering (second level nodes only,
-	  tnaks to Artem Borodin).
+	  thanks to Artem Borodin).
 
 	* plugins/general/xaddress.tcl, pixmaps/default/icondef.xml,
 	  pixmaps/default/tkabber/xaddress.gif: Implemented Extended Stanza

Modified: trunk/tkabber/Makefile
===================================================================
--- trunk/tkabber/Makefile	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/Makefile	2006-10-09 20:24:44 UTC (rev 753)
@@ -10,8 +10,7 @@
 	  msgs		    \
           pixmaps           \
           plugins           \
-	  sounds	    \
-	  textundo
+	  sounds
 
 install:
 	mkdir -p $(DESTDIR)/$(PREFIX)/share/tkabber

Modified: trunk/tkabber/README
===================================================================
--- trunk/tkabber/README	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/README	2006-10-09 20:24:44 UTC (rev 753)
@@ -1109,7 +1109,7 @@
    custom theme subdirectory to "~/.tkabber/pixmaps/" directory (tilde
    means home directory). _Tkabber_ knows that it is a theme directory
    by looking for "icondef.xml" file in the directory.  To find out the
-   structure of icon definition file, look through _JEP-0038_ and go to
+   structure of icon definition file, look through _XEP-0038_ and go to
    where you installed _Tkabber_ and take a look at the directory called
    ""pixmaps/default/"".
 
@@ -1254,7 +1254,7 @@
    ""icondef.xml"", which defines the mapping between each image and its
    textual emoticon (To find out what this file looks like, go to where
    you installed _Tkabber_ and take a look at the file called
-   ""emoticons-tkabber/icondef.xml"" or read JEP-0038 [21].)
+   ""emoticons-tkabber/icondef.xml"" or read XEP-0038 [21].)
 
    If you have just a few icons, and you don't want to create a
    directory and a textual mapping, you can use the procedure called
@@ -1335,8 +1335,8 @@
 
 4.2.12.  The Stream Initiation Module
 
-   Stream initiation profile is defined in _JEP-0095_ with two
-   transports (_JEP-0047_ - IBB, _JEP-0065_ - SOCKS5 bytestreams).  With
+   Stream initiation profile is defined in _XEP-0095_ with two
+   transports (_XEP-0047_ - IBB, _XEP-0065_ - SOCKS5 bytestreams).  With
 
 
 
@@ -1438,7 +1438,7 @@
    server supports it) and tunnel _XMPP_ traffic through _HTTP_.  To
    enable _HTTP_-polling set "loginconf(usehttppoll)" to "1". _Tkabber_
    then tries to find connect _URL_ using _TXT_ record in _DNS_ (see
-   JEP-0156).  You can specify _URL_ manually by setting
+   XEP-0156).  You can specify _URL_ manually by setting
    "loginconf(pollurl)".
 
    This collection of elements, which is termed a login profile, is what
@@ -2135,17 +2135,17 @@
 
    o  Improved privacy lists interface
 
-   o  Support for stream compression (JEP-0138)
+   o  Support for stream compression (XEP-0138)
 
    o  Support for SRV DNS-records
 
-   o  Support for TXT DNS-records (JEP-0156)
+   o  Support for TXT DNS-records (XEP-0156)
 
-   o  Support for ad-hoc commands (JEP-0050)
+   o  Support for ad-hoc commands (XEP-0050)
 
    o  Improved headlines support
 
-   o  Chat state notification support (JEP-0085)
+   o  Chat state notification support (XEP-0085)
 
    o  Many fixes and enhancements
 
@@ -2157,15 +2157,15 @@
 
    o  Support for searching in chat window
 
-   o  Support for annotations about roster items (JEP-0145)
+   o  Support for annotations about roster items (XEP-0145)
 
-   o  Support for conference rooms bookmarks (JEP-0048)
+   o  Support for conference rooms bookmarks (XEP-0048)
 
    o  Added multilogin support for GPGME
 
    o  Better support for xml:lang
 
-   o  Support for service discovery extensions (JEP-0128)
+   o  Support for service discovery extensions (XEP-0128)
 
    o  Support for NTLM authentication
 
@@ -2173,8 +2173,8 @@
 
 A.3.  Main changes in 0.9.7beta
 
-   o  Updated support for file transfer (JEP-0095, JEP-0096, JEP-0047,
-      JEP-0065)
+   o  Updated support for file transfer (XEP-0095, XEP-0096, XEP-0047,
+      XEP-0065)
 
 
 

Modified: trunk/tkabber/chats.tcl
===================================================================
--- trunk/tkabber/chats.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/chats.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -597,9 +597,6 @@
 	chat::send_message [list $cw] [list $chatid] [list $type]
 	break"]
 
-    bind $cw.input <Control-z> { %W undo }
-    bind $cw.input <Control-Z> { %W redo }
-
     regsub -all %W [bind Text <Prior>] $cf.chat prior_binding
     regsub -all %W [bind Text <Next>] $cf.chat next_binding
     bind $cw.input <Meta-Prior> $prior_binding
@@ -826,6 +823,7 @@
     hook::run chat_send_message_hook $chatid $user $body $type
 
     $iw delete 1.0 end
+    catch {$iw edit reset}
 }
 
 proc chat::add_message {chatid from type body x} {

Modified: trunk/tkabber/ckabber.tcl
===================================================================
--- trunk/tkabber/ckabber.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/ckabber.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -138,8 +138,6 @@
 #load_source itemedit.tcl
 #load_source sound.tcl
 #load_source messages.tcl
-#load_source textundo dkflib.tcl
-#load_source textundo textundo.tcl
 load_source chats.tcl
 #load_source joingrdialog.tcl
 #load_source muc.tcl

Modified: trunk/tkabber/datagathering.tcl
===================================================================
--- trunk/tkabber/datagathering.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/datagathering.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,9 +1,12 @@
 # $Id$
+#
+# Data Forms (XEP-0004) support
+#
 
 namespace eval data {
     set winid 0
 
-    # Registration & search fields (see JEP-0077 & JEP-0055)
+    # Registration & search fields (see XEP-0077 & XEP-0055)
 
     array set field_labels [list \
 	username     [::msgcat::mc "Username:"] \

Modified: trunk/tkabber/doc/tkabber.html
===================================================================
--- trunk/tkabber/doc/tkabber.html	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/doc/tkabber.html	2006-10-09 20:24:44 UTC (rev 753)
@@ -656,7 +656,7 @@
 </p>
 <p>
 	    Also you can setup <span class="emph">Tkabber</span> as handler for
-	    <a href="http://jabber.org/jeps/jep-0081.html">XMPP/Jabber MIME Type</a>.  For this you need to set hanler for
+	    <a href="http://www.xmpp.org/extensions/xep-0081.html">XMPP/Jabber MIME Type</a>.  For this you need to set hanler for
 	    <span class="verb">application/xmpp+xml</span> MIME type in your
 	    browser to something like this:
 	  
@@ -1180,7 +1180,7 @@
 theme directory by looking for <span class="verb">icondef.xml</span> file in the
 directory.
 
-To find out the structure of icon definition file, look through <span class="emph">JEP-0038</span>
+To find out the structure of icon definition file, look through <span class="emph">XEP-0038</span>
 and go to where you installed <span class="emph">Tkabber</span> and take a look at the directory 
 called <span class="verb">"pixmaps/default/"</span>.
 </p>
@@ -1349,7 +1349,8 @@
 	    file called <span class="verb">"icondef.xml"</span>, which defines the mapping between
 	    each image and its textual emoticon (To find out what this file
 	    looks like, go to where you installed <span class="emph">Tkabber</span> and take a look at
-	    the file called <span class="verb">"emoticons-tkabber/icondef.xml"</span> or read <a href="http://www.jabber.org/jeps/jep-0038.html">JEP-0038</a>.)
+	    the file called <span class="verb">"emoticons-tkabber/icondef.xml"</span>
+	    or read <a href="http://www.xmpp.org/extensions/xep-0038.html">XEP-0038</a>.)
 	  
 </p>
 <p>If you have just a few icons,
@@ -1450,8 +1451,8 @@
 <a name="rfc.section.4.2.12"></a><h3>4.2.12.&nbsp;The Stream Initiation Module</h3>
 
 <p>
-	    Stream initiation profile is defined in <span class="emph">JEP-0095</span> with
-	    two transports (<span class="emph">JEP-0047</span> - IBB, <span class="emph">JEP-0065</span> - SOCKS5
+	    Stream initiation profile is defined in <span class="emph">XEP-0095</span> with
+	    two transports (<span class="emph">XEP-0047</span> - IBB, <span class="emph">XEP-0065</span> - SOCKS5
 	    bytestreams).
 	    With it you can specify what
 	    transports you can use, and via negotiation choose more appropriate
@@ -1582,7 +1583,7 @@
 supports it) and tunnel <span class="emph">XMPP</span> traffic through <span class="emph">HTTP</span>.
 To enable <span class="emph">HTTP</span>-polling set <span class="verb">loginconf(usehttppoll)</span>
 to <span class="verb">1</span>. <span class="emph">Tkabber</span> then tries to find connect
-<span class="emph">URL</span> using <span class="emph">TXT</span> record in <span class="emph">DNS</span> (see JEP-0156).
+<span class="emph">URL</span> using <span class="emph">TXT</span> record in <span class="emph">DNS</span> (see XEP-0156).
 You can specify <span class="emph">URL</span> manually by setting
 <span class="verb">loginconf(pollurl)</span>.
 </p>
@@ -2271,17 +2272,17 @@
 <ul class="text">
 <li>Improved privacy lists interface
 </li>
-<li>Support for stream compression (JEP-0138)
+<li>Support for stream compression (XEP-0138)
 </li>
 <li>Support for SRV DNS-records
 </li>
-<li>Support for TXT DNS-records (JEP-0156)
+<li>Support for TXT DNS-records (XEP-0156)
 </li>
-<li>Support for ad-hoc commands (JEP-0050)
+<li>Support for ad-hoc commands (XEP-0050)
 </li>
 <li>Improved headlines support
 </li>
-<li>Chat state notification support (JEP-0085)
+<li>Chat state notification support (XEP-0085)
 </li>
 <li>Many fixes and enhancements
 </li>
@@ -2301,15 +2302,15 @@
 </li>
 <li>Support for searching in chat window
 </li>
-<li>Support for annotations about roster items (JEP-0145)
+<li>Support for annotations about roster items (XEP-0145)
 </li>
-<li>Support for conference rooms bookmarks (JEP-0048)
+<li>Support for conference rooms bookmarks (XEP-0048)
 </li>
 <li>Added multilogin support for GPGME
 </li>
 <li>Better support for xml:lang
 </li>
-<li>Support for service discovery extensions (JEP-0128)
+<li>Support for service discovery extensions (XEP-0128)
 </li>
 <li>Support for NTLM authentication
 </li>
@@ -2325,7 +2326,7 @@
 <p>
 	  </p>
 <ul class="text">
-<li>Updated support for file transfer (JEP-0095, JEP-0096, JEP-0047, JEP-0065)
+<li>Updated support for file transfer (XEP-0095, XEP-0096, XEP-0047, XEP-0065)
 </li>
 <li>Support for colored nicks and messages in conference
 </li>

Modified: trunk/tkabber/doc/tkabber.xml
===================================================================
--- trunk/tkabber/doc/tkabber.xml	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/doc/tkabber.xml	2006-10-09 20:24:44 UTC (rev 753)
@@ -384,7 +384,7 @@
 	<figure>
 	  <preamble>
 	    Also you can setup <spanx>Tkabber</spanx> as handler for
-	    <eref target="http://jabber.org/jeps/jep-0081.html">
+	    <eref target="http://www.xmpp.org/extensions/xep-0081.html">
 	      XMPP/Jabber MIME Type
 	    </eref>.  For this you need to set hanler for
 	    <spanx style='verb'>application/xmpp+xml</spanx> MIME type in your
@@ -914,7 +914,7 @@
 theme directory by looking for <spanx style='verb'>icondef.xml</spanx> file in the
 directory.
 
-To find out the structure of icon definition file, look through <spanx>JEP-0038</spanx>
+To find out the structure of icon definition file, look through <spanx>XEP-0038</spanx>
 and go to where you installed <spanx>Tkabber</spanx> and take a look at the directory 
 called <spanx style='verb'>"pixmaps/default/"</spanx>.</t>
 
@@ -1081,7 +1081,7 @@
 	    each image and its textual emoticon (To find out what this file
 	    looks like, go to where you installed <spanx>Tkabber</spanx> and take a look at
 	    the file called <spanx style='verb'>"emoticons-tkabber/icondef.xml"</spanx> or read <eref
-	    target='http://www.jabber.org/jeps/jep-0038.html'>JEP-0038</eref>.)
+	    target='http://www.xmpp.org/extensions/xep-0038.html'>XEP-0038</eref>.)
 	  </t>
 
 <figure>
@@ -1183,8 +1183,8 @@
 
 	<section anchor='s.postload-si' title="The Stream Initiation Module">
 	  <t>
-	    Stream initiation profile is defined in <spanx>JEP-0095</spanx> with
-	    two transports (<spanx>JEP-0047</spanx> - IBB, <spanx>JEP-0065</spanx> - SOCKS5
+	    Stream initiation profile is defined in <spanx>XEP-0095</spanx> with
+	    two transports (<spanx>XEP-0047</spanx> - IBB, <spanx>XEP-0065</spanx> - SOCKS5
 	    bytestreams).
 	    With it you can specify what
 	    transports you can use, and via negotiation choose more appropriate
@@ -1301,7 +1301,7 @@
 supports it) and tunnel <spanx>XMPP</spanx> traffic through <spanx>HTTP</spanx>.
 To enable <spanx>HTTP</spanx>-polling set <spanx style='verb'>loginconf(usehttppoll)</spanx>
 to <spanx style='verb'>1</spanx>. <spanx>Tkabber</spanx> then tries to find connect
-<spanx>URL</spanx> using <spanx>TXT</spanx> record in <spanx>DNS</spanx> (see JEP-0156).
+<spanx>URL</spanx> using <spanx>TXT</spanx> record in <spanx>DNS</spanx> (see XEP-0156).
 You can specify <spanx>URL</spanx> manually by setting
 <spanx style='verb'>loginconf(pollurl)</spanx>.</t>
 
@@ -1996,12 +1996,12 @@
 	<t>
 	  <list style='symbols'>
 	    <t>Improved privacy lists interface</t>
-	    <t>Support for stream compression (JEP-0138)</t>
+	    <t>Support for stream compression (XEP-0138)</t>
 	    <t>Support for SRV DNS-records</t>
-	    <t>Support for TXT DNS-records (JEP-0156)</t>
-	    <t>Support for ad-hoc commands (JEP-0050)</t>
+	    <t>Support for TXT DNS-records (XEP-0156)</t>
+	    <t>Support for ad-hoc commands (XEP-0050)</t>
 	    <t>Improved headlines support</t>
-	    <t>Chat state notification support (JEP-0085)</t>
+	    <t>Chat state notification support (XEP-0085)</t>
 	    <t>Many fixes and enhancements</t>
 	  </list>
 	</t>
@@ -2013,11 +2013,11 @@
 	    <t>Support for STARTTLS</t>
 	    <t>Reorganized menu</t>
 	    <t>Support for searching in chat window</t>
-	    <t>Support for annotations about roster items (JEP-0145)</t>
-	    <t>Support for conference rooms bookmarks (JEP-0048)</t>
+	    <t>Support for annotations about roster items (XEP-0145)</t>
+	    <t>Support for conference rooms bookmarks (XEP-0048)</t>
 	    <t>Added multilogin support for GPGME</t>
 	    <t>Better support for xml:lang</t>
-	    <t>Support for service discovery extensions (JEP-0128)</t>
+	    <t>Support for service discovery extensions (XEP-0128)</t>
 	    <t>Support for NTLM authentication</t>
 	    <t>Many fixes and enhancements</t>
 	  </list>
@@ -2027,7 +2027,7 @@
       <section title="Main changes in 0.9.7beta">
 	<t>
 	  <list style='symbols'>
-	    <t>Updated support for file transfer (JEP-0095, JEP-0096, JEP-0047, JEP-0065)</t>
+	    <t>Updated support for file transfer (XEP-0095, XEP-0096, XEP-0047, XEP-0065)</t>
 	    <t>Support for colored nicks and messages in conference</t>
 	    <t>Better multiple logins support</t>
 	    <t>Updated support for xml:lang</t>


Property changes on: trunk/tkabber/examples/xrdb/lighthouse.xrdb
___________________________________________________________________
Name: svn:keywords
   + Author Date Id Revision
Name: svn:eol-style
   + native

Modified: trunk/tkabber/filters.tcl
===================================================================
--- trunk/tkabber/filters.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/filters.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,6 +1,6 @@
 # $Id$
 #
-# Obsolete jabberd 1.4 mod_filter (which never has been documented in JEPs) support.
+# Obsolete jabberd 1.4 mod_filter (which has been never documented in XEP) support.
 #
 
 

Modified: trunk/tkabber/ifacetk/iface.tcl
===================================================================
--- trunk/tkabber/ifacetk/iface.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/ifacetk/iface.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1004,6 +1004,16 @@
     variable number_msg
     variable personal_msg
 
+    foreach xelem $extras {
+	jlib::wrapper:splitxml $xelem tag vars isempty chdata children
+	# Don't add number to title if this 'empty' tag is present. It indicates
+	# messages history in chat window.
+	if {[cequal $tag ""] && \
+	    [cequal [jlib::wrapper:getattr $vars xmlns] tkabber:x:nolog]} {
+	    return
+	}
+    }
+
     if {[chat_window_is_active $chatid]} return
 
     if {$type == "chat"} {

Modified: trunk/tkabber/jabberlib-tclxml/jlibauth.tcl
===================================================================
--- trunk/tkabber/jabberlib-tclxml/jlibauth.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/jabberlib-tclxml/jlibauth.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,7 +1,7 @@
 #  jlibauth.tcl --
 #  
 #      This file is part of the jabberlib. It provides support for the
-#      Non-auth authentication layer (JEP-0078).
+#      Non-auth authentication layer (XEP-0078).
 #      
 #  Copyright (c) 2005 Sergei Golovan <sgolovan at nes.ru>
 #  

Modified: trunk/tkabber/jabberlib-tclxml/jlibcomponent.tcl
===================================================================
--- trunk/tkabber/jabberlib-tclxml/jlibcomponent.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/jabberlib-tclxml/jlibcomponent.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,7 +1,7 @@
 #  jlibcomponent.tcl --
 #  
 #      This file is part of the jabberlib. It provides support for the
-#      jabber:component:accept protocol (JEP-0114).
+#      jabber:component:accept protocol (XEP-0114).
 #      
 #  Copyright (c) 2005 Sergei Golovan <sgolovan at nes.ru>
 #  

Modified: trunk/tkabber/jabberlib-tclxml/jlibdns.tcl
===================================================================
--- trunk/tkabber/jabberlib-tclxml/jlibdns.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/jabberlib-tclxml/jlibdns.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -2,7 +2,7 @@
 #  
 #      This file is part of the jabberlib. It provides support for
 #      Jabber Client SRV DNS records (RFC 3920) and
-#      DNS TXT Resource Record Format (JEP-0156).
+#      DNS TXT Resource Record Format (XEP-0156).
 #      
 #  Copyright (c) 2006 Sergei Golovan <sgolovan at nes.ru>
 #  
@@ -14,7 +14,7 @@
 #
 #  SYNOPSIS
 #      jlibdns::get_http_poll_url domain
-#  RETURNS URL for HTTP-poll connect method (JEP-0025)
+#  RETURNS URL for HTTP-poll connect method (XEP-0025)
 #
 
 ##########################################################################

Modified: trunk/tkabber/jabberlib-tclxml/stanzaerror.tcl
===================================================================
--- trunk/tkabber/jabberlib-tclxml/stanzaerror.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/jabberlib-tclxml/stanzaerror.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -20,7 +20,7 @@
 	wait	    [::msgcat::mc "Temporary Error"]]
 
     set defined_error_conditions {}
-    # Code is zero iff the condition isn't mentioned in JEP-0086
+    # Code is zero iff the condition isn't mentioned in XEP-0086
     foreach {clist lcode type cond description} [list \
       {400}	    400 modify	bad-request		[::msgcat::mc "Bad Request"] \
       {409}	    409 cancel	conflict		[::msgcat::mc "Conflict"] \
@@ -47,7 +47,7 @@
     {
 	lappend defined_error_conditions $cond
 	set error_description($type,$cond) $description
-	# JEP-0086
+	# XEP-0086
 	foreach code $clist {
 	    set error_type_descelem($code) [list $type $cond]
 	}


Property changes on: trunk/tkabber/jabberlib-tclxml/tclxml/sgml-8.1.tcl
___________________________________________________________________
Name: svn:executable
   - *


Property changes on: trunk/tkabber/jabberlib-tclxml/tclxml/sgmlparser.tcl
___________________________________________________________________
Name: svn:executable
   - *


Property changes on: trunk/tkabber/jabberlib-tclxml/tclxml/tclparser-8.1.tcl
___________________________________________________________________
Name: svn:executable
   - *


Property changes on: trunk/tkabber/jabberlib-tclxml/tclxml/xml-8.1.tcl
___________________________________________________________________
Name: svn:executable
   - *

Modified: trunk/tkabber/messages.tcl
===================================================================
--- trunk/tkabber/messages.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/messages.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -195,8 +195,6 @@
 
         textUndoable $mw.body -width 60 -height 8 -wrap word -font $font
         pack $mw.body -side top -fill both -expand yes -in $mw.sw
-        bind $mw.body <Control-z> { %W undo }
-        bind $mw.body <Control-Z> { %W redo }
         bind $mw.body <Control-Return> "ButtonBox::invoke $bbox 0
                 break"
         $mw.sw setwidget $mw.body
@@ -433,8 +431,6 @@
 
     textUndoable $mw.body -width 60 -height 8 -wrap word -font $font
     pack $mw.body -side top -fill both -expand yes -in $mw.sw
-    bind $mw.body <Control-z> { %W undo }
-    bind $mw.body <Control-Z> { %W redo }
     bind $mw.body <Control-Return> "ButtonBox::invoke $bbox 0
             break"
     $mw.sw setwidget $mw.body

Modified: trunk/tkabber/msgs/pl.msg
===================================================================
--- trunk/tkabber/msgs/pl.msg	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/msgs/pl.msg	2006-10-09 20:24:44 UTC (rev 753)
@@ -1479,7 +1479,7 @@
 ::msgcat::mcset pl "Enable Jidlink transport %s." "Włącz transport Jidlink %s."
 
 # plugins/general/offline.tcl
-::msgcat::mcset pl "Retrieve offline messages using POP3-like protocol." "Pobierz nieprzeczytane wiadomości z serwera używając protokołu podobnego do POP3 (JEP-0013)."
+::msgcat::mcset pl "Retrieve offline messages using POP3-like protocol." "Pobierz nieprzeczytane wiadomości z serwera używając protokołu podobnego do POP3."
 ::msgcat::mcset pl "Offline Messages" "Wiadomości nieprzeczytane"
 ::msgcat::mcset pl "Sort by from" "Sortuj wg nadawcy"
 ::msgcat::mcset pl "Sort by node" "Sortuj wg powiązań"

Modified: trunk/tkabber/muc.tcl
===================================================================
--- trunk/tkabber/muc.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/muc.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,6 +1,6 @@
 # $Id$
 
-# Multi-User Chat support (JEP-0045)
+# Multi-User Chat support (XEP-0045)
 
 ###############################################################################
 
@@ -959,7 +959,7 @@
 			if {$options(propose_configure)} {
 			    request_config_dialog $chatid
 			} else {
-			    # requesting "instant" room as specified in JEP-0045
+			    # requesting "instant" room as specified in XEP-0045
 			    # if the user wants to configure room (s)he can do it later
 			    request_instant_room $chatid
 			}

Modified: trunk/tkabber/plugins/chat/chatstate.tcl
===================================================================
--- trunk/tkabber/plugins/chat/chatstate.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/plugins/chat/chatstate.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,6 +1,6 @@
 # $Id$
 #
-# Chat State Notifications (JEP-0085) (only <active/> and <composing/>) support.
+# Chat State Notifications (XEP-0085) (only <active/> and <composing/>) support.
 #
 
 namespace eval chatstate {

Modified: trunk/tkabber/plugins/chat/events.tcl
===================================================================
--- trunk/tkabber/plugins/chat/events.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/plugins/chat/events.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,6 +1,6 @@
 # $Id$
 #
-# Message Events (JEP-0022) support.
+# Message Events (XEP-0022) support.
 #
 
 namespace eval events {

Modified: trunk/tkabber/plugins/filetransfer/si.tcl
===================================================================
--- trunk/tkabber/plugins/filetransfer/si.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/plugins/filetransfer/si.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,6 +1,6 @@
 # $Id$
 
-# File transfer via Stream Initiation (JEP-0096)
+# File transfer via Stream Initiation (XEP-0096)
 
 ###############################################################################
 

Modified: trunk/tkabber/plugins/general/remote.tcl
===================================================================
--- trunk/tkabber/plugins/general/remote.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/plugins/general/remote.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,7 +1,7 @@
 # $Id$
-# Implementation of JEP-146 (Remote Controlling Clients) for Tkabber.
-# http://www.jabber.org/jeps/jep-0146.html
-# http://www.jabber.org/jeps/jep-0050.html
+# Implementation of Remote Controlling Clients (XEP-0146)
+# via Ad-Hoc Commands (XEP-0050) for Tkabber.
+#
 
 namespace eval ::remote {
     array set commands {}

Modified: trunk/tkabber/plugins/general/xaddress.tcl
===================================================================
--- trunk/tkabber/plugins/general/xaddress.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/plugins/general/xaddress.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,5 +1,7 @@
 # $Id$
-# Implementation of JEP-0033: Extended Stanza Addressing
+#
+# Implementation of XEP-0033: Extended Stanza Addressing
+#
 
 set ::NS(xaddress) "http://jabber.org/protocol/address"
 set ::NS(xaddress_store) "tkabber:xaddress:store"

Modified: trunk/tkabber/plugins/general/xcommands.tcl
===================================================================
--- trunk/tkabber/plugins/general/xcommands.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/plugins/general/xcommands.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,7 +1,8 @@
 # $Id$
+#
+# Ad-Hoc Commands support (XEP-0050)
+#
 
-# Ad-Hoc Commands support (JEP-0050)
-
 ##########################################################################
 
 namespace eval xcommands {

Modified: trunk/tkabber/plugins/roster/annotations.tcl
===================================================================
--- trunk/tkabber/plugins/roster/annotations.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/plugins/roster/annotations.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,7 +1,8 @@
 # $Id$
+#
+# Annotations (XEP-0145) support
+#
 
-# JEP-0145 Annotations support
-
 namespace eval annotations {
     # variable to store roster notes
     array set notes {}

Modified: trunk/tkabber/plugins/roster/conferences.tcl
===================================================================
--- trunk/tkabber/plugins/roster/conferences.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/plugins/roster/conferences.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,9 +1,10 @@
 # $Id$
-
-# JEP-0048 Bookmarks support (conference bookmarks in roster)
-# In addition to JEP-0048, Tkabber stores roster groups using
+#
+# Bookmarks (XEP-0048) support (conference bookmarks in roster)
+#
+# In addition to XEP-0048, Tkabber stores roster groups using
 # proprietory namespace tkabber:bookmarks:groups inside
-# jabber:iq:private storage (JEP-0049)
+# jabber:iq:private storage (XEP-0049)
 #
 #   tkabber:bookmarks:groups description:
 #

Modified: trunk/tkabber/plugins/roster/roster_delimiter.tcl
===================================================================
--- trunk/tkabber/plugins/roster/roster_delimiter.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/plugins/roster/roster_delimiter.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,7 +1,8 @@
 # $Id$
 #
-# Nested roster groups server-side delimiter storing (JEP-0083).
+# Nested roster groups server-side delimiter storing (XEP-0083).
 #
+
 ###############################################################################
 
 namespace eval delimiter {}

Modified: trunk/tkabber/plugins/roster/rosterx.tcl
===================================================================
--- trunk/tkabber/plugins/roster/rosterx.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/plugins/roster/rosterx.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,5 +1,7 @@
 # $Id$
-# Roster Item Exchange Support (JEP-0093 and JEP-0144)
+#
+# Roster Item Exchange Support (XEP-0093 and XEP-0144)
+#
 
 namespace eval rosterx {}
 

Modified: trunk/tkabber/plugins/si/ibb.tcl
===================================================================
--- trunk/tkabber/plugins/si/ibb.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/plugins/si/ibb.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,5 +1,7 @@
 # $Id$
-# In-Band Bytestreams (JEP-0047) transport for SI
+#
+# In-Band Bytestreams (XEP-0047) transport for SI
+#
 
 ###############################################################################
 

Modified: trunk/tkabber/plugins/si/iqibb.tcl
===================================================================
--- trunk/tkabber/plugins/si/iqibb.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/plugins/si/iqibb.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,5 +1,7 @@
 # $Id$
-# IQ-based In-Band Bytestreams (JEP-????) transport for SI
+#
+# IQ-based In-Band Bytestreams (XEP is to be submitted) transport for SI
+#
 
 ###############################################################################
 

Modified: trunk/tkabber/plugins/si/socks5.tcl
===================================================================
--- trunk/tkabber/plugins/si/socks5.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/plugins/si/socks5.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,5 +1,7 @@
 # $Id$
-# SOCKS5 Bytestreams (JEP-0065) transport for SI
+#
+# SOCKS5 Bytestreams (XEP-0065) transport for SI
+#
 
 ###############################################################################
 

Modified: trunk/tkabber/pubsub.tcl
===================================================================
--- trunk/tkabber/pubsub.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/pubsub.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,12 +1,12 @@
 # $Id$
 #
-# Publish-Subscribe Support (JEP-0060)
-# Personal Eventing via Pubsub Support (JEP-0163)
+# Publish-Subscribe Support (XEP-0060)
+# Personal Eventing via Pubsub Support (XEP-0163)
 #
 
 ##########################################################################
 #
-# Publish-subscribe JEP-0060
+# Publish-subscribe XEP-0060
 #
 
 namespace eval pubsub {
@@ -1835,7 +1835,7 @@
 ##########################################################################
 ##########################################################################
 #
-# Personal eventing via pubsub JEP-0163
+# Personal eventing via pubsub XEP-0163
 #
 
 namespace eval pep {}

Modified: trunk/tkabber/si.tcl
===================================================================
--- trunk/tkabber/si.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/si.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,5 +1,7 @@
 # $Id$
-# Stream Initiation (JEP-0095) implementation
+#
+# Stream Initiation (XEP-0095) implementation
+#
 
 ###############################################################################
 

Modified: trunk/tkabber/splash.tcl
===================================================================
--- trunk/tkabber/splash.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/splash.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -39,7 +39,6 @@
         roster              [::msgcat::mc "jabber roster"]         \
         itemedit            [::msgcat::mc "jabber roster"]         \
         messages            [::msgcat::mc "jabber messages"]       \
-        textundo            [::msgcat::mc "text undo"]             \
         chats               [::msgcat::mc "jabber chat/muc"]       \
         plugins:chat        [::msgcat::mc "jabber chat/muc"]       \
         joingrdialog        [::msgcat::mc "jabber chat/muc"]       \

Modified: trunk/tkabber/tkabber.tcl
===================================================================
--- trunk/tkabber/tkabber.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/tkabber.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -227,8 +227,6 @@
 load_source roster.tcl
 load_source itemedit.tcl
 load_source messages.tcl
-load_source textundo dkflib.tcl
-load_source textundo textundo.tcl
 load_source chats.tcl
 load_source joingrdialog.tcl
 load_source muc.tcl


Property changes on: trunk/tkabber/trans/pl.msg
___________________________________________________________________
Name: svn:keywords
   + Author Date Id Revision
Name: svn:eol-style
   + native

Modified: trunk/tkabber/utils.tcl
===================================================================
--- trunk/tkabber/utils.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/utils.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -270,6 +270,15 @@
     }
 }
 
+proc textUndoable {path args} {
+    if {![catch {eval {text $path -undo 1} $args} res]} {
+	bind $path <Key-space> +[list %W edit separator]
+	return $res
+    } else {
+	return [eval {text $path} $args]
+    }
+}
+
 proc focus_next {path fr} {
     focus [Widget::focusNext $path]
     set widget [focus]

Modified: trunk/tkabber/xmppmime.tcl
===================================================================
--- trunk/tkabber/xmppmime.tcl	2006-10-08 17:46:35 UTC (rev 752)
+++ trunk/tkabber/xmppmime.tcl	2006-10-09 20:24:44 UTC (rev 753)
@@ -1,7 +1,8 @@
 # $Id$
+#
+# Support for XMPP/Jabber MIME Type (XEP-0081)
+#
 
-# Support for JEP-0081 (XMPP/Jabber MIME Type)
-
 namespace eval xmppmime {
     set used 0
     set handle 0



More information about the Tkabber-dev mailing list