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

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);

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