TextView.c File Reference

#include <assert.h>
#include <stdlib.h>
#include <string.h>
#include <Objectively/String.h>
#include "Colors.h"
#include "Text.h"
#include "TextView.h"
#include "Theme.h"

Go to the source code of this file.

Macros
#define	_Class   _TextView

Functions
Class *	_TextView (void)
static void	applyStyle (View *self, const Style *style)
static bool	autocomplete (TextView *self, int step, const ImageAtlas *icons)
	Auto-completes the text before the cursor.
static void	awakeWithDictionary (View *self, const Dictionary *dictionary)
static void	becomeKeyResponder (View *self)
static bool	captureEvent (Control *self, const SDL_Event *event)
static void	dealloc (Object *self)
static View *	init (View *self)
static void	initialize (Class *clazz)
static TextView *	initWithFrame (TextView *self, const SDL_Rect *frame)
static void	layoutSubviews (View *self)
static void	render (View *self, Renderer *renderer)
static void	replacePrefix (TextView *self, const char *chars)
	Replaces the text before the cursor with chars, leaving the cursor after them.
static void	resignKeyResponder (View *self)
static void	setAttributedText (TextView *self, const char *attributedText)
static void	setDefaultText (TextView *self, const char *defaultText)
static void	stateDidChange (Control *self)
static size_t	unitLengthAt (const char *chars, size_t len, size_t position, const ImageAtlas *icons)
	Returns the length in bytes of the cursor unit starting at position.
static size_t	unitLengthBefore (const char *chars, size_t len, size_t position, const ImageAtlas *icons)
	Returns the length in bytes of the cursor unit ending at position.

Macro Definition Documentation

_Class

#define _Class   _TextView

Definition at line 35 of file TextView.c.

Function Documentation

_TextView()

Class * _TextView

(

void

)

Definition at line 629 of file TextView.c.

                       {
  static Class *clazz;
  static Once once;
 
  do_once(&once, {
    clazz = _initialize(&(const ClassDef) {
      .name = "TextView",
      .superclass = _Control(),
      .instanceSize = sizeof(TextView),
      .interfaceSize = sizeof(TextViewInterface),
      .initialize = initialize,
    });
  });
 
  return clazz;
}

applyStyle()

static void applyStyle ( View *  self, const Style *  style  )

static

Definition at line 65 of file TextView.c.

                                                       {
 
  super(View, self, applyStyle, style);
 
  TextView *this = (TextView *) self;
 
  const Inlet inlets[] = MakeInlets(
    MakeInlet("editable", InletTypeBool, &this->isEditable, NULL)
  );
 
  $(self, bind, inlets, style->attributes);
}

autocomplete()

static bool autocomplete ( TextView *  self, int  step, const ImageAtlas *  icons  )

static

Auto-completes the text before the cursor.

The first Tab completes to the longest prefix the delegate's completions share, and then Tab and Shift+Tab cycle through them. A lone completion is not cycled, so that the next Tab asks again, e.g. for the contents of a completed directory.

Parameters

step	1 to cycle forward, -1 to cycle backward.

Returns

True if the text was completed, false if Tab should advance the key responder.

Definition at line 270 of file TextView.c.

                                                                            {
 
  if (self->completions) {
    const size_t count = self->completions->count;
 
    if (step > 0) {
      self->completion = self->completion == count ? 0 : (self->completion + 1) % count;
    } else {
      self->completion = self->completion == 0 || self->completion == count ? count - 1 : self->completion - 1;
    }
 
    const String *completion = $(self->completions, objectAtIndex, self->completion);
    replacePrefix(self, completion->chars ?: "");
    return true;
  }
 
  if (self->delegate.completionsForPrefix == NULL) {
    return false;
  }
 
  String *prefix = $(self->attributedText, substring, (Range) { .length = self->position });
  Array *completions = self->delegate.completionsForPrefix(self, prefix->chars ?: "");
 
  bool didComplete = false;
 
  if (completions && completions->count) {
    const size_t count = completions->count;
    const String *first = $(completions, objectAtIndex, 0);
 
    size_t len = first->length;
    for (size_t i = 1; i < count; i++) {
      const String *other = $(completions, objectAtIndex, i);
      size_t j = 0;
      while (j < len && j < other->length && first->chars[j] == other->chars[j]) {
        j++;
      }
      len = j;
    }
 
    // Never stop inside an escape or a UTF-8 encoded character
    size_t shared = 0;
    while (shared < len) {
      const size_t unit = unitLengthAt(first->chars, first->length, shared, icons);
      if (shared + unit > len) {
        break;
      }
      shared += unit;
    }
 
    if (shared > prefix->length) {
      String *common = $(first, substring, (Range) { .length = shared });
      replacePrefix(self, common->chars);
      release(common);
 
      self->completion = count;
      didComplete = true;
    } else if (count > 1) {
      self->completion = step > 0 ? 0 : count - 1;
 
      const String *completion = $(completions, objectAtIndex, self->completion);
      replacePrefix(self, completion->chars ?: "");
      didComplete = true;
    } else if (strcmp(first->chars ?: "", prefix->chars ?: "")) {
      replacePrefix(self, first->chars ?: "");
      didComplete = true;
    }
 
    if (count > 1) {
      self->completions = retain(completions);
    }
  }
 
  release(completions);
  release(prefix);
 
  return didComplete;
}

awakeWithDictionary()

static void awakeWithDictionary ( View *  self, const Dictionary *  dictionary  )

static

See also

View::awakeWithDictionary(View *, const Dictionary *)

Definition at line 81 of file TextView.c.

                                                                          {
 
  super(View, self, awakeWithDictionary, dictionary);
 
  TextView *this = (TextView *) self;
 
  const Inlet inlets[] = MakeInlets(
    MakeInlet("defaultText", InletTypeCharacters, &this->defaultText, NULL)
  );
 
  $(self, bind, inlets, dictionary);
}

becomeKeyResponder()

static void becomeKeyResponder ( View *  self )

static

See also

View::becomeKeyResponder

Definition at line 97 of file TextView.c.

                                           {
 
  super(View, self, becomeKeyResponder);
 
  SDL_StartTextInput(self->window);
}

captureEvent()

static bool captureEvent ( Control *  self, const SDL_Event *  event  )

static

See also

Control::captureEvent(Control *, const SDL_Event *)

Definition at line 353 of file TextView.c.

                                                                {
 
  bool didEdit = false, didComplete = false, didCaptureEvent = false;
 
  View *view = (View *) self;
 
  TextView *this = (TextView *) self;
 
  const size_t position = this->position;
 
  if (this->isEditable) {
    if (event->type == SDL_EVENT_TEXT_INPUT) {
      if ($(self, isFocused)) {
        if (this->position == this->attributedText->length) {
          $(this->attributedText, appendCharacters, event->text.text);
        } else {
          $(this->attributedText, insertCharactersAtIndex, event->text.text, this->position);
        }
        this->position += strlen(event->text.text);
        didEdit = true;
        didCaptureEvent = true;
      }
    } else if (event->type == SDL_EVENT_KEY_DOWN) {
      didCaptureEvent = true;
 
      const char *chars = this->attributedText->chars;
      const size_t len = this->attributedText->length;
 
      Theme *theme = view->window ? $$(Theme, theme, view->window) : NULL;
      const ImageAtlas *icons = theme ? $(theme, icons) : NULL;
 
      switch (event->key.key) {
 
        case SDLK_TAB:
        case SDLK_KP_TAB:
          if (autocomplete(this, (event->key.mod & SDL_KMOD_SHIFT) ? -1 : 1, icons)) {
            didEdit = didComplete = true;
          } else {
            $(view, resignKeyResponder);
          }
          break;
 
        case SDLK_ESCAPE:
        case SDLK_KP_ENTER:
        case SDLK_RETURN:
          $(view, resignKeyResponder);
          break;
 
        case SDLK_BACKSPACE:
        case SDLK_KP_BACKSPACE:
          if (this->position > 0) {
            const size_t n = unitLengthBefore(chars, len, this->position, icons);
            const Range range = { .location = this->position - n, .length = n };
            $(this->attributedText, deleteCharactersInRange, range);
            this->position -= n;
            didEdit = true;
          }
          break;
 
        case SDLK_DELETE:
          if (this->position < len) {
            const Range range = { .location = this->position, .length = unitLengthAt(chars, len, this->position, icons) };
            $(this->attributedText, deleteCharactersInRange, range);
            didEdit = true;
          }
          break;
 
        case SDLK_LEFT:
          if (SDL_GetModState() & SDL_KMOD_CTRL) {
            while (this->position > 0 && chars[this->position] == ' ') {
              this->position -= unitLengthBefore(chars, len, this->position, icons);
            }
            while (this->position > 0 && chars[this->position] != ' ') {
              this->position -= unitLengthBefore(chars, len, this->position, icons);
            }
          } else {
            this->position -= unitLengthBefore(chars, len, this->position, icons);
          }
          break;
 
        case SDLK_RIGHT:
          if (SDL_GetModState() & SDL_KMOD_CTRL) {
            while (this->position < len && chars[this->position] == ' ') {
              this->position += unitLengthAt(chars, len, this->position, icons);
            }
            while (this->position < len && chars[this->position] != ' ') {
              this->position += unitLengthAt(chars, len, this->position, icons);
            }
            if (this->position < len) {
              this->position += unitLengthAt(chars, len, this->position, icons);
            }
          } else {
            this->position += unitLengthAt(chars, len, this->position, icons);
          }
          break;
 
        case SDLK_HOME:
          this->position = 0;
          break;
 
        case SDLK_END:
          this->position = len;
          break;
 
        case SDLK_A:
          if (SDL_GetModState() & SDL_KMOD_CTRL) {
            this->position = 0;
          }
          break;
        case SDLK_E:
          if (SDL_GetModState() & SDL_KMOD_CTRL) {
            this->position = len;
          }
          break;
 
        case SDLK_V:
          if ((SDL_GetModState() & (SDL_KMOD_CTRL | SDL_KMOD_GUI)) && SDL_HasClipboardText()) {
            char *text = SDL_GetClipboardText();
            if (text != NULL) {
              if (*text != '\0') {
                if (this->position == len) {
                  $(this->attributedText, appendCharacters, text);
                } else {
                  $(this->attributedText, insertCharactersAtIndex, text, this->position);
                }
                this->position += strlen(text);
                didEdit = true;
              }
              SDL_free(text);
            }
          }
          break;
      }
    }
 
    if (!didComplete && (didEdit || this->position != position)) {
      this->completions = release(this->completions);
    }
 
    if (didEdit) {
      $((View *) self, setNeedsLayout);
      if (this->delegate.didEdit) {
        this->delegate.didEdit(this);
      }
      
      $((View *) self, emitViewEvent, ViewEventChange, NULL);
    }
  }
 
  if (didCaptureEvent) {
    return true;
  }
  
  return super(Control, self, captureEvent, event);
}

dealloc()

static void dealloc ( Object *  self )

static

See also

Object::dealloc(Object *)

Definition at line 42 of file TextView.c.

                                  {
 
  TextView *this = (TextView *) self;
 
  memset(&this->delegate, 0, sizeof(this->delegate));
 
  free(this->defaultText);
 
  release(this->text);
 
  release(this->attributedText);
 
  release(this->completions);
 
  super(Object, self, dealloc);
}

init()

static View * init ( View *  self )

static

See also

View::init(View *)

Definition at line 107 of file TextView.c.

                              {
  return (View *) $((TextView *) self, initWithFrame, NULL);
}

initialize()

static void initialize ( Class *  clazz )

static

See also

Class::initialize(Class *)

Definition at line 605 of file TextView.c.

                                     {
 
  ((ObjectInterface *) clazz->interface)->dealloc = dealloc;
 
  ((ViewInterface *) clazz->interface)->applyStyle = applyStyle;
  ((ViewInterface *) clazz->interface)->becomeKeyResponder = becomeKeyResponder;
  ((ViewInterface *) clazz->interface)->awakeWithDictionary = awakeWithDictionary;
  ((ViewInterface *) clazz->interface)->init = init;
  ((ViewInterface *) clazz->interface)->layoutSubviews = layoutSubviews;
  ((ViewInterface *) clazz->interface)->render = render;
  ((ViewInterface *) clazz->interface)->resignKeyResponder = resignKeyResponder;
 
  ((ControlInterface *) clazz->interface)->captureEvent = captureEvent;
  ((ControlInterface *) clazz->interface)->stateDidChange = stateDidChange;
 
  ((TextViewInterface *) clazz->interface)->initWithFrame = initWithFrame;
  ((TextViewInterface *) clazz->interface)->setAttributedText = setAttributedText;
  ((TextViewInterface *) clazz->interface)->setDefaultText = setDefaultText;
}

initWithFrame()

static TextView * initWithFrame ( TextView *  self, const SDL_Rect *  frame  )

static

Definition at line 543 of file TextView.c.

                                                                      {
 
  self = (TextView *) super(Control, self, initWithFrame, frame);
  if (self) {
    self->attributedText = $$(String, string);
    assert(self->attributedText);
 
    self->isEditable = true;
 
    self->text = $(alloc(Text), initWithText, NULL, NULL);
    assert(self->text);
 
    $((View *) self, addSubview, (View *) self->text);
 
  }
 
  return self;
}

layoutSubviews()

static void layoutSubviews ( View *  self )

static

See also

View::layoutSubviews(View *)

Definition at line 114 of file TextView.c.

                                       {
 
  TextView *this = (TextView *) self;
 
  const char *text = this->attributedText->chars;
 
  if (text == NULL || strlen(text) == 0) {
    if ($((Control *) this, isFocused) == false) {
      text = this->defaultText;
    }
  }
 
  if (text == NULL) {
    $(this->text, setText, NULL);
  } else {
    if (this->text->text) {
      if (strcmp(text, this->text->text)) {
        $(this->text, setText, text);
      }
    } else {
      $(this->text, setText, text);
    }
  }
 
  // An empty Text has no height, so alignment would place it, and the cursor drawn from its
  // frame, a line too low; it is never shorter than a line here
  if (this->text->font) {
    this->text->view.minSize.h = $(this->text, sizeText, " ").h;
  }
 
  $((View *) this->text, layoutIfNeeded);
 
  super(View, self, layoutSubviews);
}

render()

static void render ( View *  self, Renderer *  renderer  )

static

See also

View::render(View *, Renderer *)

Definition at line 152 of file TextView.c.

                                                   {
 
  super(View, self, render, renderer);
 
  TextView *this = (TextView *) self;
 
  if ($((Control *) this, isFocused)) {
    const char *text = this->text->text ?: "";
 
    // Measured as the Text renders it, escapes and icons included
    char *prefix = calloc(this->position + 1, sizeof(char));
    strncpy(prefix, text, this->position);
 
    SDL_Size size = $(this->text, sizeText, prefix);
    free(prefix);
 
    // An empty prefix has no height; borrow the line's
    if (size.h == 0) {
      size.h = $(this->text, sizeText, " ").h;
    }
 
    const int w = size.w, h = size.h;
 
    SDL_Rect frame = $((View *) this->text, renderFrame);
 
    const SDL_Point points[] = {
      { frame.x + w, frame.y },
      { frame.x + w, frame.y + h }
    };
 
    $(renderer, drawLine, points, &Colors.White);
  }
}

replacePrefix()

static void replacePrefix ( TextView *  self, const char *  chars  )

static

Replaces the text before the cursor with chars, leaving the cursor after them.

Definition at line 254 of file TextView.c.

                                                             {
 
  const Range range = { .location = 0, .length = self->position };
  $(self->attributedText, replaceCharactersInRange, range, chars);
 
  self->position = strlen(chars);
}

resignKeyResponder()

static void resignKeyResponder ( View *  self )

static

See also

View::resignKeyResponder

Definition at line 189 of file TextView.c.

                                           {
 
  const bool wasKeyResponder = $(self, isKeyResponder);
 
  super(View, self, resignKeyResponder);
 
  if (wasKeyResponder) {
    SDL_StopTextInput(self->window);
  }
}

setAttributedText()

static void setAttributedText ( TextView *  self, const char *  attributedText  )

static

Definition at line 566 of file TextView.c.

                                                                          {
 
  if (strcmp(self->attributedText->chars ?: "", attributedText ?: "")) {
 
    $(self->attributedText, setCharacters, attributedText);
 
    self->position = self->attributedText->length;
 
    self->completions = release(self->completions);
 
    $((View *) self, setNeedsLayout);
  }
}

setDefaultText()

static void setDefaultText ( TextView *  self, const char *  defaultText  )

static

Definition at line 584 of file TextView.c.

                                                                    {
 
  if (strcmp(self->defaultText ?: "", defaultText ?: "")) {
 
    free(self->defaultText);
 
    if (defaultText) {
      self->defaultText = strdup(defaultText);
    } else {
      self->defaultText = NULL;
    }
 
    $((View *) self, setNeedsLayout);
  }
}

stateDidChange()

static void stateDidChange ( Control *  self )

static

Definition at line 512 of file TextView.c.

                                          {
 
  TextView *this = (TextView *) self;
 
  if ($(self, isFocused)) {
 
    SDL_StartTextInput(self->view.window);
 
    if (this->delegate.didBeginEditing) {
      this->delegate.didBeginEditing(this);
    }
  } else {
 
    SDL_StopTextInput(self->view.window);
 
    this->completions = release(this->completions);
 
    if (this->delegate.didEndEditing) {
      this->delegate.didEndEditing(this);
    }
  }
 
  super(Control, self, stateDidChange);
}

unitLengthAt()

static size_t unitLengthAt ( const char *  chars, size_t  len, size_t  position, const ImageAtlas *  icons  )

static

Returns the length in bytes of the cursor unit starting at position.

A unit is one UTF-8 encoded character, a color escape sequence (^0 through ^9, or ^^), or a registered icon escape (:name:), so that the cursor never lands inside one.

Definition at line 205 of file TextView.c.

                                                                                                    {
 
  if (position >= len) {
    return 0;
  }
 
  if (chars[position] == '^' && position + 1 < len &&
      ((chars[position + 1] >= '0' && chars[position + 1] <= '9') || chars[position + 1] == '^')) {
    return 2;
  }
 
  if (chars[position] == ':') {
    const size_t n = MVC_IconEscapeLength(chars + position, icons, NULL);
    if (n && position + n <= len) {
      return n;
    }
  }
 
  size_t n = 1;
  while (position + n < len && (chars[position + n] & 0xC0) == 0x80) {
    n++;
  }
 
  return n;
}

unitLengthBefore()

static size_t unitLengthBefore ( const char *  chars, size_t  len, size_t  position, const ImageAtlas *  icons  )

static

Returns the length in bytes of the cursor unit ending at position.

Units are found by parsing forward from the start of the string, as they are rendered: scanning backward would read the 1 in ^^1 as the escape ^1.

See also

unitLengthAt

Definition at line 237 of file TextView.c.

                                                                                                        {
 
  size_t unit = 0;
 
  for (size_t p = 0; p < position; p += unit) {
    unit = unitLengthAt(chars, len, p, icons);
    if (unit == 0) {
      break;
    }
  }
 
  return unit;
}