[Tkabber-dev] r1250 - in trunk/tkabber-plugins: . floatinglog

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Oct 7 00:13:41 MSD 2007


Author: sergei
Date: 2007-10-07 00:13:40 +0400 (Sun, 07 Oct 2007)
New Revision: 1250

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/floatinglog/floatinglog.tcl
Log:
	* floatinglog/floatinglog.tcl: Removed explicit usage of background
	  and foreground resources.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2007-10-06 18:18:43 UTC (rev 1249)
+++ trunk/tkabber-plugins/ChangeLog	2007-10-06 20:13:40 UTC (rev 1250)
@@ -18,6 +18,9 @@
 	* floatinglog/msgs/de.msg, openurl/msgs/de.msg: Added German
 	  translation (thanks to Roger Sondermann).
 
+	* floatinglog/floatinglog.tcl: Removed explicit usage of background
+	  and foreground resources.
+
 2007-10-05  Sergei Golovan <sgolovan at nes.ru>
 
 	* README: Added missing descriptions.

Modified: trunk/tkabber-plugins/floatinglog/floatinglog.tcl
===================================================================
--- trunk/tkabber-plugins/floatinglog/floatinglog.tcl	2007-10-06 18:18:43 UTC (rev 1249)
+++ trunk/tkabber-plugins/floatinglog/floatinglog.tcl	2007-10-06 20:13:40 UTC (rev 1250)
@@ -103,7 +103,7 @@
     variable options
     variable winname ".floatinglog"
 
-    toplevel $winname -relief flat -bd 1 -class Balloon
+    toplevel $winname -bd 0 -class Balloon
     if {$::tcl_platform(platform) == "macintosh"} {
 	catch {unsupported1 style $winname floating sideTitlebar}
     } elseif {$::aquaP} {
@@ -208,15 +208,13 @@
 		-width [expr $options(width) - 10] \
 		-justify left \
 		-aspect $message_aspect \
-		-bg [option get $winname background Balloon] \
-		-fg [option get $winname foreground Balloon] \
 		-relief solid -bd 1 -padx 3 -pady 3
 	set first_message [lindex [pack slaves $winname] 0]
 	if {$first_message == ""}  {
-	    pack $message_name -side bottom -fill x -padx 2 -pady 1
+	    pack $message_name -side bottom -fill x -padx 2 -pady 2
 	} else {
 	    pack $message_name -before $first_message \
-			       -side bottom -fill x -padx 2 -pady 1
+			       -side bottom -fill x -padx 2 -pady 2
 	}
 
 	if {($connid != "") && ($from != "") && ($type != "")} {
@@ -249,8 +247,6 @@
 		-width [expr $options(width) - 10] \
 		-justify left \
 		-aspect $message_aspect \
-		-bg [option get $winname background Balloon] \
-		-fg [option get $winname foreground Balloon] \
 		-relief solid -bd 1 -padx 3 -pady 3
     }
     if {$from != ""} {
@@ -268,14 +264,12 @@
 		-width [expr $options(width) - 10] \
 		-justify left \
 		-aspect $message_aspect \
-		-bg [option get $winname background Balloon] \
-		-fg [option get $winname foreground Balloon] \
 		-relief flat -bd 1 -padx 0 -pady 0
     }
     set first_message [lindex [pack slaves $winname] 0]
     if {$first_message == ""}  {
 	if {$text != ""} {
-	    pack $message_name -side bottom -fill x -padx 2 -pady 1
+	    pack $message_name -side bottom -fill x -padx 2 -pady 2
 	}
 	if {$from != ""} {
 	    pack $message_name_head -side bottom -fill x -padx 2 -pady 0
@@ -283,7 +277,7 @@
     } else {
 	if {$text != ""} {
 	    pack $message_name -before $first_message \
-			       -side bottom -fill x -padx 2 -pady 1
+			       -side bottom -fill x -padx 2 -pady 2
 	}
 	if {$from != ""} {
 	    pack $message_name_head -before $first_message \



More information about the Tkabber-dev mailing list