Pop-Up Thingie
Sidebar
>>> Magnum BBS <<<
Home
Forum
Files
Dark
Log in
Username
Password
Sidebar
Forum
Usenet
COMP.LANG.TCL
ttk::menubutton on macOS
From
nab
@21:1/5 to
All
on Sun Jun 15 07:05:25 2025
Hi,
using the following script, there's a kind of white area around the ttk::menubutton.
Do you know how to get this area the same colour as its parent frame?
many thanks,
Nicolas
package require Tk
ttk::style configure mini.TMenubutton -width 5 -relief none
ttk::style configure mini.TMenubutton -foreground black
ttk::style map mini.TMenubutton -background [list {active disabled readonly} green]
frame .f -background green
set thisMenu [menu .m]
for {set i 1} {$i <= 10} {incr i} {
$thisMenu add command -label $i -command "puts $i"
}
ttk::menubutton .f.m -style mini.TMenubutton -direction below -menu .m -text "Hi"
grid .f.m -sticky news -padx 10 -pady 10
grid rowconfigure .f all -weight 1
grid columnconfigure .f all -weight 1
grid .f -sticky news
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)
Who's Online
System Info
Sysop:
Keyop
Location:
Huddersfield, West Yorkshire, UK
Users:
715
Nodes:
16 (
2
/
14
)
Uptime:
40:19:18
Calls:
12,109
Files:
15,006
Messages:
6,518,397