home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 6 A / CHIP_HITWARE6_A.iso / tools / Dana / TML$TSRScript.DAS < prev   
Text File  |  1998-01-31  |  3KB  |  147 lines
  1. '
  2. ' TSR Script Template
  3. '
  4. #Include "Constants.DAH"
  5.  
  6. Const STATE_INIT        = 0
  7. Const STATE_BEFORE_OPEN = 1
  8. Const STATE_AFTER_OPEN  = 2
  9. Const STATE_AFTER_NEW   = 3
  10. Const STATE_BEFORE_SAVE = 4
  11. Const STATE_AFTER_SAVE  = 5
  12. Const STATE_BEFORE_CLOSE= 6
  13. Const STATE_BEFORE_EXIT = 7
  14. Const STATE_KEY_PRESS   = 8
  15. Const STATE_CHAR        = 9
  16. Const STATE_ENTER       = 10
  17. Const STATE_TIMER       = 11
  18. Const STATE_ACTIVATE    = 12
  19. Const STATE_CALL_MENU   = 13
  20.     'If your script has a menu user interface, respond this event instead
  21.     'of responding STATE_KEY_PRESS.
  22. Const STATE_WHO_ARE_YOU = 14
  23.     'If you will respond STATE_CALL_MENU, you must respond this 
  24.     'event by setting short description of your script to .ParmStrA.
  25.     'If you add this script to your addins and let it show up in Tool menu,
  26.     'you will recieve STATE_CALL_MENU from Tool menu whether you respond to
  27.     'STATE_WHO_ARE_YOU or not.
  28.  
  29. Main ()
  30.  
  31.     Select Case .DanaState
  32.     Case STATE_INIT
  33.         StayResident()
  34.     Case STATE_WHO_ARE_YOU
  35. '        .ParmStrA = "Tsr Script ver1.00/by Carty"
  36.     Case STATE_CALL_MENU
  37.         OnCallMenu()
  38.     Case STATE_BEFORE_OPEN
  39.         OnBeforeOpen(.ParmStrA)
  40.     Case STATE_AFTER_OPEN
  41.         OnAfterOpen()
  42.     Case STATE_AFTER_NEW
  43.         OnAfterNew()
  44.     Case STATE_BEFORE_SAVE
  45.         OnBeforeSave(.ParmStrA)
  46.     Case STATE_AFTER_SAVE
  47.         OnAfterSave(.ParmStrA)
  48.     Case STATE_BEFORE_CLOSE
  49.         OnBeforeClose()
  50.     Case STATE_BEFORE_EXIT
  51.         OnBeforeExit()
  52.     Case STATE_KEY_PRESS
  53.         OnKeyPress(.ParmA, .ParmB)
  54.     Case STATE_CHAR
  55.         OnChar(.ParmA)
  56.     Case STATE_ENTER
  57.         OnEnter()
  58.     Case STATE_TIMER
  59.         OnTimer()
  60.     Case STATE_ACTIVATE
  61.         OnActivate()
  62.     Case Else
  63.     End Select
  64.  
  65. End
  66.  
  67. '/////////////////////////////////////////////////////////
  68. ' Message handlers
  69.  
  70. '///////////////////////////////
  71. ' Before open file
  72. Proc OnBeforeOpen(strName$)
  73.  
  74. End Proc
  75.  
  76. '///////////////////////////////
  77. ' After open file
  78. Proc OnAfterOpen()
  79.  
  80. End Proc
  81.  
  82. '///////////////////////////////
  83. ' After new file
  84. Proc OnAfterNew()
  85.  
  86. End Proc
  87.  
  88. '///////////////////////////////
  89. ' Before save file
  90. Proc OnBeforeSave(strName$)
  91.  
  92. End Proc
  93.  
  94. '///////////////////////////////
  95. ' After save file
  96. Proc OnAfterSave(strName$)
  97.  
  98. End Proc
  99.  
  100. '///////////////////////////////
  101. ' Before close file
  102. Proc OnBeforeClose()
  103.  
  104. End Proc
  105.  
  106. '///////////////////////////////
  107. ' Before exit Dana
  108. Proc OnBeforeExit()
  109.  
  110. End Proc
  111.  
  112. '///////////////////////////////
  113. ' Key pressed
  114. Proc OnKeyPress(nKey%, nShift%)
  115.  
  116. End Proc
  117.  
  118. '///////////////////////////////
  119. ' Char input
  120. Proc OnChar(nChar%)
  121.  
  122. End Proc
  123.  
  124. '///////////////////////////////
  125. ' Enter key pressed
  126. Proc OnEnter()
  127.  
  128. End Proc
  129.  
  130. '///////////////////////////////
  131. ' 1 second interval
  132. Proc OnTimer()
  133.  
  134. End Proc
  135.  
  136. '///////////////////////////////
  137. ' Being activated current window
  138. Proc OnActivate()
  139.  
  140. End Proc
  141.  
  142.  
  143. '///////////////////////////////
  144. Proc OnCallMenu()
  145.  
  146. End Proc
  147.