# Phase 1: ask for password to connect to site.
proc phase1 {} {
    label .passwordLabel -text "Please enter the password in the space 
below:"
    entry .password -textvariable password -takefocus 1 -show *
    button .passwordOK -text OK -command sendPassword
    button .passwordAbort -text Abort -command exit
    bind .password <Return> sendPassword
    pack .passwordLabel -fill x
    pack .password -fill x
    pack .passwordOK .passwordAbort -side left -fill x
}