home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / platform.tcl < prev    next >
Encoding:
Text File  |  1997-11-26  |  1.5 KB  |  58 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1995
  4. #
  5. #      File:           @(#)platw95.tcl    /main/titanic/7
  6. #      Author:         peku
  7. #      Description:    solve platform dependencies here
  8. #                      platform is Windows95 or Windows NT
  9. #---------------------------------------------------------------------------
  10. # SccsId = @(#)platw95.tcl    /main/titanic/7   26 Nov 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.     if [catch { set dynaDir [registry get HKEY_LOCAL_MACHINE \
  49.   "SOFTWARE\\Cayenne Software Inc.\\Dynatext 3.1.1" InstallationDirectory]}] {
  50.         resetErrorVars
  51.         wmtkerror "Failed to find DynaText in registry."
  52.         return
  53.     }
  54.     system $dynaDir\\bin\\dtext.exe&
  55. }
  56.  
  57.  
  58.