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

View File

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

View File

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