--- a/branches/wings2/src/wings_gl.erl
+++ b/branches/wings2/src/wings_gl.erl
@@ -19,6 +19,20 @@
 %%% OpenGL extensions.
 %%%
 init_extensions() ->
+    ?INFO("Opengl information: ~n",[]),
+    ?INFO(" Red     Size: ~p~n",
+	 [element(1,gl:getIntegerv(?GL_RED_BITS))]),
+    ?INFO(" Green   Size: ~p~n",
+	 [element(1,gl:getIntegerv(?GL_GREEN_BITS))]),
+    ?INFO(" Blue    Size: ~p~n",
+	 [element(1,gl:getIntegerv(?GL_BLUE_BITS))]),
+    ?INFO(" Alpha   Size: ~p~n",
+	 [element(1,gl:getIntegerv(?GL_ALPHA_BITS))]),
+    ?INFO(" Stencil Size: ~p~n",
+	 [element(1,gl:getIntegerv(?GL_STENCIL_BITS))]),
+    ?INFO(" Depth   Size: ~p~n",
+	 [element(1,gl:getIntegerv(?GL_DEPTH_BITS))]),
+    
     ets:new(wings_gl_ext, [named_table,public,ordered_set]),
     Exts0 = lists:sort(string:tokens(gl:getString(?GL_EXTENSIONS), " ")),
     Exts = [{list_to_atom(E)} || E <- Exts0],