git-svn-id: https://spexeah.com:8443/svn/Asuro@662 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
parent
7a7a9667d2
commit
37741b6cea
BIN
bin/kernel.bin
BIN
bin/kernel.bin
Binary file not shown.
Binary file not shown.
BIN
lib/asuro.ppu
BIN
lib/asuro.ppu
Binary file not shown.
BIN
lib/console.o
BIN
lib/console.o
Binary file not shown.
BIN
lib/console.ppu
BIN
lib/console.ppu
Binary file not shown.
Binary file not shown.
Binary file not shown.
BIN
lib/libpsystem.a
BIN
lib/libpsystem.a
Binary file not shown.
BIN
lib/terminal.ppu
BIN
lib/terminal.ppu
Binary file not shown.
@ -315,6 +315,7 @@ var
|
||||
UnhandledClick : Boolean = false;
|
||||
UnhandledClickLeft : Boolean = false;
|
||||
MouseCursorEnabled : Boolean = true;
|
||||
OpenTerminal : Boolean = false;
|
||||
|
||||
procedure mouseEnabled(b : boolean);
|
||||
begin
|
||||
@ -703,6 +704,11 @@ var
|
||||
SelectedWindow : uint32;
|
||||
|
||||
begin
|
||||
if OpenTerminal then begin
|
||||
terminal.run;
|
||||
OpenTerminal:= false;
|
||||
end;
|
||||
|
||||
{ Clear the Console_Matrix }
|
||||
for y:=0 to 63 do begin
|
||||
for x:=0 to 159 do begin
|
||||
@ -1072,9 +1078,15 @@ end;
|
||||
|
||||
procedure keyhook(key_info : TKeyInfo);
|
||||
begin
|
||||
if WindowManager.Z_Order[0] <> MAX_WINDOWS then begin
|
||||
if WindowManager.Windows[WindowManager.Z_Order[0]] <> nil then begin
|
||||
if WindowManager.Windows[WindowManager.Z_Order[0]]^.Hooks.OnKeyPressed <> nil then WindowManager.Windows[WindowManager.Z_Order[0]]^.Hooks.OnKeyPressed(key_info);
|
||||
if (key_info.CTRL_DOWN) and (key_info.ALT_DOWN) then begin
|
||||
case key_info.key_code of
|
||||
uint8('c'):OpenTerminal:=true;
|
||||
end;
|
||||
end else begin
|
||||
if WindowManager.Z_Order[0] <> MAX_WINDOWS then begin
|
||||
if WindowManager.Windows[WindowManager.Z_Order[0]] <> nil then begin
|
||||
if WindowManager.Windows[WindowManager.Z_Order[0]]^.Hooks.OnKeyPressed <> nil then WindowManager.Windows[WindowManager.Z_Order[0]]^.Hooks.OnKeyPressed(key_info);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
@ -3,13 +3,13 @@ unit asuro;
|
||||
interface
|
||||
|
||||
const
|
||||
VERSION = '1.0.0-660a';
|
||||
VERSION = '1.0.0-661a';
|
||||
VERSION_MAJOR = '1';
|
||||
VERSION_MINOR = '0';
|
||||
VERSION_SUB = '0';
|
||||
REVISION = '660';
|
||||
REVISION = '661';
|
||||
RELEASE = 'a';
|
||||
LINE_COUNT = 26872;
|
||||
LINE_COUNT = 26884;
|
||||
|
||||
implementation
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user