Anonymous user
Simple windowed application: Difference between revisions
no edit summary
Walterpachl (talk | contribs) m (→{{header|ooRexx}}: added output) |
No edit summary |
||
Line 783:
END</lang>
==Icon and {{header|Unicon}}==
This version is Unicon-specific:
<lang unicon>import gui
$include "guih.icn"
procedure main()
SimpleWindow().show_modal()
end
class SimpleWindow : Dialog(label, button, count)
method component_setup()
self.set_attribs("size=222,139")
label := Label()
label.set_pos("24", "24")
label.set_internal_alignment("l")
label.set_label("There have been no clicks yet.")
self.add(label)
button := TextButton()
button.set_pos(24, 53)
button.set_label("click me")
button.set_internal_alignment("c")
button.connect(self, "incr", ACTION_EVENT)
self.add(button)
end
method incr()
/count := 0
label.set_label("There have been "||(count+:=1)||" clicks.")
end
initially
self.Dialog.initially()
end</lang>
=={{header|IDL}}==
| |||