From 7968b0878c1c13f61dddbacb603e00997af38f63 Mon Sep 17 00:00:00 2001
From: eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 25 Mar 2008 20:41:08 +0000
Subject: Fixed compilation on the mac.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@972 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Menu/UMenu.pas | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'Game/Code/Menu')

diff --git a/Game/Code/Menu/UMenu.pas b/Game/Code/Menu/UMenu.pas
index dcdcf1ca..4fd9262a 100644
--- a/Game/Code/Menu/UMenu.pas
+++ b/Game/Code/Menu/UMenu.pas
@@ -46,6 +46,7 @@ type
       //constructor Create(Back: string; W, H: integer); overload; virtual; // W and H are the number of overlaps
 
       // interaction
+      function WideCharUpperCase(const wchar : WideChar) : WideString;
       procedure AddInteraction(Typ, Num: integer);
       procedure SetInteraction(Num: integer);
       property Interaction: integer read SelInteraction write SetInteraction;
@@ -1543,6 +1544,16 @@ begin
 //  beep;
 end;
 
+function TMenu.WideCharUpperCase(const wchar : WideChar) : WideString;
+begin
+  {$IFDEF DARWIN}
+	// eddie: WideUpperCase crashes on the mac with WideChars.
+	Result := UpperCase(wchar);
+	{$ELSE}
+  Result := WideUpperCase(wchar);
+	{$ENDIF}
+end;
+
 procedure TMenu.onHide;
 begin
 // nothing
-- 
cgit v1.2.3