From 7fbef67005f07b388bbc033121349bbfb65efd16 Mon Sep 17 00:00:00 2001
From: Wizzup? <Wizzup?@3f818213-9676-44b0-a9b4-5e4c4e03d09d>
Date: Tue, 3 Nov 2009 02:09:51 +0000
Subject: [PATCH] Added an Exception when ReturnData encounters an error. The
 Exception will be removed once we have taken a look at the bug I just filed.
 The bug tracker isn't open yet - so no link for now.

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@181 3f818213-9676-44b0-a9b4-5e4c4e03d09d
---
 Units/MMLCore/window.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Units/MMLCore/window.pas b/Units/MMLCore/window.pas
index 9b8cc51..e9e1d42 100644
--- a/Units/MMLCore/window.pas
+++ b/Units/MMLCore/window.pas
@@ -318,6 +318,7 @@ begin
         Writeln('ReturnData: XGetImage Error. Dumping data now:');
         Writeln('xs, ys, width, height: ' + inttostr(xs) + ', '  + inttostr(ys) +
                 ', ' + inttostr(width) + ', ' + inttostr(height));
+        raise Exception.CreateFMT('TMWindow.ReturnData: ReturnData: XGetImage Error', []);
         Result.Ptr := nil;
         Result.IncPtrWith := 0;