{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Stopgap.Graphics.UI.Gtk where

import Foreign.C.Enum
import Foreign.C.Types
import Data.Word

#include <gtk/gtk.h>

newtype Pixel = Pixel CInt deriving (Show, Num)

enum "Orientation" ''#{type GtkOrientation} [''Show, ''Read] [
	("OrientationHorizontal", #{const GTK_ORIENTATION_HORIZONTAL}),
	("OrientationVertical", #{const GTK_ORIENTATION_VERTICAL}) ]

enum "WrapMode" ''#{type GtkWrapMode} [''Show, ''Read] [
	("WrapNone", #{const GTK_WRAP_NONE}),
	("WrapChar", #{const GTK_WRAP_CHAR}),
	("WrapWord", #{const GTK_WRAP_WORD}),
	("WrapWordChar", #{const GTK_WRAP_WORD_CHAR}) ]