Hi.
My name is Jose Ramon, I'm from Spain and I'm new writing in this list, so
at first hi everyone and sorry about my english!! I like amsn project and
I'm reading its source code the last days... so I'll try collaborate it in
my few free time.
I've seen http://www.amsn-project.net/wiki/Forums_TODO web and I send you a
possible solution about the Critical bug
http://www.amsn-project.net/forums/viewtopic.php?p=25112 that if someone has
a '-d' in his nickname, amsn will crash!! It's my first patch and I'm
learning TCL/TK now, but I think this patch could work fine, although I also
think it's only provisional because the really bug is from "measure"
operation from TCL/TK. With this patch, our amsn won't crash with these
nicks.
Files:
abook.diff: I modify parseCustomNickStyled function to solve it when our
contacts have "-d" in theirs nickname.
smileys.diff: I modify parseMessageToList to solve it when our nickname
have "-d".
Have fun!
--
--
=======================================
José Ramón Rubio Largo
E-mail: [EMAIL PROTECTED]
( http://linuxcpp.extreblog.com )
=======================================
--- abook.tcl 2007-12-15 21:26:16.000000000 +0100
+++ abook.tcl 2007-12-18 00:24:19.000000000 +0100
@@ -787,7 +787,7 @@
set l [lreplace $l $listpos
$listpos]
incr llength -1
- if { $p1 ne "" } {
+ if { $p1 ne "" && $p1 ne "-d"} {
set l [linsert $l
$listpos [list text $p1]]
incr llength 1
incr listpos 1
@@ -799,7 +799,7 @@
incr llength 1
}
- if { $p3 ne "" } {
+ if { $p3 ne "" $$ $p3 ne "-d"} {
set l [linsert $l
$listpos [list text $p3]]
incr llength 1
#We must parse p3
--- smileys.tcl 2007-11-04 17:16:18.000000000 +0100
+++ smileys.tcl 2007-12-18 00:24:00.000000000 +0100
@@ -612,6 +612,12 @@
set p1 [string range [lindex $l
$listpos 1] 0 [expr {$pos - 1}]]
set p2 $image_name
set p3 [string range [lindex $l
$listpos 1] [expr {$pos + [string length $symbol]}] end]
+ if { $p1 eq "-d" || [string match $p1
"-displayof"]} {
+ set p1 ""
+ }
+ if { $p3 eq "-d" || [string match $p3
"-displayof"]} {
+ set p3 ""
+ }
#TODO: #need to change for an 'in-place' lreplace (here and below)
if { $p2 == "__newline__" } {
-------------------------------------------------------------------------
SF.Net email is sponsored by:
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services
for just about anything Open Source.
http://ad.doubleclick.net/clk;164216239;13503038;w?http://sf.net/marketplace
_______________________________________________
Amsn-devel mailing list
Amsn-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amsn-devel
