Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v
diff -u -r1.51 -r1.52
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	10 Sep 2008 10:19:19 -0000	1.51
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	12 Sep 2008 12:10:42 -0000	1.52
@@ -2982,4 +2982,29 @@
     return "#xowiki.form-$action# <a href='[[my package_id] pretty_link $form_name]'>$form_name</a>"
   }
 }
- 
\ No newline at end of file
+ 
+namespace eval ::xowiki::includelet {
+  #############################################################################
+  #
+  # Show an iframe as includelet
+  #
+  ::xowiki::IncludeletClass create iframe \
+      -superclass ::xowiki::Includelet \
+      -parameter {
+        {parameter_declaration {
+           {-title ""}
+           {-url:required}
+           {-width "100%"}
+           {-height "500px"}
+        }}
+      }
+
+  iframe instproc render {} {
+    my get_parameters
+    
+    if {$title eq ""} {set title $url}
+    set content "<iframe src='$url' width='$width' height='$height'></iframe>"
+    append content "<p><a href='$url' title='$title'>$title</a></p>"
+    return $content
+  }
+}