aboutsummaryrefslogtreecommitdiff
path: root/font_doesnt_follow_focus-plugin.tcl
blob: a822bd573903b559f507f1fdbe2a5df3f69b2799 (plain)
1
2
3
4
5
6
7
8
9
10
11
# this plugin disables the following of focused window by overriding a proc

rename ::dialog_font::update_font_dialog {}
proc ::dialog_font::update_font_dialog {mytoplevel} {
    variable canvaswindow
    if {[winfo exists .font]} {
        wm title .font [format [_ "%s Font"] [lookup_windowname $canvaswindow]]
    } else {
        set canvaswindow $mytoplevel
    }
}