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 )