40 lines
672 B
ObjectPascal
40 lines
672 B
ObjectPascal
unit KeybindingsWindow;
|
|
{$mode objFPC}{$H+}{$codepage UTF8}
|
|
|
|
interface
|
|
|
|
uses
|
|
TurboGopherApplication,
|
|
TurboGopherWindow,
|
|
|
|
Classes,
|
|
Objects,
|
|
SysUtils,
|
|
UApp,
|
|
UDialogs,
|
|
UDrivers,
|
|
UViews;
|
|
|
|
type
|
|
|
|
PKeybindingsView = ^TKeybindingsView;
|
|
TKeybindingsView = object(TWindow)
|
|
|
|
end;
|
|
|
|
PKeybindingsWindow = ^TKeybindingsWindow;
|
|
TKeybindingsWindow = class(TTurboGopherWindow)
|
|
constructor Create(var TheApp: TTurboGopherApplication);
|
|
var
|
|
App: TTurboGopherApplication;
|
|
end;
|
|
|
|
implementation
|
|
|
|
constructor TKeybindingsWindow.Create(var TheApp: TTurboGopherApplication);
|
|
begin
|
|
App := TheApp;
|
|
end;
|
|
|
|
end.
|