restart:
with(Maplets):
with(Maplets[Elements]):
GetDirList:=proc(path)
 local l:
 l:=listdir(path);
 cat(op(map(f->cat(f,"\n"),l[1..nops(l)-1])),l[-1]);
end proc:
InitialTextBox:=GetDirList("."):
Change:=proc()
 local place;
 place:=Maplets:-Tools:-Get(TF_CD):
 currentdir(place):
 GetDirList(place):
 Maplets:-Tools:-Set(TB_Dir=%):
 Maplets:-Tools:-Set(TF_CD=currentdir()):
end proc:
M:=Maplet(
 Window(
  title="Directory",
  layout=BoxLayout(vertical=true,
   BoxRow(
     BoxCell(
      TextBox[TB_Dir](
       height=10,width=31,
       value=InitialTextBox
      )
     )
   ),
   BoxRow(
    BoxCell(
     TextField[TF_CD](15,value=currentdir())
    ),
    BoxCell(
     Button[CD]("Change Dir",onclick=Evaluate(function="Change"))
    )
   )
  )
 )
):
Display(M):