restart:
with(Maplets):
with(Maplets[Elements]):
PrintDialog:=proc()
 Display(
  Maplet(
   FileDialog[FD](
    onapprove = Shutdown(['FD']),
    oncancel=Shutdown()
   )
  )
 ):
 if (%=NULL) then
  Maplets:-Tools:-Set(TF="") 
 else
  Maplets:-Tools:-Set(TF=op(%))
 end if:
end proc:
M:=Maplet(
 Window(
  layout=BorderLayout(caption="BorderLayout",border=true,vgap=10,hgap=10,
   GridCell2(constraint=north,
    Label("Вызов диалога",halign=left,font=Font("times",bold,14))),
   GridCell2(constraint=west,Label("Файл: ")),
   GridCell2(constraint=south,
    BoxLayout(Button(width=100,caption="Выход",Shutdown()))),
   GridCell2(constraint=east,
    Button("Получить",onclick=Evaluate(function='PrintDialog'()))),
   GridCell2(constraint=center,
    TextField[TF](35,halign=left,editable=false))
  )
 )
):
Display(M):