Home / Browse / aMSN / Mail / Archive

aMSN

Email Archive: amsn-commits (read-only)

2004:	_Jan	_Feb	_Mar	_Apr	_May	_Jun	_Jul (154)	_Aug (206)	_Sep (46)	_Oct (240)	_Nov (194)	_Dec (399)
2005:	_Jan (398)	_Feb (213)	_Mar (150)	_Apr (316)	_May (264)	_Jun (278)	_Jul (102)	_Aug (157)	_Sep (91)	_Oct (109)	_Nov (149)	_Dec (262)
2006:	_Jan (351)	_Feb (173)	_Mar (154)	_Apr (290)	_May (256)	_Jun (208)	_Jul (99)	_Aug (102)	_Sep (114)	_Oct (133)	_Nov (101)	_Dec (164)
2007:	_Jan (159)	_Feb (265)	_Mar (212)	_Apr (182)	_May (261)	_Jun (99)	_Jul (49)	_Aug (41)	_Sep (78)	_Oct (23)	_Nov (22)	_Dec (107)
2008:	_Jan (327)	_Feb (77)	_Mar (69)	_Apr (97)	_May (290)	_Jun (149)	_Jul (58)	_Aug (69)	_Sep (115)	_Oct (156)	_Nov (127)	_Dec (36)
2009:	_Jan (111)	_Feb (139)	_Mar (46)	_Apr (50)	_May (82)	_Jun (83)	_Jul (156)	_Aug (161)	_Sep (57)	_Oct (107)	_Nov (83)	_Dec (55)
2010:	_Jan (50)	_Feb (51)	_Mar (73)	_Apr (13)	_May (28)	_Jun (24)	_Jul (74)	_Aug (97)	_Sep (29)	_Oct (18)	_Nov (46)	_Dec (44)
2011:	_Jan (10)	_Feb (17)	_Mar (7)	_Apr (8)	_May (10)	_Jun (1)	_Jul (15)	_Aug (8)	_Sep (4)	_Oct (1)	_Nov (1)	_Dec (8)
2012:	_Jan (4)	_Feb (2)	_Mar (4)	_Apr	_May (42)	_Jun (4)	_Jul	_Aug (4)	_Sep (4)	_Oct (2)	_Nov	_Dec (1)
2013:	_Jan (1)	_Feb	_Mar	_Apr	_May	_Jun	_Jul	_Aug	_Sep	_Oct	_Nov	_Dec

[Amsn-commits] SF.net SVN: amsn: [8244] trunk/amsn/plugins/remind/remind.tcl

From: <billiob@us...> - 2007-03-18 11:14

Revision: 8244
          http://svn.sourceforge.net/amsn/?rev=8244&view=rev
Author:   billiob
Date:     2007-03-17 15:23:16 -0700 (Sat, 17 Mar 2007)

Log Message:
-----------
change the way we parse the log, should be better with OIM now

Modified Paths:
--------------
    trunk/amsn/plugins/remind/remind.tcl

Modified: trunk/amsn/plugins/remind/remind.tcl
===================================================================
--- trunk/amsn/plugins/remind/remind.tcl	2007-03-17 16:25:25 UTC (rev 8243)
+++ trunk/amsn/plugins/remind/remind.tcl	2007-03-17 22:23:16 UTC (rev 8244)
@@ -126,103 +126,63 @@
 
 	# Allow something to be written into the chat window
 	if { $version == "0.94" } {
-		${win_name}.f.out.text configure -state normal -font bplainf -foreground black
+		set textw ${win_name}.f.out.text 
+		$textw configure -state normal -font bplainf -foreground black
 	} else {
-		[::ChatWindow::GetOutText ${win_name}] configure -state normal -font bplainf -foreground black
+		set textw [::ChatWindow::GetOutText ${win_name}]
+		$textw configure -state normal -font bplainf -foreground black
 	}
 
-	::remind::WinWrite "$chatid" "$::remind::language(lastsentence) :" blue
+	# Set up formatting tags
+	$textw tag configure red -foreground red
+	$textw tag configure RED -foreground red
+	$textw tag configure gray -foreground gray
+	$textw tag configure GRA -foreground gray
+	$textw tag configure normal -foreground black
+	$textw tag configure NOR -foreground black
+	$textw tag configure italic -foreground blue
+	$textw tag configure ITA -foreground blue
+	$textw tag configure GRE -foreground darkgreen
 
-	foreach line $loglines {
+	::remind::WinWrite "$chatid" "$::remind::language(lastsentence) :\n" blue
 
-		# If the line doesn't begin with |"L
-		if { [string range $line 0 2] != "\|\"L" & $line != ""} {
-			::remind::WinWrite $chatid "\n$line" $tagname $fontformat
-		} else {
-
-			set color [string range $line 3 5]
-
-			switch $color {
-
-				GRA { # If the line is a message...
-
-					set aidx [string first "\|\"L" $line 16]
-
-					set color2 [string range $line [expr {$aidx + 3}] [expr {$aidx + 5}]]
-
-					switch $color2 {
-
-					    ITA {
-
-						# Check if the time must be displayed or not
-						if { [::config::getKey showtimestamps] } {
-							set tstamp [string range $line 6 15]
-						} else {
-							set tstamp ""
-						}
-
-						set aidx [string first "\|\"L" $line 19]
-						set nick [string range $line 23 [expr {$aidx - 2}]]
-
-						# Look at the style used in chatwindows
-						switch [::config::getKey chatstyle] {
-						    msn {::config::setKey customchatstyle "\$tstamp [trans says \$nick]:\n"}
-						    irc {::config::setKey customchatstyle "\$tstamp <\$nick> "}
-						    - { }
-						}
-
-						set customchat [string map {"\\" "\\\\" "\$" "\\\$" "\(" "\\\(" } [::config::getKey customchatstyle]]
-						set customchat [string map { "\\\$nick" "\${nick}" "\\\$tstamp" "\${tstamp}" } $customchat]
-						set customchat [string map {"\\\$newline" "\n" } $customchat]
-						set customchat [subst -nocommands $customchat]
-
-						# Look if there is a color information in the message
-						if {[string index $line [expr {$aidx + 3}]] == "C"} {
-							set color [string range $line [expr {$aidx + 4}] [expr {$aidx + 9}]]
-							set fontformat [list "$font" "" "$color"]
-							set tagname "user"
-							set string [string range $line [expr {$aidx + 11}] end]
-						} else {
-							set fontformat [list "$font" "" ""]
-							set tagname black
-							set string [string range $line [expr {$aidx + 8}] end]
-						}
-
-						::remind::WinWrite $chatid "\n$customchat" gray
-						::remind::WinWrite $chatid "$string" $tagname $fontformat
-				
-					    }
-
-					    GRE { #... or a filetransfert
-
-						if { $::remind::config(filetransfert) == 1 } {
-							set string "\n[string range $line [expr {$aidx + 6}] end]"
-							set tagname green
-							::remind::WinWrite $chatid "$string" green
-						}
-
-					    }
-
-					    - { }
-
+	set nbline 0
+	foreach line $loglines {
+			incr nbline
+			set aidx 0
+			while {$aidx != -1} {
+				# Checks if the line begins by |"L (it happens when we go to the line in the chat window).
+				# If not, use the tags of the previous line
+				if { $aidx == 0 & [string range $line 0 2] != "\|\"L" } {
+					set bidx -1
+				} else {
+					# If the portion of the line begins by |"LC, there is a color information.
+					# The color is indicated by the 6 fingers after it
+					if {[string index $line [expr {$aidx + 3}]] == "C"} {
+						set color [string range $line [expr {$aidx + 4}] [expr {$aidx + 9}]]
+						$textw tag configure C_$nbline -foreground "#$color"
+						set color "C_$nbline"
+						incr aidx 10
+						# Else, it is the system with LNOR, LGRA...
+					} else {
+						set color [string range $line [expr {$aidx + 3}] [expr {$aidx + 5}]]
+						incr aidx 6
 					}
-
+					set bidx [string first "\|\"L" $line $aidx]
 				}
-
-				RED { #If the line is an information (e.g. conversation closed)
-
-					if { $::remind::config(beginend) == 1 } {
-						set string "\n[string range $line 6 end]"
-						set tagname red
-						::remind::WinWrite $chatid "$string" red
-					}
+				if { [string first "\|\"L" $line] == -1 } {
+					set string [string range $line 0 end]
+				} elseif { $bidx != -1 } {
+					set string [string range $line $aidx [expr {$bidx - 1}]]
+				} else {
+					set string [string range $line $aidx end]
 				}
-
-				- { }
+				::remind::WinWrite $chatid "$string" $color
+				set aidx $bidx
 			}
-
-		}
-
+			if {$string != ""} {
+				::remind::WinWrite $chatid "$string\n" $color
+			}
 	}
 
 	::remind::WinWrite $chatid "\n" black


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Amsn-commits] SF.net SVN: amsn: [8252] trunk/amsn/plugins/remind/remind.tcl

From: <billiob@us...> - 2007-03-18 22:13

Revision: 8252
          http://svn.sourceforge.net/amsn/?rev=8252&view=rev
Author:   billiob
Date:     2007-03-18 14:41:53 -0700 (Sun, 18 Mar 2007)

Log Message:
-----------
should fix my previous commit

Modified Paths:
--------------
    trunk/amsn/plugins/remind/remind.tcl

Modified: trunk/amsn/plugins/remind/remind.tcl
===================================================================
--- trunk/amsn/plugins/remind/remind.tcl	2007-03-18 21:37:46 UTC (rev 8251)
+++ trunk/amsn/plugins/remind/remind.tcl	2007-03-18 21:41:53 UTC (rev 8252)
@@ -181,11 +181,10 @@
 				set aidx $bidx
 			}
 			if {$string != ""} {
-				::remind::WinWrite $chatid "$string\n" $color
+				::remind::WinWrite $chatid "\n" black
 			}
 	}
 
-	::remind::WinWrite $chatid "\n" black
 	::amsn::WinWriteIcon $chatid greyline 3	
 
 	if { $version == "0.94" } {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Amsn-commits] SF.net SVN: amsn: [8254] trunk/amsn/plugins/remind/remind.tcl

From: <billiob@us...> - 2007-03-18 23:29

Revision: 8254
          http://svn.sourceforge.net/amsn/?rev=8254&view=rev
Author:   billiob
Date:     2007-03-18 16:16:31 -0700 (Sun, 18 Mar 2007)

Log Message:
-----------
badcode.fix++

Modified Paths:
--------------
    trunk/amsn/plugins/remind/remind.tcl

Modified: trunk/amsn/plugins/remind/remind.tcl
===================================================================
--- trunk/amsn/plugins/remind/remind.tcl	2007-03-18 22:32:03 UTC (rev 8253)
+++ trunk/amsn/plugins/remind/remind.tcl	2007-03-18 23:16:31 UTC (rev 8254)
@@ -148,41 +148,43 @@
 
 	set nbline 0
 	foreach line $loglines {
-			incr nbline
-			set aidx 0
-			while {$aidx != -1} {
-				# Checks if the line begins by |"L (it happens when we go to the line in the chat window).
-				# If not, use the tags of the previous line
-				if { $aidx == 0 & [string range $line 0 2] != "\|\"L" } {
-					set bidx -1
+		incr nbline
+		set aidx 0
+		while {$aidx != -1} {
+			# Checks if the line begins by |"L (it happens when we go to the line in the chat window).
+			# If not, use the tags of the previous line
+			if { $aidx == 0 & [string range $line 0 2] != "\|\"L" } {
+				set bidx -1
+			} else {
+				# If the portion of the line begins by |"LC, there is a color information.
+				# The color is indicated by the 6 fingers after it
+				if {[string index $line [expr {$aidx + 3}]] == "C"} {
+					set color [string range $line [expr {$aidx + 4}] [expr {$aidx + 9}]]
+					$textw tag configure C_$nbline -foreground "#$color"
+					set color "C_$nbline"
+					incr aidx 10
+					# Else, it is the system with LNOR, LGRA...
 				} else {
-					# If the portion of the line begins by |"LC, there is a color information.
-					# The color is indicated by the 6 fingers after it
-					if {[string index $line [expr {$aidx + 3}]] == "C"} {
-						set color [string range $line [expr {$aidx + 4}] [expr {$aidx + 9}]]
-						$textw tag configure C_$nbline -foreground "#$color"
-						set color "C_$nbline"
-						incr aidx 10
-						# Else, it is the system with LNOR, LGRA...
-					} else {
-						set color [string range $line [expr {$aidx + 3}] [expr {$aidx + 5}]]
-						incr aidx 6
-					}
-					set bidx [string first "\|\"L" $line $aidx]
+					set color [string range $line [expr {$aidx + 3}] [expr {$aidx + 5}]]
+					incr aidx 6
 				}
-				if { [string first "\|\"L" $line] == -1 } {
-					set string [string range $line 0 end]
-				} elseif { $bidx != -1 } {
-					set string [string range $line $aidx [expr {$bidx - 1}]]
-				} else {
-					set string [string range $line $aidx end]
-				}
-				::remind::WinWrite $chatid "$string" $color
-				set aidx $bidx
+				set bidx [string first "\|\"L" $line $aidx]
 			}
+			if { [string first "\|\"L" $line] == -1 } {
+				set string [string range $line 0 end]
+			} elseif { $bidx != -1 } {
+				set string [string range $line $aidx [expr {$bidx - 1}]]
+			} else {
+				set string [string range $line $aidx end]
+			}
 			if {$string != ""} {
-				::remind::WinWrite $chatid "\n" black
+				::remind::WinWrite $chatid "$string" $color
 			}
+			set aidx $bidx
+		}
+		if {$string != ""} {
+			::remind::WinWrite $chatid "\n" black
+		}
 	}
 
 	::amsn::WinWriteIcon $chatid greyline 3	


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Amsn-commits] SF.net SVN: amsn: [9044] trunk/amsn/plugins/remind/remind.tcl

From: <airadier@us...> - 2007-09-16 21:56

Revision: 9044
          http://amsn.svn.sourceforge.net/amsn/?rev=9044&view=rev
Author:   airadier
Date:     2007-09-16 14:50:47 -0700 (Sun, 16 Sep 2007)

Log Message:
-----------
Fixed 100% CPU when log files were too big.

Modified Paths:
--------------
    trunk/amsn/plugins/remind/remind.tcl

Modified: trunk/amsn/plugins/remind/remind.tcl
===================================================================
--- trunk/amsn/plugins/remind/remind.tcl	2007-09-16 19:32:09 UTC (rev 9043)
+++ trunk/amsn/plugins/remind/remind.tcl	2007-09-16 21:50:47 UTC (rev 9044)
@@ -236,19 +236,27 @@
 	}
 
 	fconfigure $id -encoding utf-8
-	set logvar [read $id]
+	
+	if { $size > 16384 } {
+		#Avoid loading the full log if it's too big
+		seek $id [expr {$size - 16384}]
+		set logvar [read $id 16384]
+	} else {
+		set logvar [read $id $size]
+	}
+
 	close $id
 
 	# Select the $nbline last lines
 	set loglines [split $logvar "\n"]
-status_log "LOG_LINES 1 = $loglines" green
+	#status_log "LOG_LINES 1 = $loglines" green
 	set nbline [expr {int($::remind::config(nbline))}]
 	set begin [expr {[llength $loglines] - $nbline}]
 	while {[string range [lindex $loglines $begin] 0 2] != "\|\"L" && $begin >= 0 } {
 		incr begin -1;
 	}
 	set loglines [lrange $loglines $begin end]
-status_log "LOG_LINES 2 = $loglines" green
+	#status_log "LOG_LINES 2 = $loglines" green
 	return $loglines
 
 }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Amsn-commits] SF.net SVN: amsn: [9333] trunk/amsn/plugins/remind/remind.tcl

From: <scapor@us...> - 2008-01-09 21:57

Revision: 9333
          http://amsn.svn.sourceforge.net/amsn/?rev=9333&view=rev
Author:   scapor
Date:     2008-01-09 13:57:25 -0800 (Wed, 09 Jan 2008)

Log Message:
-----------
I'm glad to introduce to you all: the lightning fast remind plugin :p. Instead of substituting smileys all over again now it only does it once.

Modified Paths:
--------------
    trunk/amsn/plugins/remind/remind.tcl

Modified: trunk/amsn/plugins/remind/remind.tcl
===================================================================
--- trunk/amsn/plugins/remind/remind.tcl	2008-01-09 21:49:08 UTC (rev 9332)
+++ trunk/amsn/plugins/remind/remind.tcl	2008-01-09 21:57:25 UTC (rev 9333)
@@ -131,7 +131,6 @@
 		set textw [::ChatWindow::GetOutText ${win_name}]
 		$textw configure -state normal -font bplainf -foreground black
 	}
-
 	# Set up formatting tags
 	$textw tag configure red -foreground red
 	$textw tag configure RED -foreground red
@@ -199,6 +198,9 @@
 		}
 	}
 
+	after 0 custom_smile_subst $chatid [::ChatWindow::GetOutText ${win_name}] 0.0 end
+	after 0 ::smiley::substSmileys [::ChatWindow::GetOutText ${win_name}] 0.0 end 0 0
+
 	::amsn::WinWriteIcon $chatid greyline 3	
 
 	if { $version == "0.94" } {
@@ -345,16 +347,6 @@
 		[::ChatWindow::GetOutText ${win_name}] roinsert end "$txt" $tagid
 	}
 
-	if {[::config::getKey chatsmileys]} {
-		if { $version == "0.94" } {
-			custom_smile_subst $chatid ${win_name}.f.out.text $text_start end
-			::smiley::substSmileys ${win_name}.f.out.text $text_start end 0
-		} else {
-			custom_smile_subst $chatid [::ChatWindow::GetOutText ${win_name}] $text_start end
-			::smiley::substSmileys [::ChatWindow::GetOutText ${win_name}] $text_start end 0 0
-		}
-	}
-
 }
 
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Amsn-commits] SF.net SVN: amsn: [9336] trunk/amsn/plugins/remind/remind.tcl

From: <scapor@us...> - 2008-01-10 12:55

Revision: 9336
          http://amsn.svn.sourceforge.net/amsn/?rev=9336&view=rev
Author:   scapor
Date:     2008-01-10 04:55:08 -0800 (Thu, 10 Jan 2008)

Log Message:
-----------
cleaning up

Modified Paths:
--------------
    trunk/amsn/plugins/remind/remind.tcl

Modified: trunk/amsn/plugins/remind/remind.tcl
===================================================================
--- trunk/amsn/plugins/remind/remind.tcl	2008-01-09 23:13:40 UTC (rev 9335)
+++ trunk/amsn/plugins/remind/remind.tcl	2008-01-10 12:55:08 UTC (rev 9336)
@@ -2,15 +2,12 @@
 #                  REMIND PLUGIN                      #
 #######################################################
 # Maintainer: Frederic Diaz (gadget_boy@...) #
+#  updated and speeded up by Karel "scapor" Demeyer   #
 #######################################################
 
 
 namespace eval ::remind {
-	variable config
-	variable configlist
-	variable language
 
-
 ##############################
 # ::remind::InitPlugin dir   #
 # ---------------------------#
@@ -18,45 +15,29 @@
 ##############################
 
 proc InitPlugin { dir } {
-
-	global version
-
 	::plugins::RegisterPlugin remind
-	source [file join $dir remind.tcl]
 	::plugins::RegisterEvent remind new_conversation Remind
 
-	array set ::remind::config [list beginend {1} daysnumber {7} filetransfert {1} nbline {10} checknote {1} when {1}]
 
-	# Loads langs if aMSN version is upper than 0.95
-	if { $version == "0.94"  | ![file isdirectory "$dir/lang"] } {
 
-		array set ::remind::language [list always {Always} beginendconversation {Display begin and end of conversation} checknote {Display if there are notes} daysnumber {Number of days} filetransfert {Display file transfers} lastsentence {Last sentences in the previous conversations} nbdisplay {Number of line displayed} noteswritten {You have written notes about this contact} talklast {If we have talk in the last x days} talkwinthin {If we have not talk within x days}]
+	# Loads langsset langdir [file join $dir "lang"]
 
-		set ::remind::configlist [list \
-			[list str "$::remind::language(nbdisplay)" nbline] \
-			[list bool "$::remind::language(beginendconversation)" beginend] \
-			[list bool "$::remind::language(filetransfert)" filetransfert] \
-		]
+	set lang [::config::getGlobalKey language]
+	set langdir [file join $dir "lang"]
+	load_lang en $langdir
+	load_lang $lang $langdir
 
-	} else {
+	array set ::remind::config [list beginend {1} daysnumber {7} filetransfert {1} nbline {10} checknote {1} when {1}]
+	set ::remind::configlist [list \
+		[list str "[trans nbdisplay]" nbline] \
+		[list rbt "[trans always]" "[trans talklast]" "[trans talkwithin]" when] \
+		[list str "[trans daysnumber]" daysnumber] \
+		[list bool "[trans beginendconversation]" beginend] \
+		[list bool "[trans filetransfert]" filetransfert] \
+		[list bool "[trans checknote]" checknote] \
+	]
+	
 
-		set langdir [file join $dir "lang"]
-		set lang [::config::getGlobalKey language]
-		load_lang en $langdir
-		load_lang $lang $langdir
-		array set ::remind::language [list always "[trans always]" beginendconversation "[trans beginendconversation]" checknote "[trans checknote]" daysnumber "[trans daysnumber]" filetransfert "[trans filetransfert]" lastsentence "[trans lastsentence]" nbdisplay "[trans nbdisplay]" noteswritten "[trans noteswritten]" talklast "[trans talklast]" talkwithin "[trans talkwithin]"]
-
-		set ::remind::configlist [list \
-			[list str "$::remind::language(nbdisplay)" nbline] \
-			[list rbt "$::remind::language(always)" "$::remind::language(talklast)" "$::remind::language(talkwithin)" when] \
-			[list str "$::remind::language(daysnumber)" daysnumber] \
-			[list bool "$::remind::language(beginendconversation)" beginend] \
-			[list bool "$::remind::language(filetransfert)" filetransfert] \
-			[list bool "$::remind::language(checknote)" checknote] \
-		]
- 	
-	}
-
 }
 
 
@@ -67,40 +48,27 @@
 ################################################################
 
 proc Remind { event evpar } {
-
-	global version
-
 	upvar 2 $evpar parameters
+
 	set chatid $parameters(chatid)
 	set email $parameters(usr_name)
-		
-	if { $version == "0.94" } {
-	
-		::remind::ShowLastSentences $chatid $email
-		
-	} else {
-	
-		
-		set lastmessage [string range [::abook::getContactData $email last_msgedme] 0 7]
-		set date [clock format [clock seconds] -format "%D"]
-		
-		set lastmessage [clock scan $lastmessage]
-		set date [clock scan $date]
-		set timeline [expr { $::remind::config(daysnumber) * 86400 }]
 
-		if { $::remind::config(when) == 1
-			|| ( $::remind::config(when) == 2 && [expr { $date - $lastmessage }] <= $timeline )
-			|| ( $::remind::config(when) == 3 && [expr { $date - $lastmessage }] >= $timeline )
-		} {
-			::remind::ShowLastSentences $chatid $email
-		}
+	set lastmessage [clock scan [string range [::abook::getContactData $email last_msgedme] 0 7] ]
 
-		if { $::remind::config(checknote) == 1 } {
-			::remind::CheckNote $chatid $email
-		}
+	set date [clock scan [clock format [clock seconds] -format "%D"]]
 
+	set timeline [expr { $::remind::config(daysnumber) * 86400 }]
+
+	if { $::remind::config(when) == 1
+		|| ( $::remind::config(when) == 2 && [expr { $date - $lastmessage }] <= $timeline )
+		|| ( $::remind::config(when) == 3 && [expr { $date - $lastmessage }] >= $timeline )
+	} {
+		::remind::ShowLastSentences $chatid $email
 	}
-	
+
+	if { $::remind::config(checknote) == 1 } {
+		::remind::CheckNote $chatid $email
+	}	
 }
 	
 
@@ -112,8 +80,6 @@
 
 proc ShowLastSentences { chatid email } {
 
-	global version
-
 	# Get the last sentences of the contact
 	set loglines [::remind::GetLastSentences $email]
 	set tagname "black"
@@ -124,13 +90,9 @@
 	set win_name [::ChatWindow::For $chatid]
 
 	# Allow something to be written into the chat window
-	if { $version == "0.94" } {
-		set textw ${win_name}.f.out.text 
-		$textw configure -state normal -font bplainf -foreground black
-	} else {
-		set textw [::ChatWindow::GetOutText ${win_name}]
-		$textw configure -state normal -font bplainf -foreground black
-	}
+	set textw [::ChatWindow::GetOutText ${win_name}]
+	$textw configure -state normal -font bplainf -foreground black
+
 	# Set up formatting tags
 	$textw tag configure red -foreground red
 	$textw tag configure RED -foreground red
@@ -142,7 +104,7 @@
 	$textw tag configure ITA -foreground blue
 	$textw tag configure GRE -foreground darkgreen
 
-	::remind::WinWrite "$chatid" "$::remind::language(lastsentence) :\n" blue
+	::remind::WinWrite "$chatid" "[trans lastsentence] :\n" blue
 
 	set nbline 0
 	foreach line $loglines {
@@ -198,19 +160,16 @@
 		}
 	}
 
-	after 0 custom_smile_subst $chatid [::ChatWindow::GetOutText ${win_name}] 0.0 end
-	after 0 ::smiley::substSmileys [::ChatWindow::GetOutText ${win_name}] 0.0 end 0 0
+	#substitute the smlileys
+	custom_smile_subst $chatid [::ChatWindow::GetOutText ${win_name}] 0.0 end] 
+	::smiley::substSmileys [::ChatWindow::GetOutText ${win_name}] 0.0 end 0 0]
 
 	::amsn::WinWriteIcon $chatid greyline 3	
 
-	if { $version == "0.94" } {
-		${win_name}.f.out.text yview end
-		${win_name}.f.out.text configure -state disabled
-	} else {
-		[::ChatWindow::GetOutText $win_name] yview end
-		[::ChatWindow::GetOutText ${win_name}] configure -state normal -font bplainf -foreground black
-	}
+	[::ChatWindow::GetOutText $win_name] yview end
+	[::ChatWindow::GetOutText ${win_name}] configure -state normal -font bplainf -foreground black
 
+
 }
 
 
@@ -291,7 +250,7 @@
 	
 	if { [file exists $file] } {
 		status_log "REMIND : OK\n" red
-		::remind::WinWrite "$chatid" "\n$::remind::language(noteswritten)\n" blue
+		::remind::WinWrite "$chatid" "\n[trans noteswritten]\n" blue
 
 	}
 	
@@ -306,7 +265,6 @@
 
 proc WinWrite {chatid txt tagname {fontformat ""}} {
 
-	global version
 
 	set win_name [::ChatWindow::For $chatid]
 
@@ -318,15 +276,6 @@
 	set fontstyle [lindex $fontformat 1]      
 	set fontcolor [lindex $fontformat 2]
 
-	#Store position for later smiley
-	if { $version == "0.94" } {
-		set text_start [${win_name}.f.out.text index end]
-	} else {
-		set text_start [[::ChatWindow::GetOutText ${win_name}] index end]
-	}
-	set posyx [split $text_start "."]
-	set text_start "[expr {[lindex $posyx 0]-1}].[lindex $posyx 1]"
-
 	set tagid $tagname
 
 	if { $tagid == "user" } {
@@ -334,18 +283,10 @@
 		set font "\"$fontname\" $size $fontstyle"
 		set tagid [::md5::md5 "$font$fontcolor"]
 
-		if { $version == "0.94" } {
-			${win_name}.f.out.text tag configure $tagid -foreground #$fontcolor -font $font
-		} else {
-			[::ChatWindow::GetOutText ${win_name}] tag configure $tagid -foreground #$fontcolor -font $font
-		}
+		[::ChatWindow::GetOutText ${win_name}] tag configure $tagid -foreground #$fontcolor -font $font
 	}
 
-	if { $version == "0.94" } {
-		${win_name}.f.out.text insert end "$txt" $tagid
-	} else {
-		[::ChatWindow::GetOutText ${win_name}] roinsert end "$txt" $tagid
-	}
+	[::ChatWindow::GetOutText ${win_name}] roinsert end "$txt" $tagid
 
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Amsn-commits] SF.net SVN: amsn: [9353] trunk/amsn/plugins/remind/remind.tcl

From: <scapor@us...> - 2008-01-11 10:48

Revision: 9353
          http://amsn.svn.sourceforge.net/amsn/?rev=9353&view=rev
Author:   scapor
Date:     2008-01-11 02:48:27 -0800 (Fri, 11 Jan 2008)

Log Message:
-----------
now all smileys are substituted

Modified Paths:
--------------
    trunk/amsn/plugins/remind/remind.tcl

Modified: trunk/amsn/plugins/remind/remind.tcl
===================================================================
--- trunk/amsn/plugins/remind/remind.tcl	2008-01-11 08:38:52 UTC (rev 9352)
+++ trunk/amsn/plugins/remind/remind.tcl	2008-01-11 10:48:27 UTC (rev 9353)
@@ -161,8 +161,7 @@
 	}
 
 	#substitute the smlileys
-	custom_smile_subst $chatid [::ChatWindow::GetOutText ${win_name}] 0.0 end] 
-	::smiley::substSmileys [::ChatWindow::GetOutText ${win_name}] 0.0 end 0 0]
+	::smiley::substSmileys [::ChatWindow::GetOutText ${win_name}] 0.0 end 0 1]
 
 	::amsn::WinWriteIcon $chatid greyline 3	
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Amsn-commits] SF.net SVN: amsn: [9599] trunk/amsn/plugins/remind/remind.tcl

From: <scapor@us...> - 2008-02-23 23:11

Revision: 9599
          http://amsn.svn.sourceforge.net/amsn/?rev=9599&view=rev
Author:   scapor
Date:     2008-02-23 15:11:05 -0800 (Sat, 23 Feb 2008)

Log Message:
-----------
add some debug stuff

Modified Paths:
--------------
    trunk/amsn/plugins/remind/remind.tcl

Modified: trunk/amsn/plugins/remind/remind.tcl
===================================================================
--- trunk/amsn/plugins/remind/remind.tcl	2008-02-23 23:00:15 UTC (rev 9598)
+++ trunk/amsn/plugins/remind/remind.tcl	2008-02-23 23:11:05 UTC (rev 9599)
@@ -48,6 +48,9 @@
 ################################################################
 
 proc Remind { event evpar } {
+
+	plugins_log remind "New conversation window.  Let's check if we need to digg up messages for you, sir."
+
 	upvar 2 $evpar parameters
 
 	set chatid $parameters(chatid)
@@ -63,6 +66,7 @@
 		|| ( $::remind::config(when) == 2 && [expr { $date - $lastmessage }] <= $timeline )
 		|| ( $::remind::config(when) == 3 && [expr { $date - $lastmessage }] >= $timeline )
 	} {
+		plugins_log remind "You wanted mle to show some messages, so that's what I'm about to do..."
 		::remind::ShowLastSentences $chatid $email
 	}
 
@@ -80,6 +84,8 @@
 
 proc ShowLastSentences { chatid email } {
 
+	plugins_log remind "So, here we go, get ready to rumble!"
+
 	# Get the last sentences of the contact
 	set loglines [::remind::GetLastSentences $email]
 	set tagname "black"
@@ -160,7 +166,9 @@
 		}
 	}
 
-	#substitute the smlileys
+	plugins_log remind "There's your text sir.  You want any smileys with it ? \nYes I know you want.  Here they are ..."
+
+	#substitute the smileys
 	::smiley::substSmileys [::ChatWindow::GetOutText ${win_name}] 0.0 end 0 1]
 
 	::amsn::WinWriteIcon $chatid greyline 3	
@@ -179,7 +187,7 @@
 #############################################
 
 proc GetLastSentences { email } {
-
+	plugins_log remind "Getting you messages for $email ..."
 	global log_dir
 
 	# Select the last logging file, and cancel the proc if there is no log file yet


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.