comparison lisp/gui.el @ 422:95016f13131a r21-2-19

Import from CVS: tag r21-2-19
author cvs
date Mon, 13 Aug 2007 11:25:01 +0200
parents 697ef44129c6
children 11054d720c21
comparison
equal deleted inserted replaced
421:fff06e11db74 422:95016f13131a
62 (append props 62 (append props
63 `(popup ,parent initially-unmapped t 63 `(popup ,parent initially-unmapped t
64 menubar-visible-p nil 64 menubar-visible-p nil
65 has-modeline-p nil 65 has-modeline-p nil
66 default-toolbar-visible-p nil 66 default-toolbar-visible-p nil
67 default-gutter-visible-p nil
67 modeline-shadow-thickness 0 68 modeline-shadow-thickness 0
68 left ,(+ fleft (- (/ fwidth 2) 69 left ,(+ fleft (- (/ fwidth 2)
69 (/ (* dfwidth fontw) 70 (/ (* dfwidth fontw)
70 2))) 71 2)))
71 top ,(+ ftop (- (/ fheight 2) 72 top ,(+ ftop (- (/ fheight 2)