anchor.diff:        :bold-italic         "bold-i"
         :italic-bold         "bold-i")) ))
   
  -(defparameter *clx-text-sizes*
  -  '(:tiny 8
  -    :very-small 8
  -    :small 10
  -    :normal 12
  -    :large 14
  -    :very-large 18
  -    :huge 24))
  -
   (defun open-font (display font-name)
     (let ((fonts (xlib:list-font-names display font-name :max-fonts 1)))
       (if fonts
  
positive.code:                                       :map nil
                                        :width (round-coordinate (space-requirement-width q))
                                        :height (round-coordinate (space-requirement-height q))
                                        :event-mask nil
                                        ;;GB
                                        #+NIL '(:structure-notify))))
        (setf (xlib:wm-name window) (frame-pretty-name frame))
        (setf (xlib:wm-icon-name window) (frame-pretty-name frame))
        (setf (xlib:wm-protocols window) `(:wm_delete_window)))))
  
negative.code:   (declare (ignore args))
    (push (make-instance 'clx-frame-manager :port port) (slot-value port 'frame-managers))
    (initialize-clx port))
  
  (defmethod print-object ((object clx-port) stream)
    (print-unreadable-object (object stream :identity t :type t)
      (when (slot-boundp object 'display)
        (format stream "~S ~S ~S ~S"
                :host (xlib:display-host (slot-value object 'display))
                :display-id (xlib:display-display (slot-value object 'display))))))
  
  (defun clx-error-handler (display error-name &key &allow-other-keys)
    (declare (ignore display))
  