home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / reptoolpop.tcl < prev    next >
Encoding:
Text File  |  1997-10-14  |  2.2 KB  |  81 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:        %W%
  6. #      Author:        edri
  7. #      Description:    Instantiation of the Repository Tool and its views.
  8. #---------------------------------------------------------------------------
  9. # SccsId = %W% %G% Copyright 1996 Cadre Technologies Inc.
  10.  
  11. OtkRegister::extGui
  12.  
  13. source [m4_path_name tcl libocl.tcl]
  14.  
  15. require platform.tcl
  16. require procs.tcl
  17. require systemutil.tcl
  18. require messagehdl.tcl
  19. require options.tcl
  20.  
  21. # Options common to tool and views.
  22. #
  23. set reptoolOptions(-caller)      {caller arg "" "caller of this tool"}
  24. set reptoolOptions(-levelPath)      {levelPath arg "" "level path to use"}
  25. set reptoolOptions(-levelPathIds) {levelPathIds arg "" "level path ids to use"}
  26.  
  27. if [catch {Options::parse reptool reptoolOptions argv} argError] {
  28.     puts stderr $argError
  29.     exit 1
  30. }
  31.  
  32. # Clear levelpath variables because we don't want the connection
  33. # with the dbserver made now.  Only after the tool's main window
  34. # has been exposed we want that.
  35. #
  36. if {$levelPath == ""} {
  37.     set levelPath [m4_var get M4_levelpath]
  38.     m4_var set M4_levelpath ""
  39. }
  40.  
  41. if {$levelPathIds == ""} {
  42.     set levelPathIds [m4_var get M4_levelpath_ids]
  43.     m4_var set M4_levelpath_ids ""
  44. }
  45.  
  46. if [lempty $argv] {
  47.     # Main tool should be started.
  48.     #
  49.     require reptool.tcl
  50.     set repTool RepTool
  51. } else {
  52.     # The view specified by $argv should be started.
  53.     # Allow unique abbreviations of the Tcl file name.
  54.     #
  55.     set tool [lindex $argv 0]
  56.     switch -glob -- $tool {
  57.     co*    { set tool corpmanvie.tcl }
  58.         u*    { set tool userenvvie.tcl }
  59.         lo*    { set tool lockmanvie.tcl }
  60.         cs*    { set tool csconfigvi.tcl }
  61.         default { error "To start a specific tool, use one of\
  62.                          'corp', 'user', 'lock' or 'cs'." }
  63.     }
  64.     require $tool
  65.  
  66.     # Sourced view file defines a static proc repToolClass which returns the
  67.     # class name of the view.
  68.     #
  69.     set repTool [[info commands *::repToolClass]]
  70. }
  71.  
  72. sourceOptional u_reptool
  73.  
  74. $repTool new .main \
  75.     -caller $caller \
  76.     -levelPath $levelPath \
  77.     -levelPathIds $levelPathIds
  78.  
  79. .main popUp
  80. .main ready
  81.