Class ::xowiki::includelet::bookmarklet-button (public)

 ::xowiki::IncludeletClass ::xowiki::includelet::bookmarklet-button

Defined in /var/www/openacs.org/packages/xowiki/tcl/includelet-procs.tcl

Include bookmarklet button that makes it easy to add the current page as a bookmark in the browser of the client.

Testcases:

No testcase defined.

Source code:

namespace eval ::xowiki::includelet {}
::nsf::object::alloc ::xowiki::IncludeletClass ::xowiki::includelet::bookmarklet-button {set :__default_metaclass ::xotcl::Class
   set :__default_superclass ::xotcl::Object
   set :aggregating false
   set :cacheable false
   set :localized true
   set :personalized true}
::xowiki::includelet::bookmarklet-button instproc render {} {
    :get_parameters
    set parent_id [${:__including_page} parent_id]
    set url [::$package_id pretty_link -absolute 1 -siteurl $siteurl -parent_id $parent_id news-item]
    if {$label eq ""} {set label "Add to [::$package_id instance_name]"}
    if {![info exists :id]} {set :id [::xowiki::Includelet html_id [self]]}

    template::add_event_listener  -id [:id]  -script [subst {
          d=document;w=window;t='';
          if(d.selection){t=d.selection.createRange().text;}
          else if(d.getSelection){t=d.getSelection();}
          else if(w.getSelection){t=w.getSelection();}
          void(open('$url?m=create-new&title='+escape(d.title)+
                    '&detail_link='+escape(d.location.href)+'&text='+escape(t),'_blank',
                    'scrollbars=yes,width=700,height=575,status=yes,resizable=yes,scrollbars=yes'));
        }]

    return "<a id='[:id]' href='#' title='[ns_quotehtml $label]' class='rss'>[ns_quotehtml $label]</a>"
  }
::xowiki::includelet::bookmarklet-button instparametercmd parameter_declaration
::xowiki::includelet::bookmarklet-button instparametercmd __decoration
::nsf::relation::set ::xowiki::includelet::bookmarklet-button superclass ::xowiki::Includelet

::nx::slotObj -container slot ::xowiki::includelet::bookmarklet-button
::xowiki::includelet::bookmarklet-button::slot eval {set :__parameter {
        {__decoration none}
        {parameter_declaration {
          {-siteurl ""}
          {-label ""}
        }}
      }}

::nsf::object::alloc ::xotcl::Attribute ::xowiki::includelet::bookmarklet-button::slot::__decoration {set :accessor public
   set :configurable true
   set :convert false
   set :default none
   set :defaultmethods {}
   set :disposition alias
   set :domain ::xowiki::includelet::bookmarklet-button
   set :incremental 0
   set :manager ::xowiki::includelet::bookmarklet-button::slot::__decoration
   set :methodname __decoration
   set :multiplicity 1..1
   set :name __decoration
   set :per-object false
   set :position 0
   set :required false
   set :substdefault 0b111
   set :trace none
   : init}

::nsf::object::alloc ::xotcl::Attribute ::xowiki::includelet::bookmarklet-button::slot::parameter_declaration {set :accessor public
   set :configurable true
   set :convert false
   set :default {
          {-siteurl ""}
          {-label ""}
        }
   set :defaultmethods {}
   set :disposition alias
   set :domain ::xowiki::includelet::bookmarklet-button
   set :incremental 0
   set :manager ::xowiki::includelet::bookmarklet-button::slot::parameter_declaration
   set :methodname parameter_declaration
   set :multiplicity 1..1
   set :name parameter_declaration
   set :per-object false
   set :position 0
   set :required false
   set :substdefault 0b111
   set :trace none
   : init}

XQL Not present:

Generic, PostgreSQL, Oracle