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