 --          
 --  Created: 15 May 2001
 --
---  Version $Revision: 1.3 $ from $Date: 2002/07/11 12:15:22 $
+--  Version $Revision: 1.4 $ from $Date: 2002/07/12 13:06:08 $
 --
 --  Copyright (c) 1999..2002 Axel Simon
 --

    fill    <- liftM toBool $ peek fillPtr
    padding <- liftM fromIntegral $ peek paddingPtr
    pack    <- liftM (toEnum.fromIntegral) $ peek packPtr
    return (if fill then PackFill else 
            (if expand then PackExpand else PackNatural),
	    padding,pack)

-- @method boxSetChildPacking@ Set the packing parameter of a child.

boxSetChildPacking :: (BoxClass b, WidgetClass w) => b -> w -> Packing ->
                      Int -> PackType -> IO ()
boxSetChildPacking b w pack pad pt = {#call box_set_child_packing#} (toBox b) 
  (toWidget w) (fromBool $ pack/=PackNatural) (fromBool $ pack==PackGrow) 
  (fromIntegral pad) ((fromIntegral.fromEnum) pt)


