comparison lisp/term/mac-win.el @ 72536:59670fc88353

(mac-apple-event-map): Rename hicommand to hi-command. (mac-dnd-drop-data): Apply 2006-08-22 change for x-dnd-drop-data. (special-event-map): Apply 2006-08-16 change for x-win.el.

72535:e7ed98d0f919

(put 'application-died   'mac-apple-event-id "obit") ; kAEApplicationDied
(put 'show-preferences   'mac-apple-event-id "pref") ; kAEShowPreferences
(put 'autosave-now       'mac-apple-event-id "asav") ; kAEAutosaveNow
;; kAEInternetEventClass
(put 'get-url            'mac-apple-event-id "GURL") ; kAEGetURL
;; Converted HICommand events
(put 'about              'mac-apple-event-id "abou") ; kHICommandAbout

(defmacro mac-event-spec (event)
  `(nth 1 ,event))

(define-key mac-apple-event-map [core-event quit-application]
  'save-buffers-kill-emacs)

(define-key mac-apple-event-map [internet-event get-url] 'mac-ae-get-url)

(define-key mac-apple-event-map [hicommand about] 'display-splash-screen)

;;; Converted Carbon Events
(defun mac-handle-toolbar-switch-mode (event)
  "Toggle visibility of tool-bars in response to EVENT.
With no keyboard modifiers, it toggles the visibility of the

	       (not (window-minibuffer-p w))
	       (not (window-dedicated-p w)))
	  ;; If dropping in an ordinary window which we could use,
	  ;; let dnd-open-file-other-window specify what to do.
	  (progn
	    (goto-char (posn-point (event-start event)))
	    (funcall handler window action data))
	;; If we can't display the file here,
	;; make a new window for it.
	(let ((dnd-open-file-other-window t))
	  (select-frame frame)

;; Enable CLIPBOARD copy/paste through menu bar commands.
(menu-bar-enable-clipboard)

;; Initiate drag and drop

(global-set-key [drag-n-drop] 'mac-dnd-handle-drag-n-drop-event)
(global-set-key [M-drag-n-drop] 'mac-dnd-handle-drag-n-drop-event)


;;;; Non-toolkit Scroll bars

(unless x-toolkit-scroll-bars

72536:59670fc88353

(put 'application-died   'mac-apple-event-id "obit") ; kAEApplicationDied
(put 'show-preferences   'mac-apple-event-id "pref") ; kAEShowPreferences
(put 'autosave-now       'mac-apple-event-id "asav") ; kAEAutosaveNow
;; kAEInternetEventClass
(put 'get-url            'mac-apple-event-id "GURL") ; kAEGetURL
;; Converted HI command events
(put 'about              'mac-apple-event-id "abou") ; kHICommandAbout

(defmacro mac-event-spec (event)
  `(nth 1 ,event))

(define-key mac-apple-event-map [core-event quit-application]
  'save-buffers-kill-emacs)

(define-key mac-apple-event-map [internet-event get-url] 'mac-ae-get-url)

(define-key mac-apple-event-map [hi-command about] 'display-splash-screen)

;;; Converted Carbon Events
(defun mac-handle-toolbar-switch-mode (event)
  "Toggle visibility of tool-bars in response to EVENT.
With no keyboard modifiers, it toggles the visibility of the

	       (not (window-minibuffer-p w))
	       (not (window-dedicated-p w)))
	  ;; If dropping in an ordinary window which we could use,
	  ;; let dnd-open-file-other-window specify what to do.
	  (progn
	    (when (not mouse-yank-at-point)
	      (goto-char (posn-point (event-start event))))
	    (funcall handler window action data))
	;; If we can't display the file here,
	;; make a new window for it.
	(let ((dnd-open-file-other-window t))
	  (select-frame frame)

;; Enable CLIPBOARD copy/paste through menu bar commands.
(menu-bar-enable-clipboard)

;; Initiate drag and drop

(define-key special-event-map [drag-n-drop] 'mac-dnd-handle-drag-n-drop-event)
(define-key special-event-map [M-drag-n-drop] 'mac-dnd-handle-drag-n-drop-event)


;;;; Non-toolkit Scroll bars

(unless x-toolkit-scroll-bars