Mercurial > hg > xemacs-beta

comparison lisp/frame.el @ 5128:7be849cb8828 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Sun, 07 Mar 2010 02:09:59 -0600
parents 5502045ec510
children 0d43872986b6
comparison
equal deleted inserted replaced
5127:a9c41067dd88 5128:7be849cb8828
1 ;;; frame.el --- multi-frame management independent of window systems. 1 ;;; frame.el --- multi-frame management independent of window systems.
2 2
3 ;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001, 2003 3 ;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001, 2003
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 ;; Copyright (C) 1995, 1996 Ben Wing. 5 ;; Copyright (C) 1995, 1996 Ben Wing.
6 ;; Copyright (C) 2010 Didier Verna
6 7
7 ;; Maintainer: XEmacs Development Team 8 ;; Maintainer: XEmacs Development Team
8 ;; Keywords: internal, dumped 9 ;; Keywords: internal, dumped
9 10
10 ;; This file is part of XEmacs. 11 ;; This file is part of XEmacs.
1013 1014
1014 (defun set-frame-property (frame prop val) 1015 (defun set-frame-property (frame prop val)
1015 "Set property PROP of FRAME to VAL. See `set-frame-properties'." 1016 "Set property PROP of FRAME to VAL. See `set-frame-properties'."
1016 (set-frame-properties frame (list prop val))) 1017 (set-frame-properties frame (list prop val)))
1017 1018
1019 (defun set-frame-background-placement (placement)
1020 "Set the background placement of the selected frame to PLACEMENT.
1021 When called interactively, prompt for the placement to use."
1022 (interactive (list (intern (completing-read "Placement: "
1023 '(("absolute" absolute)
1024 ("relative" relative))
1025 nil t))))
1026 (set-face-background-placement 'default placement (selected-frame)))
1027
1028 (defun frame-background-placement ()
1029 "Retrieve the selected frame's background placement."
1030 (interactive)
1031 (face-background-placement 'default (selected-frame)))
1032
1033 (defun frame-background-placement-instance ()
1034 "Retrieve the selected frame's background placement instance."
1035 (interactive)
1036 (face-background-placement-instance 'default (selected-frame)))
1037
1038 ;; #### FIXME: misnomers ! The functions below should be called
1039 ;; set-frame-<blabla> -- dvl.
1040
1018 ;; XEmacs change: this function differs significantly from Emacs. 1041 ;; XEmacs change: this function differs significantly from Emacs.
1019 (defun set-background-color (color-name) 1042 (defun set-background-color (color-name)
1020 "Set the background color of the selected frame to COLOR-NAME. 1043 "Set the background color of the selected frame to COLOR-NAME.
1021 When called interactively, prompt for the name of the color to use. 1044 When called interactively, prompt for the name of the color to use.
1022 To get the frame's current background color, use 1045 To get the frame's current background color, use