[plt-scheme] More MrEd bugs or glitches

Hi,

I found two more glitches or bugs.
- I think the first is a bug. The problem is that in the
slider% 
  widget/object the on-subwindow-event does no receive the
  left-up event under Windows XP. It is OK under Linux.
  The code to demonstrate the problem is this:

; ----------------------------------------------------------
(define my-slider%
  (class slider%
    (define/override (on-subwindow-event w e)
      (if (equal? (send e get-event-type) 'left-down)
        (display "bingo down\n"))
      (if (equal? (send e get-event-type) 'left-up)
        (display "bingo up\n"))
      #f)
    (super-new)
  )
)

(define w (new frame% (label "tt")))

(define s (new my-slider% 
               (label "slider")
               (parent w)
               (min-value 0)
               (max-value 100)
               (init-value 0)))

(send w show #t)

; ----------------------------------------------------------

Under Windows XP you will never see the "bingo up" message.

- The second problem is with the message-box. If the message
  becomes too long then the window will contain several lines.
  Run the code below and you will see a large window.
  Comment out the line containing "horizontal panel" and
  obviously the message is shorter but the height of the window 
  becomes smaller. 

(message-box "Error" 
             (string-append "Property '"
                            "123456789"
                            "' is missing from '"
                            "horizontal-panel-21234"
                            "' ")
             #f '(ok stop))

Best regards,

Peter Ivanyi


___________________________________________________________
15% KEDVEZMÉNY minden PLASZTIKAI MŰTÉTRE az Aesthetica orvosi központban! Klikk ide!
http://www.webdesign.hu/aesthetica/flash_microsite/?id=9;p_code=2079