home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d07xx / d0770.lha / Uedit / Jenkins2.LZH / Bookmarks < prev    next >
Text File  |  1991-04-08  |  2KB  |  51 lines
  1. ===== Bookmarks =======================================
  2.  
  3. COPYRIGHT 1990
  4. Robert A. Jenkins, Ph.D.
  5. 22901 Shagbark Lane
  6. Miller Woods, IL 60411
  7. (708) 758-0344
  8. (708) 759-7063 answering machine
  9. All Rights Reserved
  10. Rick Stiles may distribute it as he pleases.
  11. Thanks for writing and continually improving Uedit!
  12.  
  13. =============================================================================
  14. I find Rick's bookmarks impossible to use.  I cannot keep track of them as
  15. they cycle.  So I wrote this command to set up five bookmarks.  Now I use
  16. bookmarks a lot.
  17. =============================================================================
  18. Use this to set gadget 3 name (kills itself)
  19. <ctl-q:
  20. gadgetName(3,"12345 GO/SET 12345")
  21. killKey(ctl-q)
  22. >
  23.  
  24. n50,
  25. n51 = mouse x,y = switch parameter
  26.  
  27. =============================================================================
  28. Uses gadget 3 and buttondown to set five bookmarks or move to a bookmark.
  29. <normal-gadget3:
  30. mouseXY(n50,n51)
  31. sub(n50,n50,320)   ..first pixel in gadget 3
  32. div(n50,n50,8)     ..character width
  33. add(n50,n50,1)     ..map to mark #
  34. switch(n50) {
  35.    case(1) {equateLoc(curFile,atCursor,locF)  ..go to
  36.             vScroll(atCursor) }
  37.    case(2) {equateLoc(curFile,atCursor,locG)
  38.             vScroll(atCursor) }
  39.    case(3) {equateLoc(curFile,atCursor,locH)
  40.             vScroll(atCursor) }
  41.    case(4) {equateLoc(curFile,atCursor,locI)
  42.             vScroll(atCursor) }
  43.    case(5) {equateLoc(curFile,atCursor,locJ)
  44.             vScroll(atCursor) }
  45.    case(14) {equateLoc(curFile,locF,atCursor) beepDisplay }  ..set
  46.    case(15) {equateLoc(curFile,locG,atCursor) beepDisplay }
  47.    case(16) {equateLoc(curFile,locH,atCursor) beepDisplay }
  48.    case(17) {equateLoc(curFile,locI,atCursor) beepDisplay }
  49.    case(18) {equateLoc(curFile,locJ,atCursor) beepDisplay }
  50.    }
  51. >