home *** CD-ROM | disk | FTP | other *** search
/ Chip: Linux Special / CorelLinux_CHIP.iso / live / usr / X11R6 / bin / cbb < prev    next >
Encoding:
Tcl/Tk script  |  1998-10-07  |  4.8 KB  |  152 lines
  1. #!/usr/bin/wish -f
  2. #
  3. #  'CBB' -- Check Book Balancer
  4. #           Front end to the perl engine.
  5. #
  6. #  Written by Curtis Olson.  Started August 25, 1994.
  7. #
  8. #  Copyright (C) 1994 - 1997  Curtis L. Olson  - curt@sledge.mn.org
  9. #
  10. #  This program is free software; you can redistribute it and/or modify
  11. #  it under the terms of the GNU General Public License as published by
  12. #  the Free Software Foundation; either version 2 of the License, or
  13. #  (at your option) any later version.
  14. #
  15. #  This program is distributed in the hope that it will be useful,
  16. #  but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. #  GNU General Public License for more details.
  19. #
  20. #  You should have received a copy of the GNU General Public License
  21. #  along with this program; if not, write to the Free Software
  22. #  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  23. #
  24. # $Id: cbb,v 2.21 1998/08/14 14:28:33 curt Exp $
  25. # (Log is kept at end of this file)
  26.  
  27.  
  28. # the following is ok as [pwd] instead of [mypwd].  The [mypwd] routine
  29. # hasn't been loaded yet anyways ... :-)
  30. set lib_path "/usr/X11R6/lib/X11/cbb"
  31.  
  32. # Load first tcl piece (creates splash screen procedure)
  33. source "$lib_path/init.tcl"
  34.  
  35. # read the default user files
  36. set cbb(splash) 1
  37. cbb_init_vars
  38.  
  39. if { $cbb(splash) } {
  40.     # disable main window and draw splash screen
  41.     wm withdraw .
  42.     cbb_splash
  43. }
  44.  
  45. # Load the rest of the tcl pieces
  46. source "$lib_path/balance.tcl"
  47. source "$lib_path/balloon.tcl"
  48. source "$lib_path/bindings.tcl"
  49. source "$lib_path/categories.tcl"
  50. source "$lib_path/common.tcl"
  51. source "$lib_path/file.tcl"
  52. source "$lib_path/filebox.tcl"
  53. source "$lib_path/help.tcl"
  54. source "$lib_path/main.tcl"
  55. source "$lib_path/menu.tcl"
  56. source "$lib_path/prefs.tcl"
  57. source "$lib_path/reports.tcl"
  58. source "$lib_path/splits.tcl"
  59. source "$lib_path/undo.tcl"
  60.  
  61. # initialize variables, parse command line, setup main window, etc.
  62. cbb_setup
  63.  
  64.  
  65. # ----------------------------------------------------------------------------
  66. # $Log: cbb,v $
  67. # Revision 2.21  1998/08/14 14:28:33  curt
  68. # Added desc-pie graph.
  69. # Added option to eliminate splash screen.
  70. # Other misc. tweaks and bug fixes.
  71. #
  72. # Revision 2.20  1997/05/06 02:35:01  curt
  73. # Added "source prefs.tcl"
  74. #
  75. # Revision 2.19  1996/12/17 14:53:53  curt
  76. # Updated copyright date.
  77. #
  78. # Revision 2.18  1996/12/16 04:18:14  curt
  79. # Continuing the great overhaul of December 1996.
  80. #
  81. # Revision 2.17  1996/12/14 17:15:21  curt
  82. # The great overhaul of December '96.
  83. #
  84. # Revision 2.16  1996/12/13 00:12:43  curt
  85. # Added reports.tcl
  86. #
  87. # Revision 2.15  1996/12/11 18:33:29  curt
  88. # Ran a spell checker.
  89. #
  90. # Revision 2.14  1996/12/11 04:32:27  curt
  91. # Several minor tweaks.
  92. #
  93. # Revision 2.13  1996/12/11 01:03:41  curt
  94. # Added balloon help support.
  95. #
  96. # Revision 2.12  1996/12/08 07:39:56  curt
  97. # Rearranged quite a bit of code.
  98. # Put most global variables in cbb() structure.
  99. #
  100. # Revision 2.11  1996/10/03 21:29:18  curt
  101. # Added a devel menu to assist in development.  Many changes to the code
  102. # can be re-sourced in without restarting the application.
  103. #
  104. # Revision 2.10  1996/10/03 03:52:56  curt
  105. # CBB now determines the current century automatically ... no need for it
  106. # to be hard coded.  Removed all hardcoded instances of the century (especially
  107. # in reports.pl and recur.pl)
  108. #
  109. # Added an optional --debug flag to the invocation of CBB.
  110. #
  111. # Revision 2.9  1996/10/02 19:37:17  curt
  112. # Replaced instances of hardcoded century (19) with a variable.  We need to
  113. # know the current century in cases where it is not provided and it is
  114. # assumed to be the current century.  Someday I need to figure out how
  115. # to determine the current century, but I have a couple of years to do it. :-)
  116. #
  117. # I still need to fix conf-reports and reports.pl
  118. #
  119. # Revision 2.8  1996/09/30 15:14:34  curt
  120. # Updated CBB URL, and hardwired wish path.
  121. #
  122. # Revision 2.7  1996/09/27 21:43:39  curt
  123. # Added a text version of the manual to the Help menu.
  124. #
  125. # Revision 2.6  1996/09/26 19:53:36  curt
  126. # Worked on splits totals to automatically keep track of the difference.
  127. # Touch up tab completion.
  128. #
  129. # Revision 2.5  1996/09/14 16:51:30  curt
  130. # Fixed a stupid bug in a debug statement that caused syntax errors when
  131. # attempting to balance.
  132. #
  133. # Revision 2.4  1996/08/14 17:10:55  curt
  134. # Add an "if $debug" wrapper around a puts statement.
  135. #
  136. # Revision 2.3  1996/07/13 02:57:36  curt
  137. # Version 0.65
  138. # Packing Changes
  139. # Documentation changes
  140. # Changes to handle a value in both debit and credit fields.
  141. #
  142. # Revision 2.2  1996/03/03  00:16:09  curt
  143. # Modified Files:  cbb categories.pl wrapper.pl file.tk main.tk menu.tk
  144. #   Added an account list at the bottom of the screen.  Thanks to:
  145. #   Cengiz Alaettinoglu <cengiz@ISI.EDU> for this great addition.
  146. #
  147. # Revision 2.1  1996/02/27  05:35:33  curt
  148. # Just stumbling around a bit with cvs ... :-(
  149. #
  150. # Revision 2.0  1996/02/27  04:40:42  curt
  151. # Initial 2.0 revision.  See "Log" files for old history.
  152.