diff options
Diffstat (limited to 'font_doesnt_follow_focus-plugin.tcl')
-rw-r--r-- | font_doesnt_follow_focus-plugin.tcl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/font_doesnt_follow_focus-plugin.tcl b/font_doesnt_follow_focus-plugin.tcl new file mode 100644 index 0000000..a822bd5 --- /dev/null +++ b/font_doesnt_follow_focus-plugin.tcl @@ -0,0 +1,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 + } +} |