home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / help.tcl < prev    next >
Text File  |  1996-09-12  |  2KB  |  81 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1995
  4. #
  5. #      File:           @(#)help.tcl    /main/titanic/1
  6. #      Author:         Fred Mol
  7. #      Description:    main help.tcl
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)help.tcl    /main/titanic/1    12 Sep 1996Copyright 1995 Westmount Technology
  10.  
  11. OtkRegister::extGui
  12.  
  13. source [m4_path_name tcl libocl.tcl]
  14.  
  15. proc read_require_file {file} {
  16.     if [catch {set name [m4_path_name tcl $file]}] {
  17.         set name $file
  18.     }
  19.     source $name
  20. }
  21.  
  22. require procs.tcl
  23. require messagehdl.tcl
  24. require helptool.tcl
  25.  
  26. proc usage {} {
  27.     error "Usage: otk help.tcl -- \[-c caller\] helpRoot firstPageURL"
  28. }
  29.  
  30. set argc 0
  31. set status INITIAL
  32. set caller ""
  33. foreach arg $argv {
  34.     case $arg in {
  35.         {-c} {
  36.         if {$status != "INITIAL"} {
  37.             usage
  38.         }
  39.         set status CALLER
  40.         }
  41.         {default} {
  42.         case $status in {
  43.             {CALLER} {
  44.             set caller $arg
  45.             set status INITIAL
  46.             }
  47.             {INITIAL} {
  48.             set root $arg
  49.             set status URL
  50.             }
  51.             {URL} {
  52.             set firstPageURL $arg
  53.             if {[string range $firstPageURL 0 0] != "/" &&
  54.                 [string range $firstPageURL 0 8] != "helptool:"} {
  55.                 set firstPageURL $root/$firstPageURL
  56.             }
  57.             set status END
  58.             }
  59.             {default} {
  60.             usage
  61.             }
  62.         }
  63.         }
  64.     }
  65.     incr argc 1
  66. }
  67. if {$status != "END"} {
  68.     usage
  69. }
  70.  
  71. HelpTool new .main
  72. .main config \
  73.     -root $root \
  74.     -firstPageURL $firstPageURL \
  75.     -tocFile $root/TOC \
  76.     -indexFile $root/INDEX \
  77.     -caller $caller
  78. .main popUp
  79. .main ready
  80. set initDone 1
  81.