 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==PackFill) 
+  (toWidget w) (fromBool $ pack/=PackNatural) (fromBool $ pack==PackGrow) 
   (fromIntegral pad) ((fromIntegral.fromEnum) pt)
 
 

    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.

--
boxPackEnd :: (BoxClass b, WidgetClass w) => b -> w -> Packing -> Int -> IO ()
boxPackEnd b w p pad = {#call box_pack_end#} (toBox b) (toWidget w)
  (fromBool $ p/=PackNatural) (fromBool $ p==PackGrow) (fromIntegral pad)


-- @method boxPackStartDefaults@ Like @ref method boxPackStart@ but uses the
