 {#import Hierarchy#}
 {#import Signal#}
 import Enums	(PolicyType(..), CornerType(..), ShadowType(..))
+import Maybe    (fromMaybe)
+import Structs  (nullForeignPtr)
 
 {# context lib="gtk" prefix="gtk" #}
 

--          
--  Created: 23 May 2001
--
--  Version $Revision: 1.2 $ from $Date: 2002/05/24 09:43:25 $
--
--  Copyright (c) 1999..2002 Axel Simon
--


-- @constructor scrolledWindowNew@ Create a new @ref type ScrolledWindow@.
--
scrolledWindowNew :: Maybe Adjustment -> Maybe Adjustment -> IO ScrolledWindow
scrolledWindowNew hAdj vAdj = makeNewObject mkScrolledWindow $ liftM castPtr $
  {#call unsafe scrolled_window_new#} (fromMAdj hAdj) (fromMAdj vAdj)
 where
 fromMAdj :: Maybe Adjustment -> Adjustment
 fromMAdj = fromMaybe $ mkAdjustment nullForeignPtr

-- @method scrolledWindowGetHAdjustment@ Retrieve the horizontal
-- @ref arg Adjustment@ of the @ref type ScrolledWindow@.
