paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 13:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK2: Fix a typo in cmd string, 'lcl-delay-cm_textchaged' -> 'lcl-delay-cm_textchanged'. No effect in functionality.

Browse Source 
git-svn-id: trunk@54251 -
This commit is contained in:
juha 2017-02-22 12:42:34 +00:00
parent 218a4ed3ef
commit dc9b82b913
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk2/gtk2callback.inc
View File

@ -443,9 +443,9 @@ begin
{take care of pasted data since it does not return proper cursor pos.}
// issue #7243
if g_object_get_data(PGObject(Widget),'lcl-delay-cm_textchaged') <> nil then
if g_object_get_data(PGObject(Widget),'lcl-delay-cm_textchanged') <> nil then
begin
g_object_set_data(PGObject(Widget),'lcl-delay-cm_textchaged',nil);
g_object_set_data(PGObject(Widget),'lcl-delay-cm_textchanged',nil);
g_object_set_data(PGObject(Widget),'lcl-gtkentry-pasted-data',Widget);
g_idle_add(@GtkEntryDelayCursorPos, Widget);
exit;
@ -2729,9 +2729,9 @@ begin
if (Widget <> nil) and (GTK_IS_ENTRY(Widget)) then
begin
Info := GetWidgetInfo(Widget, False);
Include(Info^.Flags, wwiInvalidEvent);
//Include(Info^.Flags, wwiInvalidEvent);
// happy end is inside gtkchanged_editbox() above.
g_object_set_data(PGObject(Widget),'lcl-delay-cm_textchaged', data);
g_object_set_data(PGObject(Widget),'lcl-delay-cm_textchanged', data);
end;
Mess.msg := LM_PASTE;
Result:= DeliverMessage(Data, Mess) = 0;