Index: openacs-4/packages/wp-slim/www/style-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/style-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/wp-slim/www/style-edit.tcl	28 Aug 2003 09:42:00 -0000	1.2
+++ openacs-4/packages/wp-slim/www/style-edit.tcl	22 Sep 2003 18:41:27 -0000	1.3
@@ -25,7 +25,7 @@
 
     set header [list "style-view.tcl?style_id=$style_id" $name]
 
-    set role "Edit"
+    set role "[_ wp-slim.Edit]"
 } else {
     # Creating a new style. Set fields to defaults.
     set show_modified_p "f"
@@ -35,7 +35,7 @@
 	set $var ""
     }
 
-    set role "Create"
+    set role "[_ wp-slim.Create]"
 }
 
 set colors { Chartreuse Mauve Teal Oyster Cordova Burgundy Spruce }
@@ -51,7 +51,7 @@
 db_release_unused_handles
 
 if { $items == "" } {
-    set background_images "<i>There are not yet any uploaded images to use as the background.</i>
+    set background_images "<i>[_ wp-slim.lt_There_are_not_yet_any]</i>
 <input type=hidden name=background_image value=\"0\">
 "
 } else {
@@ -62,24 +62,27 @@
 	lappend values [lindex $image 0]
     }
 
-    lappend names "none"
+    lappend names "[_ wp-slim.none_1]"
     lappend values 0
 
     set background_images "<select name=background_image>
 [ad_generic_optionlist $names $values $background_image]</select>\n"
 }
 
 set public "<select name=public_p>
-[ad_generic_optionlist [list Yes No] [list t f] $public_p]</select>\n"
+[ad_generic_optionlist [list "[_ wp-slim.Yes]" "[_ wp-slim.No]"] [list t f] $public_p]</select>\n"
 
 
 set values [list]
 
-set context "[list [list "style-list.tcl" "Your Styles"] $header "$role Style"]"
+set context "[list [list "style-list.tcl" "Your Styles"] $header "[_ wp-slim.role_Style]"]"
 
 set export_form_vars [export_form_vars style_id presentation_id]
 set ad_color_widget_js [ad_color_widget_js]
-set ramdom_name "[lindex $colors [randomRange [llength $colors]]] on [lindex $colors [randomRange [llength $colors]]] with [lindex $elements [randomRange [llength $elements]]]"
+set random_range_1 [lindex $colors [randomRange [llength $colors]]]
+set random_range_2 [lindex $colors [randomRange [llength $colors]]]
+set random_range_3 [lindex $elements [randomRange [llength $elements]]]
+set ramdom_name "$random_range_1 on $random_range_2 with $random_range_3"
 
 
 ad_return_template