paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 07:43:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed build under haiku.patch by olivier, modified by me. issue #26574

Browse Source 
git-svn-id: trunk@46340 -
This commit is contained in:
zeljko 2014-09-27 15:57:10 +00:00
parent 1d7f7a7b0a
commit d35a4d5554
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/qt/qtobject.inc
View File

@ -235,10 +235,15 @@ begin
if not FIsLibraryInstance then
begin
{$IFDEF HAIKU}
FAppSessionQuit := nil;
FAppSaveSessionRequest := nil;
{$ELSE}
FAppSessionQuit := QApplication_hook_create(App);
QApplication_hook_hook_commitDataRequest(FAppSessionQuit, @SlotCommitDataRequest);
FAppSaveSessionRequest := QApplication_hook_create(App);
QApplication_hook_hook_saveStateRequest(FAppSaveSessionRequest, @SlotSaveDataRequest);
{$ENDIF}
end else
begin
FAppSessionQuit := nil;
@ -322,6 +327,7 @@ begin
// do not quit application if we are library
if not FIsLibraryInstance then
begin
{$IFNDEF HAIKU}
if Assigned(FAppSessionQuit) then
begin
QApplication_hook_destroy(FAppSessionQuit);
@ -332,6 +338,7 @@ begin
QApplication_hook_destroy(FAppSaveSessionRequest);
FAppSaveSessionRequest := nil;
end;
{$ENDIF}
QCoreApplication_quit;
end;
end;
@ -1097,6 +1104,7 @@ begin
' errorInteraction ',dbgs(QSessionManager_allowsErrorInteraction(sessionManager)),
' phase2 ',dbgs(QSessionManager_isPhase2(sessionManager)));
{$ENDIF}
{$IFNDEF HAIKU}
// if session manager does not allow interaction, then we close app without any intf calls
if QSessionManager_allowsInteraction(sessionManager) then
begin
@ -1118,6 +1126,7 @@ begin
QSessionManager_release(sessionManager);
end;
end;
{$ENDIF}
end;
procedure TQtWidgetSet.SlotSaveDataRequest(sessionManager: QSessionManagerH);