From 366888de5d052bf762e6ab1d7257f82c31a67371 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 21 Mar 2007 04:01:20 +0000
Subject: [PATCH] fix get-view in snip-admin% to not return negative sizes

svn: r5804
---
 src/mred/wxme/wx_mbuf.cxx | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/src/mred/wxme/wx_mbuf.cxx b/src/mred/wxme/wx_mbuf.cxx
index 08a56a78e2..c6a13d3cf6 100644
--- a/src/mred/wxme/wx_mbuf.cxx
+++ b/src/mred/wxme/wx_mbuf.cxx
@@ -2796,10 +2796,18 @@ void wxStandardSnipAdmin::GetView(double *x, double *y, double *w, double *h, wx
 	  *x = l - sl;
 	if (y)
 	  *y = t - st;
-	if (w)
-	  *w = (r - l);
-	if (h)
-	  *h = (b - t);
+	if (w) {
+          if (r < l)
+            *w = 0;
+          else
+            *w = (r - l);
+        }
+	if (h) {
+          if (b < t)
+            *h = 0;
+          else
+            *h = (b - t);
+        }
 	
 	return;
       }