gtk2hs-commit Mailing List for Gtk2Hs - A GUI Library for Haskell (Page 13)

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

diffing dir...
Tue Sep  7 04:47:41 EDT 2010  Andy Stewart <laz...@gm...>
  * Add new module Buttons.LinkButton
  Ignore-this: 5e93f72ddb69fe983c9a7449fa93ab0d
    {
    addfile ./gtk/Graphics/UI/Gtk/Buttons/LinkButton.chs
    hunk ./gtk/Graphics/UI/Gtk/Buttons/LinkButton.chs 1
    +{-# LANGUAGE CPP #-}
    +-- -*-haskell-*-
    +--  GIMP Toolkit (GTK) Widget LinkButton
    +--
    +--  Author : Andy Stewart
    +--
    +--  Created: 22 Mar 2010
    +--
    +--  Copyright (C) 2010 Andy Stewart
    +--
    +--  This library is free software; you can redistribute it and/or
    +--  modify it under the terms of the GNU Lesser General Public
    +--  License as published by the Free Software Foundation; either
    +--  version 2.1 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
    +--  Lesser General Public License for more details.
    +--
    +-- |
    +-- Maintainer  : gtk...@li...
    +-- Stability   : provisional
    +-- Portability : portable (depends on GHC)
    +--
    +-- Create buttons bound to a URL
    +--
    +-- * Module available since Gtk+ version 2.10
    +--
    +module Graphics.UI.Gtk.Buttons.LinkButton (
    +
    +-- * Detail
    +--
    +-- | A 'LinkButton' is a 'Button' with a hyperlink, similar to the one used by
    +-- web browsers, which triggers an action when clicked. It is useful to show
    +-- quick links to resources.
    +--
    +-- A link button is created by calling either 'linkButtonNew' or
    +-- 'linkButtonNewWithLabel'. If using the former, the URI you pass to the
    +-- constructor is used as a label for the widget.
    +--
    +-- The URI bound to a 'LinkButton' can be set specifically using
    +-- \"set linkButton [linkButtonURI := uri]\", and retrieved using \"uri <- get linkButton linkButtonURI\".
    +--
    +-- 'LinkButton' offers a global hook, which is called when the used clicks
    +-- on it: see 'linkButtonSetURIHook'.
    +--
    +-- 'LinkButton' was added in Gtk+ 2.10.
    +
    +-- * Class Hierarchy
    +--
    +-- |
    +-- @
    +-- |  'GObject'
    +-- |   +----'Object'
    +-- |         +----'Widget'
    +-- |               +----'Container'
    +-- |                     +----'Bin'
    +-- |                           +----'Button'
    +-- |                                 +----LinkButton
    +-- @
    +
    +#if GTK_CHECK_VERSION(2,10,0)
    +-- * Types
    +  LinkButton,
    +  LinkButtonClass,
    +  castToLinkButton,
    +  toLinkButton,
    +
    +-- * Constructors
    +  linkButtonNew,
    +  linkButtonNewWithLabel,
    +
    +-- * Methods
    +  linkButtonSetUriHook,
    +
    +-- * Attributes
    +  linkButtonURI,
    +#if GTK_CHECK_VERSION(2,14,0)
    +  linkButtonVisited,
    +#endif
    +#endif
    +  ) where
    +
    +import Control.Monad	(liftM, unless)
    +
    +import System.Glib.FFI
    +import System.Glib.UTFString
    +import System.Glib.Attributes
    +import System.Glib.Properties
    +import Graphics.UI.Gtk.Abstract.Object	(makeNewObject)
    +{#import Graphics.UI.Gtk.Types#}
    +{#import Graphics.UI.Gtk.Signals#}
    +
    +{# context lib="gtk" prefix="gtk" #}
    +
    +#if GTK_CHECK_VERSION(2,10,0)
    +
    +--------------------
    +-- Constructors
    +
    +-- | Creates a new 'LinkButton' with the URI as its text.
    +--
    +linkButtonNew ::
    +    String -- ^ @uri@ - a valid URI
    + -> IO LinkButton
    +linkButtonNew uri =
    +  makeNewObject mkLinkButton $
    +  liftM (castPtr :: Ptr Widget -> Ptr LinkButton) $
    +  withUTFString uri $ \uriPtr ->
    +  {# call gtk_link_button_new #}
    +    uriPtr
    +
    +-- | Creates a new 'LinkButton' containing a label.
    +--
    +linkButtonNewWithLabel ::
    +    String -- ^ @uri@ - a valid URI
    + -> String -- ^ @label@ - the text of the button
    + -> IO LinkButton
    +linkButtonNewWithLabel uri label =
    +  makeNewObject mkLinkButton $
    +  liftM (castPtr :: Ptr Widget -> Ptr LinkButton) $
    +  withUTFString label $ \labelPtr ->
    +  withUTFString uri $ \uriPtr ->
    +  {# call gtk_link_button_new_with_label #}
    +    uriPtr
    +    labelPtr
    +
    +--------------------
    +-- Methods
    +
    +-- | Sets @func@ as the function that should be invoked every time a user
    +-- clicks a 'LinkButton'. This function is called before every callback
    +-- registered for the \"clicked\" signal.
    +--
    +-- If no uri hook has been set, Gtk+ defaults to calling 'showURI'.
    +--
    +linkButtonSetUriHook :: (String -> IO ()) -> IO ()
    +linkButtonSetUriHook func = do
    +  pfPtr <- mkLinkButtonUriFunc $ \_ cstr _  -> do
    +      str <- peekCString cstr
    +      func str
    +  {# call link_button_set_uri_hook #} pfPtr (castFunPtrToPtr pfPtr) destroyFunPtr
    +  freeHaskellFunPtr pfPtr
    +  [_$_]
    +{#pointer LinkButtonUriFunc#}
    +
    +foreign import ccall "wrapper" mkLinkButtonUriFunc ::
    +  (Ptr LinkButton -> CString -> Ptr () -> IO ())
    +  -> IO LinkButtonUriFunc
    +
    +--------------------
    +-- Attributes
    +
    +-- | The URI bound to this button.
    +-- [_$_]
    +-- Default value: \"\"
    +-- [_$_]
    +-- * Available since Gtk+ version 2.10
    +--
    +linkButtonURI :: LinkButtonClass self => Attr self String
    +linkButtonURI = newAttrFromStringProperty "uri"
    +
    +#if GTK_CHECK_VERSION(2,14,0)
    +-- | The 'visited' state of this button. A visited link is drawn in a different color.
    +-- [_$_]
    +-- Default value: 'False'
    +-- [_$_]
    +-- * Available since Gtk+ version 2.14
    +--
    +linkButtonVisited :: LinkButtonClass self => Attr self Bool
    +linkButtonVisited = newAttrFromBoolProperty "visited"
    +#endif
    +#endif
    }

2003	Jan	Feb	Mar	Apr	May (4)	Jun	Jul (68)	Aug (4)	Sep	Oct (23)	Nov (95)	Dec (9)
2004	Jan (3)	Feb	Mar	Apr (51)	May (81)	Jun (2)	Jul (86)	Aug (143)	Sep (3)	Oct (31)	Nov (63)	Dec (90)
2005	Jan (277)	Feb (157)	Mar (99)	Apr (195)	May (151)	Jun (148)	Jul (98)	Aug (123)	Sep (20)	Oct (174)	Nov (155)	Dec (26)
2006	Jan (51)	Feb (19)	Mar (16)	Apr (12)	May (5)	Jun	Jul (11)	Aug (7)	Sep (10)	Oct (31)	Nov (174)	Dec (56)
2007	Jan (45)	Feb (52)	Mar (10)	Apr (5)	May (47)	Jun (16)	Jul (80)	Aug (29)	Sep (14)	Oct (59)	Nov (46)	Dec (16)
2008	Jan (10)	Feb (1)	Mar	Apr	May (49)	Jun (26)	Jul (8)	Aug (4)	Sep (25)	Oct (53)	Nov (9)	Dec (1)
2009	Jan (66)	Feb (11)	Mar (1)	Apr (14)	May (8)	Jun (1)	Jul (2)	Aug (2)	Sep (9)	Oct (23)	Nov (35)	Dec
2010	Jan (7)	Feb (2)	Mar (39)	Apr (19)	May (161)	Jun (19)	Jul (32)	Aug (65)	Sep (113)	Oct (120)	Nov (2)	Dec
2012	Jan	Feb (5)	Mar (4)	Apr (7)	May (9)	Jun (14)	Jul (1)	Aug	Sep (1)	Oct (1)	Nov (12)	Dec (2)
2013	Jan (1)	Feb (17)	Mar (4)	Apr (4)	May (9)	Jun	Jul (8)	Aug	Sep (2)	Oct	Nov	Dec

gtk2hs-commit Mailing List for Gtk2Hs - A GUI Library for Haskell (Page 13)

gtk2hs-commit — Mailing list for Darcs commit messages.