}
proc populate_pull_menu {m} {
- global gitdir repo_config all_remotes mainfont
+ global gitdir repo_config all_remotes mainfont disable_on_lock
foreach remote $all_remotes {
set rb {}
-label "Branch $rb_short from $remote..." \
-command [list pull_remote $remote $rb] \
-font $mainfont
+ lappend disable_on_lock \
+ [list $m entryconf [$m index last] -state]
}
}
}
# -- Options Menu
menu .mbar.options
-.mbar.options add checkbutton -label {Trust File Modification Timestamp} \
+.mbar.options add checkbutton -label {Trust File Modification Timestamps} \
-offvalue false \
-onvalue true \
-variable cfg_trust_mtime