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
Rixter
Wed Jul 29 02:00:40 2026
from
Madison, Nc
via
Telnet
Centurion
Tue Jul 28 22:54:59 2026
from
Berea, Ohio
via
Telnet
Bob Worm
Tue Jul 28 16:01:18 2026
from
Wales, Uk
via
Telnet
Rixter
Tue Jul 28 13:42:46 2026
from
Madison, Nc
via
Telnet
Krenn
Tue Jul 28 11:59:57 2026
from
Sydney, Nsw
via
Telnet
Rixter
Tue Jul 28 01:23:48 2026
from
Madison, Nc
via
Telnet
Centurion
Mon Jul 27 22:50:42 2026
from
Berea, Ohio
via
Telnet
Ataricrypt
Mon Jul 27 19:19:17 2026
from
England
via
Telnet
System Info
Sysop:
Keyop
Location:
Huddersfield, West Yorkshire, UK
Users:
741
Nodes:
16 (
2
/
14
)
Uptime:
66:31:49
Calls:
12,446
Calls today:
1
Files:
15,194
Messages:
6,537,564