Index: openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/Attic/xowiki-portlet-procs.tcl,v
diff -u -r1.70 -r1.71
--- openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl 18 Jul 2007 20:35:31 -0000 1.70
+++ openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl 19 Jul 2007 09:36:15 -0000 1.71
@@ -1561,14 +1561,7 @@
set level [expr {[regsub {[.]} $page_order . page_order] + 1}]
set p [::Generic::CrItem instantiate -item_id 0 -revision_id $page_id]
$p destroy_on_cleanup
- set p_link [$package_id pretty_link $name]
- set edit_link [$package_id make_link -link $p_link $p edit return_url]
- if {$edit_link ne ""} {
- set edit_markup "
"
- } else {
- set edit_markup ""
- }
-
+
$p set unresolved_references 0
#$p set render_adp 0
switch [$p info class] {
@@ -1580,8 +1573,9 @@
set content [string map [list "\{\{" "\\\{\{"] $content]
}
}
+ set menu [$p include_portlet "edit-item-button"]
append output "" \
- $edit_markup \
+ "$menu
" \
"$page_order $title" \
$content
}
@@ -1590,7 +1584,81 @@
}
namespace eval ::xowiki::portlet {
+ Class create item-button \
+ -superclass ::xowiki::Portlet \
+ -parameter {
+ {__decoration none}
+ }
+ item-button instproc render_button {-method -src -return_url} {
+ my get_parameters
+ my instvar __including_page
+ set html ""
+ set page [expr {[info exists page_id] ? $page_id : $__including_page}]
+
+ set p_link [$package_id pretty_link [$page name]]
+ set edit_link [$package_id make_link -link $p_link $page $method return_url]
+ if {$edit_link ne ""} {
+ set html ""
+ }
+ return $html
+ }
+
+ Class create edit-item-button -superclass ::xowiki::portlet::item-button \
+ -parameter {
+ {parameter_declaration {
+ {-page_id}
+ {-title "edit item"}
+ {-alt "edit"}
+ }}
+ }
+
+ edit-item-button instproc render {} {
+ return [my render_button -method edit -src /resources/acs-subsite/Edit16.gif]
+ }
+# {
+# my get_parameters
+# my instvar __including_page
+# set html ""
+# set page [expr {$page_id ? $page_id : $__including_page}]
+
+# set p_link [$package_id pretty_link [$page name]]
+# set edit_link [$package_id make_link -link $p_link $page edit return_url]
+# if {$edit_link ne ""} {
+# set html ""
+# }
+# return $html
+# }
+
+ Class create new-item-button -superclass ::xowiki::portlet::item-button \
+ -parameter {
+ {__decoration none}
+ {parameter_declaration {
+ {-page_id}
+ {-title "new item"}
+ {-alt "new"}
+ }}
+ }
+
+ new-item-button instproc render {} {
+ my get_parameters
+ my instvar __including_page
+ set html ""
+ set page [expr {$page_id ? $page_id : $__including_page}]
+
+ set p_link [$package_id pretty_link [$page name]]
+ set edit_link [$package_id make_link -link $p_link $page edit return_url]
+ if {$edit_link ne ""} {
+ set html ""
+ }
+ return $html
+ }
+
+}
+
+
+namespace eval ::xowiki::portlet {
+
Class create graph \
-superclass ::xowiki::Portlet \
-parameter {{__decoration plain}}