Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

7
src/console.pas
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;

4
src/include/asuro.pas
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

3
src/prog/memview.pas
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);