From ceaaf48e88ba705e47cbf491720f05fda814e33b Mon Sep 17 00:00:00 2001 From: tobigun Date: Thu, 23 Jul 2009 19:11:48 +0000 Subject: - onHide -> onHide - onShow -> OnShow git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1885 b956fd51-792f-4845-bead-9b4dfca2ff2c --- unicode/src/menu/UMenu.pas | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'unicode/src/menu/UMenu.pas') diff --git a/unicode/src/menu/UMenu.pas b/unicode/src/menu/UMenu.pas index 6c01451c..48ed6901 100644 --- a/unicode/src/menu/UMenu.pas +++ b/unicode/src/menu/UMenu.pas @@ -150,9 +150,9 @@ type function InRegion(X1, Y1, W, H, X, Y: real): boolean; function InteractAt(X, Y: real): integer; function CollectionAt(X, Y: real): integer; - procedure onShow; virtual; - procedure onShowFinish; virtual; - procedure onHide; virtual; + procedure OnShow; virtual; + procedure OnShowFinish; virtual; + procedure OnHide; virtual; procedure SetAnimationProgress(Progress: real); virtual; @@ -1580,7 +1580,7 @@ begin AddStatic(X+2, Y+2, W-4, H-4, 1, 1, 1, Skin.GetTextureFileName('MainBar'), TEXTURE_TYPE_COLORIZED); end; -procedure TMenu.onShow; +procedure TMenu.OnShow; begin // FIXME: this needs some work. First, there should be a variable like // VideoBackground so we can check whether a video-background is enabled or not. @@ -1609,12 +1609,12 @@ begin Background.OnShow; end; -procedure TMenu.onShowFinish; +procedure TMenu.OnShowFinish; begin // nothing end; -procedure TMenu.onHide; +procedure TMenu.OnHide; begin // nothing Background.OnFinish; -- cgit v1.2.3