PageRenderTime 4ms CodeModel.GetById 1ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

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

http://github.com/tybor/Liberty
Specman e | 19 lines | 17 code | 2 blank | 0 comment | 0 complexity | 10da0633acd0f9913c9d6f5531a837f9 MD5 | raw file
 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