/src/wrappers/gtk/library/format_value_callback.e

http://github.com/tybor/Liberty · Specman e · 81 lines · 66 code · 15 blank · 0 comment · 3 complexity · 339894bc9434bb844ee08e53a46cc014 MD5 · raw file

  1. indexing
  2. description: "Generic callback for the format-value 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 FORMAT_VALUE_CALLBACK
  22. inherit CALLBACK redefine object end
  23. insert
  24. G_OBJECT_FACTORY[GTK_SCALE]
  25. GLIB_STRING_UTILITY_FUNCTIONS
  26. creation make
  27. feature
  28. object: GTK_SCALE
  29. feature
  30. callback (value: REAL; instance: POINTER): POINTER is
  31. require
  32. instance_not_null: instance.is_not_null
  33. do
  34. debug
  35. print ("Callback: instance=") print (instance.to_string) print ("%N")
  36. print ("is_object: "+g_is_object (instance).out+"%N")
  37. print ("type: "+g_object_type (instance).out+"%N")
  38. end
  39. object := wrapper(instance)
  40. Result := g_strdup (function.item ([value, object]).to_external)
  41. end
  42. callback_pointer: POINTER is
  43. do
  44. Result := get_callback_pointer ($callback)
  45. ensure
  46. Result.is_not_null
  47. end
  48. connect (an_object: GTK_SCALE; a_function: FUNCTION[ANY, TUPLE [REAL, GTK_SCALE], STRING]) is
  49. do
  50. debug
  51. print ("FORMAT_VALUE_CALLBACK.connect (an_object=") print (an_object.to_pointer.to_string)
  52. print (" an_object.handle=") print (an_object.handle.to_string)
  53. print (") Current=") print (to_pointer.to_string)
  54. print (" Current.handle=") print (handle.to_string)
  55. print ("%N")
  56. end
  57. handler_id := g_signal_connect_closure (an_object.handle,
  58. signal_name.to_external,
  59. handle,
  60. 0 -- i.e. call it before default handler
  61. )
  62. function:=a_function
  63. end
  64. signal_name: STRING is "format-value"
  65. function: FUNCTION[ANY, TUPLE [REAL, GTK_SCALE], STRING]
  66. end