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

2018-05-01 14:07:36 +00:00 · 2018-05-01 14:07:36 +00:00 · 0618e0a10a
commit 0618e0a10a
parent b94a5932a2
12 changed files with 10 additions and 2 deletions
--- a/Asuro.iso
+++ b/Asuro.iso
--- a/bin/kernel.bin
+++ b/bin/kernel.bin
--- a/iso/boot/asuro.bin
+++ b/iso/boot/asuro.bin
--- a/lib/asuro.ppu
+++ b/lib/asuro.ppu
--- a/lib/console.o
+++ b/lib/console.o
--- a/lib/console.ppu
+++ b/lib/console.ppu
--- a/lib/libpconsole.a
+++ b/lib/libpconsole.a
--- a/lib/libpmultiboot.a
+++ b/lib/libpmultiboot.a
--- a/lib/libpsystem.a
+++ b/lib/libpsystem.a
--- a/lib/terminal.ppu
+++ b/lib/terminal.ppu
--- a/src/console.pas
+++ b/src/console.pas
@ -356,14 +356,22 @@ end;
 procedure RemoveFromZOrder(WND : HWND);
 var
    i : uint32;
+    idx : uint32;

 begin
+    idx:= MAX_WINDOWS;
    for i:=0 to MAX_WINDOWS-1 do begin
        if WindowManager.Z_Order[i] = WND then begin
            WindowManager.Z_Order[i]:= MAX_WINDOWS;
+            idx:= i;
            break;
        end;
    end;
+    if idx <> MAX_WINDOWS then begin
+        for i:=idx to MAX_WINDOWS-1 do begin
+            WindowManager.Z_Order[i]:= WindowManager.Z_Order[i+1];
+        end;
+    end;
 end;

 procedure FocusZOrder(WND : HWND);
--- a/src/include/asuro.pas
+++ b/src/include/asuro.pas
@ -3,11 +3,11 @@ unit asuro;
 interface
 
 const
-     VERSION       = '1.0.0-625a';
+     VERSION       = '1.0.0-632a';
     VERSION_MAJOR = '1';
     VERSION_MINOR = '0';
     VERSION_SUB   = '0';
-     REVISION      = '625';
+     REVISION      = '632';
     RELEASE       = 'a';
 
 implementation