From: Mark <mar...@us...> - 2005-02-28 08:51:16
|
Update of /cvsroot/amsn/amsn-extras/plugins/amsnplus In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22635 Modified Files: amsnplus.tcl plugininfo.xml Log Message: changing some init/deinit procs\nNow one event less on creating the plus menu in the main menu\nAlso removing the plus menu when the plugin is unloaded Index: amsnplus.tcl =================================================================== RCS file: /cvsroot/amsn/amsn-extras/plugins/amsnplus/amsnplus.tcl,v retrieving revision 1.95 retrieving revision 1.96 diff -C2 -d -r1.95 -r1.96 *** amsnplus.tcl 28 Feb 2005 08:13:53 -0000 1.95 --- amsnplus.tcl 28 Feb 2005 08:51:05 -0000 1.96 *************** *** 63,66 **** --- 63,70 ---- ] } + + #creating the menus + catch { ::amsnplus::add_plus_menu } + #register events ::plugins::RegisterEvent "aMSN Plus" parse_nick parse_nick *************** *** 68,74 **** ::plugins::RegisterEvent "aMSN Plus" chat_msg_receive parse_colours_and_sounds ::plugins::RegisterEvent "aMSN Plus" chatwindowbutton chat_color_button - ::plugins::RegisterEvent "aMSN Plus" chatmenu edit_menu ::plugins::RegisterEvent "aMSN Plus" OnConnect on_connect ! ::plugins::RegisterEvent "aMSN Plus" mainmenu add_plus_menu if {![::amsnplus::version_094]} { --- 72,77 ---- ::plugins::RegisterEvent "aMSN Plus" chat_msg_receive parse_colours_and_sounds ::plugins::RegisterEvent "aMSN Plus" chatwindowbutton chat_color_button ::plugins::RegisterEvent "aMSN Plus" OnConnect on_connect ! ::plugins::RegisterEvent "aMSN Plus" chatmenu edit_menu if {![::amsnplus::version_094]} { *************** *** 77,94 **** } - - #################################################### ! # PLUS MENUS AND PREFERENCES # #################################################### #################################################### # creates the plus sub menu in the main gui menu ! proc add_plus_menu { event evpar } { ! upvar 2 evPar newvar ! set menu_name $newvar(menu) ! menu ${menu_name}.plusmenu -tearoff 0 ! $menu_name add cascade -label "Plus!" -menu ${menu_name}.plusmenu ! set plusmenu ${menu_name}.plusmenu #entries for the plus menu --- 80,109 ---- } #################################################### ! # deinit procedure, all to do when unloading the plugin ! proc amsnplusStop { } { ! #removing the plus menu and chat window pixmap ! .main_menu delete 4 ! ::amsnplus::remove_from_chatwindow ! } ! #################################################### + # this proc removes every menu in every chat window + # and also the pixmap of amsnplus to choose a color + proc remove_from_chatwindow { } { + } + + + + #////////////////////////////////////////////////////////////// + # PLUS MENUS AND PREFERENCES + #////////////////////////////////////////////////////////////// #################################################### # creates the plus sub menu in the main gui menu ! proc add_plus_menu { } { ! catch { menu .main_menu.plusmenu -tearoff 0 } ! .main_menu add cascade -label "Plus!" -menu .main_menu.plusmenu ! set plusmenu .main_menu.plusmenu #entries for the plus menu *************** *** 141,144 **** --- 156,164 ---- } + ############################################### + # this proc creates the preferences window + proc preferences { } { + } + Index: plugininfo.xml =================================================================== RCS file: /cvsroot/amsn/amsn-extras/plugins/amsnplus/plugininfo.xml,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** plugininfo.xml 27 Feb 2005 22:20:38 -0000 1.31 --- plugininfo.xml 28 Feb 2005 08:51:05 -0000 1.32 *************** *** 9,14 **** <plugin_namespace>amsnplus</plugin_namespace> <init_procedure>amsnplusStart</init_procedure> ! <cvs_version>1.94</cvs_version> <lang> --- 9,15 ---- <plugin_namespace>amsnplus</plugin_namespace> <init_procedure>amsnplusStart</init_procedure> + <deinit_procedure>amsnplusStop</deinit_procedure> ! <cvs_version>1.95</cvs_version> <lang> |