{-# LINE 1 "src/Stopgap/Graphics/UI/Gtk/Container.hsc" #-}
{-# LANGUAGE ImportQualifiedPost #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Stopgap.Graphics.UI.Gtk.Container where

import Foreign.Ptr
import Stopgap.Graphics.UI.Gtk.Widget qualified as Gtk.Widget

data CTag

newtype C = C (Ptr CTag) deriving Int -> C -> ShowS
[C] -> ShowS
C -> String
(Int -> C -> ShowS) -> (C -> String) -> ([C] -> ShowS) -> Show C
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> C -> ShowS
showsPrec :: Int -> C -> ShowS
$cshow :: C -> String
show :: C -> String
$cshowList :: [C] -> ShowS
showList :: [C] -> ShowS
Show

class Gtk.Widget.IsW c => IsC c where toC :: c -> C

add :: (IsC c, Gtk.Widget.IsW w) => c -> w -> IO ()
add :: forall c w. (IsC c, IsW w) => c -> w -> IO ()
add c
c w
w = C -> W -> IO ()
c_gtk_container_add (c -> C
forall c. IsC c => c -> C
toC c
c) (w -> W
forall w. IsW w => w -> W
Gtk.Widget.toW w
w)

foreign import ccall "gtk_container_add" c_gtk_container_add ::
	C -> Gtk.Widget.W -> IO ()