/src/wrappers/gtk/library/row_inserted_callback.e

http://github.com/tybor/Liberty · Specman e · 85 lines · 69 code · 16 blank · 0 comment · 3 complexity · 396023989bc7c76314010e3a82e8a1fe MD5 · raw file

  1. indexing
  2. description: "Generic callback for the row-inserted 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 ROW_INSERTED_CALLBACK
  22. inherit
  23. CALLBACK redefine object end
  24. insert
  25. G_OBJECT_FACTORY [GTK_TREE_MODEL]
  26. creation make
  27. feature
  28. object: GTK_TREE_MODEL
  29. feature
  30. callback (tree_path, tree_iter, instance: POINTER) is
  31. local
  32. tree_path_obj: GTK_TREE_PATH
  33. tree_iter_obj: GTK_TREE_ITER
  34. do
  35. debug
  36. print ("Callback: instance=") print (instance.to_string) print ("%N")
  37. end
  38. object := wrapper(instance)
  39. create tree_iter_obj.copy_from_pointer (tree_iter)
  40. tree_iter_obj.attach_to (object)
  41. create tree_path_obj.copy_from_pointer (tree_path)
  42. procedure.call ([tree_path_obj, tree_iter_obj, object])
  43. end
  44. callback_pointer: POINTER is
  45. do
  46. Result := get_callback_pointer ($callback)
  47. ensure
  48. Result.is_not_null
  49. end
  50. connect (an_object: GTK_TREE_MODEL;
  51. a_procedure: PROCEDURE [ANY, TUPLE[GTK_TREE_PATH, GTK_TREE_ITER, GTK_TREE_MODEL]]) is
  52. do
  53. debug
  54. print ("ROW_INSERTED_CALLBACK.connect (an_object=") print (an_object.to_pointer.to_string)
  55. print (" an_object.handle=") print (an_object.handle.to_string)
  56. print (") Current=") print (to_pointer.to_string)
  57. print (" Current.handle=") print (handle.to_string)
  58. print ("%N")
  59. end
  60. handler_id := g_signal_connect_closure (an_object.handle,
  61. signal_name.to_external,
  62. handle,
  63. 0 -- i.e. call it before default handler
  64. )
  65. procedure:=a_procedure
  66. end
  67. signal_name: STRING is "row-inserted"
  68. procedure: PROCEDURE [ANY, TUPLE[GTK_TREE_PATH, GTK_TREE_ITER, GTK_TREE_MODEL]]
  69. end