43 lines
619 B
Plaintext
43 lines
619 B
Plaintext
note
|
|
description: "Summary description for {SAMPLE_PAGE}."
|
|
author: ""
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
SAMPLE_PAGE
|
|
|
|
inherit
|
|
|
|
WSF_PAGE_CONTROL
|
|
redefine
|
|
initialize_controls,
|
|
process
|
|
end
|
|
|
|
create
|
|
make
|
|
|
|
feature
|
|
|
|
initialize_controls
|
|
do
|
|
button := create {WSF_BUTTON_CONTROL}.make ("sample_button", "I'm a button")
|
|
button.set_click_event(agent handle_click)
|
|
control := button
|
|
end
|
|
|
|
handle_click(context: WSF_PAGE_CONTROL)
|
|
do
|
|
if attached {SAMPLE_PAGE} context as sp then
|
|
sp.button.set_text("Hello World! (Ueeee)")
|
|
end
|
|
end
|
|
|
|
process
|
|
do
|
|
end
|
|
|
|
button: WSF_BUTTON_CONTROL
|
|
end
|