96,99c96,97
< 		    $maps(.frame.lablog) \
< 		    [list -name login -dragenabled 0 -dropenabled 0 \
< 			 -command [list PasswdDlg::_verifonpasswd \
< 				       $path $frame.labpass]]]
---
>                     $maps(.frame.lablog) \
> 		    [list -name login -dragenabled 0 -dropenabled 0]] 
107a106,114
>     # setup commands
>     if {[$labpass cget -state] == "normal"} {
>         $lablog configure -command [list PasswdDlg::_verifonpasswd \
>                                         $path $frame.labpass]
>     } else {
>         $lablog configure -command [list PasswdDlg::_verifonlogin \
>                                         $path $frame.lablog]
>     }
>