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]]