Listing 4

user_name.left = 6cm;
user_name.top = 0.3cm;
#dock_right(user_name, parent, 0.3cm);
user_name.height = 1cm;

password.left = 6cm;
#dock_top(password, user_name, 0.3cm);
password.width = user_name.width;
password.height = 1cm;

#dock_right(cancel, parent, 0.3cm);
#dock_right(do_login, parent, 0.2cm);
do_login.top = 3.6cm;
do_login.width = 3.5cm;
do_login.height = 1cm;
cancel.top = do_login.top;
cancel.width = 3.5cm;
cancel.height = 1cm;