%3 ::xowiki::Includelet ::xowiki::Includelet → available_includelets → describe_includelets → glob_clause → html_encode → html_id → html_to_text → js_encode → js_name → listing → locale_clause → parent_id_clause → publish_status_clause → require_YUI_CSS → require_YUI_JS category_clause get_current_folder get_page_order include_head_entries initialize js_name resolve_page_name screen_name tableWidget ::xo::Context ::xo::Context exists_query_parameter export_vars get_all_query_parameter get_parameters initialize original_url_and_query process_query_parameter query_parameter set_query_parameter unset_query_parameter ::xowiki::Includelet->::xo::Context ::xotcl::Object ::xotcl::Object ::xo::Context->::xotcl::Object ::xowiki::includelet::digg ::xowiki::includelet::digg render ::xowiki::includelet::digg->::xowiki::Includelet

Class ::xowiki::includelet::digg

::xowiki::includelet::digg[i] create ... \
           [ -__decoration (default "none") ] \
           [ -parameter_declaration (default "
          {-description ""}
          {-url}
        ") ]
Add a button to submit article to digg.
Defined in /var/www/openacs.org/packages/xowiki/tcl/includelet-procs.tcl

Class Relations

  • class: ::xowiki::IncludeletClass[i]
  • superclass: ::xowiki::Includelet[i]
::xowiki::IncludeletClass create ::xowiki::includelet::digg \
     -superclass ::xowiki::Includelet

Methods (to be applied on instances)

  • __decoration (setter)

  • parameter_declaration (setter)
    

  • render (scripted)
    

    :get_parameters
set digg_link [export_vars -base "http://digg.com/submit" {
  {phase 2}
  {url       $url}
  {title     "[string range [${:__including_page} title] 0 74]"}
  {body_text "[string range $description 0 349]"}
}]
return "<a class='image-button' href='[ns_quotehtml $digg_link]'><img src='http://digg.com/img/badges/100x20-digg-button.png' width='100' height='20' alt='Digg!'></a>"