Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v diff -u -r1.239.2.24 -r1.239.2.25 --- openacs-4/packages/xowiki/tcl/includelet-procs.tcl 21 Oct 2019 16:39:29 -0000 1.239.2.24 +++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl 27 Oct 2019 08:44:12 -0000 1.239.2.25 @@ -408,16 +408,25 @@ of a tree (default) } + available-formfields instproc class_name {cl} { + return [expr { + [string match ::xowiki::formfield:* $cl] + ? [namespace tail $cl] + : [string trimleft $cl :] + }] + } + available-formfields instproc render {} { :get_parameters foreach cl [lsort [::xowiki::formfield::FormField info subclass -closure]] { set result "" - set superClassName [namespace tail [$cl info superclass]] - set className [namespace tail $cl] + set superClassName [:class_name [$cl info superclass]] + set className [:class_name $cl] + set abstract [expr {[$cl exists abstract] && [$cl set abstract] ? "abstract, " : ""}] append result \ - "$className " \ - "(superclass $superClassName)\n" \ + "$className " \ + "(${abstract}superclass $superClassName)\n" \ "