-- with -- Glx; package openGL.Surface.privvy is -- function to_glx (Self : in Surface.item'Class) return glx.GLXDrawable; procedure dummy; end openGL.Surface.privvy;