/src/wrappers/gtk/examples/hello/my_button.e

 1class MY_BUTTON
 2inherit
 3	GTK_BUTTON
 4		redefine with_label, on_clicked
 5		end
 6creation make,with_label
 7feature
 8	on_clicked is
 9		do
10			print ("Hello from `my-button'. I was called with the built-in clicked signal handler%N")
11		end
12			
13	with_label (a_label:STRING) is
14		do
15			Precursor (a_label)
16			enable_on_clicked
17		end
18
19end