TABLE OF CONTENTS

::pwtk::input::cardClear

SYNOPSIS

proc ::pwtk::input::cardClear {args} {

USAGE

   ::pwtk::input::cardClear name1 ?name2? ?...?

PURPOSE

Clear the content of specified cards.

ARGUMENTS

SOURCE

    global ::pwtk::input::card 

    foreach name $args {
        # clear the content of the card
        if { [info exists ::pwtk::input::card($name)] } {
            global ::pwtk::input::card_content ::pwtk::input::card_flags
            unset ::pwtk::input::card($name)
            set ::pwtk::input::card_content($name) ""
            set ::pwtk::input::card_flags($name)   ""
        }
    }
}