anchor.diff:          (coerce (nreverse line*) 'string))))
   
   (defun insert-tr (line string-lines-pos)
  -  (let* ((pos (position-if (lambda (x) (search ".translate" x)) line))
  +  (let* ((pos       (position-if (lambda (x) (search ".translate" x)) line))
            (tr-string (if pos (nth (+ 2 pos) line) "\"\""))
  +         (shortcut  (if pos (string= "setShortcut" (nth (1- pos) line))))
            line*)
       (if pos
           (let ((start (eql :start string-lines-pos)))
             (dotimes (n (length line))
               (cond ((= n pos)
  -                   (push (format nil "(tr ~A~A"
  -                                 (if start (string-right-trim "\"\\n" tr-string) tr-string)
  -                                 (if start "" ")"))
  +                   (push (format nil "~A(tr ~A~A"
  +                                 (if shortcut "(qnew \"QKeySequence\" " "")
  +                                 (from-qt-utf8 (if start (string-right-trim "\"\\n" tr-string) tr-string))
  +                                 (if start "" (if shortcut "))" ")")))
                            line*))
                     ((or (< n pos)
                          (> n (+ 4 pos)))
  
positive.code:                                           nil)))
               (case string-lines-pos
                 (:mid
                  (format nil "~A~%" (string-trim "\"\\n" (subseq qt-line 0 (position #\" qt-line :from-end t)))))
                 (:end
                  (format nil "~A))" (subseq qt-line 1 (1+ (position #\" qt-line :from-end t)))))
                 (t
                  (let* ((line (trim (no #\, (string-substitute* '("()->"  "()."
                                                                   "->set" ".set"
  
negative.code:       (unless class
          (return))
        (x:when-it (qapropos* name* class)
          ;; resolve ambiguous
          (let ((name** (assoc name '(("addAction" . "addAction(QAction*)"))
                               :test 'string=)))
            (return-from find-qt-method (prin1-to-string (if name** (cdr name**) name)))))
        (setf class (qsuper-class-name class)))))
  
  (defun prepare-args (args)
  