home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / TicTacToe.sra < prev    next >
Text File  |  1997-09-30  |  1KB  |  53 lines
  1. $PBExportHeader$tictactoe.sra
  2. $PBExportComments$TicTacToe Common ObjectTeam Example
  3. forward
  4. global transaction sqlca
  5. global dynamicdescriptionarea sqlda
  6. global dynamicstagingarea sqlsa
  7. global error error
  8. global message message
  9. end forward
  10.  
  11. global type tictactoe from application
  12.  end type
  13. global tictactoe tictactoe
  14.  
  15. type variables
  16. tictactoe_gui gui
  17. end variables
  18.  
  19. on tictactoe.create
  20. appname = "tictactoe"
  21. message = create message
  22. sqlca = create transaction
  23. sqlda = create dynamicdescriptionarea
  24. sqlsa = create dynamicstagingarea
  25. error = create error
  26. end on
  27.  
  28. on tictactoe.destroy
  29. destroy( sqlca )
  30. destroy( sqlda )
  31. destroy( sqlsa )
  32. destroy( error )
  33. destroy( message )
  34. end on
  35.  
  36. event open;/*******************************************************
  37.  *    Application Open Script
  38.  *        Opens frame
  39.  * An MDI version can be started by commenting the 
  40.  *    'Open(tictactoe_gui)' and uncomment 
  41.  *    'Open (tictactoe_frame)'
  42.  */
  43.  
  44. /* Open window */
  45. Open(tictactoe_gui)
  46.  
  47. /* Open MDI frame window */
  48. // Open (tictactoe_frame)
  49.  
  50.  
  51. end event
  52.  
  53.