racket/draw cocoa: adjust default 'script font

Also, adjust the way a font is converted for control labels to
strp away Pango descriptions.

collects/mred/private/wx/cocoa/font.rkt

@@ -26,7 +26,8 @@
                                find-family-default-font-id
                                (send f get-family))
                          weight
-                         style))])
+                         style))]
+         [name (regexp-replace #rx",.*" name "")])
     (atomically
      (with-autorelease
       (let ([f (tell NSFont 

collects/racket/draw/private/font-dir.rkt

@@ -60,7 +60,7 @@
                               [(windows) "Arial"]
                               [else "Helvetica"])]
         [(script) (case (system-type)
-                    [(macosx) "Apple Chancery"]
+                    [(macosx) "Apple Chancery, Italic"]
                     [else "Chancery"])]
         [(symbol) "Symbol"]
         [else (case (system-type)