Index: openacs-4/packages/richtext-xinha/www/resources/xinha-nightly/plugins/OacsFs/popups/insert-ilink.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/richtext-xinha/www/resources/xinha-nightly/plugins/OacsFs/popups/insert-ilink.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/richtext-xinha/www/resources/xinha-nightly/plugins/OacsFs/popups/insert-ilink.tcl	3 Jan 2016 20:52:00 -0000	1.1.2.1
+++ openacs-4/packages/richtext-xinha/www/resources/xinha-nightly/plugins/OacsFs/popups/insert-ilink.tcl	28 Nov 2016 19:45:46 -0000	1.1.2.2
@@ -11,13 +11,30 @@
  
 set selector_type "file"
 set file_selector_link [export_vars -base file-selector \
-			    {fs_package_id folder_id selector_type file_types}]
+                            {fs_package_id folder_id selector_type file_types}]
 set fs_found 1
 
-ad_return_template
 
+## Add event handlers
+
+template::add_event_listener -id "body" -event "load" -script {
+  Init();
+}
+template::add_event_listener -id "file_selector_button" -script {
+  openFileSelector();
+}
+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: 4
+#    tcl-indent-level: 2
 #    indent-tabs-mode: nil
 # End: