IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

* src/scm/main.scm:

Browse Source 
* src/scm/command-line.scm:
	  Add a flag to make it easier to turn on and off the various debug
	  messages (except the tip-list, which needs to be done manually).
	* src/scm/tip-list.scm: change the 'development' message


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7954 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins 2003-02-07 15:19:03 +00:00
parent 959e192d04
commit ab6bfbe2b3
4 changed files with 30 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ChangeLog
View File

@ -1,3 +1,11 @@
2003-02-07 Derek Atkins <derek@ihtfp.com>
* src/scm/main.scm:
* src/scm/command-line.scm:
Add a flag to make it easier to turn on and off the various debug
messages (except the tip-list, which needs to be done manually).
* src/scm/tip-list.scm: change the 'development' message
2003-02-05 Derek Atkins <derek@ihtfp.com>
* src/engine/gnc-lot-p.h: some strange platforms assume "char" is

2
src/scm/command-line.scm
View File

@ -344,7 +344,7 @@ the current value of the path.")
(define (gnc:prefs-show-version)
(display "GnuCash ")
(display gnc:version)
(display " development version")
(if gnc:*is-development-version?* (display " development version"))
(newline))
(define (gnc:prefs-show-usage)

29
src/scm/main.scm
View File

@ -100,6 +100,15 @@
;;(use-modules (ice-9 statprof))
;;
;; A flag: is this a development version? This will flag whether or not
;; to print out various 'development version' strings throughout the code.
;; #t == development version, #f == stable version
;;
;; NOTE: You still need to comment out the message in tip-list.scm by hand!
;;
(define gnc:*is-development-version?* #t)
;; A list of things to do when in batch mode after the initial
;; startup. List items may be strings, in which case they're read and
;; evaluated or procedures, in which case they're just executed.
@ -337,15 +346,17 @@ string and 'directories' must be a list of strings."
(loop prefixes (cdr dirs))))))
(define (gnc:print-unstable-message)
(display
(string-append
"\n\n"
(_ "This is a development version. It may or may not work.\n")
(_ "Report bugs and other problems to gnucash-devel@gnucash.org.\n")
(_ "You can also lookup and file bug reports at http://bugzilla.gnome.org\n")
(_ "The last stable version was ") "GnuCash 1.8.0" "\n"
(_ "The next stable version will be ") "GnuCash 2.0"
"\n\n")))
(if
gnc:*is-development-version?*
(display
(string-append
"\n\n"
(_ "This is a development version. It may or may not work.\n")
(_ "Report bugs and other problems to gnucash-devel@gnucash.org.\n")
(_ "You can also lookup and file bug reports at http://bugzilla.gnome.org\n")
(_ "The last stable version was ") "GnuCash 1.8.0" "\n"
(_ "The next stable version will be ") "GnuCash 2.0"
"\n\n"))))
(define (gnc:startup-pass-1)
(gnc:debug "starting up (1).")

2
src/scm/tip-list.scm
View File

@ -2,7 +2,7 @@
(N_ "Warning!! This is a DEVELOPMENT version of GnuCash.
It probably has lots of bugs and unstable features!
If you are looking for a stable personal finance application,
you should use the latest release of GnuCash 1.6.")
you should use the latest release of GnuCash 1.8.")
(N_ "The GnuCash online manual has lots of helpful information.
If you are upgrading from earlier versions of GnuCash, the section