370.2

svn: r6369

original commit: e9385a910eac5c2f84dccbe6d66fed0741200785

collects/mred/private/mrcanvas.ss

@@ -92,7 +92,8 @@
       (sequence 
 	(let ([cwho '(constructor canvas)])
 	  (check-container-parent cwho parent)
-	  (check-style cwho #f '(border hscroll vscroll gl deleted control-border combo no-autoclear transparent resize-corner) 
+	  (check-style cwho #f '(border hscroll vscroll gl deleted control-border combo no-autoclear 
+                                        transparent resize-corner no-focus)
 		       style)
 	  (check-callback cwho paint-callback)
 	  (check-label-string/false cwho label)))

collects/mred/private/snipfile.ss

@@ -249,7 +249,6 @@
   ;; build-input-port : string -> (values input any)
   ;; constructs an input port for the load handler. Also
   ;; returns a value representing the source of code read from the file.
-  ;; if the file's first lines begins with #!, skips the first chars of the file.
   (define (build-input-port filename)
     (let ([p (open-input-file filename)])
       (port-count-lines! p)
@@ -261,21 +260,6 @@
 		   (open-input-text-editor t))]
 		[else p])])
 	(port-count-lines! p) ; in case it's new
-	(let loop ()
-	  ;; Wrap regexp check with `with-handlers' in case the file
-	  ;;  starts with non-text input
-	  (when (with-handlers ([exn:fail? (lambda (x) #f)])
-		  (regexp-match-peek #rx"^#!" p))
-	    ;; Throw away chars/specials up to eol,
-	    ;;  and continue if line ends in backslash
-	    (let lloop ([prev #f])
-	      (let ([c (read-char-or-special p)])
-		(if (or (eof-object? c)
-			(eq? c #\return)
-			(eq? c #\newline))
-		    (when (eq? prev #\\)
-		      (loop))
-		    (lloop c))))))
 	(values p filename))))
 
   (define (open-input-graphical-file filename)

collects/mrlib/name-message.ss

@@ -156,7 +156,7 @@
                (when (and (> w 5) (> h 5))
                  (draw-button-label dc label 0 0 w h mouse-over? mouse-grabbed? font))]))))
       
-      (super-new [style '(transparent)])
+      (super-new [style '(transparent no-focus)])
       (update-min-sizes)
       (stretchable-width #f)
       (stretchable-height #f)))

doc/release-notes/mred/HISTORY

@@ -1,3 +1,9 @@
+Version 370.2
+
+Added 'no-focus style for canvas%
+
+----------------------------------------------------------------------
+
 Version 370, May 2007
 
 WXME file format changed to include a #reader() prefix