===================================================================
RCS file: /home/cvs/OpenXM/src/texmacs/asir/progs/init-asir.scm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM/src/texmacs/asir/progs/init-asir.scm	2004/02/25 14:45:28	1.1
+++ OpenXM/src/texmacs/asir/progs/init-asir.scm	2004/02/28 19:00:48	1.2
@@ -1,16 +1,17 @@
-; $OpenXM$
+; $OpenXM: OpenXM/src/texmacs/asir/progs/init-asir.scm,v 1.1 2004/02/25 14:45:28 ohara Exp $
 
-; (define (asir-initialize)
-;   (menu-extend texmacs-session-help-icons
-;     (if (and (in-asir?)
-;          (url-exists? "$OpenXM_HOME/doc/asir2000/html-eg/man_toc.html"))
-;     |
-;     ((balloon (icon "tm_help.xpm") "Asir manual")
-;      (load-help-buffer "$OpenXM_HOME/doc/asir2000/html-eg/man_toc.html")))
-; 	))
+(define (asir-initialize)
+  (menu-extend help-menu
+    (if (in-asir?) |
+      ("Risa/Asir manual" (load-buffer "http://www.math.kobe-u.ac.jp/OpenXM/Current/doc/asir2000/html-eg/man_toc.html")))
+    (if (in-asir?) |
+      ("Asir-contrib" (load-buffer "http://www.math.kobe-u.ac.jp/OpenXM/Current/doc/asir-contrib/html-en/cman-en_toc.html")))
+    (if (in-asir?) |
+      ("OpenXM Project" (load-buffer "http://www.math.kobe-u.ac.jp/OpenXM/")))
+  ))
 
 (plugin-configure asir
   (:require (url-exists-in-path? "ox_asir"))
 ;  (:initialize (asir-initialize))
   (:launch "tm_asir")
-  (:session "Asir"))
+  (:session "Risa/Asir"))