Index: openacs-4/packages/xowiki/www/xinha/insert-image.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/xinha/insert-image.tcl,v
diff -u -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/xowiki/www/xinha/insert-image.tcl	10 Sep 2015 08:10:44 -0000	1.7.2.1
+++ openacs-4/packages/xowiki/www/xinha/insert-image.tcl	28 Nov 2016 17:17:28 -0000	1.7.2.2
@@ -13,6 +13,30 @@
                             {fs_package_id folder_id selector_type}]
 set fs_found 1
 
+
+## Add event handlers
+
+template::add_event_listener -id "body" -event "load" -script {
+  Init();
+}
+template::add_event_listener -id "f_url" -event "change" -script {
+  ChangeImageSrc();
+}
+template::add_event_listener -id "preview_button" -script {
+  onPreview();
+}
+template::add_event_listener -id "image_selector_button" -script {
+  openImageSelector();
+}
+template::add_event_listener -id "ok_button" -script {
+  onOK();
+}
+template::add_event_listener -id "cancel_button" -script {
+  onCancel();
+}
+
+##
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 2