Index: openacs-4/packages/acs-subsite/lib/login.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/login.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/acs-subsite/lib/login.tcl	4 Jun 2006 00:45:41 -0000	1.25
+++ openacs-4/packages/acs-subsite/lib/login.tcl	16 Jun 2006 13:56:34 -0000	1.26
@@ -100,7 +100,7 @@
 
 set focus {}
 if { [auth::UseEmailForLoginP] } {
-    ad_form -extend -name login -form [list [list email:text($username_widget),nospell [list label [_ acs-subsite.Email]]]]
+    ad_form -extend -name login -form [list [list email:text($username_widget),nospell [list label [_ acs-subsite.Email]] [list html [list style "width: 150px"]]]]
     set user_id_widget_name email
     if { ![empty_string_p $email] } {
         set focus "password"
@@ -117,7 +117,7 @@
         }
     }
 
-    ad_form -extend -name login -form [list [list username:text($username_widget),nospell [list label [_ acs-subsite.Username]]]]
+    ad_form -extend -name login -form [list [list username:text($username_widget),nospell [list label [_ acs-subsite.Username]] [list html [list style "width: 150px"]]]]
     set user_id_widget_name username
     if { ![empty_string_p $username] } {
         set focus "password"
@@ -130,6 +130,7 @@
 ad_form -extend -name login -form {
     {password:text(password) 
         {label "[_ acs-subsite.Password]"}
+	{html {style "width: 150px"}}
     }
 }