input.tcl

::pwtk::input::scriptPrepend

::pwtk::input::scriptPrepend

SYNOPSIS

proc ::pwtk::input::scriptPrepend {name prependScript} {

PURPOSE

Prepend new content to the begining of the existing script named $name.

ARGUMENTS

name -- name of the script
prependScript -- content to prepend to the beginning of existing script $name

SOURCE

    variable script
    
    ::pwtk::ifexist script($name) {
        return [set script($name) "$prependScript\n$script($name)"]
    } else {
        return [set script($name) "$prependScript"]
    }
}

TABLE OF CONTENTS

::pwtk::input::scriptPrepend