[racket] Testing Racket v5.0.99.900

From: Ковалев Юрий (yoschi at mail.ru)
Date: Wed Feb 9 07:34:45 EST 2011

Strange things, that there isn't in v.5.0.2 (windows version):
* message from console: procedure set-icon method in frame%: no clause matching 1 argument: (object:bitmap% ...)  earlier it was possible and there is no change in the help about this
* In DrRacket's console shift+home combination is returns the cursor to the start of line and not to the start of editable area, as it was before
* I wrote a little code for testing strange behavior of tab-panel%:
--- start of file
#lang racket/gui
(define (make-editor)  (new (class pasteboard%         (super-new)         (define/override (on-default-event event)           (when (send event button-down? 'any)             (display (list (send event get-x) (send event get-y))))))))
(define (testing make-tab? tab-in-vp? make-canvas? canvas-in-tab?)  (let* ([frame (new frame% [label "Testing 5.0.99.900"] [min-width 300] [min-height 200])]         [vp (new vertical-panel% [parent frame])]         [tabs (and make-tab? (new tab-panel%                                   [parent (if tab-in-vp? vp frame)]                                   [choices '("the first" "the second" "the third")]))])    (when make-canvas?      (new editor-canvas%           [parent (if (and tabs canvas-in-tab?) tabs vp)]           [editor (make-editor)]))    (send* frame (center 'both) (show #t))))
--- end of file
Now, let's try it:
(testing #t #f #f #f), (testing #t #t #f #f) -> Ok(testing #t #f #t #f), (testing #t #t #t #f) -> not pretty, but it is clear (in the sense, as in previous versions)(testing #t #t #t #t), (testing #t #f #t #t) ->  1. Tabs disappeared.  2. Appear empty space under canvas. It seems, canvas should be moved down by a  distance of the height of tabs  3. Click mouse on the canvas has an effect only in upper part (where must be tabs).(testing #f #f #t #f) -> canvas is Ok.
---
Yuriy 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20110209/92a41661/attachment.html>

Posted on the users mailing list.