Anonymous user
GUI component interaction: Difference between revisions
→{{header|M2000 Interpreter}}
Line 1,764:
=={{header|M2000 Interpreter}}==
M2000 uses twips for positions and width/height of forms and controls. M2000 Environment has a window manager, which used in Windows and Ubuntu (through Wine) operating systems. The window style is the same to every os.
Version 2, addition a title for form
<lang M2000 Interpreter>
Line 1,775 ⟶ 1,776:
Method buttonInc, "move", 2000,3000,2000,600
Method buttonRND, "move", 4000,3000,2000,600
With form1, "Title", "Rosetta Code: GUI component interaction"
With textbox1,"vartext" as textbox1.value$, "Prompt", "Value:", "ShowAlways", true
With buttonInc,"Caption","Increment"
Line 1,803 ⟶ 1,805:
}
Function buttonRND.Click {
textbox1.value$=str$(Random(0, 10000), "")
After 100 {Try {Method textbox1,"GetFocus"}}
Line 1,814 ⟶ 1,816:
Checkit
</lang>
=={{header|Maple}}==
| |||