[Tkabber-dev] r871 - in trunk/tkabber: . plugins/iq

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Jan 14 14:19:43 MSK 2007


Author: sergei
Date: 2007-01-14 14:19:40 +0300 (Sun, 14 Jan 2007)
New Revision: 871

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/iq/version.tcl
   trunk/tkabber/splash.tcl
   trunk/tkabber/tkabber.tcl
Log:
	* splash.tcl, plugins/iq/version.tcl, tkabber.tcl: Changed version
	  variable to tkabber_version.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-01-14 11:08:37 UTC (rev 870)
+++ trunk/tkabber/ChangeLog	2007-01-14 11:19:40 UTC (rev 871)
@@ -11,6 +11,9 @@
 	* plugins/general/copy_jid.tcl: Added "Copy JID to clipboard" menu
 	  item to roster, chat, groupchat, message, search menus.
 
+	* splash.tcl, plugins/iq/version.tcl, tkabber.tcl: Changed version
+	  variable to tkabber_version.
+
 2007-01-11  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/richtext/urls.tcl: Fixed proc, which adds leading http://

Modified: trunk/tkabber/plugins/iq/version.tcl
===================================================================
--- trunk/tkabber/plugins/iq/version.tcl	2007-01-14 11:08:37 UTC (rev 870)
+++ trunk/tkabber/plugins/iq/version.tcl	2007-01-14 11:19:40 UTC (rev 871)
@@ -120,7 +120,7 @@
 }
 
 proc iq_version {connid from lang child} {
-    global version toolkit_version tcl_platform
+    global tkabber_version toolkit_version tcl_platform
     variable options
 
     if {!$options(reply_iq_version)} {
@@ -144,7 +144,7 @@
     set restags [list \
 		     [jlib::wrapper:createtag name -chdata Tkabber] \
 		     [jlib::wrapper:createtag version -chdata \
-			  "$version ($toolkit_version)"] \
+			  "$tkabber_version ($toolkit_version)"] \
 		     [jlib::wrapper:createtag os -chdata $os]]
 
     set res [jlib::wrapper:createtag query \

Modified: trunk/tkabber/splash.tcl
===================================================================
--- trunk/tkabber/splash.tcl	2007-01-14 11:08:37 UTC (rev 870)
+++ trunk/tkabber/splash.tcl	2007-01-14 11:19:40 UTC (rev 871)
@@ -21,7 +21,7 @@
 
 proc splash_start {{aboutP 0}} {
     global splash_count splash_image splash_info splash_max splash_text
-    global version toolkit_version
+    global tkabber_version toolkit_version
 
     set splash_info   ""
     set splash_count   0
@@ -120,7 +120,7 @@
 	  -anchor  nw    \
 	  -justify left  \
 	  -text          \
-"Tkabber $version
+"Tkabber $tkabber_version
 
 Copyright \u00a9 2002-2007 [::msgcat::mc {Alexey Shchepin}]
 

Modified: trunk/tkabber/tkabber.tcl
===================================================================
--- trunk/tkabber/tkabber.tcl	2007-01-14 11:08:37 UTC (rev 870)
+++ trunk/tkabber/tkabber.tcl	2007-01-14 11:19:40 UTC (rev 871)
@@ -102,7 +102,7 @@
     return $snapshot
 }
 
-set version "0.9.9-alpha[get_snapshot [file join $rootdir ChangeLog]]"
+set tkabber_version "0.9.9-alpha[get_snapshot [file join $rootdir ChangeLog]]"
 set toolkit_version "Tcl/Tk [info patchlevel]"
 if {$is_a_starkit} {
     append toolkit_version " (starkit)"



More information about the Tkabber-dev mailing list