path: root/font_doesnt_follow_focus-plugin.tcl

# 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
    }
}