Tk Source Code: Artifact [5cf1a92f]

Artifact 5cf1a92fe798e458bc3585658f80397af4a293b48c0ec431f9a929030a54cd29:

Attachment "tcb2.tcl" to ticket [5d991b82] added by bll 2018-01-26 18:34:50.

#!/usr/bin/tclsh

package require Tk
set ap [file join [file dirname [info script]] .. code]
if { $ap ni $::auto_path } {
  lappend ::auto_path $ap
}
unset ap

package require checkButtonScaled

set ::tcl_traceExec 3

set ::on 1

proc m { } {
  global ::on

  font create aaa
  font configure aaa -size 24

  checkButtonScaled .scbbig \
    -variable ::on \
    -textvariable ::on \
    -highlightcolor red \
    -font aaa
  grid .scbbig -sticky w
  after 2000 [list unset ::on]
}
m