From e020e87698e9d4fc0344bc8b2cc28fd45c724eec Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 14 May 2009 19:37:08 +0000
Subject: [PATCH] fix pasteboard rubber-band drawing

svn: r14820

original commit: cee5d694ad4f35db3a40175f1c7532e59ffc40b5
---
 collects/mred/private/wxme/pasteboard.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/mred/private/wxme/pasteboard.ss b/collects/mred/private/wxme/pasteboard.ss
index 040ef1a4..9fcbc06a 100644
--- a/collects/mred/private/wxme/pasteboard.ss
+++ b/collects/mred/private/wxme/pasteboard.ss
@@ -166,8 +166,8 @@
 
   (define/private (rubber-band x y w h)
     (when (and s-admin
-               (positive? w)
-               (positive? h))
+               (not (zero? w))
+               (not (zero? h)))
       (let-values ([(x w)
                     (if (w . < . 0)
                         (values (+ x w) (- w))