Commits

Anonymous committed 2b34846

Final Patches Before Initial Package Release

  • Participants
  • Parent commits aa62793

Comments (0)

Files changed (4)

+2003-07-29  Jake Colman  <colman@ppllc.com>
+
+	* man/oo-browser.texi: Documentation tweak
+	* man/oo-browser.texi (Eiffel Specifics):
+
+2003-07-29  Jake Colman  <colman@ppllc.com>
+
+	* br-menu.el (br-menu-common-preamble): Removed 'Support' menu option
+	* br.el: Replaced defvar with defcustom
+	* br.el (oo-browser): New.
+	* br.el (br-inherited-features-flag):
+	* br.el (br-invert-ancestors):
+	* br.el (br-keep-viewed-classes):
+	* br.el (br-report-bug):
+
 2002-01-03  Bob Weiner  <bwcto@users.sf.net>
 
 * BR-README: Updated and clarified Installation section.
     "----"
     '["Discuss-via-Email"
       (progn (br-quit)
-	     (mail nil "oo-browser-discuss@lists.sourceforge.net"
+	     (mail nil "oo-browser-discuss@xemacs.org"
 		   "Replace this line with a descriptive sentence.\nComments: Discuss a topic on the oo-browser list.")
 	     (goto-char (point-min))
 	     (search-forward "Subject: " nil t)) t]
-    '["Get-Support-via-Email"
-      (progn (br-quit)
-	     (mail nil "support@deepware.com"
-		   "Replace this line with a descriptive sentence.\nComments: Use a pre-paid support credit with Deepware.")
-	     (goto-char (point-min))
-	     (search-forward "Subject: " nil t)) t]
+;    '["Get-Support-via-Email"
+;      (progn (br-quit)
+;	     (mail nil "support@deepware.com"
+;		   "Replace this line with a descriptive sentence.\nComments: Use a pre-paid support credit with Deepware.")
+;	     (goto-char (point-min))
+;	     (search-forward "Subject: " nil t)) t]
     )))
 
 (defconst br-menu-common-postamble
 (require 'br-lib)
 
 ;;; ************************************************************************
-;;; Public variables
+;;; Customization
 ;;; ************************************************************************
 
+(defgroup oo-browser nil
+  "Multi-Language Object-Oriented Code Browser"
+  :group 'tools
+  :prefix "br-")
+
 (defconst br-feature-signature-regexp "[:|,]"
   "Regular expression that matches a feature signature but not a class name.")
 
-(defvar br-inherited-features-flag t
+(defcustom br-inherited-features-flag t
   "*If non-nil (the default), feature/element listings include all inherited features.
-If nil, only those features lexically included within a class are shown.")
+If nil, only those features lexically included within a class are shown."
+  :group 'oo-browser
+  :type 'boolean)
 
-(defvar br-protocols-with-classes-flag t
-  "*If non-nil (the default), protocols (interfaces) are included in listings of all classes or top-level classes.")
+(defcustom br-protocols-with-classes-flag t
+  "*If non-nil (the default), protocols (interfaces) are included in listings of all classes or top-level classes."
+  :group 'oo-browser
+  :type 'boolean)
 
-(defvar br-inhibit-version nil
-  "*Personal setting which if non-nil, skips version/credit information upon startup.
-The default should be left as nil, since new users may find this helpful.")
+(defcustom br-inhibit-version nil
+  "*If non-nil, skips version/credit information upon startup.
+The default should be left as nil, since new users may find this helpful."
+  :group 'oo-browser
+  :type 'boolean)
 
-(defvar br-invert-ancestors nil
-  "*Personal setting which if non-nil makes ancestors appear as do other inheritance listings.
+(defcustom br-invert-ancestors nil
+  "*If non-nil makes ancestors appear as do other inheritance listings.
 That is, parents appear above children, rather than the default, which is the
-reverse.")
+reverse."
+  :group 'oo-browser
+  :type 'boolean)
 
-(defvar br-keep-viewed-classes nil
-  "*Personal setting which if non-nil means leave all viewed classes around for later selection.  
+(defcustom br-keep-viewed-classes nil
+  "*If non-nil means leave all viewed classes around for later selection.  
 A nil value causes deletion of the last viewed class buffer whenever a new
 one is displayed.   Note this does not affect classes displayed for editing,
-all such classes are left around.")
+all such classes are left around."
+  :group 'oo-browser
+  :type 'boolean)
 
 (defconst br-min-width-window 25
   "*Minimum width of a browser class list window.
   "Send a message to the OO-Browser discussion list."
   (interactive)
   (if (br-in-browser) (br-to-view-window))
-  (hmail:compose "oo-browser@beopen.com" '(hypb:configuration)))
+  (hmail:compose "oo-browser-bugs@xemacs.org" '(hypb:configuration)))
 
 (defun br-routines (arg)
   "Display routines of the current class (prefix ARG = 1) or of the current listing if ARG is other than 0 or 1.

File man/oo-browser.texi

 @c
 @c Comment the @smallbook line out if you want to print on letter sized paper.
 @c Smallbook formats for 7x9.25 inch book-sized printing.
-@smallbook
+@c @smallbook
 @setchapternewpage odd
+@dircategory Emacs
+@direntry
+* OO-Browser: (oo-browser). The Multi-language Object-Oriented Code Browser.
+@end direntry
 @c %**end of header (This is for running Texinfo on a region.)
 @synindex vr fn
 
 @finalout
 @end iftex
 
-@c @ifinfo
-@c @format
-@c START-INFO-DIR-ENTRY
-@c * OO-Browser::                      The Multi-language Object-Oriented Code Browser
-@c END-INFO-DIR-ENTRY
-@c @end format
-@c @end ifinfo
-
 @titlepage
 @title The OO-Browser
 @subtitle The Multi-language Object-Oriented Code Browser
 @cindex Eiffel
 Eiffel support has now been updated to Eiffel version 3, to the best
 of our knowledge.  If you find any problems, please report them
-to <bug@@beopen.com>.
+to <oo-browser-bugs@@xemacs.org>.
 
 @menu
 * Eiffel Listings::