fix pasteboard rubber-band drawing

svn: r14820
2009-05-14 19:37:08 +00:00 · 2009-05-14 19:37:08 +00:00 · cee5d694ad
commit cee5d694ad
parent ef9ee828bf
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))