[htoolkit-cvs] port/src/Port StatusBar.hs,NONE,1.1

[<kr_...@us...>]

Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv32717/src/Port

Added Files:
	StatusBar.hs 
Log Message:
Basic support for statusbar


--- NEW FILE: StatusBar.hs ---
{-# OPTIONS -fglasgow-exts -#include Types.h #-}
-----------------------------------------------------------------------------------------
{-| Module      :  StatusBar
    Copyright   :  (c) Krasimir Angelov 2003
    License     :  BSD-style

    Maintainer  :  ka2...@ya...
    Stability   :  provisional
    Portability :  portable
    
    Defines an API for status bar creation.
    A status bar is a horizontal band at the bottom of an application window
    in which the application can display various kinds of status information.    

-}
-----------------------------------------------------------------------------------------
module Graphics.UI.Port.StatusBar
	( setStatusBarVisible, getStatusBarVisible
	) where

foreign import ccall "osSetStatusBarVisible" setStatusBarVisible :: Bool -> IO ()
foreign import ccall "osGetStatusBarVisible" getStatusBarVisible :: IO Bool