anchor.diff:   (window.exit-graphics          "GWindow.exitGraphics"         ())
    (window.get-screen-height      "GWindow.getScreenHeight"      ()                                                                     double)
    (window.get-screen-width       "GWindow.getScreenWidth"       ()                                                                     double)
  - (window.repaint                "GWindow.repaint"              ((id id)))
  + (window.repaint                "GWindow.repaint"              ())
    (window.request-focus          "GWindow.requestFocus"         ((id id)))
  - (window.set-resizable          "GWindow.setResizable"         ((id id)))
  + (window.set-resizable          "GWindow.setResizable"         ((id id) (resizable boolean)))
    (window.set-title              "GWindow.setTitle"             ((id id) (title string)))
    (window.set-visible            "GWindow.setVisible"           ((id id) (visible boolean)))
    (top-compound.create           "TopCompound.create"           ((id id)))
  
positive.code:     (setf (slot-value self 'action-command) command)
      (interactor.set-action-command self command)))
  
  (defgeneric (setf action-command) (new-command self)
    (:method   (new-command (self interactor))
      (set-action-command self new-command)))
  
  
negative.code: 
  (defmethod initialize-instance :after ((self button) &key &allow-other-keys)
    (button.create self (interactor-label self))
    (setf (interactor-action-command self) (interactor-action-command self)))
  
  (defclass check-box (interactor)
    ())
  
  (defmethod initialize-instance :after ((self check-box) &key &allow-other-keys)
    (check-box.create self (interactor-label self))
    (setf (interactor-action-command self) (interactor-action-command self)))
  
  (defmethod check-box-selectedp ((self check-box))
    (check-box.is-selected self))
  