input.tcl

::pwtk::input::cardPrepend

::pwtk::input::cardPrepend

SYNOPSIS

proc ::pwtk::input::cardPrepend {name prepend_content} {

PURPOSE

Prepend new content to the begining of the existing card content.

ARGUMENTS

name -- name of the card
prepend_content -- content to prepend to the beginning of existing card content

RETURN VALUE

the new content of the $name card

SOURCE

    global ::pwtk::input::card ::pwtk::input::card_flags ::pwtk::input::card_content

    if { ! [info exists ::pwtk::input::card($name)] } {
        set ::pwtk::input::card($name)         exists
        set ::pwtk::input::card_flags($name)   ""
    }

    set ::pwtk::input::card_content($name) "[string trim $prepend_content]\n$::pwtk::input::card_content($name)"
}

TABLE OF CONTENTS

::pwtk::input::cardPrepend