home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / setup.tcl < prev    next >
Text File  |  1996-08-12  |  2KB  |  50 lines
  1. # setup.tcl  (generated by make_pc_export <V1.1>)
  2. # 
  3.  
  4. set icase [path_name concat [lindex [glob ~] 0] icase]
  5.  
  6.  
  7. # --------------------------------------------------------
  8. # the menu customization is special, ask user for guidance
  9. # --------------------------------------------------------
  10. if { [file exists [path_name concat $icase desk.mnu]] } {
  11.     set answer ""
  12.     while { $answer != "a" &&  $answer != "o" && $answer != "n" } {
  13.         puts -nonewline "desk.mnu exists, a(ppend), o(verwrite) or n(o change)? "
  14.         gets stdin answer
  15.     }
  16.     if { $answer == "o" } {
  17.         # -------------------------------------------
  18.         # Overwrite, just copy the file using BasicFS
  19.         # -------------------------------------------
  20.         BasicFS::copyFile desk.mnu [path_name concat $icase desk.mnu]
  21.     } elseif { $answer == "a" } {
  22.         # --------------------------------------------
  23.         # Append, add it to the existing customization
  24.         # --------------------------------------------
  25.         set file_name [path_name concat $icase desk.mnu]
  26.         set in [open desk.mnu r]
  27.         set out [open [path_name concat $icase desk.mnu] a]
  28.         puts $out ""
  29.         while { [gets $in line] >= 0 } {
  30.             puts $out $line
  31.         }
  32.         flush $out
  33.         close $in
  34.         close $out
  35.     }
  36.         # ---------------------------------------------
  37.         # Else do nothing, leave existing customization
  38.         # ---------------------------------------------
  39. } else {
  40.     BasicFS::copyFile desk.mnu [path_name concat $icase desk.mnu]
  41. }
  42. BasicFS::copyFile checkall.tcl [path_name concat $icase check_all.tcl]
  43. BasicFS::copyFile all2file.tcl [path_name concat $icase export_all_to_file.tcl]
  44. BasicFS::copyFile exp2dir.tcl [path_name concat $icase export_to_directory.tcl]
  45. BasicFS::copyFile exp2file.tcl [path_name concat $icase export_to_file.tcl]
  46. BasicFS::copyFile fchooser.tcl [path_name concat $icase file_chooser.tcl]
  47. BasicFS::copyFile smalllib.tcl [path_name concat $icase small_library.tcl]
  48. BasicFS::copyFile getsrc.tcl [path_name concat $icase get_export_source.tcl]
  49. BasicFS::copyFile et.tcl [path_name concat $icase et.tcl]
  50.