Index: openacs-4/packages/acs-lang/www/admin/localized-message-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/localized-message-new.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-lang/www/admin/localized-message-new.tcl	14 Aug 2003 16:06:20 -0000	1.4
+++ openacs-4/packages/acs-lang/www/admin/localized-message-new.tcl	22 Oct 2003 16:27:37 -0000	1.5
@@ -11,7 +11,7 @@
 } {
     locale
     package_key
-} -properties {
+    {message_key ""}
 }
 
 
@@ -59,8 +59,14 @@
 
 if { [form is_request message_new] } {
 
-    element set_properties message_new package_key -value $package_key
-    element set_properties message_new locale -value $current_locale
+    element set_value message_new package_key $package_key
+    element set_value message_new locale $current_locale
+    element set_value message_new message_key $message_key
+    if { [empty_string_p $message_key] } {
+        set focus message_new.message_key
+    } else {
+        set focus message_new.message
+    }
 
 } else {