summaryrefslogtreecommitdiff
path: root/render/textinput.c
diff options
context:
space:
mode:
Diffstat (limited to 'render/textinput.c')
-rw-r--r--render/textinput.c2176
1 files changed, 2176 insertions, 0 deletions
diff --git a/render/textinput.c b/render/textinput.c
new file mode 100644
index 000000000..a12d72aaf
--- /dev/null
+++ b/render/textinput.c
@@ -0,0 +1,2176 @@
+/*
+ * Copyright 2003 Phil Mellor <monkeyson@users.sourceforge.net>
+ * Copyright 2004 James Bursa <bursa@users.sourceforge.net>
+ * Copyright 2004 Andrew Timmins <atimmins@blueyonder.co.uk>
+ * Copyright 2004 John Tytgat <joty@netsurf-browser.org>
+ * Copyright 2005 Adrian Lees <adrianl@users.sourceforge.net>
+ *
+ * This file is part of NetSurf, http://www.netsurf-browser.org/
+ *
+ * NetSurf 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; version 2 of the License.
+ *
+ * NetSurf 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, see <http://www.gnu.org/licenses/>.
+ */
+
+/** \file
+ * HTML form text input handling (implementation)
+ */
+
+#include <assert.h>
+#include <ctype.h>
+#include <string.h>
+
+#include "desktop/browser.h"
+#include "desktop/gui.h"
+#include "desktop/mouse.h"
+#include "desktop/scrollbar.h"
+#include "desktop/selection.h"
+#include "desktop/textinput.h"
+#include "render/box.h"
+#include "render/font.h"
+#include "render/form.h"
+#include "render/html_internal.h"
+#include "render/layout.h"
+#include "render/textinput.h"
+#include "utils/log.h"
+#include "utils/talloc.h"
+#include "utils/utf8.h"
+#include "utils/utils.h"
+
+/* Define to enable textinput debug */
+#undef TEXTINPUT_DEBUG
+
+/** ghost caret used to indicate the insertion point when dragging text
+ into a textarea/input field */
+struct caret ghost_caret;
+
+
+static bool textbox_delete(struct browser_window *bw, struct box *text_box,
+ unsigned char_offset, unsigned utf8_len);
+
+/* Textarea callbacks */
+static bool textinput_textarea_callback(struct browser_window *bw,
+ uint32_t key, void *p1, void *p2);
+static void textinput_textarea_move_caret(struct browser_window *bw,
+ void *p1, void *p2);
+static bool textinput_textarea_paste_text(struct browser_window *bw,
+ const char *utf8, unsigned utf8_len, bool last,
+ void *p1, void *p2);
+
+/* Text input callbacks */
+static bool textinput_input_callback(struct browser_window *bw,
+ uint32_t key, void *p1, void *p2);
+static void textinput_input_move_caret(struct browser_window *bw,
+ void *p1, void *p2);
+static bool textinput_input_paste_text(struct browser_window *bw,
+ const char *utf8, unsigned utf8_len, bool last,
+ void *p1, void *p2);
+
+#define SPACE_LEN(b) ((b->space == 0) ? 0 : 1)
+
+/**
+ * Remove the given text caret from the window by invalidating it
+ * and causing its former position to be redrawn.
+ *
+ * \param c structure describing text caret
+ */
+
+void caret_remove(struct caret *c)
+{
+ if (c->defined) {
+ int w = (c->height + 7) / 8;
+ int xc = c->x;
+ c->defined = false;
+ browser_window_redraw_rect(c->bw,
+ xc - w, c->y, 2 * w, c->height);
+ }
+}
+
+
+/**
+ * Set the given text caret's position within the window (text box
+ * and byte/pixel offsets within the UTF-8 content of that text box)
+ * and draw it.
+ *
+ * \param c structure describing text caret
+ * \param bw browser window containing caret
+ * \param box TEXT box containing caret
+ * \param char_offset byte offset within UTF-8 representation
+ * \param pixel_offset from left side of box
+ */
+
+void caret_set_position(struct caret *c, struct browser_window *bw,
+ struct box *text_box, int char_offset, int pixel_offset)
+{
+ struct rect r;
+ int xc;
+ int w;
+
+ box_bounds(text_box, &r);
+
+ c->bw = bw;
+ c->text_box = text_box;
+ c->char_offset = char_offset;
+
+ c->x = xc = r.x0 + pixel_offset;
+ c->y = r.y0;
+ c->height = r.y1 - r.y0;
+ w = (c->height + 7) / 8;
+
+ c->defined = true;
+
+ browser_window_redraw_rect(c->bw, xc - w, c->y, w * 2, c->height);
+}
+
+
+/**
+ * Given the x,y co-ordinates of a point within a textarea, return the
+ * TEXT box pointer, and the character and pixel offsets within that
+ * box at which the caret should be positioned. (eg. for mouse clicks,
+ * drag-and-drop insertions etc)
+ *
+ * \param textarea the textarea being considered
+ * \param x x ordinate of point
+ * \param y y ordinate of point
+ * \param pchar_offset receives the char offset within the TEXT box
+ * \param ppixel_offset receives the pixel offset within the TEXT box
+ * \return pointer to TEXT box
+ */
+
+struct box *textarea_get_position(struct box *textarea, int x, int y,
+ int *pchar_offset, int *ppixel_offset)
+{
+ /* A textarea is an INLINE_BLOCK containing a single
+ * INLINE_CONTAINER, which contains the text as runs of TEXT
+ * separated by BR. There is at least one TEXT. The first and
+ * last boxes are TEXT. Consecutive BR may not be present. These
+ * constraints are satisfied by using a 0-length TEXT for blank
+ * lines. */
+
+ struct box *inline_container, *text_box;
+ plot_font_style_t fstyle;
+ size_t char_offset = 0;
+
+ inline_container = textarea->children;
+
+ if (inline_container->y + inline_container->height < y) {
+ /* below the bottom of the textarea: place caret at end */
+ text_box = inline_container->last;
+ assert(text_box->type == BOX_TEXT);
+ assert(text_box->text);
+ font_plot_style_from_css(text_box->style, &fstyle);
+ /** \todo handle errors */
+ nsfont.font_position_in_string(&fstyle, text_box->text,
+ text_box->length,
+ (unsigned int)(x - text_box->x),
+ &char_offset, ppixel_offset);
+ } else {
+ /* find the relevant text box */
+ y -= inline_container->y;
+ for (text_box = inline_container->children;
+ text_box &&
+ text_box->y + text_box->height < y;
+ text_box = text_box->next)
+ ;
+ for (; text_box && text_box->type != BOX_BR &&
+ text_box->y <= y &&
+ text_box->x + text_box->width < x;
+ text_box = text_box->next)
+ ;
+ if (!text_box) {
+ /* past last text box */
+ text_box = inline_container->last;
+ assert(text_box->type == BOX_TEXT);
+ assert(text_box->text);
+ font_plot_style_from_css(text_box->style, &fstyle);
+ nsfont.font_position_in_string(&fstyle,
+ text_box->text,
+ text_box->length,
+ textarea->width,
+ &char_offset,
+ ppixel_offset);
+ } else {
+ /* in a text box */
+ if (text_box->type == BOX_BR)
+ text_box = text_box->prev;
+ else if (y < text_box->y && text_box->prev) {
+ if (text_box->prev->type == BOX_BR) {
+ assert(text_box->prev->prev);
+ text_box = text_box->prev->prev;
+ }
+ else
+ text_box = text_box->prev;
+ }
+ assert(text_box->type == BOX_TEXT);
+ assert(text_box->text);
+ font_plot_style_from_css(text_box->style, &fstyle);
+ nsfont.font_position_in_string(&fstyle,
+ text_box->text,
+ text_box->length,
+ (unsigned int)(x - text_box->x),
+ &char_offset,
+ ppixel_offset);
+ }
+ }
+
+ *pchar_offset = char_offset;
+
+ assert(text_box);
+ return text_box;
+}
+
+
+/**
+ * Delete some text from a box, or delete the box in its entirety
+ *
+ * \param bw browser window
+ * \param b box
+ * \param offset start offset of text to be deleted (in bytes)
+ * \param length length of text to be deleted
+ * \return true iff successful
+ */
+
+static bool delete_handler(struct browser_window *bw, struct box *b,
+ int offset, size_t length)
+{
+ size_t text_length = b->length + SPACE_LEN(b);
+
+ /* only remove if its not the first box */
+ if (offset <= 0 && length >= text_length && b->prev != NULL) {
+ /* remove the entire box */
+ box_unlink_and_free(b);
+
+ return true;
+ } else
+ return textbox_delete(bw, b, offset,
+ min(length, text_length - offset));
+}
+
+
+/**
+ * Remove the selected text from a text box and gadget (if applicable)
+ *
+ * \param s The selection to be removed
+ */
+
+static void delete_selection(struct selection *s)
+{
+ size_t start_offset, end_offset;
+ struct box *text_box;
+ struct box *end_box;
+ struct box *next;
+ size_t sel_len;
+ int beginning = 0;
+
+ assert(s->defined);
+
+ text_box = selection_get_start(s, &start_offset);
+ end_box = selection_get_end(s, &end_offset);
+ sel_len = s->end_idx - s->start_idx;
+
+ /* Clear selection so that deletion from textboxes proceeds */
+ selection_clear(s, true);
+
+ /* handle first box */
+ delete_handler(s->bw, text_box, start_offset, sel_len);
+ if (text_box == end_box)
+ return;
+
+ for (text_box = text_box->next; text_box != end_box; text_box = next) {
+ next = text_box->next;
+ box_unlink_and_free(text_box);
+ }
+
+ delete_handler(s->bw, end_box, beginning, end_offset);
+}
+
+
+/**
+ * Insert a number of chars into a text box
+ *
+ * \param bw browser window
+ * \param text_box text box
+ * \param char_offset offset (bytes) at which to insert text
+ * \param utf8 UTF-8 text to insert
+ * \param utf8_len length (bytes) of UTF-8 text to insert
+ * \return true iff successful
+ */
+
+static bool textbox_insert(struct browser_window *bw, struct box *text_box,
+ unsigned char_offset, const char *utf8, unsigned utf8_len)
+{
+ char *text;
+ struct box *input = text_box->parent->parent;
+ struct content *current_content;
+ bool hide;
+
+ assert(bw != NULL);
+ assert(bw->current_content != NULL);
+
+ /** \todo Stop poking around inside contents.
+ * Why is this code in desktop/, anyway? (It's HTML-specific) */
+ current_content = hlcache_handle_get_content(bw->current_content);
+
+ if (bw->sel->defined)
+ delete_selection(bw->sel);
+
+ /* insert into form gadget (text and password inputs only) */
+ if (input->gadget && (input->gadget->type == GADGET_TEXTBOX ||
+ input->gadget->type == GADGET_PASSWORD) &&
+ input->gadget->value) {
+ size_t form_offset = input->gadget->caret_form_offset;
+ char *value = realloc(input->gadget->value,
+ input->gadget->length + utf8_len + 1);
+ if (!value) {
+ warn_user("NoMemory", 0);
+ return true;
+ }
+ input->gadget->value = value;
+
+ memmove(input->gadget->value + form_offset + utf8_len,
+ input->gadget->value + form_offset,
+ input->gadget->length - form_offset);
+ memcpy(input->gadget->value + form_offset, utf8, utf8_len);
+ input->gadget->length += utf8_len;
+ input->gadget->value[input->gadget->length] = 0;
+ }
+
+ hide = (input->gadget && input->gadget->type == GADGET_PASSWORD);
+ if (hide) {
+ /* determine the number of '*'s to be inserted */
+ const char *eutf8 = utf8 + utf8_len;
+ utf8_len = 0;
+ while (utf8 < eutf8) {
+ utf8 += utf8_next(utf8, eutf8 - utf8, 0);
+ utf8_len++;
+ }
+ }
+
+ /* insert in text box */
+ text = talloc_realloc(current_content, text_box->text,
+ char,
+ text_box->length + SPACE_LEN(text_box) + utf8_len + 1);
+ if (!text) {
+ warn_user("NoMemory", 0);
+ return false;
+ }
+ text_box->text = text;
+
+ if (text_box->space != 0 &&
+ char_offset == text_box->length + SPACE_LEN(text_box)) {
+ if (hide)
+ text_box->space = 0;
+ else {
+ unsigned int last_off = utf8_prev(utf8, utf8_len);
+ if (utf8[last_off] != ' ')
+ text_box->space = 0;
+ else
+ utf8_len = last_off;
+ }
+ text_box->text[text_box->length++] = ' ';
+ } else {
+ memmove(text_box->text + char_offset + utf8_len,
+ text_box->text + char_offset,
+ text_box->length - char_offset);
+ }
+
+ if (hide)
+ memset(text_box->text + char_offset, '*', utf8_len);
+ else
+ memcpy(text_box->text + char_offset, utf8, utf8_len);
+ text_box->length += utf8_len;
+
+ /* nothing should assume that the text is terminated,
+ * but just in case */
+ text_box->text[text_box->length] = 0;
+
+ text_box->width = UNKNOWN_WIDTH;
+
+ return true;
+}
+
+/**
+ * Calculates the form_offset from the box_offset
+ *
+ * \param input The root box containing both the textbox and gadget
+ * \param text_box The textbox containing the caret
+ * \param char_offset The caret offset within text_box
+ * \return the translated form_offset
+ */
+
+static size_t get_form_offset(struct box* input, struct box* text_box,
+ size_t char_offset)
+{
+ int uchars;
+ unsigned int offset;
+
+ for (uchars = 0, offset = 0; offset < char_offset; uchars++) {
+ if ((text_box->text[offset] & 0x80) == 0x00) {
+ offset++;
+ continue;
+ }
+ assert((text_box->text[offset] & 0xC0) == 0xC0);
+ for (++offset; offset < char_offset &&
+ (text_box->text[offset] & 0xC0) == 0x80;
+ offset++)
+ /* do nothing */;
+ }
+ /* uchars is the number of real Unicode characters at the left
+ * side of the caret.
+ */
+ for (offset = 0; uchars > 0 && offset < input->gadget->length;
+ uchars--) {
+ if ((input->gadget->value[offset] & 0x80) == 0x00) {
+ offset++;
+ continue;
+ }
+ assert((input->gadget->value[offset] & 0xC0) == 0xC0);
+ for (++offset; offset < input->gadget->length &&
+ (input->gadget->value[offset] & 0xC0) == 0x80;
+ offset++)
+ /* do nothing */;
+ }
+ assert(uchars == 0);
+ return offset;
+}
+
+
+/**
+ * Delete a number of chars from a text box
+ *
+ * \param bw browser window
+ * \param text_box text box
+ * \param char_offset offset within text box (bytes) of first char to delete
+ * \param utf8_len length (bytes) of chars to be deleted
+ * \return true on success, false otherwise
+ *
+ * ::char_offset and ::utf8_len are only considered when there is no selection.
+ * If there is a selection, the entire selected area is deleted.
+ */
+
+bool textbox_delete(struct browser_window *bw, struct box *text_box,
+ unsigned char_offset, unsigned utf8_len)
+{
+ unsigned next_offset = char_offset + utf8_len;
+ struct box *form = text_box->parent->parent;
+
+ if (bw->sel->defined) {
+ delete_selection(bw->sel);
+ return true;
+ }
+
+ /* delete from form gadget (text and password inputs only) */
+ if (form->gadget && (form->gadget->type == GADGET_TEXTBOX ||
+ form->gadget->type == GADGET_PASSWORD) &&
+ form->gadget->value) {
+ size_t form_offset = get_form_offset(form, text_box,
+ char_offset);
+ size_t next_offset = get_form_offset(form, text_box,
+ char_offset + utf8_len);
+
+ memmove(form->gadget->value + form_offset,
+ form->gadget->value + next_offset,
+ form->gadget->length - next_offset);
+ form->gadget->length -= (next_offset - form_offset);
+ form->gadget->value[form->gadget->length] = 0;
+ }
+
+ /* delete from visible textbox */
+ if (next_offset <= text_box->length + SPACE_LEN(text_box)) {
+ /* handle removal of trailing space */
+ if (text_box->space != 0 && next_offset > text_box->length) {
+ if (char_offset > 0) {
+ /* is the trailing character still a space? */
+ int tmp = utf8_prev(text_box->text, char_offset);
+ if (isspace(text_box->text[tmp]))
+ char_offset = tmp;
+ else
+ text_box->space = 0;
+ } else {
+ text_box->space = 0;
+ }
+
+ text_box->length = char_offset;
+ } else {
+ memmove(text_box->text + char_offset,
+ text_box->text + next_offset,
+ text_box->length - next_offset);
+ text_box->length -= utf8_len;
+ }
+
+ /* nothing should assume that the text is terminated,
+ * but just in case */
+ text_box->text[text_box->length] = 0;
+
+ text_box->width = UNKNOWN_WIDTH;
+
+ return true;
+ }
+
+ return false;
+}
+
+/**
+ * Locate the first inline box at the start of this line
+ *
+ * \param text_box text box from which to start searching
+ */
+
+static struct box *line_start(struct box *text_box)
+{
+ while (text_box->prev && text_box->prev->type == BOX_TEXT)
+ text_box = text_box->prev;
+ return text_box;
+}
+
+
+/**
+ * Locate the last inline box in this line
+ *
+ * \param text_box text box from which to start searching
+ */
+
+static struct box *line_end(struct box *text_box)
+{
+ while (text_box->next && text_box->next->type == BOX_TEXT)
+ text_box = text_box->next;
+ return text_box;
+}
+
+
+/**
+ * Backtrack to the start of the previous line, if there is one.
+ */
+
+static struct box *line_above(struct box *text_box)
+{
+ struct box *prev;
+
+ text_box = line_start(text_box);
+
+ prev = text_box->prev;
+ while (prev && prev->type == BOX_BR)
+ prev = prev->prev;
+
+ return prev ? line_start(prev) : text_box;
+}
+
+
+/**
+ * Advance to the start of the next line, if there is one.
+ */
+
+static struct box *line_below(struct box *text_box)
+{
+ struct box *next;
+
+ text_box = line_end(text_box);
+
+ next = text_box->next;
+ while (next && next->type == BOX_BR)
+ next = next->next;
+
+ return next ? next : text_box;
+}
+
+
+/**
+ * Cut a range of text from a text box,
+ * possibly placing it on the global clipboard.
+ *
+ * \param bw browser window
+ * \param start_box text box at start of range
+ * \param start_idx index (bytes) within start box
+ * \param end_box text box at end of range
+ * \param end_idx index (bytes) within end box
+ * \param clipboard whether to place text on the clipboard
+ * \return true iff successful
+ */
+
+static bool textarea_cut(struct browser_window *bw,
+ struct box *start_box, unsigned start_idx,
+ struct box *end_box, unsigned end_idx,
+ bool clipboard)
+{
+ struct box *box = start_box;
+ bool success = true;
+ bool del = false; /* caller expects start_box to persist */
+
+ if (clipboard && !gui_empty_clipboard())
+ return false;
+
+ while (box && box != end_box) {
+ /* read before deletion, in case the whole box goes */
+ struct box *next = box->next;
+
+ if (box->type == BOX_BR) {
+ if (clipboard &&
+ !gui_add_to_clipboard("\n", 1, false)) {
+ gui_commit_clipboard();
+ return false;
+ }
+ box_unlink_and_free(box);
+ } else {
+ /* append box text to clipboard and then delete it */
+ if (clipboard &&
+ !gui_add_to_clipboard(box->text + start_idx,
+ box->length - start_idx,
+ SPACE_LEN(box))) {
+ gui_commit_clipboard();
+ return false;
+ }
+
+ if (del) {
+ if (!delete_handler(bw, box, start_idx,
+ (box->length + SPACE_LEN(box)) -
+ start_idx) && clipboard) {
+ gui_commit_clipboard();
+ return false;
+ }
+ } else {
+ textbox_delete(bw, box, start_idx,
+ (box->length + SPACE_LEN(box)) -
+ start_idx);
+ }
+ }
+
+ del = true;
+ start_idx = 0;
+ box = next;
+ }
+
+ /* and the last box */
+ if (box) {
+ if (clipboard && !gui_add_to_clipboard(box->text + start_idx,
+ end_idx - start_idx, end_idx > box->length)) {
+ success = false;
+ } else {
+ if (del) {
+ if (!delete_handler(bw, box, start_idx,
+ end_idx - start_idx))
+ success = false;
+ } else {
+ textbox_delete(bw, box, start_idx,
+ end_idx - start_idx);
+ }
+ }
+ }
+
+ if (clipboard && !gui_commit_clipboard())
+ success = false;
+
+ return success;
+}
+
+
+/**
+ * Break a text box into two
+ *
+ * \param bw browser window
+ * \param text_box text box to be split
+ * \param char_offset offset (in bytes) at which text box is to be split
+ */
+
+static struct box *textarea_insert_break(struct browser_window *bw,
+ struct box *text_box, size_t char_offset)
+{
+ struct box *new_br, *new_text;
+ struct content *current_content;
+ char *text;
+
+ assert(bw != NULL);
+ assert(bw->current_content != NULL);
+
+ /** \todo Stop poking around inside content objects */
+ current_content = hlcache_handle_get_content(bw->current_content);
+
+ text = talloc_array(current_content, char, text_box->length + 1);
+ if (!text) {
+ warn_user("NoMemory", 0);
+ return NULL;
+ }
+
+ new_br = box_create(NULL, text_box->style, false, 0, 0, text_box->title,
+ 0, current_content);
+ new_text = talloc(current_content, struct box);
+ if (!new_text) {
+ warn_user("NoMemory", 0);
+ return NULL;
+ }
+
+ new_br->type = BOX_BR;
+ box_insert_sibling(text_box, new_br);
+
+ memcpy(new_text, text_box, sizeof (struct box));
+ new_text->flags |= CLONE;
+ new_text->text = text;
+ memcpy(new_text->text, text_box->text + char_offset,
+ text_box->length - char_offset);
+ new_text->length = text_box->length - char_offset;
+ text_box->length = char_offset;
+ text_box->width = new_text->width = UNKNOWN_WIDTH;
+ box_insert_sibling(new_br, new_text);
+
+ return new_text;
+}
+
+
+/**
+ * Reflow textarea preserving width and height
+ *
+ * \param bw browser window
+ * \param textarea text area box
+ * \param inline_container container holding text box
+ */
+
+static void textarea_reflow(struct browser_window *bw, struct box *textarea,
+ struct box *inline_container)
+{
+ struct content *c = hlcache_handle_get_content(bw->current_content);
+ int width = textarea->width;
+ int height = textarea->height;
+
+ assert(c != NULL);
+
+ if (!layout_inline_container(inline_container, width,
+ textarea, 0, 0, (struct html_content *) c))
+ warn_user("NoMemory", 0);
+ textarea->width = width;
+ textarea->height = height;
+ layout_calculate_descendant_bboxes(textarea);
+ box_handle_scrollbars(c, textarea,
+ box_hscrollbar_present(textarea),
+ box_vscrollbar_present(textarea));
+}
+
+
+/**
+ * Move to the start of the word containing the given character position,
+ * or the start of the preceding word if already at the start of this one.
+ *
+ * \param text UTF-8 text string
+ * \param poffset offset of caret within string (updated on exit)
+ * \param pchars receives the number of characters skipped
+ * \return true iff the start of a word was found before/at the string start
+ */
+
+static bool textinput_word_left(const char *text,
+ size_t *poffset, size_t *pchars)
+{
+ size_t offset = *poffset;
+ bool success = false;
+ size_t nchars = 0;
+
+ /* Skip any spaces immediately prior to the offset */
+ while (offset > 0) {
+ offset = utf8_prev(text, offset);
+ nchars++;
+ if (!isspace(text[offset])) break;
+ }
+
+ /* Now skip all non-space characters */
+ while (offset > 0) {
+ size_t prev = utf8_prev(text, offset);
+ success = true;
+ if (isspace(text[prev]))
+ break;
+ offset = prev;
+ nchars++;
+ }
+
+ *poffset = offset;
+ if (pchars) *pchars = nchars;
+
+ return success;
+}
+
+
+/**
+ * Move to the start of the first word following the given character position.
+ *
+ * \param text UTF-8 text string
+ * \param len length of string in bytes
+ * \param poffset offset of caret within string (updated on exit)
+ * \param pchars receives the number of characters skipped
+ * \return true iff the start of a word was found before the string end
+ */
+
+static bool textinput_word_right(const char *text, size_t len,
+ size_t *poffset, size_t *pchars)
+{
+ size_t offset = *poffset;
+ bool success = false;
+ size_t nchars = 0;
+
+ /* Skip all non-space characters after the offset */
+ while (offset < len) {
+ if (isspace(text[offset])) break;
+ offset = utf8_next(text, len, offset);
+ nchars++;
+ }
+
+ /* Now skip all space characters */
+ while (offset < len) {
+ offset = utf8_next(text, len, offset);
+ nchars++;
+ if (offset < len && !isspace(text[offset])) {
+ success = true;
+ break;
+ }
+ }
+
+ *poffset = offset;
+ if (pchars) *pchars = nchars;
+
+ return success;
+}
+
+/**
+ * Adjust scroll offsets so that the caret is visible
+ *
+ * \param c html content where click ocurred
+ * \param textarea textarea box
+ * \return true if a change in scroll offsets has occurred
+*/
+
+static bool ensure_caret_visible(struct content *c, struct box *textarea)
+{
+ html_content *html = (html_content *)c;
+ int cx, cy;
+ int scrollx, scrolly;
+
+ assert(textarea->gadget);
+
+ scrollx = scrollbar_get_offset(textarea->scroll_x);
+ scrolly = scrollbar_get_offset(textarea->scroll_y);
+
+ /* Calculate the caret coordinates */
+ cx = textarea->gadget->caret_pixel_offset +
+ textarea->gadget->caret_text_box->x;
+ cy = textarea->gadget->caret_text_box->y;
+
+ /* Ensure they are visible */
+ if (textarea->scroll_x == NULL) {
+ scrollx = 0;
+ } else if (cx - scrollbar_get_offset(textarea->scroll_x) < 0) {
+ scrollx = cx;
+ } else if (cx > scrollbar_get_offset(textarea->scroll_x) +
+ textarea->width) {
+ scrollx = cx - textarea->width;
+ }
+
+ if (textarea->scroll_y == NULL) {
+ scrolly = 0;
+ } else if (cy - scrollbar_get_offset(textarea->scroll_y) < 0) {
+ scrolly = cy;
+ } else if (cy + textarea->gadget->caret_text_box->height >
+ scrollbar_get_offset(textarea->scroll_y) +
+ textarea->height) {
+ scrolly = (cy + textarea->gadget->caret_text_box->height) -
+ textarea->height;
+ }
+
+ if ((scrollx == scrollbar_get_offset(textarea->scroll_x)) &&
+ (scrolly == scrollbar_get_offset(textarea->scroll_y)))
+ return false;
+
+ if (textarea->scroll_x != NULL) {
+ html->scrollbar = textarea->scroll_x;
+ scrollbar_set(textarea->scroll_x, scrollx, false);
+ html->scrollbar = NULL;
+ }
+ if (textarea->scroll_y != NULL) {
+ html->scrollbar = textarea->scroll_x;
+ scrollbar_set(textarea->scroll_y, scrolly, false);
+ html->scrollbar = NULL;
+ }
+
+ return true;
+}
+
+
+/**
+ * Paste a block of text into a textarea at the
+ * current caret position.
+ *
+ * \param bw browser window
+ * \param utf8 pointer to block of text
+ * \param utf8_len length (bytes) of text block
+ * \param last true iff this is the last chunk (update screen too)
+ * \param p1 pointer to textarea
+ * \param p2 html content with the text area box
+ * \return true iff successful
+ */
+
+bool textinput_textarea_paste_text(struct browser_window *bw,
+ const char *utf8, unsigned utf8_len, bool last,
+ void *p1, void *p2)
+{
+ struct box *textarea = p1;
+ struct content *c = p2;
+ struct box *inline_container =
+ textarea->gadget->caret_inline_container;
+ struct box *text_box = textarea->gadget->caret_text_box;
+ size_t char_offset = textarea->gadget->caret_box_offset;
+ int pixel_offset = textarea->gadget->caret_pixel_offset;
+ const char *ep = utf8 + utf8_len;
+ const char *p = utf8;
+ bool success = true;
+ bool update = last;
+
+ while (p < ep) {
+ struct box *new_text;
+ unsigned utf8_len;
+
+ while (p < ep) {
+ if (*p == '\n' || *p == '\r') break;
+ p++;
+ }
+
+ utf8_len = p - utf8;
+ if (!textbox_insert(bw, text_box, char_offset, utf8, utf8_len))
+ return false;
+
+ char_offset += utf8_len;
+ if (p == ep)
+ break;
+
+ new_text = textarea_insert_break(bw, text_box, char_offset);
+ if (!new_text) {
+ /* we still need to update the screen */
+ update = true;
+ success = false;
+ break;
+ }
+
+ /* place caret at start of new text box */
+ text_box = new_text;
+ char_offset = 0;
+
+ /* handle CR/LF and LF/CR terminations */
+ if ((*p == '\n' && p[1] == '\r') ||
+ (*p == '\r' && p[1] == '\n'))
+ p++;
+ utf8 = ++p;
+ }
+
+// textarea->gadget->caret_inline_container = inline_container;
+ textarea->gadget->caret_text_box = text_box;
+ textarea->gadget->caret_box_offset = char_offset;
+
+ if (update) {
+ int box_x, box_y;
+ plot_font_style_t fstyle;
+
+ /* reflow textarea preserving width and height */
+ textarea_reflow(bw, textarea, inline_container);
+ /* reflowing may have broken our caret offset
+ * this bit should hopefully continue to work if
+ * textarea_reflow is fixed to update the caret itself */
+ char_offset = textarea->gadget->caret_box_offset;
+ text_box = textarea->gadget->caret_text_box;
+
+ while ((char_offset > text_box->length + SPACE_LEN(text_box)) &&
+ (text_box->next) &&
+ (text_box->next->type == BOX_TEXT)) {
+#ifdef TEXTINPUT_DEBUG
+ LOG(("Caret out of range: Was %d in boxlen %d "
+ "space %d", char_offset,
+ text_box->length, SPACE_LEN(text_box)));
+#endif
+ char_offset -= text_box->length + SPACE_LEN(text_box);
+ text_box = text_box->next;
+ }
+
+ /* not sure if this will happen or not...
+ * but won't stick an assert here as we can recover from it */
+ if (char_offset > text_box->length) {
+#ifdef TEXTINPUT_DEBUG
+ LOG(("Caret moved beyond end of line: "
+ "Was %d in boxlen %d", char_offset,
+ text_box->length));
+#endif
+ char_offset = text_box->length;
+ }
+
+ textarea->gadget->caret_text_box = text_box;
+ textarea->gadget->caret_box_offset = char_offset;
+
+ font_plot_style_from_css(text_box->style, &fstyle);
+
+ nsfont.font_width(&fstyle, text_box->text,
+ char_offset, &pixel_offset);
+
+ textarea->gadget->caret_pixel_offset = pixel_offset;
+
+ box_coords(textarea, &box_x, &box_y);
+ box_x += scrollbar_get_offset(textarea->scroll_x);
+ box_y += scrollbar_get_offset(textarea->scroll_y);
+ ensure_caret_visible(c, textarea);
+ box_x -= scrollbar_get_offset(textarea->scroll_x);
+ box_y -= scrollbar_get_offset(textarea->scroll_y);
+
+ browser_window_place_caret(bw,
+ box_x + inline_container->x + text_box->x +
+ pixel_offset,
+ box_y + inline_container->y + text_box->y,
+ text_box->height,
+ textinput_textarea_callback,
+ textinput_textarea_paste_text,
+ textinput_textarea_move_caret,
+ textarea, c);
+
+ html_redraw_a_box(bw->current_content, textarea);
+ }
+
+ return success;
+}
+
+
+/**
+ * Move caret to new position after reformatting
+ *
+ * \param bw browser window
+ * \param p1 pointer textarea box
+ * \param p2 html content with the text area box
+ * \return none
+ */
+
+void textinput_textarea_move_caret(struct browser_window *bw,
+ void *p1, void *p2)
+{
+ struct box *textarea = p1;
+ struct content *c = p2;
+ struct box *inline_container = textarea->gadget->caret_inline_container;
+ struct box *text_box = textarea->gadget->caret_text_box;
+ size_t char_offset = textarea->gadget->caret_box_offset;
+ int pixel_offset;
+ int box_x, box_y;
+ plot_font_style_t fstyle;
+
+ font_plot_style_from_css(text_box->style, &fstyle);
+
+ box_coords(textarea, &box_x, &box_y);
+ box_x -= scrollbar_get_offset(textarea->scroll_x);
+ box_y -= scrollbar_get_offset(textarea->scroll_y);
+
+ nsfont.font_width(&fstyle, text_box->text,
+ char_offset, &pixel_offset);
+
+ browser_window_place_caret(bw,
+ box_x + inline_container->x + text_box->x +
+ pixel_offset,
+ box_y + inline_container->y + text_box->y,
+ text_box->height,
+ textinput_textarea_callback,
+ textinput_textarea_paste_text,
+ textinput_textarea_move_caret,
+ textarea, c);
+}
+
+
+/**
+ * Update display to reflect modified input field
+ *
+ * \param bw browser window
+ * \param input input field
+ * \param form_offset
+ * \param box_offset offset of caret within text box
+ * \param to_textarea caret is to be moved to a textarea
+ * \param redraw force redraw even if field hasn't scrolled
+ */
+
+static void input_update_display(struct content *c, struct box *input,
+ unsigned box_offset, bool to_textarea, bool redraw)
+{
+ struct box *text_box = input->children->children;
+ unsigned pixel_offset;
+ int box_x, box_y;
+ int dx;
+ plot_font_style_t fstyle;
+ html_content *html = (html_content *)c;
+
+ font_plot_style_from_css(text_box->style, &fstyle);
+
+ if (redraw)
+ nsfont.font_width(&fstyle, text_box->text, text_box->length,
+ &text_box->width);
+
+ box_coords(input, &box_x, &box_y);
+
+ nsfont.font_width(&fstyle, text_box->text, box_offset,
+ (int *) &pixel_offset);
+
+ /* Shift text box horizontally, so caret is visible */
+ dx = text_box->x;
+ text_box->x = 0;
+ if (input->width < text_box->width &&
+ input->width / 2 < (int) pixel_offset) {
+ /* Make caret appear in centre of text input */
+ text_box->x = input->width / 2 - pixel_offset;
+ /* Clamp if we've shifted too far left */
+ if (text_box->x < input->width - text_box->width)
+ text_box->x = input->width - text_box->width;
+ }
+ dx -= text_box->x;
+ input->gadget->caret_pixel_offset = pixel_offset;
+
+ if (to_textarea) {
+ /* moving to textarea so need to set these up */
+ input->gadget->caret_inline_container = input->children;
+ input->gadget->caret_text_box = text_box;
+ }
+
+ input->gadget->caret_box_offset = box_offset;
+
+ browser_window_place_caret(html->bw,
+ box_x + input->children->x +
+ text_box->x + pixel_offset,
+ box_y + input->children->y + text_box->y,
+ text_box->height,
+ /* use the appropriate callback */
+ to_textarea ? textinput_textarea_callback
+ : textinput_input_callback,
+ to_textarea ? textinput_textarea_paste_text
+ : textinput_input_paste_text,
+ to_textarea ? textinput_textarea_move_caret
+ : textinput_input_move_caret,
+ input, c);
+
+ if (dx || redraw)
+ html__redraw_a_box(c, input);
+}
+
+
+/**
+ * Key press callback for text areas.
+ *
+ * \param bw The browser window containing the text area
+ * \param key The ucs4 character codepoint
+ * \param p1 The text area box
+ * \param p2 The html content with the text area box
+ * \return true if the keypress is dealt with, false otherwise. It can
+ * return true even if it ran out of memory; this just means that
+ * it would have claimed it if it could.
+ */
+bool textinput_textarea_callback(struct browser_window *bw, uint32_t key,
+ void *p1, void *p2)
+{
+ struct box *textarea = p1;
+ struct content *c = p2;
+ struct box *inline_container =
+ textarea->gadget->caret_inline_container;
+ struct box *text_box = textarea->gadget->caret_text_box;
+ struct box *new_text;
+ size_t char_offset = textarea->gadget->caret_box_offset;
+ int pixel_offset = textarea->gadget->caret_pixel_offset;
+ int box_x, box_y;
+ char utf8[6];
+ unsigned int utf8_len;
+ bool scrolled, reflow = false;
+ bool selection_exists = bw->sel->defined;
+ plot_font_style_t fstyle;
+
+ /* box_dump(textarea, 0); */
+#ifdef TEXTINPUT_DEBUG
+ LOG(("key %i at %i in '%.*s'", key, char_offset,
+ (int) text_box->length, text_box->text));
+#endif
+
+ box_coords(textarea, &box_x, &box_y);
+ box_x -= scrollbar_get_offset(textarea->scroll_x);
+ box_y -= scrollbar_get_offset(textarea->scroll_y);
+
+ if (!(key <= 0x001F || (0x007F <= key && key <= 0x009F))) {
+ /* normal character insertion */
+ utf8_len = utf8_from_ucs4(key, utf8);
+
+ if (!textbox_insert(bw, text_box, char_offset, utf8, utf8_len))
+ return true;
+
+ char_offset += utf8_len;
+ reflow = true;
+
+ } else switch (key) {
+ case KEY_DELETE_LEFT:
+ if (selection_exists) {
+ /* Have a selection; delete it */
+ textbox_delete(bw, text_box, 0, 0);
+ } else if (char_offset == 0) {
+ /* at the start of a text box */
+ struct box *prev;
+
+ if (text_box->prev && text_box->prev->type == BOX_BR) {
+ /* previous box is BR: remove it */
+ box_unlink_and_free(text_box->prev);
+ }
+
+ /* This needs to be after the BR removal, as that may
+ * result in no previous box existing */
+ if (!text_box->prev)
+ /* at very beginning of text area: ignore */
+ return true;
+
+ /* delete space by merging with previous text box */
+ prev = text_box->prev;
+ assert(prev->type == BOX_TEXT);
+ assert(prev->text);
+
+ char_offset = prev->length; /* caret at join */
+
+ if (!textbox_insert(bw, prev, prev->length,
+ text_box->text, text_box->length))
+ return true;
+
+ box_unlink_and_free(text_box);
+
+ /* place caret at join (see above) */
+ text_box = prev;
+
+ } else {
+ /* delete a character */
+ size_t prev_offset = char_offset;
+ size_t new_offset =
+ utf8_prev(text_box->text, char_offset);
+
+ if (textbox_delete(bw, text_box, new_offset,
+ prev_offset - new_offset))
+ char_offset = new_offset;
+ }
+ reflow = true;
+ break;
+
+ case KEY_DELETE_LINE_START:
+ {
+ struct box *start_box = line_start(text_box);
+
+ /* Clear the selection, if one exists */
+ if (selection_exists)
+ selection_clear(bw->sel, false);
+
+ textarea_cut(bw, start_box, 0, text_box, char_offset, false);
+ text_box = start_box;
+ char_offset = 0;
+ reflow = true;
+ }
+ break;
+
+ case KEY_DELETE_LINE_END:
+ {
+ struct box *end_box = line_end(text_box);
+
+ /* Clear the selection, if one exists */
+ if (selection_exists)
+ selection_clear(bw->sel, false);
+
+ if (end_box != text_box ||
+ char_offset < text_box->length + SPACE_LEN(text_box)) {
+ /* there's something at the end of the line to delete */
+ textarea_cut(bw, text_box, char_offset, end_box,
+ end_box->length + SPACE_LEN(end_box),
+ false);
+ reflow = true;
+ break;
+ }
+ }
+ /* no break */
+ case KEY_DELETE_RIGHT: /* delete to right */
+ if (selection_exists) {
+ /* Delete selection */
+ textbox_delete(bw, text_box, 0, 0);
+ } else if (char_offset >= text_box->length) {
+ /* at the end of a text box */
+ struct box *next;
+
+ if (text_box->next && text_box->next->type == BOX_BR) {
+ /* next box is a BR: remove it */
+ box_unlink_and_free(text_box->next);
+ }
+
+ /* This test is after the BR removal, as that may
+ * result in no subsequent box being present */
+ if (!text_box->next)
+ /* at very end of text area: ignore */
+ return true;
+
+ /* delete space by merging with next text box */
+
+ next = text_box->next;
+ assert(next->type == BOX_TEXT);
+ assert(next->text);
+
+ if (!textbox_insert(bw, text_box, text_box->length,
+ next->text, next->length))
+ return true;
+
+ box_unlink_and_free(next);
+
+ /* leave caret at join */
+ } else {
+ /* delete a character */
+ size_t next_offset = utf8_next(text_box->text,
+ text_box->length, char_offset);
+
+ textbox_delete(bw, text_box, char_offset,
+ next_offset - char_offset);
+ }
+ reflow = true;
+ break;
+
+ case KEY_NL:
+ case KEY_CR: /* paragraph break */
+ if (selection_exists) {
+ /* If we have a selection, then delete it,
+ * so it's replaced by the break */
+ textbox_delete(bw, text_box, 0, 0);
+ }
+
+ new_text = textarea_insert_break(bw, text_box, char_offset);
+ if (!new_text)
+ return true;
+
+ /* place caret at start of new text box */
+ text_box = new_text;
+ char_offset = 0;
+
+ reflow = true;
+ break;
+
+ case KEY_CUT_LINE:
+ {
+ struct box *start_box = line_start(text_box);
+ struct box *end_box = line_end(text_box);
+
+ /* Clear the selection, if one exists */
+ if (selection_exists)
+ selection_clear(bw->sel, false);
+
+ textarea_cut(bw, start_box, 0, end_box, end_box->length, false);
+
+ text_box = start_box;
+ char_offset = 0;
+ reflow = true;
+ }
+ break;
+
+ case KEY_PASTE:
+ gui_paste_from_clipboard(bw->window,
+ box_x + inline_container->x +
+ text_box->x + pixel_offset,
+ box_y + inline_container->y + text_box->y);
+
+ /* screen updated and caret repositioned already */
+ return true;
+
+ case KEY_CUT_SELECTION:
+ {
+ size_t start_idx, end_idx;
+ struct box *start_box =
+ selection_get_start(bw->sel, &start_idx);
+ struct box *end_box = selection_get_end(bw->sel, &end_idx);
+
+ if (start_box && end_box) {
+ selection_clear(bw->sel, false);
+ textarea_cut(bw, start_box, start_idx,
+ end_box, end_idx, true);
+ text_box = start_box;
+ char_offset = start_idx;
+ reflow = true;
+ }
+ }
+ break;
+
+ case KEY_RIGHT:
+ if (selection_exists) {
+ /* In selection, move caret to end */
+ text_box = selection_get_end(bw->sel, &char_offset);
+ } else if (char_offset < text_box->length) {
+ /* Within-box movement */
+ char_offset = utf8_next(text_box->text,
+ text_box->length, char_offset);
+ } else {
+ /* Between-box movement */
+ if (!text_box->next)
+ /* at end of text area: ignore */
+ return true;
+
+ text_box = text_box->next;
+ if (text_box->type == BOX_BR)
+ text_box = text_box->next;
+ char_offset = 0;
+ }
+ break;
+
+ case KEY_LEFT:
+ if (selection_exists) {
+ /* In selection, move caret to start */
+ text_box = selection_get_start(bw->sel, &char_offset);
+ } else if (char_offset > 0) {
+ /* Within-box movement */
+ char_offset = utf8_prev(text_box->text, char_offset);
+ } else {
+ /* Between-box movement */
+ if (!text_box->prev)
+ /* at start of text area: ignore */
+ return true;
+
+ text_box = text_box->prev;
+ if (text_box->type == BOX_BR)
+ text_box = text_box->prev;
+ char_offset = text_box->length;
+ }
+ break;
+
+ case KEY_UP:
+ selection_clear(bw->sel, true);
+ textinput_textarea_click(c, BROWSER_MOUSE_CLICK_1,
+ textarea,
+ box_x, box_y,
+ text_box->x + pixel_offset,
+ inline_container->y + text_box->y - 1);
+ return true;
+
+ case KEY_DOWN:
+ selection_clear(bw->sel, true);
+ textinput_textarea_click(c, BROWSER_MOUSE_CLICK_1,
+ textarea,
+ box_x, box_y,
+ text_box->x + pixel_offset,
+ inline_container->y + text_box->y +
+ text_box->height + 1);
+ return true;
+
+ case KEY_LINE_START:
+ text_box = line_start(text_box);
+ char_offset = 0;
+ break;
+
+ case KEY_LINE_END:
+ text_box = line_end(text_box);
+ char_offset = text_box->length;
+ break;
+
+ case KEY_TEXT_START:
+ assert(text_box->parent);
+
+ /* place caret at start of first box */
+ text_box = text_box->parent->children;
+ char_offset = 0;
+ break;
+
+ case KEY_TEXT_END:
+ assert(text_box->parent);
+
+ /* place caret at end of last box */
+ text_box = text_box->parent->last;
+ char_offset = text_box->length;
+ break;
+
+ case KEY_WORD_LEFT:
+ {
+ bool start_of_word;
+ /* if there is a selection, caret should stay at beginning */
+ if (selection_exists)
+ break;
+
+ start_of_word = (char_offset <= 0 ||
+ isspace(text_box->text[char_offset - 1]));
+
+ while (!textinput_word_left(text_box->text,
+ &char_offset, NULL)) {
+ struct box *prev = NULL;
+
+ assert(char_offset == 0);
+
+ if (start_of_word) {
+ /* find the preceding non-BR box */
+ prev = text_box->prev;
+ if (prev && prev->type == BOX_BR)
+ prev = prev->prev;
+ }
+
+ if (!prev) {
+ /* just stay at the start of this box */
+ break;
+ }
+
+ assert(prev->type == BOX_TEXT);
+
+ text_box = prev;
+ char_offset = prev->length;
+ }
+ }
+ break;
+
+ case KEY_WORD_RIGHT:
+ {
+ bool in_word;
+ /* if there is a selection, caret should move to the end */
+ if (selection_exists) {
+ text_box = selection_get_end(bw->sel, &char_offset);
+ break;
+ }
+
+ in_word = (char_offset < text_box->length &&
+ !isspace(text_box->text[char_offset]));
+
+ while (!textinput_word_right(text_box->text, text_box->length,
+ &char_offset, NULL)) {
+ struct box *next = text_box->next;
+
+ /* find the next non-BR box */
+ if (next && next->type == BOX_BR)
+ next = next->next;
+
+ if (!next) {
+ /* just stay at the end of this box */
+ char_offset = text_box->length;
+ break;
+ }
+
+ assert(next->type == BOX_TEXT);
+
+ text_box = next;
+ char_offset = 0;
+
+ if (in_word && text_box->length > 0 &&
+ !isspace(text_box->text[0])) {
+ /* just stay at the start of this box */
+ break;
+ }
+ }
+ }
+ break;
+
+ case KEY_PAGE_UP:
+ {
+ int nlines = (textarea->height / text_box->height) - 1;
+
+ while (nlines-- > 0)
+ text_box = line_above(text_box);
+
+ if (char_offset > text_box->length)
+ char_offset = text_box->length;
+ }
+ break;
+
+ case KEY_PAGE_DOWN:
+ {
+ int nlines = (textarea->height / text_box->height) - 1;
+
+ while (nlines-- > 0)
+ text_box = line_below(text_box);
+
+ /* vague attempt to keep the caret at the same horizontal
+ * position, given that the code currently cannot support it
+ * being beyond the end of a line */
+ if (char_offset > text_box->length)
+ char_offset = text_box->length;
+ }
+ break;
+
+ default:
+ return false;
+ }
+
+ /*
+ box_dump(textarea, 0);
+ for (struct box *t = inline_container->children; t; t = t->next) {
+ assert(t->type == BOX_TEXT);
+ assert(t->text);
+ assert(t->parent == inline_container);
+ if (t->next) assert(t->next->prev == t);
+ if (t->prev) assert(t->prev->next == t);
+ if (!t->next) {
+ assert(inline_container->last == t);
+ break;
+ }
+ if (t->next->type == BOX_BR) {
+ assert(t->next->next);
+ t = t->next;
+ }
+ } */
+
+ if (reflow)
+ textarea_reflow(bw, textarea, inline_container);
+
+ if (text_box->length + SPACE_LEN(text_box) <= char_offset) {
+ if (text_box->next && text_box->next->type == BOX_TEXT) {
+ /* the text box has been split when reflowing and
+ the caret is in the second part */
+ char_offset -= (text_box->length + SPACE_LEN(text_box));
+ text_box = text_box->next;
+ assert(text_box);
+ assert(char_offset <= text_box->length);
+ /* Scroll back to the left */
+ if (textarea->scroll_x != NULL) {
+ box_x += scrollbar_get_offset(
+ textarea->scroll_x);
+ scrollbar_set(textarea->scroll_x, 0, false);
+ }
+ } else {
+ assert(!text_box->next ||
+ (text_box->next &&
+ text_box->next->type == BOX_BR));
+
+ char_offset = text_box->length + SPACE_LEN(text_box);
+ }
+ }
+
+ font_plot_style_from_css(text_box->style, &fstyle);
+
+ nsfont.font_width(&fstyle, text_box->text, char_offset, &pixel_offset);
+
+ selection_clear(bw->sel, true);
+
+ textarea->gadget->caret_inline_container = inline_container;
+ textarea->gadget->caret_text_box = text_box;
+ textarea->gadget->caret_box_offset = char_offset;
+ textarea->gadget->caret_pixel_offset = pixel_offset;
+
+ box_x += scrollbar_get_offset(textarea->scroll_x);
+ box_y += scrollbar_get_offset(textarea->scroll_y);
+ scrolled = ensure_caret_visible(c, textarea);
+ box_x -= scrollbar_get_offset(textarea->scroll_x);
+ box_y -= scrollbar_get_offset(textarea->scroll_y);
+
+ browser_window_place_caret(bw,
+ box_x + inline_container->x + text_box->x +
+ pixel_offset,
+ box_y + inline_container->y + text_box->y,
+ text_box->height,
+ textinput_textarea_callback,
+ textinput_textarea_paste_text,
+ textinput_textarea_move_caret,
+ textarea, c);
+
+ if (scrolled || reflow)
+ html_redraw_a_box(bw->current_content, textarea);
+
+ return true;
+}
+
+
+/**
+ * Handle clicks in a text area by placing the caret.
+ *
+ * \param c html content where click occurred
+ * \param mouse state of mouse buttons and modifier keys
+ * \param textarea textarea box
+ * \param box_x position of textarea in global document coordinates
+ * \param box_y position of textarea in global document coordinates
+ * \param x coordinate of click relative to textarea
+ * \param y coordinate of click relative to textarea
+ */
+void textinput_textarea_click(struct content *c, browser_mouse_state mouse,
+ struct box *textarea, int box_x, int box_y, int x, int y)
+{
+ /* A textarea is an INLINE_BLOCK containing a single
+ * INLINE_CONTAINER, which contains the text as runs of TEXT
+ * separated by BR. There is at least one TEXT. The first and
+ * last boxes are TEXT. Consecutive BR may not be present. These
+ * constraints are satisfied by using a 0-length TEXT for blank
+ * lines. */
+
+ int char_offset = 0, pixel_offset = 0;
+ struct box *inline_container = textarea->children;
+ struct box *text_box;
+ bool scrolled;
+ html_content *html = (html_content *)c;
+
+ text_box = textarea_get_position(textarea, x, y,
+ &char_offset, &pixel_offset);
+
+ textarea->gadget->caret_inline_container = inline_container;
+ textarea->gadget->caret_text_box = text_box;
+ textarea->gadget->caret_box_offset = char_offset;
+ textarea->gadget->caret_pixel_offset = pixel_offset;
+
+ box_x += scrollbar_get_offset(textarea->scroll_x);
+ box_y += scrollbar_get_offset(textarea->scroll_y);
+ scrolled = ensure_caret_visible(c, textarea);
+ box_x -= scrollbar_get_offset(textarea->scroll_x);
+ box_y -= scrollbar_get_offset(textarea->scroll_y);
+
+ browser_window_place_caret(html->bw,
+ box_x + inline_container->x + text_box->x +
+ pixel_offset,
+ box_y + inline_container->y + text_box->y,
+ text_box->height,
+ textinput_textarea_callback,
+ textinput_textarea_paste_text,
+ textinput_textarea_move_caret,
+ textarea, c);
+
+ if (scrolled)
+ html__redraw_a_box(c, textarea);
+}
+
+
+/**
+ * Paste a block of text into an input field at the caret position.
+ *
+ * \param bw browser window
+ * \param utf8 pointer to block of text
+ * \param utf8_len length (bytes) of text block
+ * \param last true iff this is the last chunk (update screen too)
+ * \param p1 pointer to input box
+ * \param p2 html content with the input box
+ * \return true iff successful
+ */
+
+bool textinput_input_paste_text(struct browser_window *bw,
+ const char *utf8, unsigned utf8_len, bool last,
+ void *p1, void *p2)
+{
+ struct box *input = p1;
+ struct content *c = p2;
+ struct box *text_box = input->children->children;
+ size_t box_offset = input->gadget->caret_box_offset;
+ unsigned int nchars = utf8_length(input->gadget->value);
+ const char *ep = utf8 + utf8_len;
+ const char *p = utf8;
+ bool success = true;
+ bool update = last;
+
+ /* keep adding chars until we've run out or would exceed
+ the maximum length of the field (in which we silently
+ ignore all others)
+ */
+ while (p < ep && nchars < input->gadget->maxlength) {
+ char buf[80 + 6];
+ int nbytes = 0;
+
+ /* how many more chars can we insert in one go? */
+ while (p < ep && nbytes < 80 &&
+ nchars < input->gadget->maxlength &&
+ *p != '\n' && *p != '\r') {
+ unsigned len = utf8_next(p, ep - p, 0);
+ if (*p == ' ')
+ nbytes += utf8_from_ucs4(160, &buf[nbytes]);
+ else {
+ memcpy(&buf[nbytes], p, len);
+ nbytes += len;
+ }
+
+ p += len;
+ nchars++;
+ }
+
+ if (!textbox_insert(bw, text_box, box_offset, buf, nbytes)) {
+ /* we still need to update the screen */
+ update = true;
+ success = false;
+ break;
+ }
+ box_offset += nbytes;
+ /* Keep caret_form_offset in sync -- textbox_insert uses this
+ * to determine where to insert into the gadget's value */
+ input->gadget->caret_form_offset += nbytes;
+
+ /* handle CR/LF and LF/CR terminations */
+ if (*p == '\n') {
+ p++;
+ if (*p == '\r') p++;
+ }
+ else if (*p == '\r') {
+ p++;
+ if (*p == '\n') p++;
+ }
+ }
+
+ if (update)
+ input_update_display(c, input, box_offset, false, true);
+
+ return success;
+}
+
+
+/**
+ * Move caret to new position after reformatting
+ *
+ * \param bw browser window
+ * \param p1 pointer to text input box
+ * \param p2 html content with the input box
+ * \return none
+ */
+
+void textinput_input_move_caret(struct browser_window *bw,
+ void *p1, void *p2)
+{
+ struct box *input = (struct box *)p1;
+ struct content *c = p2;
+ struct box *text_box = input->children->children;
+ unsigned int box_offset = input->gadget->caret_box_offset;
+ int pixel_offset;
+ int box_x, box_y;
+ plot_font_style_t fstyle;
+
+ font_plot_style_from_css(text_box->style, &fstyle);
+
+ box_coords(input, &box_x, &box_y);
+
+ nsfont.font_width(&fstyle, text_box->text, box_offset,
+ &pixel_offset);
+
+ browser_window_place_caret(bw,
+ box_x + input->children->x +
+ text_box->x + pixel_offset,
+ box_y + input->children->y + text_box->y,
+ text_box->height,
+ textinput_input_callback,
+ textinput_input_paste_text,
+ textinput_input_move_caret,
+ input, c);
+}
+
+/**
+ * Key press callback for text or password input boxes.
+ *
+ * \param bw The browser window containing the input box
+ * \param key The UCS4 character codepoint
+ * \param p1 The input box
+ * \param p2 The html content with the input box
+ * \return true if the keypress is dealt with, false otherwise. It can
+ * return true even if it ran out of memory; this just means that
+ * it would have claimed it if it could.
+ */
+bool textinput_input_callback(struct browser_window *bw, uint32_t key,
+ void *p1, void *p2)
+{
+ struct box *input = (struct box *)p1;
+ struct content *c = p2;
+ struct box *text_box = input->children->children;
+ size_t box_offset = input->gadget->caret_box_offset;
+ size_t end_offset;
+ int pixel_offset = input->gadget->caret_pixel_offset;
+ int box_x, box_y;
+ struct form* form = input->gadget->form;
+ bool changed = false;
+ char utf8[6];
+ unsigned int utf8_len;
+ bool to_textarea = false;
+ bool selection_exists = bw->sel->defined;
+
+ input->gadget->caret_form_offset =
+ get_form_offset(input, text_box, box_offset);
+
+ /* update the form offset */
+ input->gadget->caret_form_offset =
+ get_form_offset(input, text_box, box_offset);
+
+ selection_get_end(bw->sel, &end_offset);
+
+ box_coords(input, &box_x, &box_y);
+
+ /* normal character insertion */
+ if (!(key <= 0x001F || (0x007F <= key && key <= 0x009F))) {
+ /* have we exceeded max length of input? */
+ utf8_len = utf8_length(input->gadget->value);
+ if (utf8_len >= input->gadget->maxlength)
+ return true;
+
+ utf8_len = utf8_from_ucs4(key, utf8);
+
+ if (!textbox_insert(bw, text_box, box_offset, utf8, utf8_len))
+ return true;
+
+ box_offset += utf8_len;
+
+ changed = true;
+
+ } else switch (key) {
+ case KEY_DELETE_LEFT:
+ {
+ int prev_offset, new_offset;
+
+ if (selection_exists) {
+ textbox_delete(bw, text_box, 0, 0);
+ } else {
+ /* Can't delete left from text box start */
+ if (box_offset == 0)
+ return true;
+
+ prev_offset = box_offset;
+ new_offset = utf8_prev(text_box->text, box_offset);
+
+ if (textbox_delete(bw, text_box, new_offset,
+ prev_offset - new_offset))
+ box_offset = new_offset;
+ }
+
+ changed = true;
+ }
+ break;
+
+ case KEY_DELETE_RIGHT:
+ {
+ unsigned next_offset;
+
+ if (selection_exists) {
+ textbox_delete(bw, text_box, 0, 0);
+ } else {
+ /* Can't delete right from text box end */
+ if (box_offset >= text_box->length)
+ return true;
+
+ /* Go to the next valid UTF-8 character */
+ next_offset = utf8_next(text_box->text,
+ text_box->length, box_offset);
+
+ textbox_delete(bw, text_box, box_offset,
+ next_offset - box_offset);
+ }
+
+ changed = true;
+ }
+ break;
+
+ case KEY_TAB:
+ {
+ struct form_control *next_input;
+ /* Find next text entry field that is actually
+ * displayed (i.e. has an associated box) */
+ for (next_input = input->gadget->next;
+ next_input &&
+ ((next_input->type != GADGET_TEXTBOX &&
+ next_input->type != GADGET_TEXTAREA &&
+ next_input->type != GADGET_PASSWORD) ||
+ !next_input->box);
+ next_input = next_input->next)
+ ;
+ if (!next_input)
+ return true;
+
+ input = next_input->box;
+ box_offset = 0;
+ to_textarea = next_input->type == GADGET_TEXTAREA;
+ }
+ break;
+
+ case KEY_NL:
+ case KEY_CR: /* Return/Enter hit */
+ selection_clear(bw->sel, true);
+
+ if (form)
+ form_submit(bw->current_content, bw, form, 0);
+ return true;
+
+ case KEY_SHIFT_TAB:
+ {
+ struct form_control *prev_input;
+ /* Find previous text entry field that is actually
+ * displayed (i.e. has an associated box) */
+ for (prev_input = input->gadget->prev;
+ prev_input &&
+ ((prev_input->type != GADGET_TEXTBOX &&
+ prev_input->type != GADGET_TEXTAREA &&
+ prev_input->type != GADGET_PASSWORD) ||
+ !prev_input->box);
+ prev_input = prev_input->prev)
+ ;
+ if (!prev_input)
+ return true;
+
+ input = prev_input->box;
+ box_offset = 0;
+ to_textarea = prev_input->type == GADGET_TEXTAREA;
+ }
+ break;
+
+ case KEY_CUT_LINE:
+ /* Clear the selection, if one exists */
+ if (selection_exists)
+ selection_clear(bw->sel, false);
+
+ textarea_cut(bw, text_box, 0, text_box, text_box->length,
+ false);
+ box_offset = 0;
+
+ changed = true;
+ break;
+
+ case KEY_PASTE:
+ gui_paste_from_clipboard(bw->window,
+ box_x + input->children->x + text_box->x + pixel_offset,
+ box_y + input->children->y + text_box->y);
+
+ /* screen updated and caret repositioned already */
+ return true;
+
+ case KEY_CUT_SELECTION:
+ {
+ size_t start_idx, end_idx;
+ struct box *start_box =
+ selection_get_start(bw->sel, &start_idx);
+ struct box *end_box = selection_get_end(bw->sel, &end_idx);
+
+ if (start_box && end_box) {
+ selection_clear(bw->sel, false);
+ textarea_cut(bw, start_box, start_idx,
+ end_box, end_idx, true);
+
+ box_offset = start_idx;
+ changed = true;
+ }
+ }
+ break;
+
+ case KEY_RIGHT:
+ if (selection_exists) {
+ box_offset = end_offset;
+ break;
+ }
+
+ if (box_offset < text_box->length) {
+ /* Go to the next valid UTF-8 character */
+ box_offset = utf8_next(text_box->text,
+ text_box->length, box_offset);
+ }
+
+ break;
+
+ case KEY_LEFT:
+ /* If there is a selection, caret should remain at start */
+ if (selection_exists)
+ break;
+
+ /* Go to the previous valid UTF-8 character */
+ box_offset = utf8_prev(text_box->text, box_offset);
+ break;
+
+ case KEY_LINE_START:
+ box_offset = 0;
+ break;
+
+ case KEY_LINE_END:
+ box_offset = text_box->length;
+ break;
+
+ case KEY_WORD_LEFT:
+ /* If there is a selection, caret should remain at start */
+ if (selection_exists)
+ break;
+
+ if (!textinput_word_left(text_box->text, &box_offset, NULL))
+ box_offset = 0;
+
+ break;
+
+ case KEY_WORD_RIGHT:
+ if (selection_exists) {
+ box_offset = end_offset;
+ break;
+ }
+
+ if (!textinput_word_right(text_box->text, text_box->length,
+ &box_offset, NULL))
+ box_offset = text_box->length;
+
+ break;
+
+ case KEY_DELETE_LINE_START:
+ if (selection_exists)
+ selection_clear(bw->sel, true);
+
+ if (box_offset == 0)
+ return true;
+
+ textarea_cut(bw, text_box, 0, text_box, box_offset, false);
+ box_offset = 0;
+
+ changed = true;
+ break;
+
+ case KEY_DELETE_LINE_END:
+ if (selection_exists)
+ selection_clear(bw->sel, true);
+
+ if (box_offset >= text_box->length)
+ return true;
+
+ textarea_cut(bw, text_box, box_offset,
+ text_box, text_box->length, false);
+
+ changed = true;
+ break;
+
+ default:
+ return false;
+ }
+
+ selection_clear(bw->sel, true);
+ input_update_display(c, input, box_offset, to_textarea, changed);
+
+ return true;
+}
+
+
+/**
+ * Handle clicks in a text or password input box by placing the caret.
+ *
+ * \param bw browser window where click occurred
+ * \param input input box
+ * \param box_x position of input in global document coordinates
+ * \param box_y position of input in global document coordinates
+ * \param x coordinate of click relative to input
+ * \param y coordinate of click relative to input
+ */
+void textinput_input_click(struct content *c, struct box *input,
+ int box_x, int box_y, int x, int y)
+{
+ size_t char_offset = 0;
+ int pixel_offset = 0, dx = 0;
+ struct box *text_box = input->children->children;
+ plot_font_style_t fstyle;
+ html_content *html = (html_content *)c;
+
+ font_plot_style_from_css(text_box->style, &fstyle);
+
+ nsfont.font_position_in_string(&fstyle, text_box->text,
+ text_box->length, x - text_box->x,
+ &char_offset, &pixel_offset);
+ assert(char_offset <= text_box->length);
+
+ /* Shift the text box horizontally to ensure that the
+ * caret position is visible, and ideally centred */
+ text_box->x = 0;
+ if ((input->width < text_box->width) &&
+ (input->width / 2 < pixel_offset)) {
+ dx = text_box->x;
+ /* Move left so caret is centred */
+ text_box->x = input->width / 2 - pixel_offset;
+ /* Clamp, so text box's right hand edge coincides
+ * with the input's right hand edge */
+ if (text_box->x < input->width - text_box->width)
+ text_box->x = input->width - text_box->width;
+ dx -= text_box->x;
+ }
+ input->gadget->caret_box_offset = char_offset;
+ input->gadget->caret_form_offset =
+ get_form_offset(input, text_box, char_offset);
+ input->gadget->caret_pixel_offset = pixel_offset;
+
+ browser_window_place_caret(html->bw,
+ box_x + input->children->x +
+ text_box->x + pixel_offset,
+ box_y + input->children->y + text_box->y,
+ text_box->height,
+ textinput_input_callback,
+ textinput_input_paste_text,
+ textinput_input_move_caret,
+ input, c);
+
+ if (dx)
+ html__redraw_a_box(c, input);
+}
+
+