fix pasteboard rubber-band drawing

svn: r14820 original commit: cee5d694ad4f35db3a40175f1c7532e59ffc40b5
2009-05-14 19:37:08 +00:00 · 2009-05-14 19:37:08 +00:00 · e020e87698
commit e020e87698
parent 9702e4e3b4
1 changed files with 2 additions and 2 deletions
--- 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))