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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Sep 6 00:19:05 MSD 2006


Author: sergei
Date: 2006-09-06 00:19:00 +0400 (Wed, 06 Sep 2006)
New Revision: 706

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/ifacetk/iface.tcl
   trunk/tkabber/ifacetk/iroster.tcl
Log:
	* ifacetk/iface.tcl: Added conventional quit on closing
	  X session or Windows shutdown (thanks to Konstantin Khomoutov).

	* ifacetk/iroster.tcl: Quick bugfix. Roster redraw failed when
	  active chats group was enabled.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2006-09-03 19:44:18 UTC (rev 705)
+++ trunk/tkabber/ChangeLog	2006-09-05 20:19:00 UTC (rev 706)
@@ -1,3 +1,11 @@
+2006-09-05  Sergei Golovan  <sgolovan at nes.ru>
+
+	* ifacetk/iface.tcl: Added conventional quit on closing
+	  X session or Windows shutdown (thanks to Konstantin Khomoutov).
+
+	* ifacetk/iroster.tcl: Quick bugfix. Roster redraw failed when
+	  active chats group was enabled.
+
 2006-09-03  Serhei Golovan  <sgolovan at nes.ru>
 
 	* jabberlib-tclxml/jabberlib.tcl: Fixed processing presence of

Modified: trunk/tkabber/ifacetk/iface.tcl
===================================================================
--- trunk/tkabber/ifacetk/iface.tcl	2006-09-03 19:44:18 UTC (rev 705)
+++ trunk/tkabber/ifacetk/iface.tcl	2006-09-05 20:19:00 UTC (rev 706)
@@ -118,6 +118,8 @@
 
 option add *errorForeground red widgetDefault
 
+wm protocol . WM_SAVE_YOURSELF quit
+
 wm protocol . WM_DELETE_WINDOW \
    [list [namespace current]::ifacetk::wm_delete_window]
 

Modified: trunk/tkabber/ifacetk/iroster.tcl
===================================================================
--- trunk/tkabber/ifacetk/iroster.tcl	2006-09-03 19:44:18 UTC (rev 705)
+++ trunk/tkabber/ifacetk/iroster.tcl	2006-09-05 20:19:00 UTC (rev 706)
@@ -512,7 +512,11 @@
 			} else {
 			    if {$numjids <= 1 && $category == "user" && \
 				    !$show_transport_user_icons} {
-				set status $jstat($jid)
+				if {[info exists jstat($jid)]} {
+				    set status $jstat($jid)
+				} else {
+				    set status [get_user_aliases_status $connid $jid]
+				}
 				set subsc [::roster::itemconfig $connid $jid -subsc]
 				if {([cequal $subsc from] || [cequal $subsc none]) && \
 					$status == "unavailable"} {



More information about the Tkabber-dev mailing list