Mercurial > hg > xemacs-beta

comparison lisp/prim/gui.el @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
1 ;;; gui.el --- Basic GUI functions for XEmacs. 1 ;;; gui.el --- Basic GUI functions for XEmacs.
2
2 ;; Copyright (C) 1996 Ben Wing 3 ;; Copyright (C) 1996 Ben Wing
4
5 ;; Maintainer: XEmacs Development Team
6 ;; Keywords: internal
3 7
4 ;; This file is part of XEmacs. 8 ;; This file is part of XEmacs.
5 9
6 ;; XEmacs is free software; you can redistribute it and/or modify it 10 ;; XEmacs is free software; you can redistribute it and/or modify it
7 ;; under the terms of the GNU General Public License as published by 11 ;; under the terms of the GNU General Public License as published by
16 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
17 ;; along with XEmacs; see the file COPYING. If not, write to the 21 ;; along with XEmacs; see the file COPYING. If not, write to the
18 ;; Free Software Foundation, 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, 59 Temple Place - Suite 330,
19 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02111-1307, USA.
20 24
21 (defvar dialog-frame-plist '(width 60 height 20) 25 (defcustom dialog-frame-plist '(width 60 height 20)
22 "Plist of frame properties for initially creating a dialog frame. 26 "Plist of frame properties for initially creating a dialog frame.
23 Properties specified here supersede the values given in 27 Properties specified here supersede the values given in
24 `default-frame-plist'.") 28 `default-frame-plist'."
29 :type '(repeat (group :inline t
30 (symbol :tag "Property")
31 (sexp :tag "Value")))
32 :group 'frames)
25 33
26 (defun make-dialog-frame (&optional props parent) 34 (defun make-dialog-frame (&optional props parent)
27 "Create a frame suitable for use as a dialog box. 35 "Create a frame suitable for use as a dialog box.
28 The frame is made a child of PARENT (defaults to the selected frame), 36 The frame is made a child of PARENT (defaults to the selected frame),
29 and has additional properties PROPS, as well as `dialog-frame-plist'. 37 and has additional properties PROPS, as well as `dialog-frame-plist'.