 -- Further formatting options have to be specified.
 --
 tableAttach :: (TableClass tb, WidgetClass w) => tb -> w -> Int -> Int ->
-               Int -> Int -> AttachOptions -> AttachOptions -> Int -> Int ->
-               IO ()
+               Int -> Int -> [AttachOptions] -> [AttachOptions] -> Int ->
+               Int -> IO ()
 tableAttach tb child leftAttach rightAttach topAttach bottomAttach xoptions
             yoptions xpadding ypadding = {#call table_attach#} (toTable tb)
   (toWidget child) (fromIntegral leftAttach) (fromIntegral rightAttach) 
   (fromIntegral topAttach) (fromIntegral bottomAttach) 
-  ((fromIntegral.fromEnum) xoptions) ((fromIntegral.fromEnum) yoptions) 
+  ((fromIntegral.fromFlags) xoptions) ((fromIntegral.fromFlags) yoptions) 
   (fromIntegral xpadding) (fromIntegral ypadding)
 
 -- @method tableAttachDefaults@ Put a new widget in the table container. As

import Object	(makeNewObject)
{#import Hierarchy#}
{#import Signal#}
import Enums	(AttachOptions(..))

{# context lib="gtk" prefix="gtk" #}


--          
--  Created: 15 May 2001
--
--  Version $Revision: 1.3 $ from $Date: 2002/06/20 14:13:05 $
--
--  Copyright (c) 1999..2002 Axel Simon
--
