This commit was manufactured by cvs2svn to create branch 'branch-1.1'.

git-svn-id: file:///fltk/svn/fltk/branches/branch-1.1@1513 ea41ed52-d2ee-0310-a9c1-e6b18d33e121

1 files changed, 157 insertions, 0 deletions

diff --git a/src/Fl_Tooltip.cxx b/src/Fl_Tooltip.cxx
new file mode 100644
index 000000000..e963424ad
--- /dev/null
+++ b/src/Fl_Tooltip.cxx
@@ -0,0 +1,157 @@
+//
+// "$Id: Fl_Tooltip.cxx,v 1.38 2001/07/23 09:50:05 spitzak Exp $"
+//
+// Tooltip code for the Fast Light Tool Kit (FLTK).
+//
+// Copyright 1998-1999 by Bill Spitzak and others.
+//
+// This library is free software; you can redistribute it and/or
+// modify it under the terms of the GNU Library General Public
+// License as published by the Free Software Foundation; either
+// version 2 of the License, or (at your option) any later version.
+//
+// This library 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
+// Library General Public License for more details.
+//
+// You should have received a copy of the GNU Library General Public
+// License along with this library; if not, write to the Free Software
+// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
+// USA.
+//
+// Please report all bugs and problems to "fltk-bugs@easysw.com".
+//
+
+#include <fltk/Fl_Tooltip.h>
+#include <fltk/fl_draw.h>
+#include <fltk/Fl_Menu_Window.h>
+
+float Fl_Tooltip::delay_ = 0.5f;
+int Fl_Tooltip::enabled_ = 1;
+
+#define MAX_WIDTH 400
+
+class Fl_TooltipBox : public Fl_Menu_Window {
+public:
+  Fl_TooltipBox() : Fl_Menu_Window(0, 0, 0, 0) {
+    style(Fl_Tooltip::default_style);}
+  void draw();
+  void layout();
+};
+
+static const char* tip;
+static Fl_Widget* widget;
+static Fl_TooltipBox *window = 0;
+static int X,Y,W,H;
+
+void Fl_TooltipBox::layout() {
+  fl_font(label_font(), label_size());
+  int ww, hh;
+  ww = MAX_WIDTH;
+  fl_measure(tip, ww, hh, FL_ALIGN_LEFT|FL_ALIGN_WRAP|FL_ALIGN_INSIDE);
+  ww += 6; hh += 6;
+
+  // find position on the screen of the widget:
+  int ox = Fl::event_x_root()+5;
+  //int ox = X+W/2;
+  int oy = Y + H+2;
+  for (Fl_Widget* p = widget; p; p = p->parent()) {
+    //ox += p->x();
+    oy += p->y();
+  }
+  if (ox+ww > Fl::w()) ox = Fl::w() - ww;
+  if (ox < 0) ox = 0;
+  if (H > 30) {
+    oy = Fl::event_y_root()+13;
+    if (oy+hh > Fl::h()) oy -= 23+hh;
+  } else {
+    if (oy+hh > Fl::h()) oy -= (4+hh+H);
+  }
+  if (oy < 0) oy = 0;
+
+  resize(ox, oy, ww, hh);
+  Fl_Menu_Window::layout();
+}
+
+void Fl_TooltipBox::draw() {
+  draw_box();
+  draw_label(3, 3, w()-6, h()-6, FL_ALIGN_LEFT|FL_ALIGN_WRAP|FL_ALIGN_INSIDE);
+}
+
+
+static void tooltip_timeout(void*) {
+  if (Fl::grab()) return;
+
+  if (window) delete window;
+  Fl_Group* saveCurrent = Fl_Group::current();
+  Fl_Group::current(0);
+  window = new Fl_TooltipBox;
+  window->set_override();
+  window->end();
+  Fl_Group::current(saveCurrent);
+
+  // this cast bypasses the normal Fl_Window label() code:
+  ((Fl_Widget*)window)->label(tip);
+  window->relayout();
+  window->show();
+}
+
+static int cheesy_flag = 0;
+
+static void
+tt_exit(Fl_Widget *w) {
+  if (!w || w != widget) return;
+  widget = 0;
+  Fl::remove_timeout((Fl_Timeout_Handler)tooltip_timeout);
+  if (window) {
+    // This flag makes sure that tootip_enter() isn't executed because of
+    // this destroy() which could cause unwanted recursion in tooltip_enter()
+    cheesy_flag = 1;
+    window->destroy();
+    cheesy_flag = 0;
+  }
+}
+
+static void
+tt_enter_area(Fl_Widget* w, int X, int Y, int W, int H, const char* t) {
+  if (cheesy_flag) return;
+  if (w == widget && X == ::X && Y == ::Y && W == ::W && H == ::H && t == tip)
+    return;
+  tt_exit(widget);
+  widget = w; ::X = X; ::Y = Y; ::W = W; ::H = H; tip = t;
+  if (!t || !Fl_Tooltip::enabled()) return;
+  float d = Fl_Tooltip::delay();
+  if (d < .01f) d = .01f;
+  Fl::add_timeout(d, (Fl_Timeout_Handler)tooltip_timeout);
+}
+
+static void
+tt_enter(Fl_Widget* w) {
+  if (cheesy_flag  || w == widget) return;
+  if (!w || w == window) { tt_exit(widget); widget = 0; return; }
+  tt_enter_area(w, 0, 0, w->w(), w->h(), w->tooltip());
+}
+
+void Fl_Widget::tooltip(const char *tt) {
+  static int do_once = 0;
+  if (!do_once) {
+    do_once = 1;
+    Fl_Tooltip::enter = tt_enter;
+    Fl_Tooltip::enter_area = tt_enter_area;
+    Fl_Tooltip::exit = tt_exit;
+  }
+  tooltip_ = tt;
+}
+
+static void revert(Fl_Style* s) {
+  s->box = FL_BORDER_BOX;
+  s->color = (Fl_Color)215;
+  s->label_color = FL_BLACK;
+}
+static Fl_Named_Style style("Tooltip", revert, &Fl_Tooltip::default_style);
+Fl_Named_Style* Fl_Tooltip::default_style = &::style;
+
+//
+// End of "$Id: Fl_Tooltip.cxx,v 1.38 2001/07/23 09:50:05 spitzak Exp $".
+//