Re: tab and tree view widget support

Andy> As always, only ms-windows. I will apply this to cvs. Andy> andy Hello Andy! I was able to build fine with this patch. However, when I try to use the Options->Font menu, switching from my choice of Courier New to Courier I end up with this **Backtrace**. Options->Size was 10, setting it to 12 won't help. More later, perhaps, Adrian Signaling: (wrong-type-argument number-char-or-marker-p nil) /(nil 1) (int-to-string (/ size (specifier-instance font-menu-size-scaling ...))) ) (concat (int-to-string (/ size ...)) "pt") ) (list :family family :size (concat (int-to-string ...) "pt")) ) (custom-set-face-update-spec (quote default) (list (list ... ...)) (list :family family :size (concat ... "pt"))) ) (if font-menu-this-frame-only-p (set-face-font (quote default) new-default-face-font (and font-menu-this-frame-only-p ...)) (custom-set-face-update-spec (quote default) (list ...) (list :family family :size ...)) (message "Font %s" (face-font-name ...))) ) (let* ((dcache ...) (font-data ...) (from-family ...) (from-size ...) (from-weight ...) (from-slant ...) (face-list-to-change ...) new-default-face-font new-props) (unless from-family (signal ... ...)) (when weight (signal ... ...)) (setq new-default-face-font (font-menu-load-font ... ... ... from-slant ...)) (when (eq ... ...) (setq face-list-to-change ...)) (dolist (face face-list-to-change) (when ... ... ...)) (if font-menu-this-frame-only-p (set-face-font ... new-default-face-font ...) (custom-set-face-update-spec ... ... ...) (message "Font %s" ...))) ) font-menu-set-font("Courier" nil nil) eval((font-menu-set-font "Courier" nil nil)) -- Adrian Aichner Teradyne GmbH, European Design Center Integra Test Division Telephone +49/89/41861(0)-208 Dingolfinger Strasse 2 Fax +49/89/41861-217 (What is a Fax?) D-81673 MUENCHEN E-mail adrian.aichner(a)teradyne.com