xowiki::MenuItem instproc init (private)
<instance of xowiki::MenuItem> init args [ args... ]
Defined in /var/www/openacs.org/packages/xowiki/tcl/menu-procs.tcl
doku
- Parameters:
- args (required)
- Testcases:
- create_folder_with_page, create_workflow_with_instance
Source code: next # Use computed default values when not specified if {![info exists :title]} { # set the mouseover-title to the "MenuItem-Label" # TODO: Do we really want "text" to be required ? set :title ${:text} } if {![info exists :CSSclass]} { # set the CSS class to e.g. "yuimenuitem" set :CSSclass [string tolower [namespace tail [:info class]]] } if {![info exists :href] || ${:href} eq ""} { append :CSSclass " " [string tolower [namespace tail [:info class]]]-disabled } if {![info exists :linkclass]} { # set the CSS class to e.g. "yuimenuitemlabel" set :linkclass [string tolower [namespace tail [:info class]]]label }XQL Not present: Generic, PostgreSQL, Oracle