From b61e647b67ac0d449d764b89b117a3ac8b603403 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 8 May 2007 19:00:47 +0000
Subject: Readded Q Shortcut (Exit Application) on all Screens Clean up Popup
 Code a little bit

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@180 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenSong.pas | 17 +++++------------
 1 file changed, 5 insertions(+), 12 deletions(-)

(limited to 'Game/Code/Screens/UScreenSong.pas')

diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index e4ab8854..139d6984 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -248,6 +248,10 @@ begin
     end;
 
     case PressedKey of
+      SDLK_Q:
+        begin
+          Result := false;
+        end;
       SDLK_ESCAPE :
         begin
         if (Mode = 0) then
@@ -605,19 +609,8 @@ begin
             SetJoker;
           end;
         end;
-
-      SDLK_Q:
-        begin
-          Result := false;
-        end;
-    end;
-  end
-  else // Key Up
-    case PressedKey of
-      SDLK_RETURN :
-        begin
-        end;
     end;
+  end;
 end;
 
 constructor TScreenSong.Create;
-- 
cgit v1.2.3