[Gtk2hs-commit] (main branch): glade: remove glade/Glade.chs (not sure why this file is here...)

[Peter g. <pg...@co...>]

Wed Jan 14 00:34:23 EST 2009  Peter Gavin <pg...@gm...>
  * glade: remove glade/Glade.chs (not sure why this file is here...)

    hunk ./glade/Glade.chs 1
    --- GIMP Toolkit (GTK) Binding for Haskell: binding to Libglade   -*-haskell-*-
    ---    for loading XML widget specifications
    ---
    ---  Author : Manuel M T Chakravarty
    ---  Created: 13 March 2002
    ---
    ---  Copyright (c) 2002 Manuel M T Chakravarty
    ---  Modified 2003 by Duncan Coutts (gtk2hs port)
    ---
    ---  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.
    ---
    --- |
    ---
    ---  Libglade facilitates loading of XML specifications of whole widget trees
    ---  that have been interactively designed with the GUI builder Glade.  The
    ---  present module exports operations for manipulating 'GladeXML' objects.
    ---
    ---  @glade_xml_signal_autoconnect()@ is not supported. The C variant is not
    ---  suitable for Haskell as @-rdynamic@ leads to huge executable and we
    ---  usually don't want to connect staticly named functions, but closures.
    ---
    --- * @glade_xml_construct()@ is not bound, as it doesn't seem to be useful
    ---   in Haskell.  As usual, the @signal_connect_data@ variant for
    ---   registering signal handlers isn't bound either.  Moreover, the
    ---   @connect_full@ functions are not bound.
    ---
    --- * This binding does not support Libglade functionality that is
    ---   exclusively meant for extending Libglade with new widgets.  Like new
    ---   widgets, such functionality is currently expected to be implemented in
    ---   C.
    ---
    -
    -module Glade (
    -
    -  -- * Data types
    -  --
    -  GladeXMLClass, GladeXML,
    -
    -  -- * Creation operations
    -  --
    -  xmlNew, xmlNewWithRootAndDomain,
    -
    -  -- * Obtaining widget handles
    -  --
    -  xmlGetWidget, xmlGetWidgetRaw
    -
    -) where
    -
    -import Monad	(liftM)
    -import FFI
    -import GType
    -import Object   (makeNewObject)
    -import GObject  (makeNewGObject)
    -{#import Hierarchy#}
    -{#import GladeType#}
    -import GList
    -
    -{#context lib="glade" prefix ="glade"#}
    -
    -
    --- | Create a new XML object (and the corresponding
    --- widgets) from the given XML file; corresponds to
    --- 'xmlNewWithRootAndDomain', but without the ability to specify a root
    --- widget or translation domain.
    ---
    -xmlNew :: FilePath -> IO (Maybe GladeXML)
    -xmlNew file =
    -  withCString file                $ \strPtr1 -> do
    -  xmlPtr <- {#call unsafe xml_new#} strPtr1 nullPtr nullPtr
    -  if xmlPtr==nullPtr then return Nothing
    -                     else liftM Just $ makeNewGObject mkGladeXML (return xmlPtr)
    -
    --- | Create a new GladeXML object (and
    --- the corresponding widgets) from the given XML file with an optional
    --- root widget and translation domain.
    ---
    --- * If the second argument is not @Nothing@, the interface will only be built
    ---   from the widget whose name is given.  This feature is useful if you only
    ---   want to build say a toolbar or menu from the XML file, but not the window
    ---   it is embedded in.  Note also that the XML parse tree is cached to speed
    ---   up creating another \'XML\' object for the same file.
    ---
    -xmlNewWithRootAndDomain :: FilePath -> Maybe String -> Maybe String -> IO (Maybe GladeXML)
    -xmlNewWithRootAndDomain file rootWidgetName domain =
    -  withCString file                $ \strPtr1 ->
    -  withMaybeCString rootWidgetName $ \strPtr2 ->
    -  withMaybeCString domain         $ \strPtr3 -> do
    -  xmlPtr <- {#call unsafe xml_new#} strPtr1 strPtr2 strPtr3
    -  if xmlPtr==nullPtr then return Nothing
    -                     else liftM Just $ makeNewGObject mkGladeXML (return xmlPtr)
    -
    --- | Get the widget that has the given name in
    --- the interface description. If the named widget cannot be found
    --- or is of the wrong type the result is an error.
    ---
    --- * the second parameter should be a dynamic cast function that
    ---   returns the type of object that you expect, eg castToButton
    ---
    --- * the third parameter is the ID of the widget in the glade xml
    ---   file, eg \"button1\".
    ---
    -xmlGetWidget :: (WidgetClass widget) => GladeXML -> (GObject -> widget) -> String -> IO widget
    -xmlGetWidget xml cast name = do
    -  maybeWidget <- xmlGetWidgetRaw xml name
    -  return $ case maybeWidget of
    -    Just widget -> cast (toGObject widget) --the cast will return an error if the object is of the wrong type
    -    Nothing -> error $ "glade.xmlGetWidget: no object named " ++ show name ++ " in the glade file"
    -
    -xmlGetWidgetRaw :: GladeXML -> String -> IO (Maybe Widget)
    -xmlGetWidgetRaw xml name =
    -  withCString name $ \strPtr1 -> do
    -  widgetPtr <- {#call unsafe xml_get_widget#} xml strPtr1
    -  if widgetPtr==nullPtr then return Nothing
    -                        else liftM Just $ makeNewObject mkWidget (return widgetPtr)
    -
    --- Auxilliary routines
    --- -------------------
    -
    --- Marshall an optional string
    ---
    -withMaybeCString :: Maybe String -> (Ptr CChar -> IO a) -> IO a
    -withMaybeCString  = maybeWith withCString
    rmfile ./glade/Glade.chs