/src/wrappers/gtk/library/match_selected_callback.e
Specman e | 81 lines | 66 code | 15 blank | 0 comment | 3 complexity | 989dc641f1a356b035cec5539ca1b0fd MD5 | raw file
1indexing 2 description: "Generic callback for the match-selected signal" 3 copyright: "[ 4 Copyright (C) 2006 Paolo redaelli, eiffel-libraries team, GTK+ team and others 5 6 This library is free software; you can redistribute it and/or 7 modify it under the terms of the GNU Lesser General Public License 8 as published by the Free Software Foundation; either version 2.1 of 9 the License, or (at your option) any later version. 10 11 This library is distributed in the hope that it will be useful, but 12 WITHOUT ANY WARRANTY; without even the implied warranty of 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 14 Lesser General Public License for more details. 15 16 You should have received a copy of the GNU Lesser General Public 17 License along with this library; if not, write to the Free Software 18 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 19 02110-1301 USA 20 ]" 21 license: "LGPL v2 or later" 22 date: "$Date:$" 23 revision "$Revision:$" 24 25class MATCH_SELECTED_CALLBACK 26 27inherit CALLBACK redefine object end 28 29insert G_OBJECT_FACTORY [GTK_ENTRY_COMPLETION] 30 31creation make 32 33feature 34 object: GTK_ENTRY_COMPLETION 35 36feature 37 callback (model_ptr, iter_ptr, instance: POINTER): INTEGER is 38 local 39 an_iter: GTK_TREE_ITER 40 a_model: GTK_TREE_MODEL 41 model_factory: G_OBJECT_EXPANDED_FACTORY [GTK_TREE_MODEL] 42 do 43 debug 44 print ("Callback: instance=") print (instance.to_string) print ("%N") 45 end 46 47 object := wrapper(instance) 48 create an_iter.copy_from_pointer (iter_ptr) 49 a_model := model_factory.wrapper (model_ptr) 50 Result := function.item ([a_model, an_iter, object]).to_integer 51 end 52 53 callback_pointer: POINTER is 54 do 55 Result := get_callback_pointer ($callback) 56 ensure 57 Result.is_not_null 58 end 59 60 connect (an_object: GTK_ENTRY_COMPLETION; a_function: like function) is 61 do 62 debug 63 print ("MATCH_SELECTED_CALLBACK.connect (an_object=") print (an_object.to_pointer.to_string) 64 print (" an_object.handle=") print (an_object.handle.to_string) 65 print (") Current=") print (to_pointer.to_string) 66 print (" Current.handle=") print (handle.to_string) 67 print ("%N") 68 end 69 70 handler_id := g_signal_connect_closure (an_object.handle, 71 signal_name.to_external, 72 handle, 73 0 -- i.e. call it before default handler 74 ) 75 function := a_function 76 end 77 78 signal_name: STRING is "match-selected" 79 80 function: FUNCTION [ANY, TUPLE [GTK_TREE_MODEL, GTK_TREE_ITER, GTK_ENTRY_COMPLETION], BOOLEAN] 81end