TABLE OF CONTENTS

setKey

NAME

::guib::keywordObj::setKey -- stores the name of the ID-th keyword (item)

USAGE

setKey id key

ARGUMENTS

id -- the ID number key -- the name of the keyword

RETURN VALUE

The value of argument key.

EXAMPLE

$obj setKey $id line

SOURCE

body ::guib::keywordObj::setKey {id key {ident ""}} { 
    if { $ident != "" } {
        # I should check if ident already exists !!!
        set cmd($id,ident) $ident

        # the default value of cmd($id,variable) is $cmd($id,ident)
        #set cmd($id,variable) $ident
    }
    return [set cmd($id,key) $key] 
}