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

@@ -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;