Index: openacs-4/packages/wp-slim/www/edit-slide.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-slide.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/wp-slim/www/edit-slide.tcl	6 Sep 2002 15:32:23 -0000	1.4
+++ openacs-4/packages/wp-slim/www/edit-slide.tcl	17 May 2003 12:50:50 -0000	1.5
@@ -61,6 +61,23 @@
 #
 #
 
-set bullet_num [llength $bullet_items]
+set bullet_num 0
+multirow create bullets item widget rows prev
+foreach item $bullet_items { 
+    if {[string length $item] < 60} { 
+        set rows 1 
+        set widget text
+    } else { 
+        set rows [max 3 [min 8 [expr {[string length $item]/45}]]]
+        set widget textarea
+    }
+    multirow append bullets $item $widget $rows $bullet_num
+    incr bullet_num
+}
+incr bullet_num
+set bullet_max [expr $bullet_num + 1]
 
+# quote html tags contained in bullet items
+set bullet_items [ad_quotehtml $bullet_items]
+
 ad_return_template