Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-xemac.el @ 102:a145efe76779 r20-1b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b3
author cvs
date Mon, 13 Aug 2007 09:15:49 +0200
parents 0d2f883870bc
children fe104dbd9147
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
1 ;;; w3-xemac.el --- XEmacs specific functions for emacs-w3 1 ;;; w3-xemac.el --- XEmacs specific functions for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/02/10 16:08:10 3 ;; Created: 1997/02/17 23:09:24
4 ;; Version: 1.14 4 ;; Version: 1.15
5 ;; Keywords: faces, help, mouse, hypermedia 5 ;; Keywords: faces, help, mouse, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
29 (require 'w3-imap) 29 (require 'w3-imap)
30 (require 'images) 30 (require 'images)
31 (require 'w3-widget) 31 (require 'w3-widget)
32 (require 'w3-menu) 32 (require 'w3-menu)
33 (require 'w3-forms) 33 (require 'w3-forms)
34 (require 'w3-script)
34 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 35 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
35 ;;; Enhancements For XEmacs 36 ;;; Enhancements For XEmacs
36 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 37 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
37 (defun w3-mouse-handler (e) 38 (defun w3-mouse-handler (e)
38 "Function to message the url under the mouse cursor" 39 "Function to message the url under the mouse cursor"
39 (interactive "e") 40 (interactive "e")
40 (let* ((pt (event-point e)) 41 (let* ((pt (event-point e))
41 (good (eq (event-window e) (selected-window))) 42 (good (eq (event-window e) (selected-window)))
42 (widget (and good pt (number-or-marker-p pt) (widget-at pt))) 43 (mouse-events))
43 (link (and widget (or (widget-get widget 'href) 44 (if (not (and good pt (number-or-marker-p pt)))
44 (widget-get widget 'name)))) 45 nil
45 (form (and widget (widget-get widget :w3-form-data))) 46 (if (and inhibit-help-echo w3-track-mouse)
46 (imag nil) 47 (widget-echo-help pt))
47 ) 48 (setq mouse-events (w3-script-find-event-handlers pt 'mouse))
48 (cond 49 (if (assq 'onmouseover mouse-events)
49 (link (message "%s" (w3-widget-echo widget))) 50 (w3-script-evaluate-form (cdr (assq 'onmouseover mouse-events)))))))
50 (form
51 (cond
52 ((eq 'submit (w3-form-element-type form))
53 (message "Submit form to %s"
54 (cdr-safe (assq 'action (w3-form-element-action form)))))
55 ((eq 'reset (w3-form-element-type form))
56 (message "Reset form contents"))
57 (t
58 (message "Form entry (name=%s, type=%s)" (w3-form-element-name form)
59 (w3-form-element-type form)))))
60 (imag (message "Inlined image (%s)" (car imag)))
61 (t (message "")))))
62 51
63 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 52 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
64 ;;; Functions to build menus of urls 53 ;;; Functions to build menus of urls
65 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 54 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
66 (defun w3-setup-version-specifics () 55 (defun w3-setup-version-specifics ()
149 (and echo (message "%s" echo)))) 138 (and echo (message "%s" echo))))
150 139
151 (defun w3-mode-version-specifics () 140 (defun w3-mode-version-specifics ()
152 "XEmacs specific stuff for w3-mode" 141 "XEmacs specific stuff for w3-mode"
153 (if (featurep 'mouse) 142 (if (featurep 'mouse)
154 (cond 143 (progn
155 ((not w3-track-mouse) 144 (if (not w3-track-mouse)
156 (setq inhibit-help-echo nil)) 145 (setq inhibit-help-echo nil))
157 (inhibit-help-echo 146 (setq mode-motion-hook 'w3-mouse-handler)))
158 (setq mode-motion-hook 'w3-mouse-handler))
159 (t nil)))
160 (if (eq (device-type) 'tty) 147 (if (eq (device-type) 'tty)
161 nil 148 nil
162 (w3-add-toolbar-to-buffer)) 149 (w3-add-toolbar-to-buffer))
163 (setq mode-popup-menu w3-popup-menu)) 150 (setq mode-popup-menu w3-popup-menu))
164 151