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
Recent Visitors
Bob Worm
Wed Sep 16 10:17:33 2026
from
Wales, Uk
via
Telnet
Rixter
Wed Sep 16 00:01:35 2026
from
Madison, Nc
via
Telnet
Stormwallker
Tue Sep 15 15:52:32 2026
from
Hinckley, Leicestershire
via
Telnet
Rixter
Tue Sep 15 12:01:35 2026
from
Madison, Nc
via
Telnet
Bob Worm
Tue Sep 15 11:25:46 2026
from
Wales, Uk
via
Telnet
Andrew Andrew
Tue Sep 15 02:46:28 2026
from
Chicago, Il
via
Telnet
Netmages
Tue Sep 15 01:13:15 2026
from
Santiago, Chile
via
SSH
Rixter
Tue Sep 15 00:01:34 2026
from
Madison, Nc
via
Telnet
System Info
Sysop:
Keyop
Location:
Huddersfield, West Yorkshire, UK
Users:
766
Nodes:
16 (
0
/
16
)
Uptime:
01:30:30
Calls:
12,764
Calls today:
2
Files:
15,363
Messages:
6,557,236