UBrowser
Class UBrowserInfoMenu

Core.Object
   |
   +--UWindow.UWindowBase
      |
      +--UWindow.UWindowWindow
         |
         +--UWindow.UWindowDialogControl
            |
            +--UWindow.UWindowListControl
               |
               +--UWindow.UWindowPulldownMenu
                  |
                  +--UWindow.UWindowRightClickMenu
                     |
                     +--UBrowser.UBrowserInfoMenu

00001	class UBrowserInfoMenu extends UWindowRightClickMenu;
00002	
00003	var UWindowPulldownMenuItem Refresh, CloseItem;
00004	
00005	var localized string RefreshName;
00006	var localized string CloseName;
00007	
00008	var UBrowserInfoWindow Info;
00009	
00010	function Created()
00011	{
00012		Super.Created();
00013		
00014		Refresh = AddMenuItem(RefreshName, None);
00015		AddMenuItem("-", None);
00016		CloseItem = AddMenuItem(CloseName, None);
00017	}
00018	
00019	function ExecuteItem(UWindowPulldownMenuItem I) 
00020	{
00021		switch(I)
00022		{
00023		case Refresh:
00024			UBrowserInfoClientWindow(Info.ClientArea).Server.ServerStatus();
00025			break;
00026		case CloseItem:
00027			Info.Close();
00028			break;
00029		}
00030	
00031		Super.ExecuteItem(I);
00032	}
00033	
00034	defaultproperties
00035	{
00036	     RefreshName="&Refresh Info"
00037	     CloseName="&Close"
00038	}