############# No User serviceable part below ! #############
# You should really not look any further :
# The following is private unexported undocumented unblessed…
# code time to hit “q” ;-) !

# Hmmm… ok, you really want to know ?

# You’ve been warned… Here it is…

# Array storing the parsed descriptions
variable OptDesc;
array set OptDesc {};
# Next potentially free key id (numeric)
variable OptDescN 0;

# Inside algorithm/mechanism description:
# (not for the faint hearted ;-)

Source: Direct link to the source code
Software: Sixpack
Programming language: TCL