package require Tk

proc proc_Btn {} {
    
    wm withdraw .
    
    destroy .test
    toplevel .test
    
    ttk::checkbutton .test.chk -variable tclChk
    ttk::button .test.btn -text MAJ -command proc_Btn
    
    set ::tclChk 1
    
    pack .test.chk
    pack .test.btn
    
}

proc_Btn