GUI
Class GUIListBox

Core.Object
   |
   +--GUI.GUI
      |
      +--GUI.GUIComponent
         |
         +--GUI.GUIMultiComponent
            |
            +--GUI.GUIListBoxBase
               |
               +--GUI.GUIListBox

// For Quick Access;

00001	// ====================================================================
00002	//  (c) 2002, Epic Games, Inc.  All Rights Reserved
00003	// ====================================================================
00004	
00005	class GUIListBox extends GUIListBoxBase
00006		native;
00007	
00008	var	GUIList List;	// For Quick Access;
00009	
00010	function InitComponent(GUIController MyController, GUIComponent MyOwner)
00011	{
00012		List = GUIList(Controls[0]);
00013		Super.Initcomponent(MyController, MyOwner);
00014		
00015		List.OnClick=InternalOnClick;
00016		List.OnClickSound=GUI_CS_Click;
00017		List.OnChange=InternalOnChange;
00018		
00019	}
00020	
00021	function bool InternalOnClick(GUIComponent Sender)
00022	{
00023		List.InternalOnClick(Sender);
00024		OnClick(Self);
00025		return true;
00026	}
00027	
00028	function InternalOnChange(GUIComponent Sender)
00029	{
00030		OnChange(Self);
00031	}
00032	
00033	function int ItemCount()
00034	{
00035		return List.ItemCount;
00036	}
00037	
00038	
00039	
00040	defaultproperties
00041	{
00042	     Controls(0)=GUIList'GUI.GUIListBox.TheList'
00043	     Controls(1)=GUIVertScrollBar'GUI.GUIListBoxBase.TheScrollbar'
00044	}