input.tcl

::pwtk::input::cardContent

::pwtk::input::cardContent

SYNOPSIS

proc ::pwtk::input::cardContent {name content} {

PURPOSE

Set the card's content if and only if the card exists.

ARGUMENTS

name -- name of the card
content -- content of the card in the syntax of a give card

RETURN VALUE

$content if $name card exists
empty string otherwise

SOURCE

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

    if { [info exists ::pwtk::input::card($name)] } {
        return [set ::pwtk::input::card_content($name) [string trim $content]]
    }
    return ""
}

TABLE OF CONTENTS

::pwtk::input::cardContent