From 80d95a1ba9cd147310ffda7a6c9cd8c0c04f801f Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Thu, 28 May 2009 17:44:59 +0000 Subject: fix the bug from rev. 1784. mog has to review this! git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1787 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/menu/UMenuSelectSlide.pas | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/menu/UMenuSelectSlide.pas b/src/menu/UMenuSelectSlide.pas index e416c357..63ec8698 100644 --- a/src/menu/UMenuSelectSlide.pas +++ b/src/menu/UMenuSelectSlide.pas @@ -319,7 +319,11 @@ begin DrawTexture(Texture); DrawTexture(TextureSBG); - if(showArrows && ) then begin +// if(showArrows && ) then begin +// The line above is from mog but with an error. +// The line below fixes the syntax, but what did mog actually wanted to do? + if (showArrows) then + begin DrawTexture(Tex_SelectS_ArrowL); DrawTexture(Tex_SelectS_ArrowR); end; @@ -331,8 +335,6 @@ begin end; end; - - procedure TSelectSlide.GenLines; var maxlength: real; -- cgit v1.2.3