[Amsn-commits] SF.net SVN: amsn: [6684] trunk/amsn/protocol.tcl

[<sc...@us...>]

Revision: 6684
Author:   scapor
Date:     2006-05-23 13:38:30 -0700 (Tue, 23 May 2006)
ViewCVS:  http://svn.sourceforge.net/amsn/?rev=6684&view=rev

Log Message:
-----------
amsncore.tcl is the best name I could find.  it has a description on top and as we are splitting UI and protocol things should be more clear where they reside

Modified Paths:
--------------
    trunk/amsn/protocol.tcl
Modified: trunk/amsn/protocol.tcl
===================================================================
--- trunk/amsn/protocol.tcl	2006-05-23 18:09:39 UTC (rev 6683)
+++ trunk/amsn/protocol.tcl	2006-05-23 20:38:30 UTC (rev 6684)
@@ -1296,7 +1296,7 @@
 			::MSN::WriteSB ns ADD "BL $userlogin $username"
 		}
 		#an event to let the GUI know a user is blocked
-		after 500 ::Event::fireEvent blockedContact protocol $userlogin
+		after 500 ::Event::fireEvent contactBlocked protocol $userlogin
 	}
 
 	proc unblockUser { userlogin username} {
@@ -1307,7 +1307,7 @@
 			::MSN::WriteSB ns ADD "AL $userlogin $username"
 		}
 		#an event to let the GUI know a user is unblocked
-		after 500 ::Event::fireEvent unblockedContact protocol $userlogin
+		after 500 ::Event::fireEvent contactUnblocked protocol $userlogin
 	}
 
 	# Move user from one group to another group
@@ -1327,7 +1327,7 @@
 		}
 
 		#an event to let the GUI know a user is moved between 2 groups
-		::Event::fireEvent movedContact protocol $passport $oldGid $newGid
+		::Event::fireEvent contactMoved protocol $passport $oldGid $newGid
 
 	}
 
@@ -1444,7 +1444,7 @@
 		}
 
 		#an event to let the GUI know a user is removed from a group / the list
-		::Event::fireEvent deletedUser protocol $userlogin $grId
+		::Event::fireEvent contactRemoved protocol $userlogin $grId
 	}
 
 	##################################################


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