Property definitions

app $ HttpRequestClientWindow :: defaultinit
# Simple window with a label and a button
class HttpRequestClientWindow
	super Window

	# Root layout
	var layout = new ListLayout(parent=self)

	# Button to send request
	var button_request = new Button(parent=layout, text="Press to send HTTP request")

	# Label displaying feedback to user
	var label_response = new Label(parent=layout, text="No response yet.")

	init do button_request.observers.add self

	redef fun on_event(event)
	do
		if event isa ButtonPressEvent and event.sender == button_request then
			# Prepare and send request
			var request = new MyHttpRequest(self)
			request.start
		end
	end
end
lib/app/examples/http_request_example.nit:60,1--83,3