Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v diff -u -r1.34 -r1.35 --- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl 28 Aug 2008 12:33:42 -0000 1.34 +++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl 10 Oct 2008 18:12:22 -0000 1.35 @@ -223,6 +223,15 @@ } } + proc render_localizer {} { + if {[my exists __localizer]} { + foreach l [my set __localizer] { + $l render + $l destroy + } + } + } + Class Localizer -parameter {type key url} Localizer instproc render {} { @@ -238,8 +247,8 @@ Localizer instproc render {} { html::a -title [my key] -href [my url] { set path /resources/acs-templating/xinha-nightly/plugins/ - switch [my type] { - localized {set img ImageManager/img/btn_ok.gif} + switch -- [my type] { + localized {set img ImageManager/img/btn_ok.gif} us_only {set img Filter/img/ed_filter.gif} missing {set img LangMarks/img/en.gif} }