23 lines
422 B
Tcl
23 lines
422 B
Tcl
#!/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
|
|
|