Mercurial > hg > xemacs-beta
comparison lisp/dragdrop.el @ 536:8f3fb4fd879b
[xemacs-hg @ 2001-05-14 05:05:09 by mta]
* dragdrop.el (experimental-dragdrop-drop-url-default): If event
has no window, use one from the frame in the event
* frame-msw.c (mswindows_make_frame_visible): Call SetActiveWindow
to make the frame the active window.
| author | mta |
|---|---|
| date | Mon, 14 May 2001 05:05:14 +0000 |
| parents | 7039e6323819 |
| children | 79940b592197 |
comparison
equal
deleted
inserted
replaced
| 535:c69610198c35 | 536:8f3fb4fd879b |
|---|---|
| 227 | 227 |
| 228 (defun experimental-dragdrop-drop-url-default (event object) | 228 (defun experimental-dragdrop-drop-url-default (event object) |
| 229 "*{EXPERIMENTAL} Default handler for dropped URL data. | 229 "*{EXPERIMENTAL} Default handler for dropped URL data. |
| 230 Finds files and URLs. Returns nil if object does not contain URL data." | 230 Finds files and URLs. Returns nil if object does not contain URL data." |
| 231 (cond ((eq (car object) 'dragdrop-URL) | 231 (cond ((eq (car object) 'dragdrop-URL) |
| 232 (let ((data (cdr object)) | 232 (let* ((data (cdr object)) |
| 233 (frame (event-channel event)) | 233 (frame (event-channel event)) |
| 234 (x pop-up-windows) | 234 (x pop-up-windows) |
| 235 (window (event-window event))) | 235 (window (or (event-window event) |
| 236 (frame-selected-window frame) | |
| 237 (frame-highest-window frame 0)))) | |
| 236 (setq pop-up-windows nil) | 238 (setq pop-up-windows nil) |
| 237 (while (not (eq data ())) | 239 (while (not (eq data ())) |
| 238 (cond ((dragdrop-is-some-url "file" (car data)) | 240 (cond ((dragdrop-is-some-url "file" (car data)) |
| 239 ;; if it is some file, pop it to a buffer | 241 ;; if it is some file, pop it to a buffer |
| 240 (cond (window | 242 (cond (window |