1 |
;;; w32-win.el --- parse switches controlling interface with W32 window system |
;;; w32-win.el --- parse switches controlling interface with W32 window system |
2 |
|
|
3 |
;; Copyright (C) 1993, 1994, 2003 Free Software Foundation, Inc. |
;; Copyright (C) 1993, 1994, 2003, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Kevin Gallo |
;; Author: Kevin Gallo |
6 |
;; Keywords: terminals |
;; Keywords: terminals |
76 |
(require 'faces) |
(require 'faces) |
77 |
(require 'select) |
(require 'select) |
78 |
(require 'menu-bar) |
(require 'menu-bar) |
79 |
|
(require 'x-dnd) |
80 |
|
(require 'code-pages) |
81 |
|
|
82 |
;; Conditional on new-fontset so bootstrapping works on non-GUI compiles |
;; Conditional on new-fontset so bootstrapping works on non-GUI compiles |
83 |
(if (fboundp 'new-fontset) |
(if (fboundp 'new-fontset) |
84 |
(require 'fontset)) |
(require 'fontset)) |
108 |
(y (cdr coords))) |
(y (cdr coords))) |
109 |
(if (and (> x 0) (> y 0)) |
(if (and (> x 0) (> y 0)) |
110 |
(set-frame-selected-window nil window)) |
(set-frame-selected-window nil window)) |
111 |
(mapcar 'find-file (car (cdr (cdr event))))) |
(mapcar (lambda (file-name) |
112 |
|
(x-dnd-handle-one-url window 'private |
113 |
|
(concat "file:" file-name))) |
114 |
|
(car (cdr (cdr event))))) |
115 |
(raise-frame))) |
(raise-frame))) |
116 |
|
|
117 |
(defun w32-drag-n-drop-other-frame (event) |
(defun w32-drag-n-drop-other-frame (event) |
1261 |
(if (null font) |
(if (null font) |
1262 |
(error "Font not found"))))) |
(error "Font not found"))))) |
1263 |
|
|
1264 |
|
;;; Set default known names for image libraries |
1265 |
|
(setq image-library-alist |
1266 |
|
'((xpm "libXpm-nox4.dll" "libxpm.dll") |
1267 |
|
(png "libpng13d.dll" "libpng13.dll" "libpng12d.dll" "libpng12.dll" "libpng.dll") |
1268 |
|
(jpeg "jpeg62.dll" "libjpeg.dll" "jpeg-62.dll" "jpeg.dll") |
1269 |
|
(tiff "libtiff3.dll" "libtiff.dll") |
1270 |
|
(gif "libungif.dll"))) |
1271 |
|
|
1272 |
;;; arch-tag: 69fb1701-28c2-4890-b351-3d1fe4b4f166 |
;;; arch-tag: 69fb1701-28c2-4890-b351-3d1fe4b4f166 |
1273 |
;;; w32-win.el ends here |
;;; w32-win.el ends here |