Example 3.9. ::vgcode::baseName using relativename
...
set rest {};
if \
[regexp "(\\
[\.\]+\\
[\.a-zA-Z0-9_\]*)(.*)" $target match name rest] {
return \
[dumper::relativename $target \
[registerWidget \
[string range $name $id_base end]] $rest]