+/* Internal function: cancel a line input request, for both text grid and text buffer windows. */
+static void
+cancel_line_input_request(winid_t win, const gchar *inserted_text, event_t *event)
+{
+ if(event)
+ {
+ event->type = evtype_LineInput;
+ event->win = win;
+ event->val1 = event->val2 = 0;
+ }
+
+ /* Convert the string from UTF-8 to Latin-1 or Unicode */
+ if(win->input_request_type == INPUT_REQUEST_LINE)
+ {
+ win->input_request_type = INPUT_REQUEST_NONE;
+
+ gsize bytes_written;
+ gchar *latin1 = convert_utf8_to_latin1(inserted_text, &bytes_written);
+
+ if(latin1 == NULL)
+ return;
+
+ /* Place input in the echo stream */
+ if(win->echo_stream != NULL)
+ glk_put_string_stream(win->echo_stream, latin1);
+
+ /* Copy the string (bytes_written does not include the NULL at the end) */
+ int copycount = MIN(win->line_input_buffer_max_len, bytes_written);
+ memcpy(win->line_input_buffer, latin1, copycount);
+ g_free(latin1);
+ if(event)
+ event->val1 = copycount;
+ }
+ else if(win->input_request_type == INPUT_REQUEST_LINE_UNICODE)
+ {
+ glong items_written;
+ gunichar *unicode = convert_utf8_to_ucs4(inserted_text, &items_written);
+
+ if(unicode == NULL)
+ return;
+
+ /* Place input in the echo stream */
+ if(win->echo_stream != NULL)
+ glk_put_string_stream_uni(win->echo_stream, unicode);
+
+ /* Copy the string (but not the NULL at the end) */
+ int copycount = MIN(win->line_input_buffer_max_len, items_written);
+ memcpy(win->line_input_buffer_unicode, unicode, copycount * sizeof(gunichar));
+ g_free(unicode);
+ if(event)
+ event->val1 = copycount;
+ }
+ else
+ WARNING("Wrong input request type");
+}
+
+/**
+ * glk_cancel_line_event:
+ * @win: A text buffer or text grid window to cancel line input on.
+ * @event: Will be filled in if the user had already input something.
+ *
+ * This cancels a pending request for line input. (Either Latin-1 or Unicode.)
+ *
+ * The event pointed to by the @event argument will be filled in as if the
+ * player had hit <keycap>enter</keycap>, and the input composed so far will be
+ * stored in the buffer; see below. If you do not care about this information,
+ * pass %NULL as the @event argument. (The buffer will still be filled.)
+ *
+ * For convenience, it is legal to call glk_cancel_line_event() even if there
+ * is no line input request on that window. The event type will be set to
+ * #evtype_None in this case.
+ */
+void
+glk_cancel_line_event(winid_t win, event_t *event)
+{
+ VALID_WINDOW(win, return);
+ g_return_if_fail(win->type != wintype_TextBuffer || win->type != wintype_TextGrid);
+
+ if(win->input_request_type == INPUT_REQUEST_LINE || win->input_request_type == INPUT_REQUEST_LINE_UNICODE)
+ {
+ if(win->type == wintype_TextBuffer)
+ {
+ /* Remove signal handlers */
+ GtkTextBuffer *window_buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(win->widget) );
+ g_signal_handler_block(window_buffer, win->insert_text_handler);
+
+ /* Make the window uneditable again and retrieve the text that was input */
+ gchar *inserted_text;
+ GtkTextIter start_iter, end_iter;
+
+ gtk_text_view_set_editable(GTK_TEXT_VIEW(win->widget), FALSE);
+ GtkTextMark *input_position = gtk_text_buffer_get_mark(window_buffer, "input_position");
+ gtk_text_buffer_get_iter_at_mark(window_buffer, &start_iter, input_position);
+ gtk_text_buffer_get_end_iter(window_buffer, &end_iter);
+ gtk_text_iter_backward_cursor_position(&end_iter); /* don't include \n */
+
+ inserted_text = gtk_text_buffer_get_text(window_buffer, &start_iter, &end_iter, FALSE);
+
+ cancel_line_input_request(win, inserted_text, event);
+ g_free(inserted_text);
+ }
+ else if(win->type == wintype_TextGrid)
+ {
+ GtkTextBuffer *buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(win->widget) );
+
+ gchar *text = g_strdup( gtk_entry_get_text( GTK_ENTRY(win->input_entry) ) );
+ /* Move the focus back into the text view */
+ gtk_widget_grab_focus(win->widget);
+ /* Remove entry widget from text view */
+ gtk_container_remove(GTK_CONTAINER(win->widget), win->input_entry);
+ win->input_entry = NULL;
+ /* Delete the child anchor */
+ GtkTextIter start, end;
+ gtk_text_buffer_get_iter_at_child_anchor(buffer, &start, win->input_anchor);
+ end = start;
+ gtk_text_iter_forward_char(&end); /* Point after the child anchor */
+ gtk_text_buffer_delete(buffer, &start, &end);
+ win->input_anchor = NULL;
+
+ gchar *spaces = g_strnfill(win->input_length - g_utf8_strlen(text, -1), ' ');
+ gchar *text_to_insert = g_strconcat(text, spaces, NULL);
+ g_free(spaces);
+ gtk_text_buffer_insert(buffer, &start, text_to_insert, -1);
+ g_free(text_to_insert);
+
+ g_signal_handler_block( G_OBJECT(win->widget), win->keypress_handler );
+
+ cancel_line_input_request(win, text, event);
+ g_free(text);
+ }
+ }
+ else
+ if(event)
+ event->type = evtype_None;
+}
+
+/* Internal function: General callback for signal key-press-event on a text buffer or text grid window. Used in character input on both text buffers and grids, and also in line input on grids, to redirect keystrokes to the line input field. Blocked when not in use. */