~ubuntu-branches/ubuntu/lucid/gtk2hs/lucid

« back to all changes in this revision

Viewing changes to gtk/Graphics/UI/Gtk/MenuComboToolbar/SeparatorMenuItem.chs.pp

  • Committer: Bazaar Package Importer
  • Author(s): Liyang HU
  • Date: 2006-07-22 21:31:58 UTC
  • Revision ID: james.westby@ubuntu.com-20060722213158-he81wo6uam30m9aw
Tags: upstream-0.9.10
ImportĀ upstreamĀ versionĀ 0.9.10

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
-- -*-haskell-*-
 
2
--  GIMP Toolkit (GTK) Widget SeparatorMenuItem
 
3
--
 
4
--  Author : Duncan Coutts
 
5
--
 
6
--  Created: 7 April 2005
 
7
--
 
8
--  Version $Revision: 1.2 $ from $Date: 2005/10/19 12:57:37 $
 
9
--
 
10
--  Copyright (C) 2005 Duncan Coutts
 
11
--
 
12
--  This library is free software; you can redistribute it and/or
 
13
--  modify it under the terms of the GNU Lesser General Public
 
14
--  License as published by the Free Software Foundation; either
 
15
--  version 2.1 of the License, or (at your option) any later version.
 
16
--
 
17
--  This library is distributed in the hope that it will be useful,
 
18
--  but WITHOUT ANY WARRANTY; without even the implied warranty of
 
19
--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
20
--  Lesser General Public License for more details.
 
21
--
 
22
-- |
 
23
-- Maintainer  : gtk2hs-users@lists.sourceforge.net
 
24
-- Stability   : provisional
 
25
-- Portability : portable (depends on GHC)
 
26
--
 
27
-- A separator used in menus
 
28
--
 
29
module Graphics.UI.Gtk.MenuComboToolbar.SeparatorMenuItem (
 
30
-- * Detail
 
31
-- 
 
32
-- | The 'SeparatorMenuItem' is a separator used to group items within a menu.
 
33
-- It displays a horizontal line with a shadow to make it appear sunken into
 
34
-- the interface.
 
35
 
 
36
-- * Class Hierarchy
 
37
-- |
 
38
-- @
 
39
-- |  'GObject'
 
40
-- |   +----'Object'
 
41
-- |         +----'Widget'
 
42
-- |               +----'Container'
 
43
-- |                     +----'Bin'
 
44
-- |                           +----'Item'
 
45
-- |                                 +----'MenuItem'
 
46
-- |                                       +----SeparatorMenuItem
 
47
-- @
 
48
 
 
49
-- * Types
 
50
  SeparatorMenuItem,
 
51
  SeparatorMenuItemClass,
 
52
  castToSeparatorMenuItem,
 
53
  toSeparatorMenuItem,
 
54
 
 
55
-- * Constructors
 
56
  separatorMenuItemNew,
 
57
  ) where
 
58
 
 
59
import Monad    (liftM)
 
60
 
 
61
import System.Glib.FFI
 
62
import Graphics.UI.Gtk.Abstract.Object  (makeNewObject)
 
63
{#import Graphics.UI.Gtk.Types#}
 
64
 
 
65
{# context lib="gtk" prefix="gtk" #}
 
66
 
 
67
--------------------
 
68
-- Constructors
 
69
 
 
70
-- | Creates a new 'SeparatorMenuItem'.
 
71
--
 
72
separatorMenuItemNew :: IO SeparatorMenuItem
 
73
separatorMenuItemNew =
 
74
  makeNewObject mkSeparatorMenuItem $
 
75
  liftM (castPtr :: Ptr Widget -> Ptr SeparatorMenuItem) $
 
76
  {# call gtk_separator_menu_item_new #}