gtk/gtk.tooltip.lisp

   1 (in-package :gtk)
   2
   3 (defcfun gtk-tooltip-set-markup :void
   4   (tooltip g-object)
   5   (markup :string))
   6
   7 (defun (setf tooltip-markup) (new-value tooltip)
   8   (gtk-tooltip-set-markup tooltip new-value))
   9
  10 (export 'tooltip-markup)
  11
  12 (defcfun gtk-tooltip-set-text :void
  13   (tooltip g-object)
  14   (text :string))
  15
  16 (defun (setf tooltip-text) (new-value tooltip)
  17   (gtk-tooltip-set-text tooltip new-value))
  18
  19 (export 'tooltip-text)
  20
  21 (defcfun gtk-tooltip-set-icon :void
  22   (tooltip g-object)
  23   (pixbuf g-object))
  24
  25 (defun (setf tooltip-icon) (new-value tooltip)
  26   (gtk-tooltip-set-icon tooltip new-value))
  27
  28 (export 'tooltip-icon)
  29
  30 (defcfun (tooltip-set-icon-from-stock "gtk_tooltip_set_icon_from_stock") :void
  31   (tooltip g-object)
  32   (stock-id :string)
  33   (icon-size icon-size))
  34
  35 (export 'tooltip-set-icon-from-stock)
  36
  37 (defcfun (tooltip-set-icon-from-icon-name "gtk_tooltip_set_icon_from_icon_name") :void
  38   (tooltip g-object)
  39   (icon-name :string)
  40   (icon-size icon-size))
  41
  42 (export 'tooltip-set-icon-from-icon-name)
  43
  44 (defcfun (tooltip-set-custom "gtk_tooltip_set_custom") :void
  45   (tooltip g-object)
  46   (custom-widget g-object))
  47
  48 (export 'tooltip-set-custom)
  49
  50 (defcfun (tooltip-trigger-tooltip-query "gtk_tooltip_trigger_tooltip_query") :void
  51   (display g-object))
  52
  53 (export 'tooltip-trigger-tooltip-query)
  54
  55 (defcfun (tooltip-set-tip-area "gtk_tooltip_set_tip_area") :void
  56   (tooltip g-object)
  57   (rectangle (g-boxed-foreign rectangle)))
  58
  59 (export 'tooltip-set-tip-area)