paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-21 19:45:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed destroying combobox

Browse Source 
git-svn-id: trunk@1981 -
This commit is contained in:
lazarus 2002-08-17 23:40:30 +00:00
parent 2a419eaf2f
commit 7f7fb2cb15
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -87,9 +87,10 @@ function gtkNoteBookCloseBtnClicked(Widget: PGtkWidget;
Data: Pointer): GBoolean; cdecl;
var APage: TPage;
begin
Result:=true; // handled = true
if ComponentIsDestroyingHandle(TWinControl(Data)) then exit;
APage:=TPage(Data);
TCustomNoteBook(APage.Parent).DoCloseTabClicked(APage);
Result:=true; // handled = true
end;
{-------------------------------------------------------------------------------
@ -103,6 +104,7 @@ end;
-------------------------------------------------------------------------------}
function gtkRealizeCB(Widget: PGtkWidget; Data: Pointer): GBoolean; cdecl;
begin
Result := True;
EventTrace('realize', nil);
if Data<>nil then begin
@ -113,8 +115,6 @@ begin
end;
end;
end;
Result := True;
end;
{-------------------------------------------------------------------------------
@ -137,6 +137,7 @@ var
ClientWidget: PGtkWidget;
MainWidget: PGtkWidget;
begin
Result := True;
EventTrace('realizeafter', nil);
HiddenLCLObject:=GetHiddenLCLObject(Widget);
@ -183,8 +184,6 @@ begin
if HiddenLCLObject is TWinControl then
ConnectInternalWidgetsSignals(Widget,TWinControl(HiddenLCLObject));
end;
Result := True;
end;
function gtkshowCB( widget: PGtkWidget; data: gPointer) : GBoolean; cdecl;
@ -216,7 +215,7 @@ var
Mess : TLMessage;
LCLMenuItem: TMenuItem;
begin
Result:=true;
Result := True;
EventTrace('activate', data);
if GTK_IS_CHECK_MENU_ITEM(widget) then begin
LCLMenuItem:=TMenuItem(GetLCLObject(Widget));
@ -250,6 +249,7 @@ var
NewText: string;
begin
Result := True;
if ComponentIsDestroyingHandle(TWinControl(Data)) then exit;
EventTrace('changed', data);
if TObject(Data) is TControl then begin
@ -2279,6 +2279,9 @@ end;
{ =============================================================================
$Log$
Revision 1.118 2002/08/31 11:37:10 lazarus
MG: fixed destroying combobox
Revision 1.117 2002/08/31 07:58:21 lazarus
MG: fixed resetting comobobox text