fltk/fluid/widget_browser.cxx

//
// Widget Browser code for the Fast Light Tool Kit (FLTK).
//
// Copyright 1998-2023 by Bill Spitzak and others.
//
// This library is free software. Distribution and use rights are outlined in
// the file "COPYING" which should have been included with this file.  If this
// file is missing or damaged, see the license at:
//
//     https://www.fltk.org/COPYING.php
//
// Please see the following page on how to report bugs and issues:
//
//     https://www.fltk.org/bugs.php
//

#include "widget_browser.h"

#include "fluid.h"
#include "Fl_Widget_Type.h"
#include "pixmaps.h"

#include <FL/Fl.H>
#include <FL/Fl_Browser_.H>
#include <FL/fl_draw.H>

/**
 \class Widget_Browser

 A widget that displays the nodes in the widget tree.

 The Widget Browser is derived from the FLTK basic browser, extending
 tree browsing functionality by using the \c depth component of the double
 linked list of \c Fl_Type items.

 \see Fl_Type
 */

// ---- global variables

/// Global access to the widget browser.
Widget_Browser *widget_browser = NULL;

// ---- static variables

Fl_Color Widget_Browser::label_color    = 72;
Fl_Font Widget_Browser::label_font      = FL_HELVETICA;
Fl_Color Widget_Browser::class_color    = FL_FOREGROUND_COLOR;
Fl_Font Widget_Browser::class_font      = FL_HELVETICA_BOLD;
Fl_Color Widget_Browser::func_color     = FL_FOREGROUND_COLOR;
Fl_Font Widget_Browser::func_font       = FL_HELVETICA;
Fl_Color Widget_Browser::name_color     = FL_FOREGROUND_COLOR;
Fl_Font Widget_Browser::name_font       = FL_HELVETICA;
Fl_Color Widget_Browser::code_color     = FL_FOREGROUND_COLOR;
Fl_Font Widget_Browser::code_font       = FL_HELVETICA;
Fl_Color Widget_Browser::comment_color  = FL_DARK_GREEN;
Fl_Font Widget_Browser::comment_font    = FL_HELVETICA;

// ---- global functions

/**
 Shortcut to have the widget browser graphics refreshed soon.
 */
void redraw_browser() {
  widget_browser->redraw();
}

/**
 Shortcut to create the widget browser.
 */
Fl_Widget *make_widget_browser(int x,int y,int w,int h) {
  return (widget_browser = new Widget_Browser(x,y,w,h));
}

/**
 Make sure that the caller is visible in the widget browser.
 \param[in] caller scroll the browser in y so that caller
 is visible (may be NULL)
 */
void redraw_widget_browser(Fl_Type *caller)
{
  if (caller)
    widget_browser->display(caller);
  widget_browser->redraw();
}

/**
 Select or deselect a node in the widget browser.
 \param[in] o (de)select this node
 \param[in] v the new selection state (1=select, 0=de-select)
 */
void select(Fl_Type *o, int v) {
  widget_browser->select(o,v,1);
}

/**
 Select a single node in the widget browser, deselect all others.
 \param[in] o select this node
 */
void select_only(Fl_Type *o) {
  widget_browser->select_only(o,1);
}

/**
 Deselect all nodes in the widget browser.
 */
void deselect() {
  widget_browser->deselect();
}

/**
 Show the selected item in the browser window.

 Make sure that the given item is visible in the browser by opening
 all parent groups and moving the item into the visible space.

 \param[in] t show this ite
 */
void reveal_in_browser(Fl_Type *t) {
  Fl_Type *p = t->parent;
  if (p) {
    for (;;) {
      if (!p->open_)
        p->open_ = 1;
      if (!p->parent) break;
      p = p->parent;
    }
    update_visibility_flag(p);
  }
  widget_browser->display(t);
  widget_browser->redraw();
}

// ---- local functions

/**
 Copy the given string str to buffer p with no more than maxl characters.

 Add "..." if string was truncated.

 Quote characters are NOT counted.

 \param[out] p return the resulting string in this buffer, terminated with
    a NUL byte
 \param[in] str copy this string; utf8 aware
 \param[in] maxl maximum number of letter to copy until we print
    the elipsis (...)
 \param[in] quote if set, the resulting string is embedded in double quotes
 \param[in] trunc_lf if set, truncates at first newline
 \returns pointer to end of string (before terminating null byte).
 \note the buffer p must be large enough to hold (4 * (maxl+1) + 1) bytes
    or (4 * (maxl+1) + 3) bytes if quoted, e.g. "123..." because each UTF-8
    character can consist of 4 bytes, "..." adds 3 bytes, quotes '""' add two
    bytes, and the terminating null byte adds another byte.
    This supports Unicode code points up to U+10FFFF (standard as of 10/2016).
    Sanity checks for illegal UTF-8 sequences are included.
 */
static char *copy_trunc(char *p, const char *str, int maxl, int quote, int trunc_lf)
{
  int size = 0;                         // truncated string size in characters
  int bs;                               // size of UTF-8 character in bytes
  const char *end = str + strlen(str);  // end of input string
  if (quote) *p++ = '"';                // opening quote
  while (size < maxl) {                 // maximum <maxl> characters
    if (*str == '\n') {
      if (trunc_lf) {                   // handle trunc at \n
        *p++ = 0;
        return p;
      }
      *p++ = '\\'; *p++ = 'n';
      str++; size++;
      continue;
    }
    if (!(*str & (-32))) break;         // end of string (0 or control char)
    bs = fl_utf8len(*str);              // size of next character
    if (bs <= 0) break;                 // some error - leave
    if (str + bs > end) break;          // UTF-8 sequence beyond end of string
    while (bs--) *p++ = *str++;         // copy that character into the buffer
    size++;                             // count copied characters
  }
  if (*str && *str!='\n') {             // string was truncated
    strcpy(p,"..."); p += 3;
  }
  if (quote) *p++ = '"';                // closing quote
  *p = 0;                               // terminating null byte
  return p;
}

// ---- Widget_Browser implementation

/**
 Create a new instance of the Widget_Browser widget.

 Fluid currently generates only one instance of this browser. If we want
 to use multiple browser at some point, we need to refactor a few global
 variables, i.e. Fl_Type::first and Fl_Type::last .

 \param[in] X, Y, W, H position and size of widget
 \param[in] l optional label
 \todo It would be nice to be able to grab one or more nodes and mmove them
    within the hierarchy.
 */
Widget_Browser::Widget_Browser(int X,int Y,int W,int H,const char*l) :
  Fl_Browser_(X,Y,W,H,l),
  pushedtitle(NULL),
  saved_h_scroll_(0),
  saved_v_scroll_(0)
{
  type(FL_MULTI_BROWSER);
  Fl_Widget::callback(callback_stub);
  when(FL_WHEN_RELEASE);
}

/**
 Override the method to find the first item in the list of elements.
 \return the first item
 */
void *Widget_Browser::item_first() const {
  return Fl_Type::first;
}

/**
 Override the method to find the next item in the list of elements.
 \param l this item
 \return the next item, irregardless of tree depth, or NULL at the end
 */
void *Widget_Browser::item_next(void *l) const {
  return ((Fl_Type*)l)->next;
}

/**
 Override the method to find the previous item in the list of elements.
 \param l this item
 \return the previous item, irregardless of tree depth, or NULL at the start
 */
void *Widget_Browser::item_prev(void *l) const {
  return ((Fl_Type*)l)->prev;
}

/**
 Override the method to check if an item was selected.
 \param l this item
 \return 1 if selected, 0 if not
 \todo what is the difference between selected and new_selected, and why do we do this?
 */
int Widget_Browser::item_selected(void *l) const {
  return ((Fl_Type*)l)->new_selected;
}

/**
 Override the method to mark an item selected.
 \param l this item
 \param[in] v 1 if selecting, 0 if not
 */
void Widget_Browser::item_select(void *l,int v) {
  ((Fl_Type*)l)->new_selected = v;
}

/**
 Override the method to return the height of an item representation in Flixels.
 \param l this item
 \return height in FLTK units (used to be pixels before high res screens)
 */
int Widget_Browser::item_height(void *l) const {
  Fl_Type *t = (Fl_Type*)l;
  if (t->visible) {
    if (show_comments && t->comment())
      return textsize()*2+4;
    else
      return textsize()+5;
  }
  return 0;
}

/**
 Override the method to return the estimated height of all items.
 \return height in FLTK units
 */
int Widget_Browser::incr_height() const {
  return textsize() + 5 + linespacing();
}

/**
 Draw an item in the widget browser.

 A browser line starts with a variable size space. This space directly
 relates to the level of the type entry.

 If this type has the ability to store children, a triangle follows,
 pointing right (closed) or pointing down (open, children shown).

 Next follows an icon that is specific to the type. This makes it easy to
 spot certain types.

 Now follows some text. For classes and widgets, this is the type itself,
 followed by the name of the object. Other objects show their content as
 text, possibly abbreviated with an ellipsis.

 \param v      v is a pointer to the actual widget type and can be cast safely
    to Fl_Type
 \param X,Y    these give the position in window coordinates of the top left
    corner of this line
 */
void Widget_Browser::item_draw(void *v, int X, int Y, int, int) const {
  // cast to a more general type
  Fl_Type *l = (Fl_Type *)v;

  char buf[340]; // edit buffer: large enough to hold 80 UTF-8 chars + nul

  // calculate the horizontal start position of this item
  // 3 is the edge of the browser
  // 13 is the width of the arrow that indicates children for the item
  // 18 is the width of the icon
  // 12 is the indent per level
  X += 3 + 13 + 18 + l->level * 12;

  // calculate the horizontal start position and width of the separator line
  int x1 = X;
  int w1 = w() - x1;

  // items can contain a comment. If they do, the comment gets a second text
  // line inside this browser line
  int comment_incr = 0;
  if (show_comments && l->comment()) {
    // -- comment
    copy_trunc(buf, l->comment(), 80, 0, 1);
    comment_incr = textsize()-1;
    if (l->new_selected) fl_color(fl_contrast(comment_color, FL_SELECTION_COLOR));
    else fl_color(comment_color);
    fl_font(comment_font, textsize()-2);
    fl_draw(buf, X, Y+12);
    Y += comment_incr/2;
    comment_incr -= comment_incr/2;
  }

  if (l->new_selected) fl_color(fl_contrast(FL_FOREGROUND_COLOR,FL_SELECTION_COLOR));
  else fl_color(FL_FOREGROUND_COLOR);

  // Width=10: Draw the triangle that indicates possible children
  if (l->is_parent()) {
    X = X - 18 - 13;
    if (!l->next || l->next->level <= l->level) {
      if (l->open_!=(l==pushedtitle)) {
        // an outlined triangle to the right indicates closed item, no children
        fl_loop(X,Y+7,X+5,Y+12,X+10,Y+7);
      } else {
        // an outlined triangle to the bottom indicates open item, no children
        fl_loop(X+2,Y+2,X+7,Y+7,X+2,Y+12);
      }
    } else {
      if (l->open_!=(l==pushedtitle)) {
        // a filled triangle to the right indicates closed item, with children
        fl_polygon(X,Y+7,X+5,Y+12,X+10,Y+7);
      } else {
        // a filled triangle to the bottom indicates open item, with children
        fl_polygon(X+2,Y+2,X+7,Y+7,X+2,Y+12);
      }
    }
    X = X + 13 + 18;
  }

  // Width=18: Draw the icon associated with the type.
  Fl_Pixmap *pm = pixmap[l->id()];
  if (pm) pm->draw(X-18, Y);

  // Add tags on top of the icon for locked and protected types.
  switch (l->is_public()) {
    case 0: lock_pixmap->draw(X - 17, Y); break;
    case 2: protected_pixmap->draw(X - 17, Y); break;
  }

  if (   l->is_widget()
      && !l->is_a(ID_Window)
      && ((Fl_Widget_Type*)l)->o
      && !((Fl_Widget_Type*)l)->o->visible()
      && (!l->parent || (   !l->parent->is_a(ID_Tabs)
                         && !l->parent->is_a(ID_Wizard) ) )
      )
  {
    invisible_pixmap->draw(X - 17, Y);
  }

  // Indent=12 per level: Now write the text that comes after the graphics representation
  Y += comment_incr;
  if (l->is_widget() || l->is_class()) {
    const char* c = subclassname(l);
    if (!strncmp(c,"Fl_",3)) c += 3;
    // -- class
    fl_font(class_font, textsize());
    if (l->new_selected) fl_color(fl_contrast(class_color, FL_SELECTION_COLOR));
    else fl_color(class_color);
    fl_draw(c, X, Y+13);
    X += int(fl_width(c)+fl_width('n'));
    c = l->name();
    if (c) {
      // -- name
      fl_font(name_font, textsize());
      if (l->new_selected) fl_color(fl_contrast(name_color, FL_SELECTION_COLOR));
      else fl_color(name_color);
      fl_draw(c, X, Y+13);
    } else if ((c = l->label())) {
      // -- label
      fl_font(label_font, textsize());
      if (l->new_selected) fl_color(fl_contrast(label_color, FL_SELECTION_COLOR));
      else fl_color(label_color);
      copy_trunc(buf, c, 32, 1, 0); // quoted string
      fl_draw(buf, X, Y+13);
    }
  } else {
    if (l->is_code_block() && (l->level==0 || l->parent->is_class())) {
      // -- function names
      fl_font(func_font, textsize());
      if (l->new_selected) fl_color(fl_contrast(func_color, FL_SELECTION_COLOR));
      else fl_color(func_color);
      copy_trunc(buf, l->title(), 55, 0, 0);
    } else {
      if (l->is_a(ID_Comment)) {
        // -- comment (in main line, not above entry)
        fl_font(comment_font, textsize());
        if (l->new_selected) fl_color(fl_contrast(comment_color, FL_SELECTION_COLOR));
        else fl_color(comment_color);
        copy_trunc(buf, l->title(), 55, 0, 0);
      } else {
        // -- code
        fl_font(code_font, textsize());
        if (l->new_selected) fl_color(fl_contrast(code_color, FL_SELECTION_COLOR));
        else fl_color(code_color);
        copy_trunc(buf, l->title(), 55, 0, 1);
      }
    }
    fl_draw(buf, X, Y+13);
  }

  // draw a thin line below the item if this item is not selected
  // (if it is selected this additional line would look bad)
  if (!l->new_selected) {
    fl_color(fl_lighter(FL_GRAY));
    fl_line(x1,Y+16,x1+w1,Y+16);
  }
}

/**
 Override the method to return the width of an item representation in Flixels.
 \param v this item
 \return width in FLTK units
 */
int Widget_Browser::item_width(void *v) const {

  char buf[340]; // edit buffer: large enough to hold 80 UTF-8 chars + nul

  Fl_Type *l = (Fl_Type *)v;

  if (!l->visible) return 0;

  int W = 3 + 13 + 18 + l->level * 12;

  if (l->is_widget() || l->is_class()) {
    const char* c = l->type_name();
    if (!strncmp(c,"Fl_",3)) c += 3;
    fl_font(textfont(), textsize());
    W += int(fl_width(c) + fl_width('n'));
    c = l->name();
    if (c) {
      fl_font(textfont()|FL_BOLD, textsize());
      W += int(fl_width(c));
    } else if (l->label()) {
      copy_trunc(buf, l->label(), 32, 1, 0); // quoted string
      W += int(fl_width(buf));
    }
  } else {
    copy_trunc(buf, l->title(), 55, 0, 0);
    fl_font(textfont() | (l->is_code_block() && (l->level==0 || l->parent->is_class())?0:FL_BOLD), textsize());
    W += int(fl_width(buf));
  }

  return W;
}

/**
 Callback to tell the Fluid UI when the list of selected items changed.
 */
void Widget_Browser::callback() {
  selection_changed((Fl_Type*)selection());
}

/**
 Override the event handling for this browser.

 The vertical mouse position corresponds to an entry in the type tree.
 The horizontal position has the following hot zones:
 - 0-3 is the widget frame and ignored
 - the next hot zone starts 12*indent pixels further to the right
 - the next 13 pixels refer to the arrow that indicates children for the item
 - 18 pixels follow for the icon
 - the remaining part is filled with text

 \param[in] e the incoming event type
 \return 0 if the event is not supported, and 1 if the event was "used up"
 */
int Widget_Browser::handle(int e) {
  static Fl_Type *title;
  Fl_Type *l;
  int X,Y,W,H; bbox(X,Y,W,H);
  switch (e) {
  case FL_PUSH:
    if (!Fl::event_inside(X,Y,W,H)) break;
    l = (Fl_Type*)find_item(Fl::event_y());
    if (l) {
      X += 3 + 12*l->level - hposition();
      if (l->is_parent() && Fl::event_x()>X && Fl::event_x()<X+13) {
        title = pushedtitle = l;
        redraw_line(l);
        return 1;
      }
    }
    break;
  case FL_DRAG:
    if (!title) break;
    l = (Fl_Type*)find_item(Fl::event_y());
    if (l) {
      X += 3 + 12*l->level - hposition();
      if (l->is_parent() && Fl::event_x()>X && Fl::event_x()<X+13) ;
      else l = 0;
    }
    if (l != pushedtitle) {
      if (pushedtitle) redraw_line(pushedtitle);
      if (l) redraw_line(l);
      pushedtitle = l;
    }
    return 1;
  case FL_RELEASE:
    if (!title) {
      l = (Fl_Type*)find_item(Fl::event_y());
      if (l && l->new_selected && (Fl::event_clicks() || Fl::event_state(FL_CTRL)))
        l->open();
      break;
    }
    l = pushedtitle;
    title = pushedtitle = 0;
    if (l) {
      if (l->open_) {
        l->open_ = 0;
        for (Fl_Type*k = l->next; k&&k->level>l->level; k = k->next)
          k->visible = 0;
      } else {
        l->open_ = 1;
        for (Fl_Type*k=l->next; k&&k->level>l->level;) {
          k->visible = 1;
          if (k->is_parent() && !k->open_) {
            Fl_Type *j;
            for (j = k->next; j && j->level>k->level; j = j->next) {/*empty*/}
            k = j;
          } else
            k = k->next;
        }
      }
      redraw();
    }
    return 1;
  }
  return Fl_Browser_::handle(e);
}

/**
 Save the current scrollbar postion during rebuild.
 */
void Widget_Browser::save_scroll_position() {
  saved_h_scroll_ = hposition();
  saved_v_scroll_ = vposition();
}

/**
 Restore the previous scrollbar postion after rebuild.
 */
void Widget_Browser::restore_scroll_position() {
  hposition(saved_h_scroll_);
  vposition(saved_v_scroll_);
}

/**
 Rebuild the browser layout to reflect multiple changes.
 This clears internal caches, recalculates the scroll bar sizes, and
 sends a redraw() request to the widget.
 */
void Widget_Browser::rebuild() {
  save_scroll_position();
  new_list();
  damage(FL_DAMAGE_SCROLL);
  redraw();
  restore_scroll_position();
}

/**
 Rebuild the browser layout and make sure that the given item is visible.
 \param[in] inNode pointer to a widget node derived from Fl_Type.
 */
void Widget_Browser::display(Fl_Type *inNode) {
  if (!inNode) {
    // Alternative: find the first (last?) visible selected item.
    return;
  }
  // remeber our current scroll position
  int currentV = vposition(), newV = currentV;
  int nodeV = 0;
  // find the inNode in the tree and check, if it is already visible
  Fl_Type *p=Fl_Type::first;
  for ( ; p && p!=inNode; p=p->next) {
    if (p->visible)
      nodeV += item_height(p) + linespacing();
  }
  if (p) {
    int xx, yy, ww, hh;
    bbox(xx, yy, ww, hh);
    int frame_top = xx-x();
    int frame_bottom = frame_top + hh;
    int node_height = item_height(inNode) + linespacing();
    int margin_height = 2 * (item_quick_height(inNode) + linespacing());
    if (margin_height>hh/2) margin_height = hh/2;
    // is the inNode above the current scroll position?
    if (nodeV<currentV+margin_height)
      newV = nodeV - margin_height;
    else if (nodeV>currentV+frame_bottom-margin_height-node_height)
      newV = nodeV - frame_bottom + margin_height + node_height;
    if (newV<0)
      newV = 0;
  }
  if (newV!=currentV)
    vposition(newV);
}

void Widget_Browser::load_prefs() {
  int c;
  Fl_Preferences p(fluid_prefs, "widget_browser");
  p.get("label_color",  c, 72); label_color = c;
  p.get("label_font",   c, FL_HELVETICA); label_font = c;
  p.get("class_color",  c, FL_FOREGROUND_COLOR); class_color = c;
  p.get("class_font",   c, FL_HELVETICA_BOLD); class_font = c;
  p.get("func_color",   c, FL_FOREGROUND_COLOR); func_color = c;
  p.get("func_font",    c, FL_HELVETICA); func_font = c;
  p.get("name_color",   c, FL_FOREGROUND_COLOR); name_color = c;
  p.get("name_font",    c, FL_HELVETICA); name_font = c;
  p.get("code_color",   c, FL_FOREGROUND_COLOR); code_color = c;
  p.get("code_font",    c, FL_HELVETICA); code_font = c;
  p.get("comment_color",c, FL_DARK_GREEN); comment_color = c;
  p.get("comment_font", c, FL_HELVETICA); comment_font = c;
}

void Widget_Browser::save_prefs() {
  Fl_Preferences p(fluid_prefs, "widget_browser");
  p.set("label_color",    (int)label_color);
  p.set("label_font",     (int)label_font);
  p.set("class_color",    (int)class_color);
  p.set("class_font",     (int)class_font);
  p.set("func_color",     (int)func_color);
  p.set("func_font",      (int)func_font);
  p.set("name_color",     (int)name_color);
  p.set("name_font",      (int)name_font);
  p.set("code_color",     (int)code_color);
  p.set("code_font",      (int)code_font);
  p.set("comment_color",  (int)comment_color);
  p.set("comment_font",   (int)comment_font);
}