* give watches window also a number

  * leave watches window in the bottom when cascading windows

ide/text/fpdebug.pas

@@ -2379,8 +2379,8 @@ end;
       R,R2 : trect;
     begin
       Desktop^.GetExtent(R);
-      R.A.Y:=R.B.Y-5;
-      inherited Init(R, dialog_watches, wnNoNumber);
+      R.A.Y:=R.B.Y-7;
+      inherited Init(R, dialog_watches,SearchFreeWindowNo);
       Palette:=wpCyanWindow;
       GetExtent(R);
       HelpCtx:=hcWatches;
@@ -3347,7 +3347,11 @@ end.
 
 {
   $Log$
-  Revision 1.61  2000-05-02 08:42:27  pierre
+  Revision 1.62  2000-06-11 07:01:32  peter
+    * give watches window also a number
+    * leave watches window in the bottom when cascading windows
+
+  Revision 1.61  2000/05/02 08:42:27  pierre
    * new set of Gabor changes: see fixes.txt
 
   Revision 1.60  2000/04/18 21:45:35  pierre

ide/text/fpide.pas

@@ -672,11 +672,13 @@ begin
   Desktop^.GetExtent(R);
 { Leave the compiler messages window in the bottom }
   if assigned(CompilerMessageWindow) and (CompilerMessageWindow^.GetState(sfVisible)) then
-   R.B.Y:=Min(CompilerMessageWindow^.Origin.Y,Desktop^.Size.Y);
+   R.B.Y:=Min(CompilerMessageWindow^.Origin.Y,R.B.Y);
 { Leave the messages window in the bottom }
-  if assigned(MessagesWindow) and (MessagesWindow^.GetState(sfVisible)) and
-     (MessagesWindow^.Origin.Y<R.B.Y) then
-   R.B.Y:=MessagesWindow^.Origin.Y;
+  if assigned(MessagesWindow) and (MessagesWindow^.GetState(sfVisible)) then
+   R.B.Y:=Min(MessagesWindow^.Origin.Y,R.B.Y);
+{ Leave the watch window in the bottom }
+  if assigned(WatchesWindow) and (WatchesWindow^.GetState(sfVisible)) then
+   R.B.Y:=Min(WatchesWindow^.Origin.Y,R.B.Y);
 end;
 
 
@@ -998,7 +1000,11 @@ end;
 END.
 {
   $Log$
-  Revision 1.61  2000-05-17 09:51:11  pierre
+  Revision 1.62  2000-06-11 07:01:33  peter
+    * give watches window also a number
+    * leave watches window in the bottom when cascading windows
+
+  Revision 1.61  2000/05/17 09:51:11  pierre
    Disable/Enable keyboard on UserScreen
 
   Revision 1.60  2000/05/02 10:20:40  pierre