# yourOwnCodeGeneration.tcl
package provide arsDumper 1.0

# Get the Jeszra Code fragments.            
package require tclDumper
namspace eval dumper {
proc text {window name text} {
    return [subst {

    # The additional custom code:
    rtl::debug stdout \
       "Inject text in text window: $window"

    # Insert Text into text window $name
    $window insert 0.0 {$text}

    # Bindgroups & Tags of $name
}] 
}
}