# Testing Maplet for Argument Element
func1 := proc( x1 )
   StringTools[Reverse](x1);
end proc;
#
use Maplets, Maplets:-Elements in
   m1 := Maplet( 
          [
           [
            Label[LBL1]("What: "),
            TextField[TF1]() 
           ], 
           [
            Button(caption="Okay", onclick=A1), 
            Button(caption="Close", onclick=A2) 
           ] 
          ], 
          Action[A1]( 
           Evaluate(
            waitforresult='false',
            function="func1", 
            target='TF1',
            Argument(source='TF1', quotedtext='true') 
           ) 
          ),
          Action[A2](Shutdown())
         ):
end use:
Maplets:-Display(m1);