..

original commit: f0d369cbd78dee61867e195dc32ca38cad21e3e8

collects/framework/gui-utils.ss

@@ -484,10 +484,12 @@
       (min-width (floor (inexact->exact (get-total-width (get-dc)))))))
 
   ;; selected-text-color : color
-  (define selected-text-color (make-object color% "black"))
+  (define selected-text-color (send the-color-database find-color "black"))
 
   ;; unselected-text-color : color
-  (define unselected-text-color (make-object color% "black"))
+  (define unselected-text-color (case (system-type)
+                                  [(macosx) (make-object color% 75 75 75)]
+                                  [else (send the-color-database find-color "black")]))
 
   ;; selected-brush : brush
   (define selected-brush (send the-brush-list find-or-create-brush "WHITE" 'solid))
@@ -496,9 +498,15 @@
   (define unselected-brush (send the-brush-list find-or-create-brush (get-panel-background) 'solid))
 
   ;; button-down/over-brush : brush
-  (define button-down/over-brush (send the-brush-list find-or-create-brush
+  (define button-down/over-brush 
+    (case (system-type)
+      [(macosx) (send the-brush-list find-or-create-brush
+                      "light blue"
+                      'solid)]
+      [else
+       (send the-brush-list find-or-create-brush
              (make-object color% 225 225 255)
-                                       'solid))
+             'solid)]))
   
   ;; label-font : font
   (define label-font (send the-font-list find-or-create-font

collects/framework/private/scheme.ss

@@ -858,8 +858,14 @@
               #t)) 
           
           (define box-comment-out-selection
-            (opt-lambda ([start-pos (get-start-position)]
-                         [end-pos (get-end-position)])
+            (opt-lambda ([_start-pos 'start]
+                         [_end-pos 'end])
+	      (let ([start-pos (if (eq? _start-pos 'start)
+				   (get-start-position)
+				   _start-pos)]
+		    [end-pos (if (eq? _end-pos 'end)
+				 (get-end-position)
+				 _end-pos)])
 		(begin-edit-sequence)
 		(split-snip start-pos)
 		(split-snip end-pos)
@@ -879,7 +885,7 @@
 		  (insert cb start-pos)
 		  (set-position start-pos start-pos))
 		(end-edit-sequence)
-              #t)) 
+		#t)))
           
           (define uncomment-selection
             (opt-lambda ([start-pos (get-start-position)]