UWindow
Class UWindowSBUpButton

Core.Object
   |
   +--UWindow.UWindowBase
      |
      +--UWindow.UWindowWindow
         |
         +--UWindow.UWindowDialogControl
            |
            +--UWindow.UWindowButton
               |
               +--UWindow.UWindowSBUpButton

00001	//=============================================================================
00002	// UWindowSBUpButton - Scrollbar up button
00003	//=============================================================================
00004	class UWindowSBUpButton extends UWindowButton;
00005	
00006	var float NextClickTime;
00007	
00008	function Created()
00009	{
00010		bNoKeyboard = True;
00011		Super.Created();
00012	}
00013	
00014	function BeforePaint(Canvas C, float X, float Y)
00015	{
00016		LookAndFeel.SB_SetupUpButton(Self);
00017	}
00018	
00019	function LMouseDown(float X, float Y)
00020	{
00021		Super.LMouseDown(X, Y);
00022		if(bDisabled)
00023			return;
00024		UWindowVScrollBar(ParentWindow).Scroll(-UWindowVScrollBar(ParentWindow).ScrollAmount);
00025		NextClickTime = GetLevel().TimeSeconds + 0.5;
00026	}
00027	
00028	function Tick(float Delta)
00029	{
00030		if(bMouseDown && (NextClickTime > 0) && (NextClickTime < GetLevel().TimeSeconds))
00031		{
00032			UWindowVScrollBar(ParentWindow).Scroll(-UWindowVScrollBar(ParentWindow).ScrollAmount);
00033			NextClickTime = GetLevel().TimeSeconds + 0.1;
00034		}
00035	
00036		if(!bMouseDown)
00037		{
00038			NextClickTime = 0;
00039		}
00040	}
00041	
00042	defaultproperties
00043	{
00044	}