GUI component interaction: Difference between revisions
no edit summary
m (added whitespace before the TOC, added a Task (bold) header, presented three bullet items in the task requirements instead of a long sentence, split other requirements into separate sentences.) |
No edit summary |
||
Line 2,163:
(send frame show #t)
</lang>
=={{header|Ring}}==
<lang ring>
Load "guilib.ring"
MyApp = New qApp {
num = 0
win1 = new qWidget() {
setwindowtitle("Hello World")
setGeometry(100,100,370,250)
btn1 = new qpushbutton(win1) {
setGeometry(200,200,100,30)
settext("Random")
setclickevent("Rand()")}
btn2 = new qpushbutton(win1) {
setGeometry(50,200,100,30)
settext("Increment")
setclickevent("Increment()")}
lineedit1 = new qlineedit(win1) {
setGeometry(10,100,350,30)}
show()}
exec()}
func Rand
num = string(random(10000))
lineedit1.settext(num)
func Increment
lineedit1{ num = text()}
num = string(number(num)+1)
lineedit1.settext(num)
</lang>
Output:
=={{header|Ruby}}==
|