 --
 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==PackFill) (fromIntegral pad)
+  (fromBool $ p/=PackNatural) (fromBool $ p==PackGrow) (fromIntegral pad)
 
 
 -- @method boxPackStartDefaults@ Like @ref method boxPackStart@ but uses the

    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)


