class EL_UNDOABLE_TEXT_COMPONENT_IMP
Undoable text component imp
note
description: "Undoable text component imp"
author: "Finnian Reilly"
copyright: "Copyright (c) 2001-2022 Finnian Reilly"
contact: "finnian at eiffel hyphen loop dot com"
license: "MIT license (See: en.wikipedia.org/wiki/MIT_License)"
date: "2022-11-15 19:56:05 GMT (Tuesday 15th November 2022)"
revision: "6"
deferred class
EL_UNDOABLE_TEXT_COMPONENT_IMP
inherit
WEL_EM_CONSTANTS
export
{NONE} all
end
WEL_DATA_TYPE
export
{NONE} all
end
feature {NONE} -- Implementation
ignore_character_code (a_character_code: INTEGER): BOOLEAN
-- Needed to make EL_UNDOABLE_TEXT work
do
inspect a_character_code
when Ctrl_y, Ctrl_z then
Result := True
else end
end
empty_undo_buffer
do
{WEL_API}.send_message (wel_item, Em_emptyundobuffer, to_wparam (0), to_lparam (0))
end
wel_item: POINTER
deferred
end
feature {NONE} -- Constants
Ctrl_y: INTEGER = 25
Ctrl_z: INTEGER = 26
end