Anonymous user
Simple windowed application: Difference between revisions
→{{header|PureBasic}}
(Go solution) |
|||
Line 1,173:
} -SizeToContent WidthAndHeight -Show</lang>
=={{header|Prolg}}==
Works with SWI-Prolog and XPCE.
<lang Prolog>:- dynamic click/1.
dialog('Simple windowed application',
[ object :=
Simple_windowed_application,
parts :=
[ Simple_windowed_application :=
dialog('Simple windowed application'),
Name :=
label(name, 'There have been no clicks yet'),
BtnClick :=
button(button)
],
modifications :=
[ BtnClick := [ label := 'Click me !'
]
],
layout :=
[ area(Name,
area(40, 20, 200, 18)),
area(BtnClick,
area(90, 60, 80, 24))
],
behaviour :=
[
BtnClick := [message := message(@prolog, btnclick, Name)]
]
]).
btnclick(Label) :-
retract(click(V)),
V1 is V+1,
assert(click(V1)),
sformat(A, '~w click(s)', [V1]),
send(Label, selection, A).
simple_windowed :-
retractall(click(_)),
assert(click(0)),
make_dialog(D, 'Simple windowed application'),
send(D, open).
</lang>
=={{header|PureBasic}}==
<lang PureBasic>Global Window_0
| |||