/src/wrappers/gtk/library/toggled_callback.e

http://github.com/tybor/Liberty · Specman e · 81 lines · 62 code · 14 blank · 5 comment · 3 complexity · ef3efbeaa85a1c73c43e063aaf5a6440 MD5 · raw file

  1. indexing
  2. description: "Generic callback for the toggled signal"
  3. copyright: "[
  4. Copyright (C) 2006 Paolo redaelli, 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 TOGGLED_CALLBACK [W -> G_OBJECT]
  22. inherit
  23. CALLBACK redefine object end
  24. insert
  25. G_OBJECT_FACTORY [W]
  26. creation make
  27. feature
  28. object: W
  29. feature
  30. callback (instance: POINTER) is
  31. do
  32. debug
  33. print ("Callback: instance=") print (instance.to_string) print ("%N")
  34. end
  35. -- The following is written with the implicit requirement
  36. -- that the button is actually created bu the Eiffel
  37. -- application.
  38. object := wrapper(instance)
  39. -- The above line replaces "create object.from_external_pointer
  40. -- (instance)" which continuosly creates new Eiffel wrappers
  41. procedure.call ([object])
  42. end
  43. callback_pointer: POINTER is
  44. do
  45. Result := get_callback_pointer ($callback)
  46. ensure
  47. Result.is_not_null
  48. end
  49. connect (an_object: W; a_procedure: PROCEDURE [ANY, TUPLE[W]]) is
  50. do
  51. debug
  52. print ("TOGGLED_CALLBACK.connect (an_object=") print (an_object.to_pointer.to_string)
  53. print (" an_object.handle=") print (an_object.handle.to_string)
  54. print (") Current=") print (to_pointer.to_string)
  55. print (" Current.handle=") print (handle.to_string)
  56. print ("%N")
  57. end
  58. handler_id := g_signal_connect_closure (an_object.handle,
  59. signal_name.to_external,
  60. handle,
  61. 0 -- i.e. call it before default handler
  62. )
  63. procedure:=a_procedure
  64. end
  65. signal_name: STRING is "toggled"
  66. procedure: PROCEDURE [ANY, TUPLE[W]]
  67. end