"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "TeXmacs/progs/generic/insert-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.

insert-menu.scm  (TeXmacs-1.99.4-src):insert-menu.scm  (TeXmacs-1.99.5-src)
skipping to change at line 98 skipping to change at line 98
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Insert images ;; Insert images
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(menu-bind insert-image-menu (menu-bind insert-image-menu
(if (and (style-has? "env-float-dtd") (in-text?)) (if (and (style-has? "env-float-dtd") (in-text?))
("Small figure" (make 'small-figure)) ("Small figure" (make 'small-figure))
("Big figure" (make 'big-figure)) ("Big figure" (make 'big-figure))
---) ---)
("Draw image" (make-graphics))
(when (selection-active-small?)
("Draw over selection" (make-graphics-over-selection)))
(if (in-math?)
("Commutative diagram" (make-cd)))
("Link image" (choose-file make-link-image "Load image" "image")) ("Link image" (choose-file make-link-image "Load image" "image"))
("Insert image" (choose-file make-inline-image "Load image" "image")) ("Insert image" (choose-file make-inline-image "Load image" "image"))
(if (detailed-menus?) (if (detailed-menus?)
("Thumbnails" (make-thumbnails))) ("Thumbnails" (make-thumbnails)))
(if (or (lazy-plugin-force) (if (or (lazy-plugin-force)
(and (style-has? "scripts-dtd") (scripts-defined? "gnuplot"))) (and (style-has? "scripts-dtd") (scripts-defined? "gnuplot")))
--- (-> "Plot" (link scripts-plot-menu)))
(-> "Plot" (link scripts-plot-menu))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Insert animations
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(menu-bind insert-animation-menu
("Fixed" (interactive make-anim-constant))
("Compose" (make 'anim-compose))
("Repeat" (make 'anim-repeat))
---
(-> "Translate"
("Rightwards" (interactive make-anim-translate-right))
("Leftwards" (interactive make-anim-translate-left))
("Upwards" (interactive make-anim-translate-up))
("Downwards" (interactive make-anim-translate-down)))
(-> "Progressive"
("Rightwards" (interactive make-anim-progressive-right))
("Leftwards" (interactive make-anim-progressive-left))
("Upwards" (interactive make-anim-progressive-up))
("Downwards" (interactive make-anim-progressive-down))
("From center" (interactive make-anim-progressive-center)))
--- ---
("Animation" (choose-file make-animation "Load file" "animation")) ("Draw image" (make-graphics))
("Sound" (choose-file make-sound "Load file" "sound"))) (when (selection-active-small?)
("Draw over selection" (make-graphics-over-selection)))
("Ink here" (make-graphics-over))
(if (in-math?)
("Commutative diagram" (make-cd))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; The main Insert menu ;; The main Insert menu
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(menu-bind texmacs-insert-menu (menu-bind texmacs-insert-menu
(if (not (in-text?)) (if (not (in-text?))
("Text" (make 'text))) ("Text" (make 'text)))
(if (not (in-math?)) (if (not (in-math?))
(-> "Mathematics" (link insert-math-menu))) (-> "Mathematics" (link insert-math-menu)))
 End of changes. 3 change blocks. 
30 lines changed or deleted 7 lines changed or added

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