home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Yerk 3.6.8 / System source / tool.load < prev    next >
Encoding:
Text File  |  1995-11-23  |  724 b   |  38 lines  |  [TEXT/YERK]
  1. 'c null -> nevent
  2. -echo
  3. true -> docs
  4. // Ovl
  5. // Mod
  6. // Imports
  7. false -> docs
  8. Module ::Module source:Tool
  9. true -> docs
  10. // QD
  11. // Event
  12. // Color
  13. // Window
  14. // objInit
  15. // Proc
  16. // Struct1
  17. // Menu
  18. 0 value 'f>    \ used as stub for floating point 7.0.1 fix..
  19. // PathList
  20. // FrontEnd
  21.  
  22. $ c1ef (flush)        \ flush all events
  23. 0
  24. eventinit            \ initialize event things
  25.  
  26. \ THIS NEXT BIT OF CODE WILL CAUSE A CRASH ON SOME MACHINES...IF THIS HAPPENS,
  27. \  COMMENT THE NEXT LINE OUT AND TYPE IN BY HAND AFTER THE RECOMPILE IS DONE.
  28. \  THEN SAVE THE IMAGE BY HAND.
  29.  
  30. \ flush all events, set up event processing during loads, then flush again
  31. \ $ c1ef (flush) 'c (nevent) -> nevent $ c1ef (flush)
  32.  
  33. save yerk.com
  34.  
  35. 1 beep 1 beep 1 beep 1 beep
  36. Become yerk
  37.  
  38.