Hi all.
I need this diffs. I (try to) explain
@@ -597,7 +602,7 @@ and @@ -615,7 +620,9 @@
After a search the plugin has to draw in contaclist some users, and not all
users. So the plugin sends to organiseList a right list.
@@ -980,6 +980,8 @@
We have OnConnect Event to load some plugin, but we don't have loggedOut
Event to deinit some plugin. This lack should cause some memory lacks in
some plugins.
Thanks, bye
Index: guicontactlist.tcl
===================================================================
--- guicontactlist.tcl (revision 8849)
+++ guicontactlist.tcl (working copy)
@@ -597,7 +602,7 @@
# Move 'm to the right place
- proc organiseList { canvas } {
+ proc organiseList { canvas {contactList ""} } {
variable Xbegin
variable Ybegin
variable nickheightArray
@@ -615,7 +620,9 @@
$canvas delete box
# Now let's get an exact contact list
- set contactList [getContactList]
+ if {$contactList == ""} {
+ set contactList [getContactList]
+ }
# Let's draw each element of this list
set curPos [list $Xbegin $Ybegin]
Index: protocol.tcl
===================================================================
--- protocol.tcl (revision 8849)
+++ protocol.tcl (working copy)
@@ -980,6 +980,8 @@
set automessage "-1"
+ ::plugins::PostEvent loggedOut evpar
+
#an event to let the GUI know we are actually logged out now
::Event::fireEvent loggedOut protocol
-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
Amsn-devel mailing list
Amsn-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amsn-devel
