restart:
with(Maplets[Tools]): with(Maplets[Elements]): with(plots):
StartEngine();
HelloRobby:= Maplet(onstartup = RunWindow(MAIN),
Window[MAIN](title="Hello Robby Demo",
[ [ "Hello. What is your name?"
],
[ Button("Good Bye", Shutdown(), background=pink)
]
]
)
):
usename:=proc()
local username;
username:=Get(TFname):
Set(reply=cat("Hi, ",username, ". My name is Robby Robot."))
end proc:
Maplets[Display]( HelloRobby );
[ TextField[TFname](width=25, background=turquoise),
Button("Enter", Evaluate(function = "usename"), background=yellow)
],
[ TextField[reply](width=40, editable=false, background=white)
],