diff options
Diffstat (limited to 'ide/wg_Tooltip.ml')
| -rw-r--r-- | ide/wg_Tooltip.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ide/wg_Tooltip.ml b/ide/wg_Tooltip.ml index c3ed8c32e..62598dd50 100644 --- a/ide/wg_Tooltip.ml +++ b/ide/wg_Tooltip.ml @@ -36,6 +36,7 @@ let tooltip_callback (view : GText.view) ~x ~y ~kbd tooltip = try let ss = Table.find_all table iter#offset in let msg = String.concat "\n" (CList.uniquize (List.map Lazy.force ss)) in + GtkBase.Tooltip.set_icon_from_stock tooltip `INFO `BUTTON; view#misc#set_tooltip_markup ("<tt>" ^ msg ^ "</tt>") with Not_found -> () end else begin |