/src/wrappers/gtk/library/expose_event_callback.e

http://github.com/tybor/Liberty · Specman e · 72 lines · 56 code · 15 blank · 1 comment · 3 complexity · 56acd06678f6e80ebb4a43ffa6201001 MD5 · raw file

  1. indexing
  2. description: "Callback for the expose-event signal."
  3. copyright: "[
  4. Copyright (C) 2007 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 EXPOSE_EVENT_CALLBACK
  22. inherit CALLBACK redefine object end
  23. insert G_OBJECT_FACTORY [GTK_WIDGET]
  24. creation
  25. make
  26. feature
  27. object: GTK_WIDGET
  28. feature
  29. callback (event_expose_ptr: POINTER; instance: POINTER): INTEGER is
  30. local
  31. expose_event: GDK_EVENT_EXPOSE
  32. do
  33. check eiffel_created_the_widget: has_eiffel_wrapper_stored (instance) end
  34. object := wrapper(instance)
  35. create expose_event.from_external_pointer (event_expose_ptr)
  36. Result := function.item ([expose_event, object]).to_integer
  37. -- GTK is about to release this event, detach it from Eiffel
  38. expose_event.dispose
  39. end
  40. callback_pointer: POINTER is
  41. do
  42. Result := get_callback_pointer ($callback)
  43. ensure
  44. Result.is_not_null
  45. end
  46. connect (an_object: GTK_WIDGET; a_function: FUNCTION [ANY, TUPLE [GDK_EVENT_EXPOSE, GTK_WIDGET], BOOLEAN]) is
  47. do
  48. handler_id := g_signal_connect_closure (an_object.handle,
  49. signal_name.to_external,
  50. handle,
  51. 0 -- i.e. call it before default handler
  52. )
  53. function := a_function
  54. end
  55. function: FUNCTION [ANY, TUPLE [GDK_EVENT_EXPOSE, GTK_WIDGET], BOOLEAN]
  56. signal_name: STRING is "expose-event"
  57. end -- class EXPOSE_EVENT_CALLBACK