#!/bin/sh
# \
exec wish "$0" "$@"

wm title . "Cad.Plano de Contas da Empresa"

package require Mentry
button .btn -text sair -command do_exit
mentry::fixedPointMentry .entVlrInicial 9 2 -comma -textvariable VarMentry
pack .entVlrInicial .btn 

proc variaveis_cobol {} {
     global cobol_fields widget
        set cobol_fields {
            CobVariavel 10
        }
}
proc ::cobol_preprocess {args} {

}
variaveis_cobol