home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / cm_browserp.tcl < prev    next >
Text File  |  1997-11-14  |  689b  |  33 lines
  1. # name change for VCM controlled files
  2.  
  3. proc BrowserProcs::changeVSFileName {} {
  4.     require "objnamecha.tcl"
  5.     ObjNameChangeDialog new $wmttoolObj.changeName $wmttoolObj \
  6.         -configV "" \
  7.         -keeper "" \
  8.         -item ""
  9.     $wmttoolObj.changeName popUp
  10. }
  11.  
  12. # copied from procs.tcl
  13.  
  14. proc quoteIf {str} {
  15.         if {[llength $str] > 1} {
  16.                 return \"$str\"
  17.         }
  18.         return $str
  19. }
  20.  
  21.  
  22. # check if specified module is active
  23.  
  24. proc moduleIsActive {shortName} {
  25.     global globalModuleHandler
  26.     foreach module [$globalModuleHandler moduleSpecSet] {
  27.     if { [$module name] == $shortName } {
  28.         return 1
  29.     }
  30.     }
  31.     return 0
  32. }
  33.