withQGLResult :: IO (Ptr (TQGL a)) -> IO (QGL a)
withQGLResult f
  = withObjectRefResult f
withQGLResult :: IO (Ptr (TQGL a)) -> IO (QGL a)
withQGLResult f
  = withObjectRefResult f
withQGLResult f
  = withObjectRefResult f