anchor.diff:  ;;     (#/release default-button)
   ;;     (#/release other-button)))
   
  -@[greeter method:(greet:(:id)sender)
  -          resulttype:(:id)
  +@[Greeter method:(greet:(:id)sender)
  +          resultType:(:id)
             body:
             (declare (ignore sender))
  -          (#_nsrunalertpanel @"Hello!"
  +          (#_NSRunAlertPanel @"Hello!"
                                @"Hello, World!"
                                @"Hi!"
                                @"Hello!"
  -                             @"Go Away")]
  +                             @"Go Away")
  +          oclo:*null*]
   
   
   ;; Now we can create an instance of the Greeter class and use it as
  
positive.code: 
  #| Just write: |#
  
  (defvar *my-window* [[nswindow alloc]
                       initwithcontentrect:(ns:make-ns-rect 100 100 400 300)
                       stylemask:(logior  #$nstitledwindowmask 
                                          #$nsclosablewindowmask  
                                          #$nsminiaturizablewindowmask 
                                          #$nsresizablewindowmask)
                       backing:#$nsbackingstorebuffered
                       defer:nil])
  
  
  
  ;; Then we can call makeKeyAndOrderFront: to display the window:
  ;; 
  ;; (#/makeKeyAndOrderFront: my-window nil)
  
  [*my-window* makekeyandorderfront:nil]
  
  
  ;; The window, empty, but with the shape and features we specified,
  
negative.code:    Smalltalk or Ruby).
  |#
  
  @[NSObject subClass:Greeter slots: ()]
  
  
  
  