Add assigner

2013-08-27 16:33:54 +02:00
parent 6fdffb7418
commit c29a6ad195
1 changed files with 5 additions and 0 deletions
--- a/library/server/wsf_html/webcontrol/wsf_button_control.e
+++ b/library/server/wsf_html/webcontrol/wsf_button_control.e
@@ -50,6 +50,11 @@ feature
 			Result.put (create {JSON_STRING}.make_json (text), create {JSON_STRING}.make_json ("text"))
 		end

+	set_text (t: STRING)
+		do
+			text := t
+		end
+
 feature

 	text: STRING