home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / clbrowser.tcl < prev    next >
Text File  |  1996-08-15  |  1KB  |  68 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1995
  4. #
  5. #      File:           @(#)clbrowser.tcl    /main/hindenburg/1
  6. #      Author:         voyager
  7. #      Description:    Instantiation of the class browser
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)clbrowser.tcl    /main/hindenburg/1    15 Aug 1996 Copyright 1995 Westmount Technology
  10.  
  11. OtkRegister::extGui
  12. OtkRegister::semanticModel
  13.  
  14. source [m4_path_name tcl libocl.tcl]
  15.  
  16. require "platform.tcl"
  17. require "procs.tcl"
  18. require "messagehdl.tcl"
  19. require "cbutils.tcl"
  20. require "classbrows.tcl"
  21.  
  22. proc usage {} {
  23.     error "Usage: otk clbrowser.tcl \[-- -c caller\]"
  24. }
  25.  
  26. set argc 0
  27. set status INITIAL
  28. set caller ""
  29. foreach arg $argv {
  30.     case $arg in {
  31.         {-c} {
  32.         if {$status != "INITIAL"} {
  33.             usage
  34.         }
  35.         set status CALLER
  36.         }
  37.         {default} {
  38.         case $status in {
  39.             {CALLER} {
  40.             set caller $arg
  41.             set status END
  42.             }
  43.             {default} {
  44.             usage
  45.             }
  46.         }
  47.         }
  48.     }
  49.     incr argc 1
  50. }
  51. if {$status != "INITIAL" && $status != "END"} {
  52.     usage
  53. }
  54.  
  55. sourceOptional u_clbrowse
  56.  
  57. set cc [ClientContext::global]
  58. set phaseV [$cc currentPhase]
  59. if {[$phaseV isNil]} {
  60.     error "Need more context (at least down to Phase level)"
  61. }
  62.  
  63. global classBrowser
  64. set classBrowser [ClassBrowser new .main $cc -caller "$caller" \
  65.                 -firstExposed ".main initView"]
  66.  
  67. $classBrowser popUp
  68.