Simple windowed application: Difference between revisions
Content added Content deleted
(Go solution) |
|||
Line 1,173: | Line 1,173: | ||
} -SizeToContent WidthAndHeight -Show</lang> |
} -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}}== |
=={{header|PureBasic}}== |
||
<lang PureBasic>Global Window_0 |
<lang PureBasic>Global Window_0 |