paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 17:58:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: small fix for gtkEntry 'changed' , gtk2 bug is fixed in >= 2.17 not >= 2.15

Browse Source 
git-svn-id: trunk@24050 -
This commit is contained in:
zeljko 2010-03-16 20:01:53 +00:00
parent e3390558b1
commit e00a729df4
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -509,7 +509,7 @@ begin
begin
{mark as invalid event for gtkchanged_editbox, so
it doesn't update cursor pos or we have a mess.}
if (gtk_major_version = 2) and (gtk_minor_version < 15) then
if (gtk_major_version = 2) and (gtk_minor_version < 17) then
begin
Info := GetWidgetInfo(Widget, False);
include(Info^.Flags, wwiInvalidEvent);
@ -2231,7 +2231,7 @@ begin
EventTrace('Cut to clip', data);
if (Widget=nil) then ;
{$IFDEF GTK2}
if (gtk_major_version = 2) and (gtk_minor_version < 15) then
if (gtk_major_version = 2) and (gtk_minor_version < 17) then
begin
if (Widget <> nil) and (GTK_IS_ENTRY(Widget)) then
begin
@ -2264,7 +2264,7 @@ begin
EventTrace('Paste from clip', data);
if (Widget=nil) then ;
{$IFDEF GTK2}
if (gtk_major_version = 2) and (gtk_minor_version < 15) then
if (gtk_major_version = 2) and (gtk_minor_version < 17) then
begin
if (Widget <> nil) and (GTK_IS_ENTRY(Widget)) then
begin

2
lcl/interfaces/gtk/gtkwidgetset.inc
View File

@ -3387,7 +3387,7 @@ begin
if GTK_IS_ENTRY(gObject) then
begin
ConnectSenderSignal(gObject,'backspace', @gtkchanged_editbox_backspace);
if (gtk_major_version = 2) and (gtk_minor_version < 15) then
if (gtk_major_version = 2) and (gtk_minor_version < 17) then
ConnectSenderSignal(gObject,'delete-from-cursor', @gtkchanged_editbox_delete);
end;
{$ENDIF}