insert-ilink.tcl

Location:

/packages/xowiki/www/xinha/insert-ilink.tcl

Authors:

Guenter Ernst guenter.ernst@wu-wien.ac.at,

Gustaf Neumann neumann@wu-wien.ac.at

Created:

13.07.2004

CVS ID:

$Id: insert-ilink.tcl,v 1.11 2024/09/11 06:15:56 gustafn Exp $

Related Files

• packages/xowiki/www/xinha/insert-ilink.tcl
• packages/xowiki/www/xinha/insert-ilink.adp

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
  @author Guenter Ernst guenter.ernst@wu-wien.ac.at,
  @author Gustaf Neumann neumann@wu-wien.ac.at
  @creation-date 13.07.2004
  @cvs-id $Id: insert-ilink.tcl,v 1.11 2024/09/11 06:15:56 gustafn Exp $
} {
  {fs_package_id:naturalnum,optional}
  {folder_id:naturalnum,optional}
  {file_types *}
}

set selector_type "file"
set file_selector_link [export_vars -base file-selector \
                            {fs_package_id folder_id selector_type file_types}]
set fs_found 1


## 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: