Changeset 3093

Timestamp:

2003年05月28日 20時26分05秒 (6 years ago)

Author:

himi

Message:

(mw32-emulate-x-display-argument): New function.
(x-display-pixel-width, x-display-pixel-height)
(x-display-pixel-planes, x-display-mm-height, x-display-mm-width)
(x-display-visual-class): New functions.
(x-server-max-request-size, x-server-vendor, x-server-version)
(x-display-screens, x-display-backing-store)
(x-display-save-under): New functions, but they only return
a predefined value.

Files:

• work/cvs2svn/lisp/international/meadow.el (modified) (1 diff)

work/cvs2svn/lisp/international/meadow.el

@@ -496 +496 @@
-
-;;;
+;;; Inspect Device Capability/Intrinsic Facilities
+;;;                Emulation layer for functions of xfuns.c
+
+(defsubst mw32-emulate-x-display-argument (display)
+  (cond ((stringp display) nil)
+        ((framep display) display)
+        ((null display) display)
+        (t
+         (error "%S must be STRING or FRAME" display))))
+
+(defun x-display-pixel-width (display)
+  (mw32-get-device-capability
+   'width
+   (mw32-emulate-x-display-argument display)))
+(defun x-display-pixel-height (display)
+  (mw32-get-device-capability
+   'height
+   (mw32-emulate-x-display-argument display)))
+(defun x-display-pixel-planes (display)
+  (mw32-get-device-capability
+   ;; Notice that the meaning of "PLANES" in X are different
+   ;; from that in Windows.
+   'color-bits
+   (mw32-emulate-x-display-argument display)))
+(defun x-display-mm-height (display)
+  (mw32-get-device-capability
+   'height-in-mm
+   (mw32-emulate-x-display-argument display)))
+(defun x-display-mm-width (display)
+  (mw32-get-device-capability
+   'width-in-mm
+   (mw32-emulate-x-display-argument display)))
+(defun x-display-visual-class (display)
+  (let ((c (x-display-pixel-planes display))
+        (n (mw32-get-device-capability
+            'colors)))
+    (cond ((= n full) 'true-color)
+          ((= n 1) 'static-gray)
+          ((> c (log c n)) 'pseudo-color)
+          (t 'static-color))))
+
+;; dummy vals.
+(defun x-server-max-request-size (display) 65535)
+(defun x-server-vendor (display) "MW32")
+(defun x-server-version (display) (list 11 0 1))
+;; We should use multi-monitor APIs in the future.
+(defun x-display-screens (display) 1)
+(defun x-display-backing-store (display) 'not-useful)
+(defun x-display-save-under (display) nil)
+
+;;;
-;;; cache for enumerated logfonts
-;;;