Editor.def 629 B

12345678910111213141516
  1. DEFINITION MODULE Editor ;
  2. (* WordStar-style full-screen editor for the TP3 project.
  3. Operates directly on TextBuf (the shared TP3 text buffer).
  4. Returns to the menu on Ctrl-K-D; leaves the text in memory
  5. and reports whether any editing happened via "changed". *)
  6. PROCEDURE Run (drive : CHAR ; VAR fileName : ARRAY OF CHAR ;
  7. VAR changed : BOOLEAN) ;
  8. PROCEDURE GotoOffset (off : CARDINAL) ;
  9. (* Arm an error jump: the next Run places the cursor on the given
  10. 0-based TextBuf offset (TP3 errexit + editor2 path used by CmdCompile).
  11. The view scrolls to follow; ignored if no Run follows. *)
  12. END Editor.