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

2001-10-25 Dave Peticolas <dave@krondo.com>

Browse Source 
* src/scm/Makefile.am: remove slib-backup.scm and startup.scm

	* src/scm/bootstrap.scm.in: remove out-of-date docs

	* src/scm/main.scm: load printing/print-check.scm

	* src/import-export/qif-import/Makefile.am: remove simple-obj.scm

	* src/import-export/qif-import/qif-import.scm: don't load
	simple-obj.scm

	* src/guile/gw-gnc-spec.scm: remove printing g-wraps

	* src/gnome-utils/gw-gnome-utils-spec.scm: add printing g-wraps

	* src/engine/Account.c (xaccAccountSetSlots_nc): set core_dirty

	* src/app-utils/Makefile.am: add simple-obj.scm

	* src/app-utils/app-utils.scm: export simple-obj api


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5723 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2001-10-25 08:10:51 +00:00
parent 33cb44bfc9
commit 7eefddba95
13 changed files with 108 additions and 1254 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ChangeLog
View File

@ -1,3 +1,26 @@
2001-10-25 Dave Peticolas <dave@krondo.com>
* src/scm/Makefile.am: remove slib-backup.scm and startup.scm
* src/scm/bootstrap.scm.in: remove out-of-date docs
* src/scm/main.scm: load printing/print-check.scm
* src/import-export/qif-import/Makefile.am: remove simple-obj.scm
* src/import-export/qif-import/qif-import.scm: don't load
simple-obj.scm
* src/guile/gw-gnc-spec.scm: remove printing g-wraps
* src/gnome-utils/gw-gnome-utils-spec.scm: add printing g-wraps
* src/engine/Account.c (xaccAccountSetSlots_nc): set core_dirty
* src/app-utils/Makefile.am: add simple-obj.scm
* src/app-utils/app-utils.scm: export simple-obj api
2001-10-24 Joshua Sled <jsled@asynchronous.org>
* src/gnome/dialog-scheduledxaction.c (sxed_delete_event): Added.

1
src/app-utils/Makefile.am
View File

@ -62,6 +62,7 @@ gncscm_DATA = \
hooks.scm \
options.scm \
prefs.scm \
simple-obj.scm \
utilities.scm
gwmoddir = ${GNC_GWRAP_LIBDIR}

10
src/app-utils/app-utils.scm
View File

@ -232,6 +232,15 @@
(export gnc:*new-book-hook*)
(export gnc:*book-closed-hook*)
;; simple-obj
(export make-simple-class)
(export simple-obj-getter)
(export simple-obj-setter)
(export simple-obj-print)
(export simple-obj-to-list)
(export simple-obj-from-list)
(export make-simple-obj)
;; utilities
(export hash-fold)
(export item-list->hash!)
@ -245,6 +254,7 @@
(load-from-path "hooks.scm")
(load-from-path "prefs.scm")
(load-from-path "date-utilities.scm")
(load-from-path "simple-obj.scm")
(load-from-path "utilities.scm")
(gnc:hook-add-dangler gnc:*startup-hook*

0
src/import-export/qif-import/simple-obj.scm → src/app-utils/simple-obj.scm
View File

8
src/engine/Account.c
View File

@ -641,15 +641,15 @@ void
xaccAccountSetSlots_nc(Account *account, kvp_frame *frame)
{
if (!account) return;
if (frame == account->kvp_data) return;
xaccAccountBeginEdit (account);
if(account->kvp_data)
xaccAccountBeginEdit (account);
if (account->kvp_data && frame != account->kvp_data)
{
kvp_frame_delete (account->kvp_data);
}
account->kvp_data = frame;
xaccAccountCommitEdit (account);
account->core_dirty = TRUE;
xaccAccountCommitEdit (account);
}

68
src/gnome-utils/gw-gnome-utils-spec.scm
View File

@ -38,6 +38,7 @@
(lambda (client-only?)
(list
"#include <gnc-mdi-utils.h>\n"
"#include <print-session.h>\n"
)))
(let ((nnt (gw:wrap-non-native-type
@ -77,4 +78,71 @@
"gnc_mdi_restore" '((<gnc:mdi-info*> mi)
((<gw:m-chars-caller-owned> gw:const) bookname))
"Restore MDI window configuration for the specified book")
(let ((nnt (gw:wrap-non-native-type
mod
'<gnc:PrintSession*>
"PrintSession*" "const PrintSession*")))
#t)
(let ((nnt (gw:wrap-non-native-type
mod
'<gnc:PrintDialog*>
"PrintDialog*" "const PrintDialog*")))
#t)
(let ((nnt (gw:wrap-non-native-type
mod
'<gnc:PaperDialog*>
"PaperDialog*" "const PaperDialog*")))
#t)
(gw:wrap-function
mod
'gnc:print-session-create
'<gnc:PrintSession*>
"gnc_print_session_create"
'()
"Start a new print session.")
(gw:wrap-function
mod
'gnc:print-session-destroy
'<gw:void>
"gnc_print_session_destroy"
'((<gnc:PrintSession*> p))
"Free a print session's resources")
(gw:wrap-function
mod
'gnc:print-session-moveto
'<gw:void>
"gnc_print_session_moveto"
'((<gnc:PrintSession*> p) (<gw:double> x) (<gw:double> y))
"Move the current point")
(gw:wrap-function
mod
'gnc:print-session-text
'<gw:void>
"gnc_print_session_text"
'((<gnc:PrintSession*> p) ((<gw:m-chars-caller-owned> gw:const) text))
"Show some text in Courier 16")
(gw:wrap-function
mod
'gnc:print-session-done
'<gw:void>
"gnc_print_session_done"
'((<gnc:PrintSession*> p))
"Let the print context know you're finished with it.")
(gw:wrap-function
mod
'gnc:print-session-print
'<gw:void>
"gnc_print_session_print"
'((<gnc:PrintSession*> p))
"Show the GNOME print dialog to start printing.")
)

3
src/import-export/qif-import/Makefile.am
View File

@ -31,8 +31,7 @@ gncscm_DATA = \
qif-objects.scm \
qif-parse.scm \
qif-to-gnc.scm \
qif-utils.scm \
simple-obj.scm
qif-utils.scm
gladedir = ${GNC_GLADE_DIR}
glade_DATA = qif.glade

1
src/import-export/qif-import/qif-import.scm
View File

@ -20,7 +20,6 @@
(gnc:module-load "gnucash/engine" 0)
(gnc:module-load "gnucash/app-utils" 0)
(load-from-path "qif-import/simple-obj.scm")
(load-from-path "qif-import/qif-objects.scm") ;; class definitions
(load-from-path "qif-import/qif-parse.scm") ;; string-to-value
(load-from-path "qif-import/qif-utils.scm")

2
src/scm/Makefile.am
View File

@ -15,8 +15,6 @@ gnc_regular_scm_files = \
main.scm \
main-window.scm \
path.scm \
slib-backup.scm \
startup.scm \
substring-search.scm \
tip-list.scm \
tip-of-the-day.scm \

5
src/scm/bootstrap.scm.in
View File

@ -16,11 +16,6 @@
;; Free Software Foundation Voice: +1-617-542-5942
;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652
;; Boston, MA 02111-1307, USA gnu@gnu.org
;;
;; Minimal startup code. This file should just contain enough code to
;; get gnc:load defined, and the "default" environment setup. After
;; that *everything* should be loaded via gnc:load, starting with
;; startup.scm
(define-module (gnucash bootstrap))

1
src/scm/main.scm
View File

@ -167,6 +167,7 @@
(load-from-path "extensions.scm")
(load-from-path "main-window.scm")
(load-from-path "tip-of-the-day.scm")
(load-from-path "printing/print-check.scm")
(gnc:use-guile-module-here! '(gnucash price-quotes))

1212
src/scm/slib-backup.scm
View File

File diff suppressed because it is too large Load Diff

28
src/scm/startup.scm
View File

@ -1,28 +0,0 @@
;; startup.scm
;;
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 2 of
;; the License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, contact:
;;
;; Free Software Foundation Voice: +1-617-542-5942
;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652
;; Boston, MA 02111-1307, USA gnu@gnu.org
;; Load all the files we need from wherever the user has specified.
;; None of these loads will be affected by any command line arguments
;; since arguments aren't parsed until gnc:main is executed.
;;(if gnc:*load-slib-backup*
;; (gnc:load "slib-backup.scm"))
;;
;;(gnc:load "depend.scm")
;;(gnc:load "main.scm")