Update of /cvsroot/gtk2hs/gtk2hs/gtk/layout
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5286/gtk/layout
Added Files:
Expander.chs
Log Message:
added new gtk 2.4 modules (Expander, ComboBox, ComboBoxEntry,
EntryCompletion) and added new methods for Entry.
Also exported new modules from main Gtk.hs
--- NEW FILE: Expander.chs ---
-- |GIMP Toolkit (GTK) Binding for Haskell: binding to GConf -*-haskell-*-
-- for storing and retrieving configuartion information
--
-- Author : Duncan Coutts
-- Created: 24 April 2004
--
-- Copyright (c) 2004 Duncan Coutts
--
-- This library is free software; you can redistribute it and/or
-- modify it under the terms of the GNU Library General Public
-- License as published by the Free Software Foundation; either
-- version 2 of the License, or (at your option) any later version.
--
-- This library is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-- Library General Public License for more details.
--
--- Description ---------------------------------------------------------------
--
-- Language: Haskell 98 Binding Module
--
-- An Expander allows the user to hide or show its child by clicking on an
-- expander triangle similar to the triangles used in a TreeView.
--
-- Normally you use an expander as you would use any other descendant of GtkBin
-- you create the child widget and use containerAdd to add it to the expander.
-- When the expander is toggled, it will take care of showing and hiding the
-- child automatically.
--
-- Added in GTK+ 2.4
--
module Expander (
Expander,
ExpanderClass,
expanderNew,
expanderNewWithMnemonic,
expanderSetExpanded,
expanderGetExpanded,
expanderSetSpacing,
expanderGetSpacing,
expanderSetLabel,
expanderGetLabel,
expanderSetUseUnderline,
expanderGetUseUnderline,
expanderSetUseMarkup,
expanderGetUseMarkup,
expanderSetLabelWidget,
expanderGetLabelWidget,
onActivate,
afterActivate
) where
import Monad (liftM)
import FFI
import Object
{#import Hierarchy#}
import Signal
{# context lib="gtk" prefix ="gtk" #}
expanderNew :: String -> IO Expander
expanderNew label =
makeNewObject mkExpander $ liftM castPtr $
withUTFString label $ \strPtr ->
{# call gtk_expander_new #} strPtr
expanderNewWithMnemonic :: String -> IO Expander
expanderNewWithMnemonic label =
makeNewObject mkExpander $ liftM castPtr $
withUTFString label $ \strPtr ->
{# call gtk_expander_new_with_mnemonic #} strPtr
expanderSetExpanded :: Expander -> Bool -> IO ()
expanderSetExpanded expander expanded =
{# call gtk_expander_set_expanded #} expander (fromBool expanded)
expanderGetExpanded :: Expander -> IO Bool
expanderGetExpanded expander = liftM toBool $
{# call gtk_expander_get_expanded #} expander
expanderSetSpacing :: Expander -> Int -> IO ()
expanderSetSpacing expander spacing =
{# call gtk_expander_set_spacing #} expander (fromIntegral spacing)
expanderGetSpacing :: Expander -> IO Int
expanderGetSpacing expander = liftM fromIntegral $
{# call gtk_expander_get_spacing #} expander
expanderSetLabel :: Expander -> String -> IO ()
expanderSetLabel expander label =
withUTFString label $ \strPtr ->
{# call gtk_expander_set_label #} expander strPtr
expanderGetLabel :: Expander -> IO String
expanderGetLabel expander = do
strPtr <- {# call gtk_expander_get_label #} expander
peekUTFString strPtr
expanderSetUseUnderline :: Expander -> Bool -> IO ()
expanderSetUseUnderline expander useUnderline =
{# call gtk_expander_set_use_underline #} expander (fromBool useUnderline)
expanderGetUseUnderline :: Expander -> IO Bool
expanderGetUseUnderline expander = liftM toBool $
{# call gtk_expander_get_use_underline #} expander
expanderSetUseMarkup :: Expander -> Bool -> IO ()
expanderSetUseMarkup expander useMarkup =
{# call gtk_expander_set_use_markup #} expander (fromBool useMarkup)
expanderGetUseMarkup :: Expander -> IO Bool
expanderGetUseMarkup expander = liftM toBool $
{# call gtk_expander_get_use_markup #} expander
expanderSetLabelWidget :: WidgetClass widget => Expander -> widget -> IO ()
expanderSetLabelWidget expander widget =
{# call gtk_expander_set_label_widget #} expander (toWidget widget)
expanderGetLabelWidget :: Expander -> IO Widget
expanderGetLabelWidget expander =
makeNewObject mkWidget $
{# call gtk_expander_get_label_widget #} expander
onActivate :: Expander -> IO () -> IO (ConnectId Expander)
afterActivate :: Expander -> IO () -> IO (ConnectId Expander)
onActivate = connect_NONE__NONE "activate" False
afterActivate = connect_NONE__NONE "activate" True
|
