TABLE OF CONTENTS

::pwtk::input::cardGetPWTK

SYNOPSIS

proc ::pwtk::input::cardGetPWTK {name} {

PURPOSE

Return the card as a PWTK script.

ARGUMENTS

SOURCE

    variable card
    variable card_flags
        
    if { [info exists card($name)] } {
        # card's line (keywaord + flags)
        set cardline "$name"
        if { [info exists card_flags($name)] && $card_flags($name) ne {} } {
            append cardline " $card_flags($name)"
        }
        return "$cardline \{\n[string trimright [cardGetContent $name]]\n\}\n\n"
    }
    return ""
}