main
::
IO
(
)
main
=
start
$
do
w
<-
frame
[
]
p
<-
panel w
[
]
en
<-
intEntry p
[
]
set en
[
on click
:=
\
x
->
print
x
>>
propagateEvent
]
set w
[
layout
:=
container p
$
row
10
[
widget en, glue
]
, size
:=
Size
300
300
]