Index: openacs-4/packages/acs-templating/tcl/test/spell-checker-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/test/spell-checker-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-templating/tcl/test/spell-checker-procs.tcl	2 Oct 2003 12:24:10 -0000	1.2
+++ openacs-4/packages/acs-templating/tcl/test/spell-checker-procs.tcl	9 Oct 2003 13:22:32 -0000	1.3
@@ -159,41 +159,35 @@
     # text
     aa_log "--- Spell-checking enabled on widget \"$element(widget)\"? --- $command"
 
-    set spellcheck_properties [eval $command]
-    set spellcheck_p [lindex $spellcheck_properties 0]
-    aa_false "Spell-checking disabled" $spellcheck_p
+    array set spellcheck [eval $command]
+    aa_false "Spell-checking disabled" $spellcheck(perform_p)
 
-    if { $spellcheck_p } {
-	set yes_checked [lindex $spellcheck_properties 1]
-	aa_log "[ad_decode $yes_checked "checked" "'Yes'" "'No'"] is the default"
+    if { $spellcheck(perform_p) } {
+	aa_log "$spellcheck(selected_option) is the default"
     }
     
 
     # textarea
     set element(widget) textarea
     aa_log "--- Spell-checking enabled on widget \"$element(widget)\"? --- $command"
 
-    set spellcheck_properties [eval $command]
-    set spellcheck_p [lindex $spellcheck_properties 0]
-    aa_true "Spell-checking enabled" $spellcheck_p
+    array set spellcheck [eval $command]
+    aa_true "Spell-checking enabled" $spellcheck(perform_p)
     
-    if { $spellcheck_p } {
-	set yes_checked [lindex $spellcheck_properties 1]
-	aa_log "[ad_decode $yes_checked "checked" "'Yes'" "'No'"] is the default"
+    if { $spellcheck(perform_p) } {
+	aa_log "$spellcheck(selected_option) is the default"
     }
 
 
     # richtext
     set element(widget) richtext
     aa_log "--- Spell-checking enabled on widget \"$element(widget)\"? --- $command"
 
-    set spellcheck_properties [eval $command]
-    set spellcheck_p [lindex $spellcheck_properties 0]
-    aa_true "Spell-checking enabled" $spellcheck_p
+    array set spellcheck [eval $command]
+    aa_true "Spell-checking enabled" $spellcheck(perform_p)
 
-    if { $spellcheck_p } {
-	set yes_checked [lindex $spellcheck_properties 1]
-	aa_log "[ad_decode $yes_checked "checked" "'Yes'" "'No'"] is the default"
+    if { $spellcheck(perform_p) } {
+	aa_log "$spellcheck(selected_option) is the default"
     }
     
 }
\ No newline at end of file