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 -r1.8
--- openacs-4/packages/xowiki/www/xinha/insert-image.tcl	27 Oct 2014 16:42:08 -0000	1.7
+++ openacs-4/packages/xowiki/www/xinha/insert-image.tcl	7 Aug 2017 23:48:31 -0000	1.8
@@ -12,3 +12,33 @@
 set file_selector_link [export_vars -base file-selector \
                             {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
+#    indent-tabs-mode: nil
+# End: