home *** CD-ROM | disk | FTP | other *** search
/ Chip: Linux Special / CorelLinux_CHIP.iso / live / usr / X11R6 / lib / X11 / cbb / help.tcl < prev    next >
Encoding:
Tcl/Tk script  |  1998-10-07  |  5.9 KB  |  172 lines
  1. #!/usr/bin/wish -f
  2. #  'CBB' -- Check Book Balancer
  3. #
  4. #   help.tcl -- help routines
  5. #
  6. #  Written by Curtis Olson.  Started December 7, 1996.
  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: help.tcl,v 2.6 1997/04/23 18:10:02 curt Exp $
  25. # (Log is kept at end of this file)
  26.  
  27.  
  28. #------------------------------------------------------------------------------
  29. # Help menu procedures
  30. #------------------------------------------------------------------------------
  31.  
  32. proc cbbWindow.aboutwin name {
  33.     global cbb lib_path
  34.  
  35.     if {[winfo exists .aboutwin] == 1} {
  36.     wm withdraw .aboutwin
  37.         wm deiconify .aboutwin
  38.     return                
  39.     }
  40.  
  41.     option add *font $cbb(msg_text_font)
  42.     
  43.     toplevel .aboutwin
  44.  
  45.     wm title .aboutwin "About $name"
  46.     wm iconname .aboutwin "About $name"
  47.     frame .aboutwin.frame -borderwidth 2 -relief raised
  48.     frame .aboutwin.frame.a -borderwidth 2
  49.     frame .aboutwin.frame.d -borderwidth 2
  50.  
  51.     button .aboutwin.frame.a.but -bitmap @$lib_path/images/$cbb(author_xbm) \
  52.         -relief ridge 
  53.     label .aboutwin.frame.a.l1 -text "The wise man saves for the future ..."
  54.     label .aboutwin.frame.a.l2 -text "... the fool spends everything he gets."
  55.     label .aboutwin.frame.a.l3 -text "Proverbs 21:20"
  56.     label .aboutwin.frame.a.l4 -text "``$name'' -- a Check Book Balancer for \
  57.         X, $cbb(version)"
  58.     label .aboutwin.frame.a.l5 -text "Copyright (C) 1994 - 1997  \
  59.         Curtis L. Olson"
  60.     label .aboutwin.frame.a.l6 -text "curt@sledge.mn.org"
  61.     label .aboutwin.frame.a.l7 -text "http://www.menet.umn.edu/~curt"
  62.     button .aboutwin.frame.d.dismiss -text Dismiss \
  63.         -command "destroy .aboutwin" -font $cbb(button_font)
  64.  
  65.     pack .aboutwin.frame -side top -fill both -expand 1
  66.     pack .aboutwin.frame.d -side bottom -fill x
  67.     pack .aboutwin.frame.a -side top -fill both -expand 1
  68.     pack .aboutwin.frame.a.but -padx 8 -pady 8 -side left -fill both -expand 1
  69.     pack .aboutwin.frame.a.l1 .aboutwin.frame.a.l2 .aboutwin.frame.a.l3 \
  70.         .aboutwin.frame.a.l4 .aboutwin.frame.a.l5 \
  71.         .aboutwin.frame.a.l6 .aboutwin.frame.a.l7 \
  72.             -ipadx 4m -side top -fill both -expand 1
  73.     pack .aboutwin.frame.d.dismiss -side bottom -fill x -expand 1 \
  74.     -padx 8 -pady 4
  75. }
  76.  
  77.  
  78. proc cbbWindow.helpwin {} {
  79.     global cbb lib_path
  80.  
  81.     if {[winfo exists .helpwin] == 1} {
  82.     wm withdraw .helpwin
  83.         wm deiconify .helpwin
  84.     return                
  85.     }
  86.  
  87.     option add *font $cbb(msg_text_font)
  88.     
  89.     toplevel .helpwin
  90.  
  91.     wm title .helpwin "Help (Text)"
  92.     wm iconname .helpwin "Help"
  93.     frame .helpwin.frame -borderwidth 2 -relief raised
  94.     frame .helpwin.frame.l -borderwidth 2
  95.     frame .helpwin.frame.d -borderwidth 2
  96.     pack .helpwin.frame -side top -fill both -expand 1
  97.     pack .helpwin.frame.d -side bottom -fill x
  98.     pack .helpwin.frame.l -side top -fill both -expand 1
  99.  
  100.     text .helpwin.frame.l.list -width 80 -height 40 -relief sunken \
  101.             -font $cbb(fixed_font) \
  102.         -yscrollcommand ".helpwin.frame.l.scroll set"
  103.     
  104.     scrollbar .helpwin.frame.l.scroll -command ".helpwin.frame.l.list yview" \
  105.     -relief flat
  106.     pack .helpwin.frame.l.scroll -side right -fill y -expand 0
  107.     pack .helpwin.frame.l.list -side left -fill both -expand 1
  108.  
  109.     bind .helpwin <KeyPress-Down> { .helpwin.frame.l.list \
  110.         yview scroll 1 units }
  111.     bind .helpwin <Control-KeyPress-n> { .helpwin.frame.l.list \
  112.         yview scroll 1 units }
  113.     bind .helpwin <KeyPress-n> { .helpwin.frame.l.list \
  114.         yview scroll 1 units }
  115.     bind .helpwin <KeyPress-j> { .helpwin.frame.l.list \
  116.         yview scroll 1 units }
  117.  
  118.     bind .helpwin <KeyPress-Up> { .helpwin.frame.l.list \
  119.         yview scroll -1 units }
  120.     bind .helpwin <Control-KeyPress-p> { .helpwin.frame.l.list \
  121.         yview scroll -1 units }
  122.     bind .helpwin <KeyPress-p> { .helpwin.frame.l.list \
  123.         yview scroll -1 units }
  124.     bind .helpwin <KeyPress-k> { .helpwin.frame.l.list \
  125.         yview scroll -1 units }
  126.  
  127.     bind .helpwin <KeyPress-Next> { .helpwin.frame.l.list \
  128.         yview scroll 1 pages }
  129.     bind .helpwin <Control-KeyPress-v> { .helpwin.frame.l.list \
  130.         yview scroll 1 pages }
  131.  
  132.     bind .helpwin <KeyPress-Prior> { .helpwin.frame.l.list \
  133.         yview scroll -1 pages }
  134.     bind .helpwin <Alt-KeyPress-v> { .helpwin.frame.l.list \
  135.         yview scroll -1 pages }
  136.  
  137.     button .helpwin.frame.d.dismiss -text "Dismiss" \
  138.         -font $cbb(button_font) -command { destroy .helpwin }
  139.     pack .helpwin.frame.d.dismiss -side top -expand 1 -fill x \
  140.     -padx 8 -pady 4
  141.     set f [open $lib_path/docs/$cbb(help_text) r]
  142.  
  143.     while { [gets $f line] >= 0 } {
  144.     .helpwin.frame.l.list insert end "$line\n"
  145.     }
  146.  
  147.     .helpwin.frame.l.list configure -state disabled
  148. }
  149.  
  150.  
  151. # ----------------------------------------------------------------------------
  152. # $Log: help.tcl,v $
  153. # Revision 2.6  1997/04/23 18:10:02  curt
  154. # Changed "clolson" -> "curt"
  155. #
  156. # Revision 2.5  1997/03/05 18:58:33  curt
  157. # Added additional bindings to scrolling lists: categories list, balance
  158. # window list, text help, and report list.
  159. #
  160. # Revision 2.4  1997/01/16 19:15:40  curt
  161. # Miscellaneous interface tweaks.
  162. #
  163. # Revision 2.3  1996/12/17 14:53:57  curt
  164. # Updated copyright date.
  165. #
  166. # Revision 2.2  1996/12/16 04:18:18  curt
  167. # Continuing the great overhaul of December 1996.
  168. #
  169. # Revision 2.1  1996/12/08 07:37:49  curt
  170. # Initial revision.
  171. #
  172.