     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),
+    return (if fill then PackGrow else 
+            (if expand then PackRepel else PackNatural),
 	    padding,pack)
 
 -- @method boxSetChildPacking@ Set the packing parameter of a child.

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

--
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
