anchor.diff:     Smalltalk or Ruby).
   |#
   
  -@[nsobject subclass:greeter slots: ()]
  +@[NSObject subClass:Greeter slots: ()]
   
   
   
  
positive.code: ;;     (#/release default-button)
  ;;     (#/release other-button)))
  
  @[greeter method:(greet:(:id)sender)
            resulttype:(:id)
            body:
            (declare (ignore sender))
            (#_nsrunalertpanel @"Hello!"
                               @"Hello, World!"
                               @"Hi!"
                               @"Hello!"
                               @"Go Away")]
  
  
  ;; Now we can create an instance of the Greeter class and use it as
  
negative.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])
  
  [*my-window* setTitle: "Hello World"]
  
  ;; 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,
  