Tk Source Code

Artifact b5df239405c56360710adcdeadfd55e4a4e012b40edd481728ba067a0236824e:

Attachment "8da7af2f8e - slow widget creation if default font is not used.tcl" to ticket [8da7af2f] added by fvogel 2024-01-08 23:18:53.

---

# 8da7af2f8e - slow widget creation if default font is not used


package require Tk

proc test1_slow {n} {
    for {set i 1} {$i <= $n} {incr i} {
        grid [ttk::entry .myEntry$i -font TkFixedFont -width 35 -textvariable myvariable]
    }
    set myvariable "Hello World"
}

proc test2_quick {n} {
    grid [ ttk::entry .myEntry00                   -width 35 -textvariable myvariable ]
    for {set i 1} {$i < $n} {incr i} {
        grid [ttk::entry .myEntry$i -font TkFixedFont -width 35 -textvariable myvariable]
    }
    set myvariable "Hello World"
}

set nw 5000

destroy {*}[winfo children .]
time {test1_slow $nw}

destroy {*}[winfo children .]
time {test2_quick $nw}