Index: openacs-4/packages/xowiki/www/xinha/insert-ilink.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/xinha/insert-ilink.tcl,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/xowiki/www/xinha/insert-ilink.tcl 27 Oct 2014 16:42:08 -0000 1.7 +++ openacs-4/packages/xowiki/www/xinha/insert-ilink.tcl 7 Aug 2017 23:48:31 -0000 1.8 @@ -14,4 +14,27 @@ {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: 2 +# indent-tabs-mode: nil +# End: