Tcl / Tk：设置菜单项的默认后退和前置格式

Question

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

是的我可以写一个proc来处理这个问题但只是问。

以下示例说明的条件：

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"

模式描述格式现在非常模糊。