master 7269106578: Update menu bars when `use-system-tooltips' changes on Haiku

[Po Lu]

branch: master
commit 7269106578fc1e7e4843457b4b25bff521aa58d5
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    Update menu bars when `use-system-tooltips' changes on Haiku
    
    * lisp/term/haiku-win.el: Add new function as variable watcher
    for `use-system-tooltips'.
    (haiku-use-system-tooltips-watcher): New function.
---
 lisp/term/haiku-win.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el
index a5cde929f9..4c06f7f58a 100644
--- a/lisp/term/haiku-win.el
+++ b/lisp/term/haiku-win.el
@@ -138,6 +138,14 @@ If TYPE is nil, return \"text/plain\"."
 
 (defvaralias 'haiku-use-system-tooltips 'use-system-tooltips)
 
+(defun haiku-use-system-tooltips-watcher (&rest _ignored)
+  "Variable watcher to force a menu bar update when `use-system-tooltip' 
changes.
+This is necessary because on Haiku `use-system-tooltip' doesn't
+take effect on menu items until the menu bar is updated again."
+  (force-mode-line-update t))
+
+(add-variable-watcher 'use-system-tooltips #'haiku-use-system-tooltips-watcher)
+
 (provide 'haiku-win)
 (provide 'term/haiku-win)