/usr/src/castle-game-engine-4.1.1/window/castlewindow_dialogs_by_messages.inc is in castle-game-engine-src 4.1.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | function TCastleWindowBase.BackendFileDialog(const Title: string; var FileName: string;
OpenDialog: boolean; FileFilters: TFileFilterList): boolean;
begin
Result := MessageInputQuery(Self, Title, FileName, taLeft);
end;
function TCastleWindowBase.ColorDialog(var Color: TVector3Single): boolean;
var
NewColor: TVector3Single;
begin
Result := false;
if not MessageInputQuery(Self, 'Input Red value:' , NewColor[0], taLeft) then Exit;
if not MessageInputQuery(Self, 'Input Green value:', NewColor[1], taLeft) then Exit;
if not MessageInputQuery(Self, 'Input Blue value:' , NewColor[2], taLeft) then Exit;
Result := true;
Color := NewColor;
end;
procedure TCastleWindowBase.MessageOK(const S: string; const MessageType: TWindowMessageType);
begin
CastleMessages.MessageOK(Self, S);
end;
function TCastleWindowBase.MessageYesNo(const S: string;
const MessageType: TWindowMessageType): boolean;
begin
Result := CastleMessages.MessageYesNo(Self, S);
end;
|