home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / TCL / BLT / BLT1.7L1 / BLT1 / blt-1.7 / applications / extloader / demos / blt / extensions.tcl < prev    next >
Encoding:
Text File  |  1994-04-22  |  840 b   |  33 lines
  1. # -------------------------------------------------------------------------
  2. # 
  3. # Demo version of "extensions.tcl" file. Assumes shared library
  4. # for blt existing in ../../src/shared/libBLT.so.1.7
  5. #
  6.  
  7. global tcl_extensions tcl_extloadpath
  8.  
  9. set file [glob ../../../../src/shared/libBLT.*]
  10. set file [lindex $file 0]
  11. set lib [file tail $file]
  12. set tcl_extloadpath { ../../../../src/shared }
  13.  
  14. # -------------------------------------------------------------------------
  15. # 
  16. # The format of the an entry in the tcl_extensions array is 
  17. # 
  18. #   initRoutine shlib ?shlib...?
  19. #
  20.  
  21. # -------------------------------------------------------------------------
  22. #
  23. #     Put extensions that require Tk after this point
  24. #
  25. # -------------------------------------------------------------------------
  26.  
  27. #
  28. # BLT library 
  29. #
  30.  
  31. set tcl_extensions(blt) [list Blt_Init $lib ]
  32.  
  33.