[BACK]Return to init-asir.scm CVS log [TXT][DIR] Up to [local] / OpenXM / src / texmacs / asir / progs

Diff for /OpenXM/src/texmacs/asir/progs/init-asir.scm between version 1.1 and 1.3

version 1.1, 2004/02/25 14:45:28 version 1.3, 2009/02/22 17:30:03
Line 1 
Line 1 
 ; $OpenXM$  ; $OpenXM: OpenXM/src/texmacs/asir/progs/init-asir.scm,v 1.2 2004/02/28 19:00:48 ohara Exp $
   
 ; (define (asir-initialize)  (define (asir-initialize)
 ;   (menu-extend texmacs-session-help-icons    (menu-extend help-menu
 ;     (if (and (in-asir?)      (if (in-asir?) |
 ;          (url-exists? "$OpenXM_HOME/doc/asir2000/html-eg/man_toc.html"))        ("Risa/Asir manual" (load-buffer "http://www.math.kobe-u.ac.jp/OpenXM/Current/doc/asir2000/html-en/man_toc.html")))
 ;     |      (if (in-asir?) |
 ;     ((balloon (icon "tm_help.xpm") "Asir manual")        ("Asir-contrib" (load-buffer "http://www.math.kobe-u.ac.jp/OpenXM/Current/doc/asir-contrib/html-en/cman-en_toc.html")))
 ;      (load-help-buffer "$OpenXM_HOME/doc/asir2000/html-eg/man_toc.html")))      (if (in-asir?) |
 ;       ))        ("OpenXM Project" (load-buffer "http://www.math.kobe-u.ac.jp/OpenXM/")))
     ))
   
 (plugin-configure asir  (plugin-configure asir
   (:require (url-exists-in-path? "ox_asir"))    (:require (url-exists-in-path? "ox_asir"))
 ;  (:initialize (asir-initialize))  ;  (:initialize (asir-initialize))
   (:launch "tm_asir")    (:launch "tm_asir")
   (:session "Asir"))    (:session "Risa/Asir"))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>