removal of TMenu.InRegion and InStaticRegion. no actual use, at best speculative for mouse

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1124 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 0 insertions, 22 deletions

diff --git a/Game/Code/Menu/UMenu.pas b/Game/Code/Menu/UMenu.pas
index 5fe7d317..9c467e7d 100644
--- a/Game/Code/Menu/UMenu.pas
+++ b/Game/Code/Menu/UMenu.pas
@@ -113,7 +113,6 @@ type
       procedure AddSelectSlideOption(SelectNo: Cardinal; const AddText: string); overload;
       procedure UpdateSelectSlideOptions(ThemeSelectSlide: TThemeSelectSlide; SelectNum: integer; Values: array of string; var Data: integer);
 
-
 //      function AddWidget(X, Y : UInt16; WidgetSrc : PSDL_Surface): Int16;
 //      procedure ClearWidgets(MinNumber : Int16);
       procedure FadeTo(Screen: PMenu); overload;
@@ -128,8 +127,6 @@ type
       // FIXME: ParseMouse is not implemented in any subclass and not even used anywhere in the code
       //   -> do this before activation of this method
       //function ParseMouse(Typ: integer; X: integer; Y: integer): Boolean; virtual; abstract;
-      function InRegion(X1, Y1, X2, Y2, X, Y: real): Boolean;
-      function InStaticRegion(StaticNr: integer; X, Y: integer): Boolean;
       procedure onShow; virtual;
       procedure onShowFinish; virtual;
       procedure onHide; virtual;
@@ -1418,25 +1415,6 @@ begin
   SelectsS[SelectNum].SelectedOption := Data;
 end;
 
-function TMenu.InRegion(X1, Y1, X2, Y2, X, Y: real): boolean;
-var
-  scaled_x, scaled_y : real;
-begin
-  { RenderW and RenderH are defined in Classes/UGraphic.pas }
-  scaled_x := x*640.0/RenderW;
-  scaled_y := x*480.0/RenderH;
-  Result := (X1 <= scaled_x) and (scaled_x <= X2) and (Y1 <= scaled_y) and (scaled_y <= Y2);
-end;
-
-function TMenu.InStaticRegion(StaticNr: integer; X, Y: integer): boolean;
-begin
-  Result := InRegion(Static[StaticNr].Texture.X,
-    Static[StaticNr].Texture.Y,
-    Static[StaticNr].Texture.X + Static[StaticNr].Texture.W - 1,
-    Static[StaticNr].Texture.Y + Static[StaticNr].Texture.H - 1,
-    X, Y);
-end;
-
 procedure TMenu.InteractInc;
 var
   Num:    integer;