Example 3.27. ::vgcode::dump-geometry-notebook using notebook
...
set wc \
[winfo parent $target];
set id \
[lsearch -exact \
[$wc tabs] $target]
return \
[dumper::notebook \
[vgcode::baseName $wc $basename $id_base] $ta_name \
[dumper::properties \
[vgcode::clearOptions \
[$wc tab $id] $basename] $target]]