From 1e075fd1c016f1a5d2a8730c36587d919f1513f5 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 24 Nov 2004 20:49:03 +0000
Subject: [PATCH]   + added glutInit() calls where they were missing   * made
 sure that the glutDisplayFunc() is registered in time (new check     as of
 glut 3.0)   -> all demos now work under Mac OS X!

---
 packages/extra/opengl/examples/glutdemo.pp | 2 ++
 packages/extra/opengl/examples/morph3d.pp  | 9 ++++++++-
 packages/extra/opengl/examples/radblur.pp  | 1 +
 3 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/packages/extra/opengl/examples/glutdemo.pp b/packages/extra/opengl/examples/glutdemo.pp
index 853a5c8901..f59df1feb9 100644
--- a/packages/extra/opengl/examples/glutdemo.pp
+++ b/packages/extra/opengl/examples/glutdemo.pp
@@ -99,6 +99,8 @@ begin
 end;
 
 begin
+  glutInit(@argc, argv);
+
   glutInitDisplayMode(GLUT_RGB or GLUT_DOUBLE or GLUT_DEPTH);
   glutCreateWindow('Free Pascal GLUT demo');
   glutDisplayFunc(@DisplayWindow);
diff --git a/packages/extra/opengl/examples/morph3d.pp b/packages/extra/opengl/examples/morph3d.pp
index c8ae155865..1b9c7d6377 100644
--- a/packages/extra/opengl/examples/morph3d.pp
+++ b/packages/extra/opengl/examples/morph3d.pp
@@ -868,6 +868,7 @@ begin
   writeln(' [ESC]   - Quit');
   _object:=3;
 
+  glutInit(@argc, argv);
   glutInitWindowPosition(0,0);
   glutInitWindowSize(640,480);
 
@@ -915,7 +916,13 @@ begin
 end.
 {
   $Log$
-  Revision 1.2  2002-12-18 13:33:20  pierre
+  Revision 1.3  2004-11-24 20:49:03  jonas
+    + added glutInit() calls where they were missing
+    * made sure that the glutDisplayFunc() is registered in time (new check
+      as of glut 3.0)
+    -> all demos now work under Mac OS X!
+
+  Revision 1.2  2002/12/18 13:33:20  pierre
    * objfpc mode added to be able to compile the demos correctly from IDE
 
   Revision 1.1  2002/10/13 14:01:45  sg
diff --git a/packages/extra/opengl/examples/radblur.pp b/packages/extra/opengl/examples/radblur.pp
index 080b739a07..9c22821baf 100644
--- a/packages/extra/opengl/examples/radblur.pp
+++ b/packages/extra/opengl/examples/radblur.pp
@@ -361,6 +361,7 @@ end;
 
 
 begin
+  glutInit(@argc, argv);
   glutInitDisplayMode(GLUT_RGB or GLUT_DOUBLE or GLUT_DEPTH);
   glutCreateWindow(WND_TITLE);
   glutDisplayFunc(@DisplayWindow);