"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "TeXmacs/progs/generic/generic-menu.scm" between
TeXmacs-1.99.8-src.tar.gz and TeXmacs-1.99.9-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.

generic-menu.scm  (TeXmacs-1.99.8-src):generic-menu.scm  (TeXmacs-1.99.9-src)
skipping to change at line 16 skipping to change at line 16
;; COPYRIGHT : (C) 2010 Joris van der Hoeven ;; COPYRIGHT : (C) 2010 Joris van der Hoeven
;; ;;
;; This software falls under the GNU general public license version 3 or later. ;; This software falls under the GNU general public license version 3 or later.
;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE ;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE
;; in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>. ;; in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(texmacs-module (generic generic-menu) (texmacs-module (generic generic-menu)
(:use (utils edit variants) (:use (utils edit variants)
(utils edit selections)
(generic generic-edit) (generic generic-edit)
(generic format-edit) (generic format-edit)
(generic format-geometry-edit) (generic format-geometry-edit)
(generic document-edit) (generic document-edit)
(source source-edit))) (source source-edit)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Variants ;; Variants
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
skipping to change at line 237 skipping to change at line 238
(pick-background "" (setter answer)) (pick-background "" (setter answer))
--- ---
(if (in? l (list "locus-color" "visited-color")) (if (in? l (list "locus-color" "visited-color"))
((check "Preserve" "*" (test-init? l "preserve")) ((check "Preserve" "*" (test-init? l "preserve"))
(set-init-env l "preserve"))) (set-init-env l "preserve")))
("Palette" (interactive-color setter '())) ("Palette" (interactive-color setter '()))
("Pattern" (open-pattern-selector setter "1cm")) ("Pattern" (open-pattern-selector setter "1cm"))
("Other" (init-interactive-env l))))) ("Other" (init-interactive-env l)))))
(tm-menu (focus-parameter-menu-item l) (tm-menu (focus-parameter-menu-item l)
(:require (and (tree-label-parameter? (string->symbol l))
(== (tree-label-type (string->symbol l)) "font-size")))
(-> (eval (focus-tag-name (string->symbol l)))
(with setter (lambda (col) (init-env-tree l col))
((check "Default" "*" (test-default? l)) (init-default l))
---
((check "Small" "*" (test-init? l "0.841")) (init-env l "0.841"))
((check "Normal" "*" (test-init? l "1")) (init-env l "1"))
((check "Large" "*" (test-init? l "1.189")) (init-env l "1.189"))
((check "Very large" "*" (test-init? l "1.414")) (init-env l "1.414"))
((check "Huge" "*" (test-init? l "1.682")) (init-env l "1.682"))
---
("Other" (init-interactive-env l)))))
(tm-menu (focus-parameter-menu-item l)
(:require (parameter-choice-list l)) (:require (parameter-choice-list l))
(with cs (parameter-choice-list l) (with cs (parameter-choice-list l)
(-> (eval (focus-tag-name (string->symbol l))) (-> (eval (focus-tag-name (string->symbol l)))
(dynamic (init-env-menu l cs))))) (dynamic (init-env-menu l cs)))))
(tm-define (parameter-show-in-menu? l) #t) (tm-define (parameter-show-in-menu? l) #t)
(tm-menu (focus-parameters-menu t) (tm-menu (focus-parameters-menu t)
(with ps (list-filter (search-tag-parameters t) parameter-show-in-menu?) (with ps (list-filter (search-tag-parameters t) parameter-show-in-menu?)
(if (nnull? ps) (if (nnull? ps)
 End of changes. 2 change blocks. 
0 lines changed or deleted 16 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)