     expand <- liftM toBool $ peek expPtr
     fill <- liftM toBool $ peek fillPtr
     pt <- 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),
 	    pt)
 
 -- @method notebookSetTabLabelPacking@ Set the packing attributes of the given

                              Packing -> PackType -> IO ()
notebookSetTabLabelPacking nb child pack pt = 
  {#call notebook_set_tab_label_packing#} (toNotebook nb) (toWidget child)
    (fromBool $ pack/=PackNatural) (fromBool $ pack==PackFill) 
    ((fromIntegral.fromEnum) pt)

-- @method notebookSetHomogeneousTabs@ Sets whether the tabs must have all the

			 (\_ page -> fun (fromIntegral page))


 
