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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Oct 7 11:17:47 MSD 2007


Author: sergei
Date: 2007-10-07 11:17:46 +0400 (Sun, 07 Oct 2007)
New Revision: 1253

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/floatinglog/floatinglog.tcl
Log:
	* floatinglog/floatinglog.tcl: Removed unused variables and useless message
	  options.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2007-10-07 06:12:49 UTC (rev 1252)
+++ trunk/tkabber-plugins/ChangeLog	2007-10-07 07:17:46 UTC (rev 1253)
@@ -1,7 +1,8 @@
 2007-10-07  Sergei Golovan <sgolovan at nes.ru>
 
 	* floatinglog/floatinglog.tcl: Fixed doubleclick bindings to JIDs
-	  which contain %.
+	  which contain %. Removed unused variables and useless message
+	  options.
 
 	* floatinglog/TODO: Removed tasks which are already done or will never
 	  be done.

Modified: trunk/tkabber-plugins/floatinglog/floatinglog.tcl
===================================================================
--- trunk/tkabber-plugins/floatinglog/floatinglog.tcl	2007-10-07 06:12:49 UTC (rev 1252)
+++ trunk/tkabber-plugins/floatinglog/floatinglog.tcl	2007-10-07 07:17:46 UTC (rev 1253)
@@ -7,7 +7,7 @@
     ::msgcat::mcload [file join [file dirname [info script]] msgs]
 
     variable id 0
-    variable winname ".floatinglog"
+    variable winname .floatinglog
     variable idlestring [::msgcat::mc "Idle for %s"]
     variable idlestring [string range $idlestring 0 [string length idlestring]]
 
@@ -85,15 +85,6 @@
     custom::defvar options(livetime) 5 \
 	[::msgcat::mc "Delay before message hide (in seconds)."] \
 	-type integer -group {Floating Log}
-
-    #
-    # Color set
-    #
-    set message_foreground_color LightYellow
-    set message_background_color Black
-
-
-    set message_aspect 5000
 }
 
 #
@@ -101,7 +92,7 @@
 #
 proc floatinglog::window_initialization {} {
     variable options
-    variable winname ".floatinglog"
+    variable winname
 
     toplevel $winname -bd 0 -class Balloon
     if {$::tcl_platform(platform) == "macintosh"} {
@@ -153,9 +144,6 @@
     variable id
     variable winname
     variable logfileId
-    variable message_background_color
-    variable message_foreground_color
-    variable message_aspect
 
     if {!($options(show_log))} {return}
 
@@ -184,9 +172,6 @@
     variable id
     variable winname
     variable logfileId
-    variable message_background_color
-    variable message_foreground_color
-    variable message_aspect
 
     if { $from != "" } {
 	if {[catch {::chat::get_nick $connid $from $type} nick]} {
@@ -207,7 +192,6 @@
 		-text $text \
 		-width [expr $options(width) - 10] \
 		-justify left \
-		-aspect $message_aspect \
 		-relief solid -bd 1 -padx 3 -pady 3
 	set first_message [lindex [pack slaves $winname] 0]
 	if {$first_message == ""}  {
@@ -232,9 +216,6 @@
     variable id
     variable winname
     variable logfileId
-    variable message_background_color
-    variable message_foreground_color
-    variable message_aspect
 
 
     if {$text != ""} {
@@ -246,7 +227,6 @@
 		-text $text \
 		-width [expr $options(width) - 10] \
 		-justify left \
-		-aspect $message_aspect \
 		-relief solid -bd 1 -padx 3 -pady 3
     }
     if {$from != ""} {
@@ -263,7 +243,6 @@
 		-text $nick \
 		-width [expr $options(width) - 10] \
 		-justify left \
-		-aspect $message_aspect \
 		-relief flat -bd 1 -padx 0 -pady 0
     }
     set first_message [lindex [pack slaves $winname] 0]



More information about the Tkabber-dev mailing list