/src/wrappers/gtk/library/color_set_callback.e

http://github.com/tybor/Liberty · Specman e · 71 lines · 54 code · 15 blank · 2 comment · 3 complexity · 8f0ba474f066d3abbd3ca73afdc9a5c5 MD5 · raw file

  1. indexing
  2. description: "Callback for the color-set signal"
  3. copyright: "[
  4. Copyright (C) 2006 Paolo redaelli, Anthony Lenton, eiffel-libraries team, GTK+ team and others
  5. This library is free software; you can redistribute it and/or
  6. modify it under the terms of the GNU Lesser General Public License
  7. as published by the Free Software Foundation; either version 2.1 of
  8. the License, or (at your option) any later version.
  9. This library is distributed in the hope that it will be useful, but
  10. WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  12. Lesser General Public License for more details.
  13. You should have received a copy of the GNU Lesser General Public
  14. License along with this library; if not, write to the Free Software
  15. Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  16. 02110-1301 USA
  17. ]"
  18. license: "LGPL v2 or later"
  19. date: "$Date:$"
  20. revision "$Revision:$"
  21. class COLOR_SET_CALLBACK
  22. inherit
  23. CALLBACK
  24. redefine
  25. object
  26. end
  27. insert G_OBJECT_FACTORY [GTK_COLOR_BUTTON]
  28. creation make
  29. feature
  30. object: GTK_COLOR_BUTTON
  31. feature
  32. callback (instance: POINTER) is
  33. do
  34. -- The following is written with the implicit requirement
  35. -- that object actually has an Eiffel wrapper.
  36. object := wrapper(instance)
  37. procedure.call ([object])
  38. end
  39. callback_pointer: POINTER is
  40. do
  41. Result := get_callback_pointer ($callback)
  42. ensure
  43. Result.is_not_null
  44. end
  45. connect (an_object: GTK_COLOR_BUTTON; a_procedure: like procedure) is
  46. do
  47. handler_id := g_signal_connect_closure (an_object.handle,
  48. signal_name.to_external,
  49. handle,
  50. 0 -- i.e. call it before default handler
  51. )
  52. procedure := a_procedure
  53. end
  54. signal_name: STRING is "color-set"
  55. procedure: PROCEDURE [ANY, TUPLE[GTK_COLOR_BUTTON]]
  56. end