From 361a9dc101aced7974b3235378771310bdee0066 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 26 May 2006 15:42:10 +0000
Subject: [PATCH] fix location of primitive frames

svn: r3077
---
 src/wxwindow/src/msw/wx_frame.cxx | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/wxwindow/src/msw/wx_frame.cxx b/src/wxwindow/src/msw/wx_frame.cxx
index 25821e0ea5..a8176ad106 100644
--- a/src/wxwindow/src/msw/wx_frame.cxx
+++ b/src/wxwindow/src/msw/wx_frame.cxx
@@ -42,6 +42,13 @@ Bool wxFrame::Create(wxFrame *Parent, char *title, int x, int y,
 {
   wxWnd *cparent = NULL;
 
+  if ((x == -1) && (y == -1)) {
+    RECT r;
+    SystemParametersInfo(SPI_GETWORKAREA, 0, &r, 0);
+    x = r.left;
+    y = r.top;
+  }
+
   wxbFrame::Create(Parent, title, x, y, width, height, style, name);
   
   frame_type = style & (wxSDI | wxMDI_PARENT | wxMDI_CHILD);