Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.284.2.124 -r1.284.2.125
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	7 Nov 2020 12:07:03 -0000	1.284.2.124
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	7 Nov 2020 18:10:26 -0000	1.284.2.125
@@ -2179,11 +2179,15 @@
     # message string.
     #
     set value [[${:object} package_id] default_locale]
-    ::html::select [list id ${:id}__locale name ${:name}__locale] {
+    set :localizer_class locale-selector
+    set :localizer_id ${:id}__locale
+    set :localizer_name ${:name}__locale
+    set atts [:get_attributes disabled {localizer_class class} {localizer_id id} {localizer_name name}]
+
+    ::html::select $atts {
       foreach o [xowiki::locales] {
         lassign $o label rep
-        set atts [:get_attributes disabled]
-        lappend atts value $rep
+        set atts [list value $rep]
         if {$rep in $value} {
           lappend atts selected selected
         }
@@ -2194,21 +2198,6 @@
 
   ###########################################################
   #
-  # ::xowiki::formfield::localized_richtext
-  #
-  ###########################################################
-
-  Class create localized_richtext -superclass {localized_text richtext} -ad_doc {
-
-    This class can be used to provide an interface for specifying
-    internationalized text strings saved in message keys via input
-    from a form. Very similar to localized_text
-
-    @see ::xowiki::formfield::localized_text
-  }
-
-  ###########################################################
-  #
   # ::xowiki::formfield::correct_when
   #
   ###########################################################
@@ -2840,6 +2829,21 @@
 
   ###########################################################
   #
+  # ::xowiki::formfield::localized_richtext
+  #
+  ###########################################################
+
+  Class create localized_richtext -superclass {localized_text richtext} -ad_doc {
+
+    This class can be used to provide an interface for specifying
+    internationalized text strings saved in message keys via input
+    from a form. Very similar to localized_text
+
+    @see ::xowiki::formfield::localized_text
+  }
+  
+  ###########################################################
+  #
   # ::xowiki::formfield::richtext::ckeditor
   #
   #    mode: wysiwyg, source