+/* 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;
+}
+