module Main
where

import Foreign
import Foreign.C
import Bindings.GObject

main :: IO ()
main = do
  c'g_type_init

  -- query parent type size
  (classSize, instanceSize) <- with (C'GTypeQuery 0 nullPtr 0 0) $ \tq -> do
    c'g_type_query c'G_TYPE_OBJECT tq
    q <- peek tq
    return (c'GTypeQuery'class_size q, c'GTypeQuery'instance_size q)

  classInit <- mk'GClassInitFunc $ \_ _ -> do
    -- class initialization goes here
    return ()
  instanceInit <- mk'GInstanceInitFunc $ \_ _ -> do
    -- instance initialization goes here
    return ()

  myObType <- withCString "MyOb" $ \typeName ->
    c'g_type_register_static_simple c'G_TYPE_OBJECT
                                    typeName
                                    classSize
                                    classInit
                                    instanceSize
                                    instanceInit
                                    0

  -- create instance of MyOb
  myOb <- c'g_object_newv myObType 0 nullPtr

  -- delete it
  c'g_object_unref myOb

  return ()