Tcl/Tk: 为菜单项设置默认背景和前景格式

Question

我不得不一次又一次地为每个对象设置相同的格式，需要编写/维护大量代码。是否有任何配置允许默认设置像菜单栏这样的小部件的格式。

是的，我可以写一个过程来处理这个，但只是问问。

条件如下例所示：

set menuBar .t.menubar
set wMenuBar [menu .t.menubar -bg #e6e6fa -activebackground #6495ed -fg #000080]
# .t configure -menu [menu .t.menubar -bg #e6e6fa -activebackground #6495ed -fg #000080 ] 
set fileMenu ${menuBar}.file
$menuBar  add cascade -label "File" -menu [menu $fileMenu -bg #e6e6fa -activebackground #6495ed -fg #000080] -underline 0 
$fileMenu add command -label "Save" -command { doTheSave } -underline 1 
$fileMenu add separator
$fileMenu add command -label "Quit" -command { destroy .t } -underline 0 

set logsMenu ${menuBar}.logs
$menuBar  add cascade -label "Logs" -menu [menu $logsMenu -bg #e6e6fa -activebackground #6495ed -fg #000080] -underline 0

Answer 1

您可以尝试使用 option command 设置菜单的小部件级别默认值。

option add *Menu.background "#e6e6fa"
option add *Menu.activeBackgrund "#6495ed"
option add *Menu.foreground "#000080"

现在模式描述格式很晦涩。

Tcl/Tk: 为菜单项设置默认背景和前景格式

Tcl/Tk: Set default back and fore ground formats for menu items

tk

tcl