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" 

最近、パターンの記述形式がかなり不明瞭です。