/src/wrappers/gtk/library/button_event_callback.e

http://github.com/tybor/Liberty · Specman e · 70 lines · 53 code · 13 blank · 4 comment · 3 complexity · 9b4e156bc1ffd61f36def11328a1e817 MD5 · raw file

  1. indexing
  2. description: "Generic callback for the button-release-event and button-pressed-event signals"
  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. deferred class BUTTON_EVENT_CALLBACK
  22. -- You want to use one of BUTTON_EVENT_RELEASE_CALLBACK or BUTTON_EVENT_PRESS_CALLBACK
  23. inherit CALLBACK redefine object end
  24. insert G_OBJECT_FACTORY [GTK_WIDGET]
  25. feature
  26. object: GTK_WIDGET
  27. feature
  28. callback (event_button_ptr: POINTER; instance: POINTER): INTEGER is
  29. local
  30. button_event: GDK_EVENT_BUTTON
  31. do
  32. debug print ("Callback: instance=") print (instance.to_string) print ("%N") end
  33. -- The following is written with the implicit requirement
  34. -- that object actually has an Eiffel wrapper
  35. object := wrapper(instance)
  36. create button_event.from_external_pointer (event_button_ptr)
  37. Result := function.item ([button_event, object]).to_integer
  38. -- GTK is about to release this event, detach it from Eiffel
  39. button_event.dispose
  40. end
  41. callback_pointer: POINTER is
  42. do
  43. Result := get_callback_pointer ($callback)
  44. ensure
  45. Result.is_not_null
  46. end
  47. connect (an_object: GTK_WIDGET; a_function: FUNCTION [ANY, TUPLE [GDK_EVENT_BUTTON, GTK_WIDGET], BOOLEAN]) is
  48. do
  49. handler_id := g_signal_connect_closure (an_object.handle,
  50. signal_name.to_external,
  51. handle,
  52. 0 -- i.e. call it before default handler
  53. )
  54. function := a_function
  55. end
  56. function: FUNCTION [ANY, TUPLE [GDK_EVENT_BUTTON, GTK_WIDGET], BOOLEAN]
  57. end -- class BUTTON_EVENT_CALLBACK