From: <ba...@us...> - 2007-07-26 13:12:44
|
Revision: 8930 http://amsn.svn.sourceforge.net/amsn/?rev=8930&view=rev Author: baaazen Date: 2007-07-26 06:12:44 -0700 (Thu, 26 Jul 2007) Log Message: ----------- fix: CWs don't close after server disconnect anymore Modified Paths: -------------- trunk/amsn/gui.tcl trunk/amsn/remote.tcl trunk/amsn/trayicon.tcl Modified: trunk/amsn/gui.tcl =================================================================== --- trunk/amsn/gui.tcl 2007-07-26 12:36:00 UTC (rev 8929) +++ trunk/amsn/gui.tcl 2007-07-26 13:12:44 UTC (rev 8930) @@ -3579,7 +3579,7 @@ #log in with another profile #$accnt add command -label "[trans loginas]..." -command cmsn_draw_login -state normal #log out - $accnt add command -label "[trans logout]" -command "::MSN::logout" -state disabled + $accnt add command -label "[trans logout]" -command "::MSN::logout; ::ChatWindow::CloseAllWindows" -state disabled #------------------- $accnt add separator #change status submenu @@ -4114,9 +4114,6 @@ set save_idx [$menu index "[trans savecontacts]"] set load_idx [$menu index "[trans loadcontacts]"] enableEntries $menu [list $add_idx $del_idx $prop_idx $grp_add_idx $grp_del_idx $grp_ren_idx $hist_idx $cam_idx $save_idx $load_idx] 0 - - # close all chatwindows - ::ChatWindow::CloseAllWindows } proc ShowFirstTimeMenuHidingFeature { parent } { @@ -4436,7 +4433,7 @@ "$clcanvas itemconfigure cancel_reconnect -fill #000000 -font sunderf;\ $clcanvas configure -cursor left_ptr" $clcanvas bind cancel_reconnect <Button1-ButtonRelease> \ - "::MSN::cancelReconnect" + "::MSN::cancelReconnect; ::ChatWindow::CloseAllWindows" ::guiContactList::centerItems $clcanvas @@ -4486,7 +4483,7 @@ "$clcanvas itemconfigure cancel_reconnect -fill #000000 -font sunderf;\ $clcanvas configure -cursor left_ptr" $clcanvas bind cancel_reconnect <Button1-ButtonRelease> \ - "::MSN::cancelReconnect" + "::MSN::cancelReconnect; ::ChatWindow::CloseAllWindows" ::guiContactList::centerItems $clcanvas Modified: trunk/amsn/remote.tcl =================================================================== --- trunk/amsn/remote.tcl 2007-07-26 12:36:00 UTC (rev 8929) +++ trunk/amsn/remote.tcl 2007-07-26 13:12:44 UTC (rev 8930) @@ -49,6 +49,7 @@ proc logout { } { write_remote "[trans logout]" ::MSN::logout + ::ChatWindow::CloseAllWindows } # help Modified: trunk/amsn/trayicon.tcl =================================================================== --- trunk/amsn/trayicon.tcl 2007-07-26 12:36:00 UTC (rev 8929) +++ trunk/amsn/trayicon.tcl 2007-07-26 13:12:44 UTC (rev 8930) @@ -251,7 +251,7 @@ $iconmenu entryconfigure 4 -state normal $iconmenu entryconfigure 6 -state normal - $iconmenu entryconfigure 12 -label "[trans logout]" -command "::MSN::logout" + $iconmenu entryconfigure 12 -label "[trans logout]" -command "::MSN::logout; ::ChatWindow::CloseAllWindows" } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |