home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / platform.tcl < prev    next >
Encoding:
Text File  |  1997-06-13  |  1.6 KB  |  67 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1995
  4. #
  5. #      File:           @(#)platw95.tcl    /main/hindenburg/5
  6. #      Author:         peku
  7. #      Description:    solve platform dependencies here
  8. #                      platform is Windows95 or Windows NT
  9. #---------------------------------------------------------------------------
  10. # SccsId = @(#)platw95.tcl    /main/hindenburg/5   13 Jun 1997 Copyright 1995 Westmount Technology
  11.  
  12. global BITMAP_EXT
  13. set BITMAP_EXT .bmp
  14.  
  15. global EXE_EXT
  16. set EXE_EXT .exe
  17.  
  18. global win95
  19. set win95 1
  20.  
  21. # Windows95 specific way to invoke help.
  22. #
  23. proc showHelp {url} {
  24.     wmtkmessage "Starting Help Tool"
  25.     uplevel #0 require helpkeys.tcl
  26.     set helpFile [m4_path_name help objteam.hlp]
  27.     global url2helpId
  28.     WinHelp $helpFile CONTEXT $url2helpId($url)
  29.     wmtkmessage ""
  30. }
  31.  
  32. proc showHelpTopics {} {
  33.     wmtkmessage "Starting Help Tool"
  34.     set helpFile [m4_path_name help objteam.hlp]
  35.     WinHelp $helpFile HELP_FINDER 0
  36.     wmtkmessage ""
  37. }
  38.  
  39. # Windows95 specific way to start xtool
  40. #
  41. proc startXTool {id cmd {dir ""}} {
  42.     SystemUtilities::fork otk xtool "$id" $cmd $dir
  43. }
  44.  
  45. # Windows specific way to start online doc
  46. #
  47. proc startOnlineDoc {} {
  48.     # for DynaText 3.0:
  49.     #if [catch {
  50.     #    set dynaDir [registry get HKEY_CLASSES_ROOT \
  51.     #        "EBT.Install\\dtextSA\\3.0\\Root" (Default)]
  52.     #    
  53.     #}] {
  54.     #    resetErrorVars
  55.     #    wmtkerror "Failed to find Online Documention directory"
  56.     #    return
  57.     #}
  58.     #    
  59.     #forkOnlineDoc $dynaDir\\bin\\dtext.exe
  60.  
  61.     # DynaText 2.3:
  62.     # does not write in registry; expect in PATH
  63.     forkOnlineDoc dtextrw
  64. }
  65.  
  66.  
  67.