Update of /cvsroot/gtk2hs/gtk2hs/gtk/misc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6171/gtk/misc
Modified Files:
Tooltips.chs
Log Message:
Add #ifndef DISABLE_DEPRECATED bits so everything should build now with
./configure --disabled-deprecated.
Index: Tooltips.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/misc/Tooltips.chs,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Tooltips.chs 1 Aug 2004 16:08:13 -0000 1.7
+++ Tooltips.chs 8 Aug 2004 19:34:14 -0000 1.8
@@ -1,3 +1,4 @@
+{-# OPTIONS -cpp #-}
-- -*-haskell-*-
-- GIMP Toolkit (GTK) Widget Tooltips
--
@@ -21,26 +22,26 @@
--
-- |
--
--- * Tooltips are the messages that appear next to a widget when the mouse
--- pointer is held over it for a short amount of time. They are especially
--- helpful for adding more verbose descriptions of things such as buttons
--- in a toolbar.
--- An individual tooltip belongs to a group of tooltips. A group is created
--- with a call to 'tooltipsNew'. Every tooltip in the group can
--- then be
--- turned off with a call to 'tooltipsDisable' and enabled with
--- 'tooltipsEnable'. The length of time the user must keep the
--- mouse over a
--- widget before the tip is shown, can be altered with
--- 'tooltipsSetDelay'.
--- This is set on a 'per group of tooltips' basis.
--- To assign a tip to a particular widget, 'tooltipsSetTip'
--- is used.
+-- Tooltips are the messages that appear next to a widget when the mouse
+-- pointer is held over it for a short amount of time. They are especially
+-- helpful for adding more verbose descriptions of things such as buttons
+-- in a toolbar.
--
--- * To associate 'Tooltips' to a widget it is has to have its own
--- 'DrawWindow'. Otherwise the widget must be set into an
--- 'EventBox'. Can this be done
--- automatically? Perhaps even with tooltips_force_window()?
+-- An individual tooltip belongs to a group of tooltips. A group is created
+-- with a call to 'tooltipsNew'. Every tooltip in the group can
+-- then be turned off with a call to 'tooltipsDisable' and enabled with
+-- 'tooltipsEnable'.
+--
+#ifndef DISABLE_DEPRECATED
+-- The length of time the user must keep the mouse over a widget before the tip
+-- is shown, can be altered with 'tooltipsSetDelay'. This is set on a 'per group
+-- of tooltips' basis.
+--
+#endif
+-- To assign a tip to a particular widget, 'tooltipsSetTip' is used.
+--
+-- To associate 'Tooltips' to a widget it is has to have its own 'DrawWindow'.
+-- Otherwise the widget must be set into an 'EventBox'.
--
module Tooltips(
@@ -50,7 +51,9 @@
tooltipsNew,
tooltipsEnable,
tooltipsDisable,
+#ifndef DISABLE_DEPRECATED
tooltipsSetDelay,
+#endif
tooltipsSetTip,
tooltipsDataGet
) where
@@ -87,6 +90,7 @@
tooltipsDisable :: TooltipsClass t => t -> IO ()
tooltipsDisable t = {#call unsafe tooltips_disable#} (toTooltips t)
+#ifndef DISABLE_DEPRECATED
-- | Sets the time between the user moving the mouse
-- over a widget and the widget's tooltip appearing.
--
@@ -95,6 +99,7 @@
tooltipsSetDelay :: TooltipsClass t => t -> Int -> IO ()
tooltipsSetDelay t time = {#call unsafe tooltips_set_delay#}
(toTooltips t) (fromIntegral time)
+#endif
-- | Adds a tooltip containing the message tipText to
-- the specified GtkWidget.
|
