* fixed win32 compilation

git-svn-id: trunk@8320 -

packages/extra/graph/inc/graph.inc

@@ -2114,7 +2114,7 @@ begin
  { This installs an exit procedure which cleans up the mode list...}
  ExitSave := ExitProc;
  ExitProc := @GraphExitProc;
-{$ifdef win32}
+{$if defined(win32) and not defined(sdlgraph)}
  charmessagehandler:=nil;
-{$endif win32}
+{$endif win32 and not sdlgraph}
 end;

packages/extra/graph/sdlgraph/sdlgraph.pp

@@ -146,6 +146,8 @@ uses {$ifdef unix}cthreads,{$endif}
 const
   InternalDriverName = 'SDL';
 
+{$define sdlgraph}
+
 {$i graph.inc}
 
 var