From 34f074549ccd06269ac031021c4bc66d7cccd3f9 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 18 Sep 1999 16:03:36 +0000
Subject: [PATCH]   * graph.pp: removed pieslice and sector from ToDo list   *
 closegraph: exits now immidiately if isgraphmode = false (caused     RTE 204
 with VESA enabled if you set exitproc to call closegraph     and also called
 closegraph explicitely before exit, like bgidemo)

---
 rtl/inc/graph/graph.inc | 13 ++++++++++++-
 rtl/inc/graph/graph.pp  | 10 +++++++---
 2 files changed, 19 insertions(+), 4 deletions(-)

diff --git a/rtl/inc/graph/graph.inc b/rtl/inc/graph/graph.inc
index 2ffaf4b290..1863990c13 100644
--- a/rtl/inc/graph/graph.inc
+++ b/rtl/inc/graph/graph.inc
@@ -1630,6 +1630,11 @@ const CrtAddress: word = 0;
  {************************************************************************}
  procedure CloseGraph;
  Begin
+    If not isgraphmode then
+      begin
+        _graphresult := grnoinitgraph;
+        exit
+      end;
     if not assigned(RestoreVideoState) then
       RunError(216);
     RestoreVideoState;
@@ -2583,7 +2588,13 @@ const CrtAddress: word = 0;
 
 {
 $Log$
-Revision 1.12  1999-09-15 13:37:50  jonas
+Revision 1.13  1999-09-18 16:03:36  jonas
+  * graph.pp: removed pieslice and sector from ToDo list
+  * closegraph: exits now immidiately if isgraphmode = false (caused
+    RTE 204 with VESA enabled if you set exitproc to call closegraph
+    and also called closegraph explicitely before exit, like bgidemo)
+
+Revision 1.12  1999/09/15 13:37:50  jonas
   * small change to internalellipsedef to be TP compatible
   * fixed directputpixel for vga 320*200*256
 
diff --git a/rtl/inc/graph/graph.pp b/rtl/inc/graph/graph.pp
index 7ee7ff6aab..496efb741d 100644
--- a/rtl/inc/graph/graph.pp
+++ b/rtl/inc/graph/graph.pp
@@ -2868,8 +2868,6 @@ begin
 end.
 
 
-PieSlice
-Sector
 SetGraphBufSize
 SetBkColor
 DetectGraph
@@ -2879,7 +2877,13 @@ DetectGraph
 
 {
   $Log$
-  Revision 1.23  1999-09-17 13:58:31  jonas
+  Revision 1.24  1999-09-18 16:03:37  jonas
+    * graph.pp: removed pieslice and sector from ToDo list
+    * closegraph: exits now immidiately if isgraphmode = false (caused
+      RTE 204 with VESA enabled if you set exitproc to call closegraph
+      and also called closegraph explicitely before exit, like bgidemo)
+
+  Revision 1.23  1999/09/17 13:58:31  jonas
   * another fix for a case where internalellipsedefault went haywire
   * sector() and pieslice() fully implemented!
   * small change to prevent buffer overflow with floodfill