--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/energize/ostore.el	Mon Aug 13 08:45:50 2007 +0200
@@ -0,0 +1,34 @@
+;;; -*- Mode: Emacs-Lisp -*-
+;;; Adds a couple of ObjectStore commands to the Energize "Browse" menu.
+
+(defun osbrowser-sentinel (proc msg)
+  (cond ((eq (process-status proc) 'exit)
+	 (message "Osbrowser subprocess exited"))
+	((eq (process-status proc) 'signal)
+	 (message "Osbrowser subprocess killed"))))
+
+(defun os-browser () 
+  (interactive)
+  (message "Launching osbrowser.")
+  (set-process-sentinel 
+   (start-process "os-browser" "*os-browser*" "osbrowser") 
+   'osbrowser-sentinel))
+
+(defun ossd-sentinel (proc msg)
+  (cond ((eq (process-status proc) 'exit)
+	 (message "OS schema designer subprocess exited"))
+	((eq (process-status proc) 'signal)
+	 (message "OS schema designer subprocess killed"))))
+
+(defun os-schema-designer () 
+  (interactive)
+  (message "Launching ossd.")
+  (set-process-sentinel 
+   (start-process "os-schema-designer" "*os-schema-designer*" "ossd")
+   'osbrowser-sentinel))
+
+(add-menu-item '("Browse") "----" nil t)
+(add-menu-item '("Browse") "OS Browser" 'os-browser t)
+(add-menu-item '("Browse") "OS Schema Designer" 'os-schema-designer t)
+
+(provide 'ostore)