"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "TeXmacs/progs/texmacs/menus/view-menu.scm" between
TeXmacs-1.99.4-src.tar.gz and TeXmacs-1.99.5-src.tar.gz

About: GNU TeXmacs is a what-you-see-is-what-you-get scientific text editor, which was both inspired by TeX and GNU Emacs.

view-menu.scm  (TeXmacs-1.99.4-src):view-menu.scm  (TeXmacs-1.99.5-src)
skipping to change at line 21 skipping to change at line 21
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(texmacs-module (texmacs menus view-menu) (texmacs-module (texmacs menus view-menu)
(:use (:use
(texmacs texmacs tm-view) (texmacs texmacs tm-view)
(texmacs texmacs tm-server) (texmacs texmacs tm-server)
(texmacs texmacs tm-files))) (texmacs texmacs tm-files)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Extra toolbars at the bottom
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(tm-define toolbar-search-active? #f)
(tm-define toolbar-replace-active? #f)
(tm-define toolbar-db-active? #f)
(tm-define toolbar-animate-active? #f)
(tm-widget (texmacs-bottom-toolbars)
(if toolbar-search-active?
(link search-toolbar))
(if (and toolbar-replace-active?
(not toolbar-search-active?))
(link replace-toolbar))
(if (and toolbar-db-active?
(not toolbar-search-active?)
(not toolbar-replace-active?))
(link db-toolbar))
(if (and toolbar-animate-active?
(not toolbar-search-active?)
(not toolbar-replace-active?)
(not toolbar-db-active?))
(link animate-toolbar)))
(tm-define (test-bottom-bar? which)
(cond ((== which "search")
toolbar-search-active?)
((== which "replace")
(and toolbar-replace-active?
(not toolbar-search-active?)))
((== which "database")
(and toolbar-db-active?
(not toolbar-search-active?)
(not toolbar-replace-active?)))
((== which "animate")
(and toolbar-animate-active?
(not toolbar-search-active?)
(not toolbar-replace-active?)
(not toolbar-db-active?)))
(else #f)))
(tm-define (set-bottom-bar which val)
(set! toolbar-search-active? #f)
(set! toolbar-replace-active? #f)
(set! toolbar-db-active? #f)
(set! toolbar-animate-active? #f)
(cond ((== which "search")
(set! toolbar-search-active? val))
((== which "replace")
(set! toolbar-replace-active? val))
((== which "database")
(set! toolbar-db-active? val))
((== which "animate")
(set! toolbar-animate-active? val)))
(show-bottom-tools 0 val))
(tm-define (toggle-bottom-bar which)
(:check-mark "*" test-bottom-bar?)
(set-bottom-bar which (not (test-bottom-bar? which))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; The View menu ;; The View menu
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(menu-bind view-menu (menu-bind view-menu
("Open new window" (open-window)) ("Open new window" (open-window))
("Clone window" (clone-window)) ("Clone window" (clone-window))
("Close window" (safely-kill-window)) ("Close window" (safely-kill-window))
--- ---
("Full screen mode" (toggle-full-screen-edit-mode)) ("Full screen mode" (toggle-full-screen-edit-mode))
("Presentation mode" (toggle-full-screen-mode)) ("Presentation mode" (toggle-full-screen-mode))
("Show panorama" (toggle-panorama-mode))
("Remote control" (toggle-remote-control-mode)) ("Remote control" (toggle-remote-control-mode))
--- ---
("Fit to screen" (fit-to-screen)) ("Fit to screen" (fit-to-screen))
("Fit to screen width" (fit-to-screen-width)) ("Fit to screen width" (fit-to-screen-width))
;;("Fit to screen height" (fit-to-screen-height)) ;;("Fit to screen height" (fit-to-screen-height))
("Zoom in" (zoom-in (sqrt (sqrt 2.0)))) ("Zoom in" (zoom-in (sqrt (sqrt 2.0))))
("Zoom out" (zoom-out (sqrt (sqrt 2.0)))) ("Zoom out" (zoom-out (sqrt (sqrt 2.0))))
(-> "Zoom" (-> "Zoom"
("50%" (change-zoom-factor 0.5)) ("50%" (change-zoom-factor 0.5))
("71%" (change-zoom-factor (sqrt 0.5))) ("71%" (change-zoom-factor (sqrt 0.5)))
skipping to change at line 57 skipping to change at line 119
("Header" (toggle-visible-header)) ("Header" (toggle-visible-header))
(when (visible-header?) (when (visible-header?)
("Main icon bar" (toggle-visible-icon-bar 0)) ("Main icon bar" (toggle-visible-icon-bar 0))
("Mode dependent icons" (toggle-visible-icon-bar 1)) ("Mode dependent icons" (toggle-visible-icon-bar 1))
("Focus dependent icons" (toggle-visible-icon-bar 2)) ("Focus dependent icons" (toggle-visible-icon-bar 2))
("User provided icons" (toggle-visible-icon-bar 3))) ("User provided icons" (toggle-visible-icon-bar 3)))
("Status bar" (toggle-visible-footer)) ("Status bar" (toggle-visible-footer))
(if #f ; Side tools are for now (v1.99.2) disabled. (if #f ; Side tools are for now (v1.99.2) disabled.
("Side tools" (toggle-visible-side-tools 0))) ("Side tools" (toggle-visible-side-tools 0)))
(if #f ; Search bar cannot be toggled from here, remove the menu item? (if #f ; Search bar cannot be toggled from here, remove the menu item?
("Bottom tools" (toggle-visible-bottom-tools 0)))) ("Bottom tools" (toggle-visible-bottom-tools 0)))
---
("Search toolbar" (toggle-bottom-bar "search"))
("Replace toolbar" (toggle-bottom-bar "replace"))
("Database toolbar" (toggle-bottom-bar "database"))
("Animation toolbar" (toggle-bottom-bar "animate")))
 End of changes. 3 change blocks. 
0 lines changed or deleted 62 lines changed or added

Home  |  About  |  All  |  Newest  |  Fossies Dox  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTPS