Index: openacs-4/packages/wp-slim/www/edit-slide-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-slide-2.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/wp-slim/www/edit-slide-2.tcl	6 Sep 2002 15:32:23 -0000	1.4
+++ openacs-4/packages/wp-slim/www/edit-slide-2.tcl	21 Jan 2003 12:46:48 -0000	1.4.2.1
@@ -13,7 +13,6 @@
     postamble:html
     sort_key
     original_slide_id
-    array_max
     button
     bullet:array,html
     bullet_num:integer
@@ -30,7 +29,7 @@
 
 # construct the list of bullet_items
 set bullet_items [list]
-for {set index 1} {$index < [expr $bullet_num + 2]} {incr index} {
+for {set index 1} {$index < [expr $bullet_num + 1]} {incr index} {
     if {![empty_string_p $bullet($index)]} {
         lappend bullet_items $bullet($index)
     }
Index: openacs-4/packages/wp-slim/www/edit-slide.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-slide.adp,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/packages/wp-slim/www/edit-slide.adp	6 Sep 2002 21:51:10 -0000	1.3
+++ openacs-4/packages/wp-slim/www/edit-slide.adp	21 Jan 2003 12:46:48 -0000	1.3.2.1
@@ -6,7 +6,7 @@
 
 <input type=hidden name=slide_item_id value="@slide_item_id@">
 <input type=hidden name=pres_item_id value="@pres_item_id@">
-<input type=hidden name=bullet_num value="@bullet_num@">
+<input type=hidden name=bullet_num value="@bullets:rowcount@">
 <input type=hidden name=sort_key value="@sort_key@">
 <input type=hidden name=original_slide_id value="@original_slide_id@">
 
@@ -37,16 +37,20 @@
     <th align=right nowrap>Bullet Items:</th>
     <td>
       <ul>
-        <input type=hidden name=array_max value=<%=[expr $bullet_num + 2]%>>
-<list name="bullet_items">
-  <if @bullet_items:rownum@ eq 1>
-    <li><input type=text size=60 name=bullet.1 value="@bullet_items:item@">&nbsp;<img src="pics/1white.gif" width=18 height=15"><a href="javascript:swapWithNext(1)"><img src="pics/down.gif" width=18 height=15 border=0></a>
-  </if>
-<else>
-  <li><input type=text size=60 name=bullet.@bullet_items:rownum@ value="@bullet_items:item@">&nbsp;<a href="javascript:swapWithNext(<%=[expr @bullet_items:rownum@ - 1]%>)"><img src="pics/up.gif" width=18 height=15 border=0></a><a href="javascript:swapWithNext(@bullet_items:rownum@)"><img src="pics/down.gif" width=18 height=15 border=0></a>
+
+<multiple name="bullets">
+<li> <if @bullets.widget@ eq "text">
+    <input type="text" name="bullet.@bullets.rownum@" value="@bullets.item@" size="70">
+</if><else>
+    <textarea wrap="soft" rows="@bullets.rows@" cols="60" name="bullet.@bullets.rownum@">@bullets.item@</textarea>
 </else>
-</list>
-<li><input type=text size=60 name=bullet.<%=[expr $bullet_num + 1]%> value="">&nbsp;<a href="javascript:swapWithNext(@bullet_num@)"><img src="pics/up.gif" width=18 height=15 border=0></a><img src="pics/1white.gif" width=18 height=15">
+<if @bullets.prev@ gt 0><a href="javascript:swapWithNext(@bullets.prev@)"><img src="pics/up.gif" width=18 height=15 border=0></a>
+</if><else>
+    <img src="pics/1white.gif" width=18 height=15">
+</else>
+<a href="javascript:swapWithNext(@bullets.rownum@)"><img src="pics/down.gif" width=18 height=15 border=0></a>
+</multiple>
+<li><input type="text" size="70" name="bullet.@bullet_num@" value="">&nbsp;<a href="javascript:swapWithNext(@bullets:rowcount@)"><img src="pics/up.gif" width=18 height=15 border=0></a><img src="pics/1white.gif" width=18 height=15">
 
         <br><i>You can add additional bullets later.</i>
       </ul>
@@ -60,7 +64,6 @@
     </td>
   </tr>
 </table>
-
 <p><center>
 <input type=submit name=button value="Save Slide">
 <spacer type=horizontal size=50>
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.4.2.1
--- 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	21 Jan 2003 12:46:48 -0000	1.4.2.1
@@ -61,6 +61,21 @@
 #
 #
 
-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]
 
+
 ad_return_template