git-svn-id: https://spexeah.com:8443/svn/Asuro@611 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

This commit is contained in:
kieron 2018-04-30 19:06:43 +00:00
parent f1d3dabe14
commit d709244a3a
75 changed files with 10 additions and 4 deletions

BIN
Asuro.iso

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
lib/memview.ppu Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -189,7 +189,7 @@ procedure closeWindow(WND : HWND);
implementation
uses
lmemorymanager, strings, keyboard, serial;
lmemorymanager, strings, keyboard, serial, terminal;
const
MAX_WINDOWS = 255;
@ -255,6 +255,7 @@ type
WND_NAME : PChar;
Hooks : THooks;
Closed : boolean;
Border : boolean;
end;
PWindow = ^TWindow;
@ -327,6 +328,7 @@ begin
WND^.Cursor.y:= 0;
WND^.visible:= true;
WND^.Closed:= false;
WND^.Border:= true;
WND^.Hooks.OnDraw := nil;
WND^.Hooks.OnMouseClick := nil;
WND^.Hooks.OnMouseMove := nil;
@ -474,7 +476,7 @@ begin
if WindowManager.Windows[w]^.Hooks.OnDraw <> nil then WindowManager.Windows[w]^.Hooks.OnDraw();
end;
If WindowManager.Windows[w]^.visible then begin
if w <> 0 then begin
if WindowManager.Windows[w]^.Border then begin
WXL:= WindowManager.Windows[w]^.WND_X - 1;
WYL:= WindowManager.Windows[w]^.WND_Y - 1;
WXR:= WindowManager.Windows[w]^.WND_X + WindowManager.Windows[w]^.WND_W + 1;
@ -548,6 +550,7 @@ begin
WND^.Cursor.y:= 0;
WND^.visible:= true;
WND^.Closed:= false;
WND^.Border:= false;
WindowManager.Windows[0]:= WND;
end;

View File

@ -3,11 +3,11 @@ unit asuro;
interface
const
VERSION = '1.0.0-599a';
VERSION = '1.0.0-610a';
VERSION_MAJOR = '1';
VERSION_MINOR = '0';
VERSION_SUB = '0';
REVISION = '599';
REVISION = '610';
RELEASE = 'a';
implementation

View File

@ -77,6 +77,9 @@ begin
tracer.push_trace('memview.close');
if Handle <> 0 then begin
closeWindow(Handle);
writestringlnWND('Memview closed.', getTerminalHWND);
end else begin
writestringlnWND('Memview not open.', getTerminalHWND);
end;
end else begin
MEM_LOC:= stringToInt(loc);