Fix property sheet error in labelMorph on Mac OS X

This fixes #4. On Mac OS X the 'scalableFont' property does not
exist in the windowCanvas for quartz. This adds it by falling
back on the X11 implementation.

This commit also adds a 'verdana' font entry to the list of X11
fonts allow Verdana to display and be selected in the property
sheet. On Mac OS X this correctly results in Verdana displaying.
On Linux without Verdana it falls back to the default, Times.

Author: doublec

objects/ui2/canvas.self

@@ -2186,6 +2186,13 @@ the pixmapCache some day.
          pixmap <- bootstrap stub -> 'globals' -> 'quartzGlobals' -> 'bufferCanvas' -> ().
         } | ) 
 
+ bootstrap addSlotsTo: bootstrap stub -> 'traits' -> 'quartzWindowCanvas' -> () From: ( | {
+         'Category: portable accessing\x7fModuleInfo: Module: canvas InitialContents: FollowSlot\x7fVisibility: public'
+        
+         scalableFont = ( |
+            | x11Globals scalableFont).
+        } | ) 
+
  bootstrap addSlotsTo: bootstrap stub -> 'traits' -> 'xPixmapCanvas' -> () From: ( | {
          'Category: converting ui2Image\'s\x7fModuleInfo: Module: canvas InitialContents: FollowSlot\x7fVisibility: public'
 

objects/ui2/scalableFont.self

@@ -1,7 +1,7 @@
  'Sun-$Revision: 30.10 $'
  '
-Copyright 1992-2011 AUTHORS.
-See the legal/LICENSE file for license information and legal/AUTHORS for authors.
+Copyright 1992-2012 AUTHORS.
+See the LICENSE file for license information.
 '
 
 
@@ -594,6 +594,12 @@ I print out as asterisks.\x7fModuleInfo: Module: scalableFont InitialContents: F
          urwAvantGardeItalic = '-*-itc avant garde-medium-o-normal-sans-'.
         } | ) 
 
+ bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'x11Globals' -> 'fontFamily' -> () From: ( | {
+         'ModuleInfo: Module: scalableFont InitialContents: FollowSlot'
+        
+         verdana = '-*-verdana-medium-r-normal-sans-'.
+        } | ) 
+
  bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'x11Globals' -> 'fontFamily' -> () From: ( | {
          'ModuleInfo: Module: scalableFont InitialContents: FollowSlot'