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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Mar 9 16:23:04 MSK 2007


Author: sergei
Date: 2007-03-09 16:23:03 +0300 (Fri, 09 Mar 2007)
New Revision: 1035

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/ifacetk/iface.tcl
   trunk/tkabber/splash.tcl
   trunk/tkabber/tkabber.tcl
   trunk/tkabber/userinfo.tcl
Log:
	* ifacetk/iface.tcl, splash.tcl, tkabber.tcl: Withdraw main window at
	  the very beginning because otherwise it's visible (and pretty ugly)
	  during confid directory transfer.

	* userinfo.tcl: Fixed typo (destroying userinfo window didn't delete
	  correspondent variabla trace).


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-03-08 21:40:17 UTC (rev 1034)
+++ trunk/tkabber/ChangeLog	2007-03-09 13:23:03 UTC (rev 1035)
@@ -1,3 +1,12 @@
+2007-03-09  Sergei Golovan  <sgolovan at nes.ru>
+
+	* ifacetk/iface.tcl, splash.tcl, tkabber.tcl: Withdraw main window at
+	  the very beginning because otherwise it's visible (and pretty ugly)
+	  during confid directory transfer.
+
+	* userinfo.tcl: Fixed typo (destroying userinfo window didn't delete
+	  correspondent variabla trace).
+
 2007-03-08  Sergei Golovan  <sgolovan at nes.ru>
 
 	* presence.tcl, ifacetk/iroster.tcl: Show presence priority in roster
@@ -68,7 +77,7 @@
 	  privacy lists (closes
 	  http://yo.jabber.ru/bugzilla/show_bug.cgi?id=333).
 
-	* privacy.tcl: Set priority of initial privacy list acivation on
+	* privacy.tcl: Set priority of initial privacy list activation on
 	  connect to the higher value to ensure it starts first.
 
 	* pixmaps/default/icondef.xml: Added weather icons in addition to

Modified: trunk/tkabber/ifacetk/iface.tcl
===================================================================
--- trunk/tkabber/ifacetk/iface.tcl	2007-03-08 21:40:17 UTC (rev 1034)
+++ trunk/tkabber/ifacetk/iface.tcl	2007-03-09 13:23:03 UTC (rev 1035)
@@ -1481,10 +1481,11 @@
 	    wm state . zoomed
 	}
     }
+    update
     wm deiconify .
 }
 
-hook::add finload_hook [namespace current]::ifacetk::deiconify 99
+hook::add finload_hook [namespace current]::ifacetk::deiconify 100
 
 proc client:errormsg {message} {
     if {[winfo exists .client_error]} {

Modified: trunk/tkabber/splash.tcl
===================================================================
--- trunk/tkabber/splash.tcl	2007-03-08 21:40:17 UTC (rev 1034)
+++ trunk/tkabber/splash.tcl	2007-03-09 13:23:03 UTC (rev 1035)
@@ -82,8 +82,6 @@
         wmdock              [::msgcat::mc "wmaker"]                \
     ]
 
-    wm withdraw .
-
     set w [toplevel .splash -relief $::tk_relief -borderwidth $::tk_borderwidth]
 
     wm withdraw $w
@@ -230,7 +228,7 @@
     rename splash_source source
 }
 
-hook::add finload_hook splash_done
+hook::add finload_hook splash_done 99
 
 splash_start
 

Modified: trunk/tkabber/tkabber.tcl
===================================================================
--- trunk/tkabber/tkabber.tcl	2007-03-08 21:40:17 UTC (rev 1034)
+++ trunk/tkabber/tkabber.tcl	2007-03-09 13:23:03 UTC (rev 1035)
@@ -7,6 +7,8 @@
 set interface tk
 namespace eval ifacetk {}
 
+wm withdraw .
+
 set aquaP 0
 catch {
     switch -- [tk windowingsystem] {

Modified: trunk/tkabber/userinfo.tcl
===================================================================
--- trunk/tkabber/userinfo.tcl	2007-03-08 21:40:17 UTC (rev 1034)
+++ trunk/tkabber/userinfo.tcl	2007-03-09 13:23:03 UTC (rev 1035)
@@ -336,7 +336,7 @@
 	[list userinfo::fill_user_description $a.text \
 	      userinfo(desc,$jid) $editable]
     bind $a.text <Destroy> \
-	+[list trace variable [namespace current]::userinfo(desc,$jid) w \
+	+[list trace vdelete [namespace current]::userinfo(desc,$jid) w \
 	       [list userinfo::fill_user_description $a.text \
 		     userinfo(desc,$jid) $editable]]
     set userinfo(descfield,$jid) $a.text



More information about the Tkabber-dev mailing list