File: cbb

package info (click to toggle)
cbb 0.73-4
  • links: PTS
  • area: main
  • in suites: hamm
  • size: 1,620 kB
  • ctags: 650
  • sloc: tcl: 4,388; perl: 3,843; makefile: 140; sh: 2
file content (140 lines) | stat: -rw-r--r-- 4,690 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
#!/usr/bin/wish4.2 -f
#
#  'CBB' -- Check Book Balancer
#           Front end to the perl engine.
#
#  Written by Curtis Olson.  Started August 25, 1994.
#
#  Copyright (C) 1994 - 1997  Curtis L. Olson  - curt@sledge.mn.org
#
#  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, write to the Free Software
#  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
# $Id: cbb,v 2.20 1997/05/06 02:35:01 curt Exp $
# (Log is kept at end of this file)


# the following is ok as [pwd] instead of [mypwd].  The [mypwd] routine
# hasn't been loaded yet anyways ... :-)
set lib_path [pwd]

# Load first tcl piece (creates splash screen procedure)
source "$lib_path/init.tcl"

# disable main window and draw splash screen
wm withdraw .
cbb_splash

# Load the rest of the tcl pieces
source "$lib_path/balance.tcl"
source "$lib_path/balloon.tcl"
source "$lib_path/bindings.tcl"
source "$lib_path/categories.tcl"
source "$lib_path/common.tcl"
source "$lib_path/file.tcl"
source "$lib_path/filebox.tcl"
source "$lib_path/help.tcl"
source "$lib_path/main.tcl"
source "$lib_path/menu.tcl"
source "$lib_path/prefs.tcl"
source "$lib_path/reports.tcl"
source "$lib_path/splits.tcl"
source "$lib_path/undo.tcl"

# initialize variables, parse command line, setup main window, etc.
cbb_setup


# ----------------------------------------------------------------------------
# $Log: cbb,v $
# Revision 2.20  1997/05/06 02:35:01  curt
# Added "source prefs.tcl"
#
# Revision 2.19  1996/12/17 14:53:53  curt
# Updated copyright date.
#
# Revision 2.18  1996/12/16 04:18:14  curt
# Continuing the great overhaul of December 1996.
#
# Revision 2.17  1996/12/14 17:15:21  curt
# The great overhaul of December '96.
#
# Revision 2.16  1996/12/13 00:12:43  curt
# Added reports.tcl
#
# Revision 2.15  1996/12/11 18:33:29  curt
# Ran a spell checker.
#
# Revision 2.14  1996/12/11 04:32:27  curt
# Several minor tweaks.
#
# Revision 2.13  1996/12/11 01:03:41  curt
# Added balloon help support.
#
# Revision 2.12  1996/12/08 07:39:56  curt
# Rearranged quite a bit of code.
# Put most global variables in cbb() structure.
#
# Revision 2.11  1996/10/03 21:29:18  curt
# Added a devel menu to assist in development.  Many changes to the code
# can be re-sourced in without restarting the application.
#
# Revision 2.10  1996/10/03 03:52:56  curt
# CBB now determines the current century automatically ... no need for it
# to be hard coded.  Removed all hardcoded instances of the century (especially
# in reports.pl and recur.pl)
#
# Added an optional --debug flag to the invocation of CBB.
#
# Revision 2.9  1996/10/02 19:37:17  curt
# Replaced instances of hardcoded century (19) with a variable.  We need to
# know the current century in cases where it is not provided and it is
# assumed to be the current century.  Someday I need to figure out how
# to determine the current century, but I have a couple of years to do it. :-)
#
# I still need to fix conf-reports and reports.pl
#
# Revision 2.8  1996/09/30 15:14:34  curt
# Updated CBB URL, and hardwired wish path.
#
# Revision 2.7  1996/09/27 21:43:39  curt
# Added a text version of the manual to the Help menu.
#
# Revision 2.6  1996/09/26 19:53:36  curt
# Worked on splits totals to automatically keep track of the difference.
# Touch up tab completion.
#
# Revision 2.5  1996/09/14 16:51:30  curt
# Fixed a stupid bug in a debug statement that caused syntax errors when
# attempting to balance.
#
# Revision 2.4  1996/08/14 17:10:55  curt
# Add an "if $debug" wrapper around a puts statement.
#
# Revision 2.3  1996/07/13 02:57:36  curt
# Version 0.65
# Packing Changes
# Documentation changes
# Changes to handle a value in both debit and credit fields.
#
# Revision 2.2  1996/03/03  00:16:09  curt
# Modified Files:  cbb categories.pl wrapper.pl file.tk main.tk menu.tk
#   Added an account list at the bottom of the screen.  Thanks to:
#   Cengiz Alaettinoglu <cengiz@ISI.EDU> for this great addition.
#
# Revision 2.1  1996/02/27  05:35:33  curt
# Just stumbling around a bit with cvs ... :-(
#
# Revision 2.0  1996/02/27  04:40:42  curt
# Initial 2.0 revision.  See "Log" files for old history.