Anonymous user
Simple windowed application: Difference between revisions
Added BBC BASIC
(Changed '@' to '!' for functions in URLs) |
(Added BBC BASIC) |
||
Line 89:
ExitApp ; exit this process
Return</lang>
=={{header|BBC BASIC}}==
{{works with|BBC BASIC for Windows}}
<lang> INSTALL @lib$+"WINLIB2"
INSTALL @lib$+"WINLIB5"
window% = FN_newdialog("Rosetta Code", 100, 100, 120, 52, 8, 1000)
PROC_static(window%, "There have been no clicks yet", 100, 10, 10, 100, 14, 0)
PROC_pushbutton(window%, "Click me", FN_setproc(PROCclick), 40, 30, 40, 16, 0)
PROC_showdialog(window%)
REPEAT
WAIT 1
UNTIL !window% = 0
QUIT
DEF PROCclick
PRIVATE clicks%
clicks% += 1
SYS "SetDlgItemText", !window%, 100, "Number of clicks = " + STR$(clicks%)
ENDPROC</lang>
=={{header|C}}==
| |||