[interchange-cvs] interchange - racke modified code/Widget/htmlarea.widget

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2005-09-05 09:02:24 GMT
Modified:  code/Widget htmlarea.widget
Log:
added extra parameter to allow customization of HTMLAREA

Revision  Changes    Path
1.5       +8 -2      interchange/code/Widget/htmlarea.widget


rev 1.5, prev_rev 1.4
Index: htmlarea.widget
===================================================================
RCS file: /anon_cvs/repository/interchange/code/Widget/htmlarea.widget,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- htmlarea.widget	12 Apr 2005 19:19:27 -0000	1.4
+++ htmlarea.widget	5 Sep 2005 09:02:24 -0000	1.5
@@ -106,18 +106,24 @@
 	my $pre_scr = '';
 	my $post_scr = '';
 	my $onmouse = '';
+	my $extra = '';
+	
+	if ($opt->{extra}) {
+		$extra = ", $opt->{extra}";
+	}
+
 	if($Session->{browser} =~ /MSIE/) {
 	    $pre_scr = qq{
 <script>
 var htmlarea_needinit_$pname = true;
 </script>
 };
-		$onmouse = qq{ onMouseOver="if(htmlarea_needinit_$pname) { HTMLArea.replace('htmlarea_$pname'); htmlarea_needinit_$pname=false }"};
+		$onmouse = qq{ onMouseOver="if(htmlarea_needinit_$pname) { HTMLArea.replace('htmlarea_$pname'$extra); htmlarea_needinit_$pname=false }"};
 	}
 	else {
 		$post_scr = <<EOF;
 <script>
-	HTMLArea.replace('htmlarea_$pname');
+	HTMLArea.replace('htmlarea_$pname'$extra);
 </script>
 EOF
 	}