     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.

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) 
  (fromIntegral pad) ((fromIntegral.fromEnum) pt)



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