Tk Source Code: Artifact [89ec45ef]

Artifact 89ec45efa638023ca48502d7b880ac7bf6cd2943fda1aa302028418aafc6d4bc:

Attachment "xpnativeBug.tcl" to ticket [52553608] added by nemethi 2025-01-22 20:08:53.

ttk::frame .f
set mb .f.mb
ttk::menubutton $mb -menu $mb.m
menu $mb.m -tearoff 0
set themeList [ttk::style theme names]
foreach theme [lsort $themeList] {
    $mb.m add command -label $theme -command [list setTheme $theme]
}

proc setTheme theme {
    ttk::setTheme $theme
    global mb
    $mb configure -text $theme 
    $mb.m configure -background [ttk::style lookup . -background]
}
setTheme xpnative

pack $mb -padx 15p -pady 15p
pack .f -expand yes -fill both