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

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2006-12-18 13:30:17 GMT
Modified:  code/Widget htmlarea.widget
Log:
allow to specify width/height for fckeditor as suggested by Paul Jordan

Revision  Changes    Path
1.10      +7 -6      interchange/code/Widget/htmlarea.widget


rev 1.10, prev_rev 1.9
Index: htmlarea.widget
===================================================================
RCS file: /var/cvs/interchange/code/Widget/htmlarea.widget,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- htmlarea.widget	4 Jan 2006 19:17:43 -0000	1.9
+++ htmlarea.widget	18 Dec 2006 13:30:17 -0000	1.10
@@ -1,6 +1,6 @@
 # Copyright 2005 Interchange Development Group (http://www.icdevgroup.org/)
 # Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: htmlarea.widget,v 1.9 2006/01/04 19:17:43 racke Exp $
+# $Id: htmlarea.widget,v 1.10 2006/12/18 13:30:17 racke Exp $
 
 CodeDef htmlarea Widget 1
 CodeDef htmlarea Description Rich text editor
@@ -107,7 +107,7 @@
 					pre => qq|<script>
 window.onload = function()
 {
-    var {NAME}FCKeditor = new FCKeditor( '{NAME}' ) ;
+    var {NAME}FCKeditor = new FCKeditor( '{NAME}', '{WIDTH}', '{HEIGHT}' ) ;
     {NAME}FCKeditor.BasePath = _editor_url ;
     {NAME}FCKeditor.ReplaceTextarea() ;
 }
@@ -184,11 +184,12 @@
 		}
 	}
 
-	$pre_scr .= $Tag->uc_attr_list({hash => {name => $pname},
-									body => $flavours{$flavour}->{pre}});
+    $opt->{height} =~ s/\D+//;
+    $opt->{width} =~ s/\D+//;
 
-	$opt->{height} =~ s/\D+//;
-	$opt->{width} =~ s/\D+//;
+	$pre_scr .= $Tag->uc_attr_list({hash => {name => $pname, width => $opt->{width},
+height => $opt->{height}},
+									body => $flavours{$flavour}->{pre}});
 	
 	$opt->{anchor_style} ||= 'font-size: smaller';