home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / otsh_compat.tcl < prev    next >
Text File  |  1997-08-29  |  655b  |  23 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)otsh_compat.tcl    /main/titanic/1
  6. #      Description:    Procs to facilitate sharing of code between
  7. #            otsh and otk
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)otsh_compat.tcl    /main/titanic/1\t29 Aug 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. proc require_module_file {file {module ""}} {
  12.     require $file
  13. }
  14.  
  15. proc quoteIf {str} {
  16.         if {[llength $str] > 1} {
  17.                 return \"$str\"
  18.         }
  19.         return $str
  20. }
  21.  
  22.  
  23.