Mercurial > hg > xemacs-beta
comparison lisp/w3/w3-menu.el @ 16:0293115a14e9 r19-15b91
Import from CVS: tag r19-15b91
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:49:20 +0200 |
parents | 9ee227acff29 |
children | 859a2309aef8 |
comparison
equal
deleted
inserted
replaced
15:ad457d5f7d04 | 16:0293115a14e9 |
---|---|
1 ;;; w3-menu.el --- Menu functions for emacs-w3 | 1 ;;; w3-menu.el --- Menu functions for emacs-w3 |
2 ;; Author: wmperry | 2 ;; Author: wmperry |
3 ;; Created: 1996/12/31 15:37:49 | 3 ;; Created: 1997/01/21 20:54:49 |
4 ;; Version: 1.19 | 4 ;; Version: 1.25 |
5 ;; Keywords: menu, hypermedia | 5 ;; Keywords: menu, hypermedia |
6 | 6 |
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu) | 8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu) |
9 ;;; Copyright (c) 1996 Free Software Foundation, Inc. | 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. |
10 ;;; | 10 ;;; |
11 ;;; This file is part of GNU Emacs. | 11 ;;; This file is part of GNU Emacs. |
12 ;;; | 12 ;;; |
13 ;;; GNU Emacs is free software; you can redistribute it and/or modify | 13 ;;; GNU Emacs is free software; you can redistribute it and/or modify |
14 ;;; it under the terms of the GNU General Public License as published by | 14 ;;; it under the terms of the GNU General Public License as published by |
139 | 139 |
140 (defun w3-toggle-minibuffer () | 140 (defun w3-toggle-minibuffer () |
141 (interactive) | 141 (interactive) |
142 (cond | 142 (cond |
143 (w3-running-xemacs | 143 (w3-running-xemacs |
144 (set-frame-property (selected-frame) 'minibuffer | 144 (if (equal (frame-property (selected-frame) 'minibuffer) t) |
145 (not (frame-property (selected-frame) 'minibuffer)))) | 145 |
146 ;; frame has a minibuffer, so remove it | |
147 ;; unfortunately, we must delete and redraw the frame | |
148 (let ((fp (frame-properties (selected-frame))) | |
149 (frame (selected-frame)) | |
150 (buf (current-buffer))) | |
151 (select-frame | |
152 (make-frame (plist-put | |
153 (plist-remprop | |
154 (plist-remprop fp 'window-id) 'minibuffer) | |
155 'minibuffer nil))) | |
156 (delete-frame frame) | |
157 (switch-to-buffer buf)) | |
158 ;; no minibuffer so add one | |
159 (set-frame-property (selected-frame) 'minibuffer t))) | |
146 (t nil))) | 160 (t nil))) |
147 | 161 |
148 (defun w3-toggle-location () | 162 (defun w3-toggle-location () |
149 (interactive) | 163 (interactive) |
150 (cond | 164 (cond |
306 ["Show Location" w3-toggle-location | 320 ["Show Location" w3-toggle-location |
307 :style toggle :selected (w3-location-active)] | 321 :style toggle :selected (w3-location-active)] |
308 nil) | 322 nil) |
309 (if w3-running-xemacs | 323 (if w3-running-xemacs |
310 ["Show Status Bar" w3-toggle-minibuffer | 324 ["Show Status Bar" w3-toggle-minibuffer |
311 :style toggle :selected nil] | 325 :style toggle |
312 nil) | 326 :selected (eq (frame-property (selected-frame) 'minibuffer) t) |
327 ]) | |
313 ["Incremental Display" | 328 ["Incremental Display" |
314 (setq w3-do-incremental-display (not w3-do-incremental-display)) | 329 (setq w3-do-incremental-display (not w3-do-incremental-display)) |
315 :style toggle :selected w3-do-incremental-display] | 330 :style toggle :selected w3-do-incremental-display] |
316 "----" | 331 "----" |
317 ["Auto Load Images" | 332 ["Auto Load Images" |
335 (list | 350 (list |
336 "Style" | 351 "Style" |
337 ["Allow Document Stylesheets" (setq w3-honor-stylesheets | 352 ["Allow Document Stylesheets" (setq w3-honor-stylesheets |
338 (not w3-honor-stylesheets)) | 353 (not w3-honor-stylesheets)) |
339 :style toggle :selected w3-honor-stylesheets] | 354 :style toggle :selected w3-honor-stylesheets] |
340 ["IE 3.0 Compatible Parsing" (setq css-ie-compatibility | |
341 (not css-ie-compatibility)) | |
342 :style toggle :selected (and w3-honor-stylesheets | |
343 css-ie-compatibility)] | |
344 ["Honor Color Requests" (setq w3-user-colors-take-precedence | 355 ["Honor Color Requests" (setq w3-user-colors-take-precedence |
345 (not w3-user-colors-take-precedence)) | 356 (not w3-user-colors-take-precedence)) |
346 :style toggle :selected (not w3-user-colors-take-precedence)] | 357 :style toggle :selected (not w3-user-colors-take-precedence)] |
347 "---" | 358 "---" |
348 ["Reload Stylesheets" w3-refresh-stylesheets t] | 359 ["Reload Stylesheets" w3-refresh-stylesheets t] |
374 | 385 |
375 (defconst w3-menu-help-menu | 386 (defconst w3-menu-help-menu |
376 (list | 387 (list |
377 "Help" | 388 "Help" |
378 ["About Emacs-w3" (w3-fetch "about:") t] | 389 ["About Emacs-w3" (w3-fetch "about:") t] |
379 ["Manual" (w3-fetch (concat w3-documentation-root "w3_toc.html")) t] | 390 ["Manual" (w3-fetch (concat w3-documentation-root "docs/w3_toc.html")) t] |
380 "---" | 391 "---" |
381 ["Version Information..." | 392 ["Version Information..." |
382 (w3-fetch | 393 (w3-fetch |
383 (concat w3-documentation-root "help_on_" w3-version-number ".html")) | 394 (concat w3-documentation-root "help/version_" w3-version-number ".html")) |
384 t] | 395 t] |
385 ["On Window" (w3-fetch (concat w3-documentation-root "help/window.html")) t] | 396 ["On FAQ" (w3-fetch (concat w3-documentation-root "help/FAQ.html")) t] |
386 ["On FAQ" (w3-fetch (concat w3-documentation-root"help/FAQ.html")) t] | |
387 "---" | 397 "---" |
388 ["Mail Developer(s)" w3-submit-bug t] | 398 ["Mail Developer(s)" w3-submit-bug t] |
389 ) | 399 ) |
390 "W3 menu help list.") | 400 "W3 menu help list.") |
391 | 401 |
636 w3-preferences-cancel-hook | 646 w3-preferences-cancel-hook |
637 w3-preferences-default-hook | 647 w3-preferences-default-hook |
638 w3-preferences-ok-hook | 648 w3-preferences-ok-hook |
639 w3-preferences-setup-hook | 649 w3-preferences-setup-hook |
640 w3-source-file-hook | 650 w3-source-file-hook |
641 css-ie-compatibility | |
642 w3-toolbar-orientation | 651 w3-toolbar-orientation |
643 w3-toolbar-type | 652 w3-toolbar-type |
644 w3-use-menus | 653 w3-use-menus |
645 w3-user-colors-take-precedence | 654 w3-user-colors-take-precedence |
646 ) | 655 ) |