From 48e9a9faea54c6fa5b2b98e242444ae4c0183a7a Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 9 May 2007 16:45:46 +0000
Subject: Fix: Readded ability to close the Window Fix: Crash when SongScreen
 is opened in PartyMode when Tabs = On. Caused by SelectRandomSong procedure
 Upd: M in SongScreen works now in PartyMode, too

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@184 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UMain.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'Game/Code/Classes')

diff --git a/Game/Code/Classes/UMain.pas b/Game/Code/Classes/UMain.pas
index 29ca5fcb..47860198 100644
--- a/Game/Code/Classes/UMain.pas
+++ b/Game/Code/Classes/UMain.pas
@@ -145,7 +145,11 @@ Begin
   Begin
 //    beep;
     Case Event.type_ Of
-      SDL_QUITEV: done := true;
+      SDL_QUITEV: begin
+        Display.Fade := 0;
+        Display.NextScreenWithCheck := nil;
+        Display.CheckOK := True;
+      end;
 {      SDL_MOUSEBUTTONDOWN:
         With Event.button Do
         Begin
-- 
cgit v1.2.3