home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / mtmerge.tcl < prev    next >
Encoding:
Text File  |  1997-11-24  |  2.3 KB  |  117 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)mtmerge.tcl    /main/titanic/12
  6. #      Author:         voyager
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)mtmerge.tcl    /main/titanic/12   24 Nov 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. OtkRegister::extGui
  12. OtkRegister::reportWriter
  13.  
  14. source [m4_path_name tcl libocl.tcl]
  15.  
  16. global classCount
  17. set classCount 0
  18.  
  19. require platform.tcl
  20. require "procs.tcl"
  21. require "browserpro.tcl"
  22. require "messagehdl.tcl"
  23. require "mergetool.tcl"
  24.  
  25. require "mtprocs.tcl"
  26. require "mtfilemenu.tcl"
  27. require "mteditmenu.tcl"
  28. require "mtoptionme.tcl"
  29. require "mtviewmenu.tcl"
  30. require "mtversionm.tcl"
  31. require "mtsymb2url.tcl"
  32.  
  33. global globalModuleHandler
  34. set globalModuleHandler [ModuleHandler new]
  35. $globalModuleHandler moduleSpecSetChanged {
  36.     set s_modules [%this selectedModuleSpecSet]
  37.     foreach file [%this getFiles tcl s_desk.tcl $s_modules] {
  38.         source $file
  39.     }
  40. }
  41.  
  42. proc usage {} {
  43.     error "Usage: otk mtmerge.tcl -- \
  44.         \[-c caller\] -fc fromVersionPath -tc toVersionPath"
  45. }
  46.  
  47. set argc 0
  48. set status INITIAL
  49. set context ""
  50. set caller ""
  51. set fromContext ""
  52. set toContext ""
  53. foreach arg $argv {
  54.     case $arg in {
  55.     {-c} {
  56.         if {$status != "INITIAL"} {
  57.         usage
  58.         }
  59.         set status CALLER
  60.     }
  61.     {-fc} {
  62.         set status FROMCONTEXT
  63.     }
  64.     {-tc} {
  65.         set status TOCONTEXT
  66.     }
  67.     {default} {
  68.         case $status in {
  69.         {CALLER} {
  70.             set caller $arg
  71.             set status FROMCONTEXT
  72.         }
  73.         {FROMCONTEXT} {
  74.             set fromContext $arg
  75.             set status TOCONTEXT
  76.         }
  77.         {TOCONTEXT} {
  78.             set toContext $arg
  79.             set status END
  80.         }
  81.         {default} {
  82.             usage
  83.         }
  84.         }
  85.     }
  86.     }
  87.     incr argc 1
  88. }
  89.  
  90. if {$status != "END"} {
  91.     usage
  92. }
  93.  
  94. sourceOptional u_mergetool
  95.  
  96. MergeTool new .main mergetool -closed {%this stop}
  97. if [isCommand .main.error] {
  98.     .main.error okPressed "%this delete; .main stop"
  99.     return
  100. }
  101.  
  102. .main config \
  103.     -title "ObjectTeam Merge" \
  104.     -iconTitle "ObjectTeam Merge" \
  105.     -caller "$caller" \
  106.     -fromContext $fromContext \
  107.     -toContext $toContext \
  108.     -firstExposed {%this initialize}
  109.  
  110. if {! $win95} {
  111.     .main icon desk_64
  112. }
  113.  
  114. .main popUp
  115. .main ready
  116. .main cursor DEFAULT
  117.