home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / AP / JED / JED097-1.TAR / jed / lib / mousex.sl < prev    next >
Encoding:
Text File  |  1994-12-12  |  4.3 KB  |  208 lines
  1. % mousex.sl
  2. % Mouse routines for use inside an X term or Linux Console running 
  3. % Selection.
  4.  
  5. % Mouse actions:
  6. %
  7. % left mouse button:
  8. %
  9. %   If the left button is clicked on the status line of a window, the window 
  10. %   will switch to a different buffer.
  11. %
  12. %   If the button is pressed anywhere else in the window, the cursor will be
  13. %   positioned at the location of the click.
  14. % 
  15. % middle button:
  16. %   
  17. %   On status line: split the window
  18. %   Anywhere else:
  19. %    If the region is highlighted, the region will be copied to the 
  20. %    pastebuffer.  This does not delete the region.
  21. %    Otherwise, the editing point will be moved to the location of the mouse
  22. %    and any contents in the pastebuffer will be pasted there.
  23. %
  24. % Right button:
  25. %   
  26. %   On status line: delete the window.
  27. %   Anywhere else:
  28. %    If a region is highlighted, it will be deleted and a copy put in the 
  29. %    pastebuffer.
  30. %    Otherwise, the mark is set and a region will be defined.
  31. %
  32. % Cut/Paste Tips:
  33. %  
  34. %  To mark and manipulate a region do:
  35. %
  36. %   1. Click the LEFT mouse button at the beginning of the region.
  37. %   2. Move the mouse to the end of the region and click the RIGHT
  38. %      mouse button.  The region should now be marked.
  39. %   3. To delete it and copy it to the paste buffer,  press the RIGHT button 
  40. %      again.  To simply copy it without deleting it, press the MIDDLE button.
  41. %
  42. %   4. To paste from the pastebuffer, move the mouse to where you want to 
  43. %      paste and press the MIDDLE button.
  44.  
  45.  
  46. % enable mouse 
  47. % tt_send ("\e[?9h");
  48. % 
  49. % 
  50. % define hooks to restore the selection state properly (See ../doc/mouse.txt).
  51. % define exit_hook ()
  52. % {
  53. %    tt_send ("\e[?9l");
  54. %    exit_jed ();
  55. % }
  56.  
  57. % define suspend_hook ()
  58. % {
  59. %    tt_send ("\e[?9l");
  60. % }
  61.  
  62. % define resume_hook ()
  63. % {
  64. %    tt_send ("\e[?9h");
  65. % }
  66.  
  67. % define keys
  68. %setkey ("left_button_down", "\e[M ");
  69. %setkey ("middle_button_down", "\e[M!");
  70. %setkey ("right_button_down", "\e[M\"");
  71.  
  72. % returns  values:  line/column of mouse point, number of windows away, and
  73. % flag indicating whether or not the point in on the status line.
  74. % usage:
  75. %   (is_status, nwins, row, column) = whereis_mouse ();
  76. define whereis_mouse (xmouse, ymouse)
  77. {
  78.    variable n = nwindows ();
  79.    variable top, bot, dy, x, y = 0;
  80.    variable is_status = 0;
  81.    
  82.    while (n)
  83.      {
  84.         top = window_info('t');
  85.     bot = window_info('r') + top;
  86.     
  87.     if ((ymouse >= top) and (ymouse < bot))
  88.              { 
  89.          dy = ymouse - (top - 1 + window_line());
  90.          y = whatline () + dy;
  91.          break;
  92.       }
  93.     
  94.           if (bot == ymouse)
  95.       {      
  96.          is_status = 1;
  97.          break;
  98.       }
  99.     
  100.     otherwindow();
  101.     n--;
  102.      }
  103.    
  104.    !if (n) error ("Mouse not in a window.");
  105.    
  106.    x = window_info('c') + xmouse - 1;
  107.    
  108.    loop (n) otherwindow ();
  109.    
  110.    % return :
  111.    return (is_status, nwindows () - n, y, x);
  112. }
  113.       
  114.  
  115. define mouse_next_buffer ()
  116. {
  117.    variable n, buf, cbuf = whatbuf ();
  118.    
  119.    n = buffer_list ();               %/* buffers on stack */
  120.    loop (n)
  121.      {
  122.     =buf;
  123.     n--;
  124.     if (buf[0] == ' ') continue;
  125.     if (buffer_visible (buf)) continue;
  126.     sw2buf (buf);
  127.     loop (n) pop ();
  128.     return;
  129.      }
  130.    error ("All buffers are visible.");
  131. }
  132.  
  133. define left_button_down ()
  134. {
  135.    variable use_status, x, y, n;
  136.    
  137.    variable x = getkey () - ' ';
  138.    variable y = getkey () - ' ';
  139.  
  140.    % error (Sprintf ("x: %d, y: %d", x, y, 2));
  141.    (use_status, n, y, x) = whereis_mouse (x, y);
  142.    
  143.    loop (n) otherwindow ();
  144.    if (use_status)
  145.      {
  146.     mouse_next_buffer ();
  147.     return;
  148.      }
  149.    
  150.    goto_line (y);
  151.    goto_column_best_try (x); pop ();
  152. }
  153.  
  154. define middle_button_down ()
  155. {
  156.    variable use_status, x, y, n;
  157.    
  158.    variable x = getkey () - ' ';
  159.    variable y = getkey () - ' ';
  160.  
  161.    (use_status, n, y, x) = whereis_mouse (x, y);
  162.    
  163.    loop (n) otherwindow ();
  164.    if (use_status)
  165.      {
  166.     splitwindow ();
  167.     return;
  168.      }
  169.    
  170.    if (markp ()) 
  171.      {      
  172.     call ("copy_region");
  173.     message ("Region copied.");
  174.     return;
  175.      }
  176.    
  177.    goto_line (y);
  178.    goto_column (x);
  179.    call ("yank");
  180. }
  181.         
  182. define right_button_down ()
  183. {
  184.    variable use_status, x, y, n;
  185.    
  186.    variable x = getkey () - ' ';
  187.    variable y = getkey () - ' ';
  188.  
  189.    (use_status, n, y, x) = whereis_mouse (x, y);
  190.    
  191.    loop (n) otherwindow ();
  192.    if (use_status)
  193.      {
  194.     call("delete_window");
  195.     return;
  196.      }
  197.    
  198.    if (markp ()) 
  199.      {
  200.     call ("kill_region");
  201.     return;
  202.      }
  203.    
  204.    call ("set_mark_cmd");
  205.    goto_line (y);
  206.    goto_column (x);
  207. }
  208.