Tcl Source Code: Artifact [b503be351a]

Artifact b503be351af70519e0ce792b7ba7aeb55110f9d5:

Attachment "CrashTtk_Win7_64bit.tcl" to ticket [3371315fff] added by jmcuaz 2011-07-19 20:27:38.

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