home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / ot2var.tcl < prev    next >
Text File  |  1997-07-31  |  1KB  |  42 lines
  1. # Copyright (c) 1997 by Cayenne Software Inc.
  2. #
  3. # This software is furnished under a license and may be used only in
  4. # accordance with the terms of such license and with the inclusion of
  5. # the above copyright notice. This software or any other copies thereof
  6. # may not be provided or otherwise made available to any other person.
  7. # No title to and ownership of the software is hereby transferred.
  8. #
  9. # The information in this software is subject to change without notice
  10. # and should not be construed as a commitment by Cayenne Software Inc
  11. #
  12. #---------------------------------------------------------------------------
  13. #
  14. #       File            : @(#)ot2var.tcl    /main/titanic/3 17 Jun 1997
  15. #       Author          : H. Broeze
  16. #       Original date   : 17 June 1997
  17. #       Description     : ObjectTeam to var 
  18. #
  19. #---------------------------------------------------------------------------
  20. #
  21.  
  22. global ooModel
  23. set ooModel ""
  24.  
  25. global sqlModel
  26. set sqlModel ""
  27. proc load_sql_model  { } {
  28.     global ooModel
  29.     global sqlModel
  30.     if ![isCommand $ooModel] {
  31.         set ooModel [OOModel::createModel]
  32.         set sqlModel [$ooModel sqlModel]
  33.     }
  34.     return $sqlModel
  35. }
  36.  
  37. OTShRegister::check
  38.  
  39. source [m4_path_name tcl libocl.tcl]
  40. require legacy.tcl
  41. require ot2varru.tcl
  42.