GUI component interaction: Difference between revisions
Content added Content deleted
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: | Line 2,163: | ||
(send frame show #t) |
(send frame show #t) |
||
</lang> |
</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}}== |
=={{header|Ruby}}== |