/*
 * ***** BEGIN GPL LICENSE BLOCK *****
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software Foundation,
 * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 * The Original Code is Copyright (C) 2008 Blender Foundation.
 * All rights reserved.
 *
 * Contributor(s): Blender Foundation
 *
 * ***** END GPL LICENSE BLOCK *****
 */

/** \file blender/editors/interface/interface_region_tooltip.c
 *  \ingroup edinterface
 *
 * ToolTip Region and Construction
 */

/* TODO(campbell):
 * We may want to have a higher level API that initializes a timer,
 * checks for mouse motion and clears the tool-tip afterwards.
 * We never want multiple tool-tips at once so this could be handled on the window / window-manager level.
 *
 * For now it's not a priority, so leave as-is.
 */

#include <stdarg.h>
#include <stdlib.h>
#include <string.h>
#include <assert.h>

#include "MEM_guardedalloc.h"

#include "DNA_userdef_types.h"

#include "BLI_math.h"
#include "BLI_string.h"
#include "BLI_string_utf8.h"
#include "BLI_rect.h"
#include "BLI_utildefines.h"

#include "BKE_context.h"
#include "BKE_screen.h"

#include "WM_api.h"
#include "WM_types.h"

#include "RNA_access.h"

#include "BIF_gl.h"

#include "UI_interface.h"

#include "BLF_api.h"
#include "BLT_translation.h"

#include "ED_screen.h"

#include "interface_intern.h"
#include "interface_regions_intern.h"

#define UI_TIP_PAD_FAC      1.3f
#define UI_TIP_PADDING      (int)(UI_TIP_PAD_FAC * UI_UNIT_Y)
#define UI_TIP_MAXWIDTH     600


typedef struct uiTooltipFormat {
	enum {
		UI_TIP_STYLE_NORMAL = 0,
		UI_TIP_STYLE_HEADER,
		UI_TIP_STYLE_MONO,
	} style : 3;
	enum {
		UI_TIP_LC_MAIN = 0,     /* primary text */
		UI_TIP_LC_VALUE,        /* the value of buttons (also shortcuts) */
		UI_TIP_LC_ACTIVE,       /* titles of active enum values */
		UI_TIP_LC_NORMAL,       /* regular text */
		UI_TIP_LC_PYTHON,       /* Python snippet */
		UI_TIP_LC_ALERT,        /* description of why operator can't run */
	} color_id : 4;
	int is_pad : 1;
} uiTooltipFormat;

typedef struct uiTooltipField {
	char *text;
	char *text_suffix;
	struct {
		uint x_pos;     /* x cursor position at the end of the last line */
		uint lines;     /* number of lines, 1 or more with word-wrap */
	} geom;
	uiTooltipFormat format;

} uiTooltipField;

typedef struct uiTooltipData {
	rcti bbox;
	uiTooltipField *fields;
	uint            fields_len;
	uiFontStyle fstyle;
	int wrap_width;
	int toth, lineh;
} uiTooltipData;

#define UI_TIP_LC_MAX 6

BLI_STATIC_ASSERT(UI_TIP_LC_MAX == UI_TIP_LC_ALERT + 1, "invalid lc-max");
BLI_STATIC_ASSERT(sizeof(uiTooltipFormat) <= sizeof(int), "oversize");

static uiTooltipField *text_field_add_only(
        uiTooltipData *data)
{
	data->fields_len += 1;
	data->fields = MEM_recallocN(data->fields, sizeof(*data->fields) * data->fields_len);
	return &data->fields[data->fields_len - 1];
}

static uiTooltipField *text_field_add(
        uiTooltipData *data,
        const uiTooltipFormat *format)
{
	uiTooltipField *field = text_field_add_only(data);
	field->format = *format;
	return field;
}

/* -------------------------------------------------------------------- */
/** \name ToolTip Callbacks (Draw & Free)
 * \{ */

static void rgb_tint(
        float col[3],
        float h, float h_strength,
        float v, float v_strength)
{
	float col_hsv_from[3];
	float col_hsv_to[3];

	rgb_to_hsv_v(col, col_hsv_from);

	col_hsv_to[0] = h;
	col_hsv_to[1] = h_strength;
	col_hsv_to[2] = (col_hsv_from[2] * (1.0f - v_strength)) + (v * v_strength);

	hsv_to_rgb_v(col_hsv_to, col);
}

static void ui_tooltip_region_draw_cb(const bContext *UNUSED(C), ARegion *ar)
{
	const float pad_px = UI_TIP_PADDING;
	uiTooltipData *data = ar->regiondata;
	uiWidgetColors *theme = ui_tooltip_get_theme();
	rcti bbox = data->bbox;
	float tip_colors[UI_TIP_LC_MAX][3];
	unsigned char drawcol[4] = {0, 0, 0, 255}; /* to store color in while drawing (alpha is always 255) */

	float *main_color    = tip_colors[UI_TIP_LC_MAIN]; /* the color from the theme */
	float *value_color   = tip_colors[UI_TIP_LC_VALUE];
	float *active_color  = tip_colors[UI_TIP_LC_ACTIVE];
	float *normal_color  = tip_colors[UI_TIP_LC_NORMAL];
	float *python_color  = tip_colors[UI_TIP_LC_PYTHON];
	float *alert_color   = tip_colors[UI_TIP_LC_ALERT];

	float background_color[3];
	float tone_bg;
	int i;

	wmOrtho2_region_pixelspace(ar);

	/* draw background */
	ui_draw_tooltip_background(UI_style_get(), NULL, &bbox);

	/* set background_color */
	rgb_uchar_to_float(background_color, (const unsigned char *)theme->inner);

	/* calculate normal_color */
	rgb_uchar_to_float(main_color, (const unsigned char *)theme->text);
	copy_v3_v3(active_color, main_color);
	copy_v3_v3(normal_color, main_color);
	copy_v3_v3(python_color, main_color);
	copy_v3_v3(alert_color, main_color);
	copy_v3_v3(value_color, main_color);

	/* find the brightness difference between background and text colors */

	tone_bg = rgb_to_grayscale(background_color);
	/* tone_fg = rgb_to_grayscale(main_color); */

	/* mix the colors */
	rgb_tint(value_color,  0.0f, 0.0f, tone_bg, 0.2f);  /* light gray */
	rgb_tint(active_color, 0.6f, 0.2f, tone_bg, 0.2f);  /* light blue */
	rgb_tint(normal_color, 0.0f, 0.0f, tone_bg, 0.4f);  /* gray       */
	rgb_tint(python_color, 0.0f, 0.0f, tone_bg, 0.5f);  /* dark gray  */
	rgb_tint(alert_color,  0.0f, 0.8f, tone_bg, 0.1f);  /* red        */

	/* draw text */
	BLF_wordwrap(data->fstyle.uifont_id, data->wrap_width);
	BLF_wordwrap(blf_mono_font, data->wrap_width);

	bbox.xmin += 0.5f * pad_px;  /* add padding to the text */
	bbox.ymax -= 0.25f * pad_px;

	for (i = 0; i < data->fields_len; i++) {
		const uiTooltipField *field = &data->fields[i];
		const uiTooltipField *field_next = (i + 1) != data->fields_len ? &data->fields[i + 1] : NULL;

		bbox.ymin = bbox.ymax - (data->lineh * field->geom.lines);
		if (field->format.style == UI_TIP_STYLE_HEADER) {
			/* draw header and active data (is done here to be able to change color) */
			uiFontStyle fstyle_header = data->fstyle;

			/* override text-style */
			fstyle_header.shadow = 1;
			fstyle_header.shadowcolor = rgb_to_grayscale(tip_colors[UI_TIP_LC_MAIN]);
			fstyle_header.shadx = fstyle_header.shady = 0;
			fstyle_header.shadowalpha = 1.0f;
			fstyle_header.word_wrap = true;

			rgb_float_to_uchar(drawcol, tip_colors[UI_TIP_LC_MAIN]);
			UI_fontstyle_set(&fstyle_header);
			UI_fontstyle_draw(&fstyle_header, &bbox, field->text, drawcol);

			fstyle_header.shadow = 0;

			/* offset to the end of the last line */
			if (field->text_suffix) {
				float xofs = field->geom.x_pos;
				float yofs = data->lineh * (field->geom.lines - 1);
				bbox.xmin += xofs;
				bbox.ymax -= yofs;

				rgb_float_to_uchar(drawcol, tip_colors[UI_TIP_LC_ACTIVE]);
				UI_fontstyle_draw(&fstyle_header, &bbox, field->text_suffix, drawcol);

				/* undo offset */
				bbox.xmin -= xofs;
				bbox.ymax += yofs;
			}
		}
		else if (field->format.style == UI_TIP_STYLE_MONO) {
			uiFontStyle fstyle_mono = data->fstyle;
			fstyle_mono.uifont_id = blf_mono_font;
			fstyle_mono.word_wrap = true;

			UI_fontstyle_set(&fstyle_mono);
			/* XXX, needed because we dont have mono in 'U.uifonts' */
			BLF_size(fstyle_mono.uifont_id, fstyle_mono.points * U.pixelsize, U.dpi);
			rgb_float_to_uchar(drawcol, tip_colors[field->format.color_id]);
			UI_fontstyle_draw(&fstyle_mono, &bbox, field->text, drawcol);
		}
		else {
			uiFontStyle fstyle_normal = data->fstyle;
			BLI_assert(field->format.style == UI_TIP_STYLE_NORMAL);
			fstyle_normal.word_wrap = true;

			/* draw remaining data */
			rgb_float_to_uchar(drawcol, tip_colors[field->format.color_id]);
			UI_fontstyle_set(&fstyle_normal);
			UI_fontstyle_draw(&fstyle_normal, &bbox, field->text, drawcol);
		}

		bbox.ymax -= data->lineh * field->geom.lines;

		if (field_next && field_next->format.is_pad) {
			bbox.ymax -= data->lineh * (UI_TIP_PAD_FAC - 1);
		}
	}

	BLF_disable(data->fstyle.uifont_id, BLF_WORD_WRAP);
	BLF_disable(blf_mono_font, BLF_WORD_WRAP);
}

static void ui_tooltip_region_free_cb(ARegion *ar)
{
	uiTooltipData *data;

	data = ar->regiondata;

	for (int  i = 0; i < data->fields_len; i++) {
		const uiTooltipField *field = &data->fields[i];
		MEM_freeN(field->text);
		if (field->text_suffix) {
			MEM_freeN(field->text_suffix);
		}
	}
	MEM_freeN(data->fields);
	MEM_freeN(data);
	ar->regiondata = NULL;
}

/** \} */

/* -------------------------------------------------------------------- */
/** \name ToolTip Creation
 * \{ */

static uiTooltipData *ui_tooltip_data_from_keymap(bContext *C, wmKeyMap *keymap)
{
	char buf[512];

	/* create tooltip data */
	uiTooltipData *data = MEM_callocN(sizeof(uiTooltipData), "uiTooltipData");

	for (wmKeyMapItem *kmi = keymap->items.first; kmi; kmi = kmi->next) {
		wmOperatorType *ot = WM_operatortype_find(kmi->idname, true);
		if (ot != NULL) {
			/* Tip */
			{
				uiTooltipField *field = text_field_add(
				        data, &(uiTooltipFormat){
				            .style = UI_TIP_STYLE_NORMAL,
				            .color_id = UI_TIP_LC_MAIN,
				            .is_pad = true,
				        });
				field->text = BLI_strdup(ot->description[0] ? ot->description : ot->name);
			}
			/* Shortcut */
			{
				uiTooltipField *field = text_field_add(
				        data, &(uiTooltipFormat){
				            .style = UI_TIP_STYLE_NORMAL,
				            .color_id = UI_TIP_LC_NORMAL,
				        });
				bool found = false;
				if (WM_keymap_item_to_string(kmi, false, buf, sizeof(buf))) {
					found = true;
				}
				field->text = BLI_sprintfN(TIP_("Shortcut: %s"), found ? buf : "None");
			}

			/* Python */
			{
				uiTooltipField *field = text_field_add(
				        data, &(uiTooltipFormat){
				            .style = UI_TIP_STYLE_NORMAL,
				            .color_id = UI_TIP_LC_PYTHON,
				        });
				char *str = WM_operator_pystring_ex(C, NULL, false, false, ot, kmi->ptr);
				WM_operator_pystring_abbreviate(str, 32);
				field->text = BLI_sprintfN(TIP_("Python: %s"), str);
				MEM_freeN(str);
			}
		}
	}
	if (data->fields_len == 0) {
		MEM_freeN(data);
		return NULL;
	}
	else {
		return data;
	}
}

static uiTooltipData *ui_tooltip_data_from_button(bContext *C, uiBut *but)
{
	uiStringInfo but_tip = {BUT_GET_TIP, NULL};
	uiStringInfo enum_label = {BUT_GET_RNAENUM_LABEL, NULL};
	uiStringInfo enum_tip = {BUT_GET_RNAENUM_TIP, NULL};
	uiStringInfo op_keymap = {BUT_GET_OP_KEYMAP, NULL};
	uiStringInfo prop_keymap = {BUT_GET_PROP_KEYMAP, NULL};
	uiStringInfo rna_struct = {BUT_GET_RNASTRUCT_IDENTIFIER, NULL};
	uiStringInfo rna_prop = {BUT_GET_RNAPROP_IDENTIFIER, NULL};

	char buf[512];

	/* create tooltip data */
	uiTooltipData *data = MEM_callocN(sizeof(uiTooltipData), "uiTooltipData");

	UI_but_string_info_get(C, but, &but_tip, &enum_label, &enum_tip, &op_keymap, &prop_keymap, &rna_struct, &rna_prop, NULL);

	/* Tip */
	if (but_tip.strinfo) {
		{
			uiTooltipField *field = text_field_add(
			        data, &(uiTooltipFormat){
			            .style = UI_TIP_STYLE_HEADER,
			            .color_id = UI_TIP_LC_NORMAL,
			        });
			if (enum_label.strinfo) {
				field->text = BLI_sprintfN("%s:  ", but_tip.strinfo);
				field->text_suffix = BLI_strdup(enum_label.strinfo);
			}
			else {
				field->text = BLI_sprintfN("%s.", but_tip.strinfo);
			}
		}

		/* special case enum rna buttons */
		if ((but->type & UI_BTYPE_ROW) && but->rnaprop && RNA_property_flag(but->rnaprop) & PROP_ENUM_FLAG) {
			uiTooltipField *field = text_field_add(
			        data, &(uiTooltipFormat){
			            .style = UI_TIP_STYLE_NORMAL,
			            .color_id = UI_TIP_LC_NORMAL,
			        });
			field->text = BLI_strdup(IFACE_("(Shift-Click/Drag to select multiple)"));
		}

	}
	/* Enum field label & tip */
	if (enum_tip.strinfo) {
		uiTooltipField *field = text_field_add(
		        data, &(uiTooltipFormat){
		            .style = UI_TIP_STYLE_NORMAL,
		            .color_id = UI_TIP_LC_VALUE,
		            .is_pad = true,
		        });
		field->text = BLI_strdup(enum_tip.strinfo);
	}

	/* Op shortcut */
	if (op_keymap.strinfo) {
		uiTooltipField *field = text_field_add(
		        data, &(uiTooltipFormat){
		            .style = UI_TIP_STYLE_NORMAL,
		            .color_id = UI_TIP_LC_VALUE,
		            .is_pad = true,
		        });
		field->text = BLI_sprintfN(TIP_("Shortcut: %s"), op_keymap.strinfo);
	}

	/* Property context-toggle shortcut */
	if (prop_keymap.strinfo) {
		uiTooltipField *field = text_field_add(
		        data, &(uiTooltipFormat){
		            .style = UI_TIP_STYLE_NORMAL,
		            .color_id = UI_TIP_LC_VALUE,
		            .is_pad = true,
		        });
		field->text = BLI_sprintfN(TIP_("Shortcut: %s"), prop_keymap.strinfo);
	}

	if (ELEM(but->type, UI_BTYPE_TEXT, UI_BTYPE_SEARCH_MENU)) {
		/* better not show the value of a password */
		if ((but->rnaprop && (RNA_property_subtype(but->rnaprop) == PROP_PASSWORD)) == 0) {
			/* full string */
			ui_but_string_get(but, buf, sizeof(buf));
			if (buf[0]) {
				uiTooltipField *field = text_field_add(
				        data, &(uiTooltipFormat){
				            .style = UI_TIP_STYLE_NORMAL,
				            .color_id = UI_TIP_LC_VALUE,
				            .is_pad = true,
				        });
				field->text = BLI_sprintfN(TIP_("Value: %s"), buf);
			}
		}
	}

	if (but->rnaprop) {
		int unit_type = UI_but_unit_type_get(but);

		if (unit_type == PROP_UNIT_ROTATION) {
			if (RNA_property_type(but->rnaprop) == PROP_FLOAT) {
				float value = RNA_property_array_check(but->rnaprop) ?
				                  RNA_property_float_get_index(&but->rnapoin, but->rnaprop, but->rnaindex) :
				                  RNA_property_float_get(&but->rnapoin, but->rnaprop);

				uiTooltipField *field = text_field_add(
				        data, &(uiTooltipFormat){
				            .style = UI_TIP_STYLE_NORMAL,
				            .color_id = UI_TIP_LC_VALUE,
				        });
				field->text = BLI_sprintfN(TIP_("Radians: %f"), value);
			}
		}

		if (but->flag & UI_BUT_DRIVEN) {
			if (ui_but_anim_expression_get(but, buf, sizeof(buf))) {
				uiTooltipField *field = text_field_add(
				        data, &(uiTooltipFormat){
				            .style = UI_TIP_STYLE_NORMAL,
				            .color_id = UI_TIP_LC_NORMAL,
				        });
				field->text = BLI_sprintfN(TIP_("Expression: %s"), buf);
			}
		}

		if (but->rnapoin.id.data) {
			const ID *id = but->rnapoin.id.data;
			if (ID_IS_LINKED(id)) {
				uiTooltipField *field = text_field_add(
				        data, &(uiTooltipFormat){
				            .style = UI_TIP_STYLE_NORMAL,
				            .color_id = UI_TIP_LC_NORMAL,
				        });
				field->text = BLI_sprintfN(TIP_("Library: %s"), id->lib->name);
			}
		}
	}
	else if (but->optype) {
		PointerRNA *opptr;
		char *str;
		opptr = UI_but_operator_ptr_get(but); /* allocated when needed, the button owns it */

		/* so the context is passed to fieldf functions (some py fieldf functions use it) */
		WM_operator_properties_sanitize(opptr, false);

		str = WM_operator_pystring_ex(C, NULL, false, false, but->optype, opptr);

		/* avoid overly verbose tips (eg, arrays of 20 layers), exact limit is arbitrary */
		WM_operator_pystring_abbreviate(str, 32);

		/* operator info */
		if (U.flag & USER_TOOLTIPS_PYTHON) {
			uiTooltipField *field = text_field_add(
			        data, &(uiTooltipFormat){
			            .style = UI_TIP_STYLE_MONO,
			            .color_id = UI_TIP_LC_PYTHON,
			            .is_pad = true,
			        });
			field->text = BLI_sprintfN(TIP_("Python: %s"), str);
		}

		MEM_freeN(str);
	}

	/* button is disabled, we may be able to tell user why */
	if (but->flag & UI_BUT_DISABLED) {
		const char *disabled_msg = NULL;

		/* if operator poll check failed, it can give pretty precise info why */
		if (but->optype) {
			CTX_wm_operator_poll_msg_set(C, NULL);
			WM_operator_poll_context(C, but->optype, but->opcontext);
			disabled_msg = CTX_wm_operator_poll_msg_get(C);
		}
		/* alternatively, buttons can store some reasoning too */
		else if (but->disabled_info) {
			disabled_msg = TIP_(but->disabled_info);
		}

		if (disabled_msg && disabled_msg[0]) {
			uiTooltipField *field = text_field_add(
			        data, &(uiTooltipFormat){
			            .style = UI_TIP_STYLE_NORMAL,
			            .color_id = UI_TIP_LC_ALERT,
			        });
			field->text = BLI_sprintfN(TIP_("Disabled: %s"), disabled_msg);
		}
	}

	if ((U.flag & USER_TOOLTIPS_PYTHON) && !but->optype && rna_struct.strinfo) {
		{
			uiTooltipField *field = text_field_add(
			        data, &(uiTooltipFormat){
			            .style = UI_TIP_STYLE_MONO,
			            .color_id = UI_TIP_LC_PYTHON,
			            .is_pad = true,
			        });
			if (rna_prop.strinfo) {
				/* Struct and prop */
				field->text = BLI_sprintfN(TIP_("Python: %s.%s"), rna_struct.strinfo, rna_prop.strinfo);
			}
			else {
				/* Only struct (e.g. menus) */
				field->text = BLI_sprintfN(TIP_("Python: %s"), rna_struct.strinfo);
			}
		}

		if (but->rnapoin.id.data) {
			uiTooltipField *field = text_field_add(
			        data, &(uiTooltipFormat){
			            .style = UI_TIP_STYLE_MONO,
			            .color_id = UI_TIP_LC_PYTHON,
			        });

			/* this could get its own 'BUT_GET_...' type */

			/* never fails */
			/* move ownership (no need for re-alloc) */
			if (but->rnaprop) {
				field->text = RNA_path_full_property_py_ex(&but->rnapoin, but->rnaprop, but->rnaindex, true);
			}
			else {
				field->text = RNA_path_full_struct_py(&but->rnapoin);
			}

		}
	}

	/* Free strinfo's... */
	if (but_tip.strinfo)
		MEM_freeN(but_tip.strinfo);
	if (enum_label.strinfo)
		MEM_freeN(enum_label.strinfo);
	if (enum_tip.strinfo)
		MEM_freeN(enum_tip.strinfo);
	if (op_keymap.strinfo)
		MEM_freeN(op_keymap.strinfo);
	if (prop_keymap.strinfo)
		MEM_freeN(prop_keymap.strinfo);
	if (rna_struct.strinfo)
		MEM_freeN(rna_struct.strinfo);
	if (rna_prop.strinfo)
		MEM_freeN(rna_prop.strinfo);

	if (data->fields_len == 0) {
		MEM_freeN(data);
		return NULL;
	}
	else {
		return data;
	}
}

static uiTooltipData *ui_tooltip_data_from_gizmo(bContext *C, wmGizmo *gz)
{
	uiTooltipData *data = MEM_callocN(sizeof(uiTooltipData), "uiTooltipData");

	/* TODO(campbell): a way for gizmos to have their own descriptions (low priority). */

	/* Operator Actions */
	{
		bool use_drag = gz->drag_part != -1 && gz->highlight_part != gz->drag_part;

		const struct {
			int part;
			const char *prefix;
		} mpop_actions[] = {
			{
				.part = gz->highlight_part,
				.prefix = use_drag ? TIP_("Click") : NULL,
			}, {
				.part = use_drag ? gz->drag_part : -1,
				.prefix = use_drag ? TIP_("Drag") : NULL,
			},
		};

		for (int i = 0; i < ARRAY_SIZE(mpop_actions); i++) {
			wmGizmoOpElem *mpop = (mpop_actions[i].part != -1) ? WM_gizmo_operator_get(gz, mpop_actions[i].part) : NULL;
			if (mpop != NULL) {
				/* Description */
				const char *info = RNA_struct_ui_description(mpop->type->srna);
				if (!(info && info[0])) {
					info  = RNA_struct_ui_name(mpop->type->srna);
				}

				if (info && info[0]) {
					char *text = NULL;
					if (mpop_actions[i].prefix != NULL) {
						text = BLI_sprintfN("%s: %s", mpop_actions[i].prefix, info);
					}
					else {
						text = BLI_strdup(info);
					}

					if (text != NULL) {
						uiTooltipField *field = text_field_add(
						        data, &(uiTooltipFormat){
						            .style = UI_TIP_STYLE_HEADER,
						            .color_id = UI_TIP_LC_VALUE,
						            .is_pad = true,
						        });
						field->text = text;
					}
				}

				/* Shortcut */
				{
					bool found = false;
					IDProperty *prop = mpop->ptr.data;
					char buf[128];
					if (WM_key_event_operator_string(
					            C, mpop->type->idname, WM_OP_INVOKE_DEFAULT, prop, true,
					            buf, ARRAY_SIZE(buf)))
					{
						found = true;
					}
					uiTooltipField *field = text_field_add(
					        data, &(uiTooltipFormat){
					            .style = UI_TIP_STYLE_NORMAL,
					            .color_id = UI_TIP_LC_VALUE,
					            .is_pad = true,
					        });
					field->text = BLI_sprintfN(TIP_("Shortcut: %s"), found ? buf : "None");
				}
			}
		}
	}

	/* Property Actions */
	if (gz->type->target_property_defs_len) {
		wmGizmoProperty *gz_prop_array = WM_gizmo_target_property_array(gz);
		for (int i = 0; i < gz->type->target_property_defs_len; i++) {
			/* TODO(campbell): function callback descriptions. */
			wmGizmoProperty *gz_prop = &gz_prop_array[i];
			if (gz_prop->prop != NULL) {
				const char *info = RNA_property_ui_description(gz_prop->prop);
				if (info && info[0]) {
					uiTooltipField *field = text_field_add(
					        data, &(uiTooltipFormat){
					            .style = UI_TIP_STYLE_NORMAL,
					            .color_id = UI_TIP_LC_VALUE,
					            .is_pad = true,
					        });
					field->text = BLI_strdup(info);
				}
			}
		}
	}

	if (data->fields_len == 0) {
		MEM_freeN(data);
		return NULL;
	}
	else {
		return data;
	}
}


static ARegion *ui_tooltip_create_with_data(
        bContext *C, uiTooltipData *data,
        const float init_position[2],
        const float aspect)
{
	const float pad_px = UI_TIP_PADDING;
	wmWindow *win = CTX_wm_window(C);
	const int winx = WM_window_pixels_x(win);
	uiStyle *style = UI_style_get();
	static ARegionType type;
	ARegion *ar;
	int fonth, fontw;
	int h, i;
	rctf rect_fl;
	rcti rect_i;
	int font_flag = 0;

	/* create area region */
	ar = ui_region_temp_add(CTX_wm_screen(C));

	memset(&type, 0, sizeof(ARegionType));
	type.draw = ui_tooltip_region_draw_cb;
	type.free = ui_tooltip_region_free_cb;
	type.regionid = RGN_TYPE_TEMPORARY;
	ar->type = &type;

	/* set font, get bb */
	data->fstyle = style->widget; /* copy struct */
	ui_fontscale(&data->fstyle.points, aspect);

	UI_fontstyle_set(&data->fstyle);

	data->wrap_width = min_ii(UI_TIP_MAXWIDTH * U.pixelsize / aspect, winx - (UI_TIP_PADDING * 2));

	font_flag |= BLF_WORD_WRAP;
	if (data->fstyle.kerning == 1) {
		font_flag |= BLF_KERNING_DEFAULT;
	}
	BLF_enable(data->fstyle.uifont_id, font_flag);
	BLF_enable(blf_mono_font, font_flag);
	BLF_wordwrap(data->fstyle.uifont_id, data->wrap_width);
	BLF_wordwrap(blf_mono_font, data->wrap_width);

	/* these defines tweaked depending on font */
#define TIP_BORDER_X (16.0f / aspect)
#define TIP_BORDER_Y (6.0f / aspect)

	h = BLF_height_max(data->fstyle.uifont_id);

	for (i = 0, fontw = 0, fonth = 0; i < data->fields_len; i++) {
		uiTooltipField *field = &data->fields[i];
		uiTooltipField *field_next = (i + 1) != data->fields_len ? &data->fields[i + 1] : NULL;

		struct ResultBLF info;
		int w, x_pos = 0;
		int font_id;

		if (field->format.style == UI_TIP_STYLE_MONO) {
			BLF_size(blf_mono_font, data->fstyle.points * U.pixelsize, U.dpi);
			font_id = blf_mono_font;
		}
		else {
			BLI_assert(ELEM(field->format.style, UI_TIP_STYLE_NORMAL, UI_TIP_STYLE_HEADER));
			font_id = data->fstyle.uifont_id;
		}
		w = BLF_width_ex(font_id, field->text, BLF_DRAW_STR_DUMMY_MAX, &info);

		/* check for suffix (enum label) */
		if (field->text_suffix && field->text_suffix[0]) {
			x_pos = info.width;
			w = max_ii(w, x_pos + BLF_width(font_id, field->text_suffix, BLF_DRAW_STR_DUMMY_MAX));
		}
		fontw = max_ii(fontw, w);

		fonth += h * info.lines;
		if (field_next && field_next->format.is_pad) {
			fonth += h * (UI_TIP_PAD_FAC - 1);
		}

		field->geom.lines = info.lines;
		field->geom.x_pos = x_pos;
	}

	//fontw *= aspect;

	BLF_disable(data->fstyle.uifont_id, font_flag);
	BLF_disable(blf_mono_font, font_flag);

	ar->regiondata = data;

	data->toth = fonth;
	data->lineh = h;

	/* compute position */

	rect_fl.xmin = init_position[0] - TIP_BORDER_X;
	rect_fl.xmax = rect_fl.xmin + fontw + pad_px;
	rect_fl.ymax = init_position[1] - TIP_BORDER_Y;
	rect_fl.ymin = rect_fl.ymax - fonth  - TIP_BORDER_Y;

	BLI_rcti_rctf_copy(&rect_i, &rect_fl);

#undef TIP_BORDER_X
#undef TIP_BORDER_Y

	/* clip with window boundaries */
	if (rect_i.xmax > winx) {
		/* super size */
		if (rect_i.xmax > winx + rect_i.xmin) {
			rect_i.xmax = winx;
			rect_i.xmin = 0;
		}
		else {
			rect_i.xmin -= rect_i.xmax - winx;
			rect_i.xmax = winx;
		}
	}
	/* ensure at least 5 px above screen bounds
	 * 25 is just a guess to be above the menu item */
	if (rect_i.ymin < 5) {
		rect_i.ymax += (-rect_i.ymin) + 30;
		rect_i.ymin = 30;
	}

	/* add padding */
	BLI_rcti_resize(&rect_i,
	                BLI_rcti_size_x(&rect_i) + pad_px,
	                BLI_rcti_size_y(&rect_i) + pad_px);

	/* widget rect, in region coords */
	{
		const int margin = UI_POPUP_MARGIN;

		data->bbox.xmin = margin;
		data->bbox.xmax = BLI_rcti_size_x(&rect_i) - margin;
		data->bbox.ymin = margin;
		data->bbox.ymax = BLI_rcti_size_y(&rect_i);

		/* region bigger for shadow */
		ar->winrct.xmin = rect_i.xmin - margin;
		ar->winrct.xmax = rect_i.xmax + margin;
		ar->winrct.ymin = rect_i.ymin - margin;
		ar->winrct.ymax = rect_i.ymax + margin;
	}

	/* adds subwindow */
	ED_region_init(ar);

	/* notify change and redraw */
	ED_region_tag_redraw(ar);

	return ar;
}

/** \} */

/* -------------------------------------------------------------------- */
/** \name ToolTip Public API
 * \{ */


ARegion *UI_tooltip_create_from_button(bContext *C, ARegion *butregion, uiBut *but)
{
	wmWindow *win = CTX_wm_window(C);
	/* aspect values that shrink text are likely unreadable */
	const float aspect = min_ff(1.0f, but->block->aspect);
	float init_position[2];

	if (but->drawflag & UI_BUT_NO_TOOLTIP) {
		return NULL;
	}
	uiTooltipData *data = NULL;

	/* custom tips for pre-defined operators */
	if (but->optype) {
		/* TODO(campbell): we now use 'WM_OT_tool_set_by_name', this logic will be moved into the status bar. */
		if (false && STREQ(but->optype->idname, "WM_OT_tool_set")) {
			char keymap[64] = "";
			RNA_string_get(but->opptr, "keymap", keymap);
			if (keymap[0]) {
				ScrArea *sa = CTX_wm_area(C);
				/* It happens in rare cases, for tooltips originated from the toolbar.
				 * It is hard to reproduce, but it happens when the mouse is nowhere near the actual tool. */
				if (sa == NULL) {
					return NULL;
				}
				wmKeyMap *km = WM_keymap_find_all(C, keymap, sa->spacetype, RGN_TYPE_WINDOW);
				if (km != NULL) {
					data = ui_tooltip_data_from_keymap(C, km);
				}
			}
		}
	}
	/* toolsystem exception */

	if (data == NULL) {
		data = ui_tooltip_data_from_button(C, but);
	}
	if (data == NULL) {
		return NULL;
	}

	init_position[0] = BLI_rctf_cent_x(&but->rect);
	init_position[1] = but->rect.ymin;

	if (butregion) {
		ui_block_to_window_fl(butregion, but->block, &init_position[0], &init_position[1]);
		init_position[0] = win->eventstate->x;
	}

	return ui_tooltip_create_with_data(C, data, init_position, aspect);
}

ARegion *UI_tooltip_create_from_gizmo(bContext *C, wmGizmo *gz)
{
	wmWindow *win = CTX_wm_window(C);
	const float aspect = 1.0f;
	float init_position[2];

	uiTooltipData *data = ui_tooltip_data_from_gizmo(C, gz);
	if (data == NULL) {
		return NULL;
	}

	init_position[0] = win->eventstate->x;
	init_position[1] = win->eventstate->y;

	return ui_tooltip_create_with_data(C, data, init_position, aspect);
}

void UI_tooltip_free(bContext *C, bScreen *sc, ARegion *ar)
{
	ui_region_temp_remove(C, sc, ar);
}

/** \} */