Index: openacs-4/packages/assessment/tcl/as-qti-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-qti-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	27 Oct 2004 13:51:09 -0000	1.4
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	27 Oct 2004 13:53:49 -0000	1.5
@@ -164,7 +164,10 @@
 				set as_item_display_id {}
 				if {[$render_fib hasAttribute {rows}]} {
 					# shortanswer (textarea)
-					set as_item_display_id [as::item_display_ta::new -name [ad_generate_random_string]]
+					set rows [$render_fib getAttribute {rows} {15}]
+					set cols [$render_fib getAttribute {columns} {55}]
+					set html "rows $rows cols $cols"					
+					set as_item_display_id [as::item_display_ta::new -name [ad_generate_random_string] -abs_size $html]
 					foreach node $presentationChildNodes {
 					if {[$node nodeName] == {material}} {
 						set mattextNodes [$node selectNodes {mattext/text()}]