[Tkabber-dev] r991 - in trunk/tkabber: . plugins/general plugins/search

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Mar 3 20:02:08 MSK 2007


Author: sergei
Date: 2007-03-03 20:02:05 +0300 (Sat, 03 Mar 2007)
New Revision: 991

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/general/headlines.tcl
   trunk/tkabber/plugins/search/search.tcl
Log:
	* plugins/general/headlines.tcl: Bugfix. Removed trailing linefeed
	  from subject to prevent its scrolling.

	* plugins/search/search.tcl: Bugfix. Fixed search panel entry
	  background coloring after successful search.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-03-02 15:11:47 UTC (rev 990)
+++ trunk/tkabber/ChangeLog	2007-03-03 17:02:05 UTC (rev 991)
@@ -1,3 +1,11 @@
+2007-03-03  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins/general/headlines.tcl: Bugfix. Removed trailing linefeed
+	  from subject to prevent its scrolling.
+
+	* plugins/search/search.tcl: Bugfix. Fixed search panel entry
+	  background coloring after successful search.
+
 2007-03-02  Sergei Golovan  <sgolovan at nes.ru>
 
 	* ifacetk/iface.tcl, privacy.tcl: Redone accepting messages from

Modified: trunk/tkabber/plugins/general/headlines.tcl
===================================================================
--- trunk/tkabber/plugins/general/headlines.tcl	2007-03-02 15:11:47 UTC (rev 990)
+++ trunk/tkabber/plugins/general/headlines.tcl	2007-03-03 17:02:05 UTC (rev 991)
@@ -367,6 +367,7 @@
     $wsubj configure -state normal
     $wsubj delete 0.0 end
     $wsubj insert 0.0 $subj
+    $wsubj delete {end - 1 char}
 
     $wsubj mark set sel_start end
     $wsubj mark set sel_end 0.0

Modified: trunk/tkabber/plugins/search/search.tcl
===================================================================
--- trunk/tkabber/plugins/search/search.tcl	2007-03-02 15:11:47 UTC (rev 990)
+++ trunk/tkabber/plugins/search/search.tcl	2007-03-03 17:02:05 UTC (rev 991)
@@ -47,23 +47,24 @@
 }
 
 proc search::panel_colorize_entry {e color_resource} {
-	if {$color_resource == "default"} {
-		set color [default_resource_value $e -background]
-	} else {
-		set color [option get $e $color_resource {}]
-		if {$color == {}} {
-			set color [default_resource_value $e -background]
-		}
+    variable default_bg
+
+    if {![info exists default_bg]} {
+	set default_bg [lindex [$e configure -background] 4]
+    }
+
+    if {$color_resource == "default"} {
+	set bg $default_bg
+    } else {
+	set bg [option get $e $color_resource {}]
+	if {$bg == {}} {
+	    set bg $default_bg
 	}
+    }
 
-	$e configure -background $color
+    $e configure -background $bg
 }
 
-# TODO good candidate to go outside:
-proc search::default_resource_value {w resource} {
-	return [lindex [$w configure $resource] 3]
-}
-
 ##########################################################################
 # Search in text widget
 



More information about the Tkabber-dev mailing list