home *** CD-ROM | disk | FTP | other *** search
/ The Best of Windows 95.com 1996 September / WIN95_09964.iso / text / DANA104.ZIP / DANA.DAS next >
Text File  |  1995-11-22  |  2KB  |  124 lines
  1.  
  2. Const STATE_INIT        = 0
  3. Const STATE_BEFORE_OPEN = 1
  4. Const STATE_AFTER_OPEN  = 2
  5. Const STATE_AFTER_NEW   = 3
  6. Const STATE_BEFORE_SAVE = 4
  7. Const STATE_AFTER_SAVE  = 5
  8. Const STATE_BEFORE_CLOSE= 6
  9. Const STATE_BEFORE_EXIT = 7
  10. Const STATE_KEY_PRESS   = 8
  11. Const STATE_CHAR        = 9
  12. Const STATE_ENTER       = 10
  13. Const STATE_TIMER       = 11
  14. Const STATE_ACTIVATE    = 12
  15.  
  16. Main ()
  17.  
  18.     Select Case .DanaState
  19.     Case STATE_INIT
  20.         StayResident()
  21.     Case STATE_BEFORE_OPEN
  22.         OnBeforeOpen(.ParmStrA)
  23.     Case STATE_AFTER_OPEN
  24.         OnAfterOpen()
  25.     Case STATE_AFTER_NEW
  26.         OnAfterNew()
  27.     Case STATE_BEFORE_SAVE
  28.         OnBeforeSave(.ParmStrA)
  29.     Case STATE_AFTER_SAVE
  30.         OnAfterSave(.ParmStrA)
  31.     Case STATE_BEFORE_CLOSE
  32.         OnBeforeClose()
  33.     Case STATE_BEFORE_EXIT
  34.         OnBeforeExit()
  35.     Case STATE_KEY_PRESS
  36.         OnKeyPress(.ParmA, .ParmB)
  37.     Case STATE_CHAR
  38.         OnChar(.ParmA)
  39.     Case STATE_ENTER
  40.         OnEnter()
  41.     Case STATE_TIMER
  42.         OnTimer()
  43.     Case STATE_ACTIVATE
  44.         OnActivate()
  45.     Case Else
  46.     End Select
  47.  
  48. End
  49.  
  50. '/////////////////////////////////////////////////////////
  51. ' Message handlers
  52.  
  53. '///////////////////////////////
  54. ' Before open file
  55. Proc OnBeforeOpen(strName$)
  56.  
  57. End Proc
  58.  
  59. '///////////////////////////////
  60. ' After open file
  61. Proc OnAfterOpen()
  62.  
  63. End Proc
  64.  
  65. '///////////////////////////////
  66. ' After new file
  67. Proc OnAfterNew()
  68.  
  69. End Proc
  70.  
  71. '///////////////////////////////
  72. ' Before save file
  73. Proc OnBeforeSave(strName$)
  74.  
  75. End Proc
  76.  
  77. '///////////////////////////////
  78. ' After save file
  79. Proc OnAfterSave(strName$)
  80.  
  81. End Proc
  82.  
  83. '///////////////////////////////
  84. ' Before close file
  85. Proc OnBeforeClose()
  86.  
  87. End Proc
  88.  
  89. '///////////////////////////////
  90. ' Before exit Dana
  91. Proc OnBeforeExit()
  92.  
  93. End Proc
  94.  
  95. '///////////////////////////////
  96. ' Key pressed
  97. Proc OnKeyPress(nKey%, nShift%)
  98.  
  99. End Proc
  100.  
  101. '///////////////////////////////
  102. ' Char input
  103. Proc OnChar(nChar%)
  104.  
  105. End Proc
  106.  
  107. '///////////////////////////////
  108. ' Enter key pressed
  109. Proc OnEnter()
  110.  
  111. End Proc
  112.  
  113. '///////////////////////////////
  114. ' 1 second interval
  115. Proc OnTimer()
  116.  
  117. End Proc
  118.  
  119. '///////////////////////////////
  120. ' Being activated current window
  121. Proc OnActivate()
  122.  
  123. End Proc
  124.