home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / CLIMasterII / modules / join.g < prev    next >
Encoding:
Gui4CLI script  |  1998-06-24  |  1.4 KB  |  90 lines
  1. G4C
  2.  
  3. winbig -1 -1 240 125  "Join File(s)"
  4. winsmall -1 -1 240 125
  5. varpath "climaster/*"
  6.  
  7. xonload
  8. guiopen join.g
  9.  
  10. xonopen
  11. cd $cm_srcedir
  12. while $cm_select > ""
  13.     extract cm_select file cm_file
  14.     lvuse join.g 1
  15.     lvadd $cm_file
  16.     lvuse climaster $cm_srce
  17.     lvmulti off
  18.     lvmulti next
  19. endwhile    
  20. setgad join.g 3 off
  21. setgad join.g 2 on
  22.  
  23. xonclose
  24. guiquit join.g
  25.  
  26. xonrmb
  27. guiquit join.g
  28.  
  29. xlistview 0 25 240 100  "" "" "" 0 txt
  30. gadid 1
  31. gadfont topaz.font 8 000
  32.  
  33. xtextin 50 0 190 13 Save nwname "" 40
  34. gadid 2
  35. joinfile $cm_destdir $nwname newfile
  36. setgad join.g 3 on
  37.  
  38. xbutton 0 13 60 12  _Up
  39. lvuse join.g 1
  40. if $$lv.line > 0
  41.     dummy1 = $$lv.rec
  42.     lvgo prev
  43.     dummy2 = $$lv.rec
  44.     lvput $dummy1
  45.     lvgo next
  46.     lvput $dummy2
  47.     lvgo prev
  48. endif
  49.  
  50. xbutton 60 13 60 12  _Down
  51. lvuse join.g 1
  52. numlines = $$lv.total
  53. counter numlines dec 1
  54. if $$lv.line < $numlines
  55.     dummy1 = $$lv.rec
  56.     lvgo next
  57.     dummy2 = $$lv.rec
  58.     lvput $dummy1
  59.     lvgo prev
  60.     lvput $dummy2
  61.     lvgo next
  62. endif
  63.  
  64. xbutton 120 13 60 12  Remove
  65. lvuse join.g 1
  66. if $$lv.total > 0
  67.     lvdel -1
  68. endif
  69.  
  70. xbutton 180 13 60 12  Join
  71. gadid 3
  72. lvuse join.g 1
  73. lvgo first
  74. guiwindow join.g wait
  75. ifexists file $newfile
  76.     ;nop
  77. else
  78.     cli 'type $$lv.rec to $newfile'
  79. endif
  80. lvgo next
  81. while $$lv.line > ""
  82.     cli 'c:type $$lv.rec >>$newfile'
  83.     lvgo next
  84. endwhile
  85. guiwindow join.g resume
  86. lvuse climaster $cm_dest
  87. lvdir refresh
  88. lvuse climaster $cm_srce
  89. guiquit join.g
  90.