[Tkabber-dev] r1069 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Mar 28 10:20:52 MSD 2007


Author: sergei
Date: 2007-03-28 10:20:52 +0400 (Wed, 28 Mar 2007)
New Revision: 1069

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/muc.tcl
Log:
	* muc.tcl: Fixed grid options in MUC lists editing windows. Also,
	  added the possibilty of changing reasons without changing
	  affiliation.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-03-27 18:47:50 UTC (rev 1068)
+++ trunk/tkabber/ChangeLog	2007-03-28 06:20:52 UTC (rev 1069)
@@ -1,3 +1,9 @@
+2007-03-28  Sergei Golovan  <sgolovan at nes.ru>
+
+	* muc.tcl: Fixed grid options in MUC lists editing windows. Also,
+	  added the possibilty of changing reasons without changing
+	  affiliation.
+
 2007-03-27  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/windows/mousewheel.tcl, ifacetk/idefault.tcl: Moved scroll

Modified: trunk/tkabber/muc.tcl
===================================================================
--- trunk/tkabber/muc.tcl	2007-03-27 18:47:50 UTC (rev 1068)
+++ trunk/tkabber/muc.tcl	2007-03-28 06:20:52 UTC (rev 1069)
@@ -583,7 +583,7 @@
 
     grid columnconfigure $f 0 -weight 1
     grid columnconfigure $f 1 -weight 1
-    grid columnconfigure $f 2 -weight 1
+    grid columnconfigure $f 2 -weight 0
     grid columnconfigure $f 3 -weight 2
 
     label $f.lnick -text [::msgcat::mc "Nick"]
@@ -643,7 +643,7 @@
 	if {[catch {$f.nick$row configure -state readonly}]} {
 	    $f.nick$row configure -state disabled
 	}
-	grid $f.nick$row -row $row -column 0 -sticky w -padx 1m
+	grid $f.nick$row -row $row -column 0 -sticky we -padx 1m
 	bindscroll $f.nick$row $sf
 
 	entry $f.jid$row -font $font \
@@ -654,7 +654,7 @@
 	if {[catch {$f.jid$row configure -state readonly}]} {
 	    $f.jid$row configure -state disabled
 	}
-	grid $f.jid$row -row $row -column 1 -sticky w -padx 1m
+	grid $f.jid$row -row $row -column 1 -sticky we -padx 1m
 	bindscroll $f.jid$row $sf
 
 	switch -- $attr {
@@ -754,7 +754,8 @@
 
     for {set i 1} {$i <= $origlistdata($f,rows)} {incr i} {
 	set vars {}
-	if {$listdata($f,$attr,$i) != $origlistdata($f,$attr,$i)} {
+	if {$listdata($f,$attr,$i) != $origlistdata($f,$attr,$i) || \
+		$listdata($f,reason,$i) != $origlistdata($f,reason,$i)} {
 	    lappend vars $attr $listdata($f,$attr,$i)
 	}
 



More information about the Tkabber-dev mailing list