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?"
],
[ TextField[name](width=25),
Button("Enter", Evaluate(function = "usename"))
],
[ TextField[reply](width=40, editable=false)
],
[ Button("Good Bye", Shutdown())
]
]
)
):
usename:=proc()
local username;
username:=Get(thismaplet,name):
Set(reply=cat("Hi, ",username, ". My name is Robby Robot."))
end proc:
Maplets[Display]( HelloRobby );