annotate lisp/term/wyse50.el @ 1717:aa7d6d57504b

* frame.h (struct frame): New fields `can_have_scrollbars' and `has_vertical_scrollbars'. (FRAME_CAN_HAVE_SCROLLBARS, FRAME_HAS_VERTICAL_SCROLLBARS): New accessors, for both the MULTI_FRAME and non-MULTI_FRAME. (VERTICAL_SCROLLBAR_WIDTH, WINDOW_VERTICAL_SCROLLBAR, WINDOW_VERTICAL_SCROLLBAR_COLUMN, WINDOW_VERTICAL_SCROLLBAR_HEIGHT): New macros. * window.h (struct window): New field `vertical_scrollbar'. * xterm.h (struct x_display): vertical_scrollbars, judge_timestamp, vertical_scrollbar_extra: New fields. (struct scrollbar): New struct. (VERTICAL_SCROLLBAR_PIXEL_WIDTH, VERTICAL_SCROLLBAR_PIXEL_HEIGHT, VERTICAL_SCROLLBAR_LEFT_BORDER, VERTICAL_SCROLLBAR_RIGHT_BORDER, VERTICAL_SCROLLBAR_TOP_BORDER, VERTICAL_SCROLLBAR_BOTTOM_BORDER, CHAR_TO_PIXEL_WIDTH, CHAR_TO_PIXEL_HEIGHT, PIXEL_TO_CHAR_WIDTH, PIXEL_TO_CHAR_HEIGHT): New accessors and macros. * frame.c (make_frame): Initialize the `can_have_scrollbars' and `has_vertical_scrollbars' fields of the frame. * term.c (term_init): Note that TERMCAP terminals don't support scrollbars. (mouse_position_hook): Document new args. (set_vertical_scrollbar_hook, condemn_scrollbars_hook, redeem_scrollbar_hook, judge_scrollbars_hook): New hooks. * termhooks.h: Declare and document them. (enum scrollbar_part): New type. (struct input_event): Describe the new form of the scrollbar_click event type. Change `part' from a Lisp_Object to an enum scrollbar_part. Add a new field `scrollbar'. * keyboard.c (kbd_buffer_get_event): Pass appropriate new parameters to *mouse_position_hook, and make_lispy_movement. * xfns.c (x_set_vertical_scrollbar): New function. (x_figure_window_size): Use new macros to calculate frame size. (Fx_create_frame): Note that X Windows frames do support scroll bars. Default to "yes". * xterm.c: #include <X11/cursorfont.h> and "window.h". (x_vertical_scrollbar_cursor): New variable. (x_term_init): Initialize it. (last_mouse_bar, last_mouse_bar_frame, last_mouse_part, last_mouse_scroll_range_start, last_mouse_scroll_range_end): New variables. (XTmouse_position): Use them to return scrollbar movement events. Take new arguments, for that purpose. (x_window_to_scrollbar, x_scrollbar_create, x_scrollbar_set_handle, x_scrollbar_remove, x_scrollbar_move, XTset_scrollbar, XTcondemn_scrollbars, XTredeem_scrollbar, XTjudge_scrollbars, x_scrollbar_expose, x_scrollbar_background_expose, x_scrollbar_handle_click, x_scrollbar_handle_motion): New functions to implement scrollbars. (x_term_init): Set the termhooks.h hooks to point to them. (x_set_window_size): Use new macros to calculate frame size. Set vertical_scrollbar_extra field. (x_make_frame_visible): Use the frame accessor FRAME_HAS_VERTICAL_SCROLLBARS to decide if we need to map the frame's subwindows as well. (XTread_socket): Use new size-calculation macros from xterm.h when processing ConfigureNotify events. (x_wm_set_size_hint): Use PIXEL_TO_CHAR_WIDTH and PIXEL_TO_CHAR_HEIGHT macros. * ymakefile (xdisp.o): This now depends on termhooks.h. (xterm.o): This now depends on window.h.

;;;; Terminal mode for Wyse 50
;;;; Should work well for Televideo TVI 925 although it's overkill
;;;; Author Daniel Pfieffer ([e-mail]) January 1991
;;;; Rewritten for Emacs 19 by Jim Blandy ([e-mail])
;;;;   January 1992


;;; Functions especially for this terminal.

(defun wyse-50-insert-line ()
  "Insert an empty line."
  (interactive)
  (beginning-of-line)
  (open-line 1))

(defun wyse-50-delete-line ()
  "Delete all of the current line."
  (interactive)
  (beginning-of-line)
  (kill-line 1))

(defun wyse-50-insert-char ()
  "Insert a space, even in overwrite mode."
  (interactive)
  (insert ? ))

(defun wyse-50-print-buffer ()
  "Like ``print-buffer'', but verifies before printing.
The `print' key is easy to hit on a Wyse 50."
  (interactive)
  (if (y-or-n-p
       (concat "Print buffer "
	       (buffer-name) "? "))
      (print-buffer)))

(defun wyse-50-top-of-window (n)
  "Move point to the top line of the current window.
With an argument N, move to the Nth line of the window."
  (interactive "p")
  (move-to-window-line (1- n)))

(defun wyse-50-bottom-of-window (n)
  "Move point to the last line of the current window.
With an argument N, move to the Nth line from the bottom of the window."
  (interactive "p")
  (move-to-window-line (- n)))

(defun wyse-50-toggle-screen-width ()
  "Alternate between 80 and 132 columns."
  (interactive)
  (if (<= (frame-width) 80)
      (progn
	(send-string-to-terminal "\e`;")
	(set-frame-width 131))
    (send-string-to-terminal "\e`:")
    (set-frame-width 79)))


;;; Define the escape sequences for the function keys.
(define-key function-key-map "\C-a" (make-keymap))
(mapcar (function (lambda (key-definition)
		    (define-key function-key-map
		      (car key-definition) (nth 1 key-definition))))
	'(("\eI" [S-tab])
	  ("\eJ" [S-prior])
	  ("\eK" [next])
	  ("\eY" [clear])
	  ("\eT" [clear-eol])
	  ("\^^" [home])
	  ("\e\^^" [home-down])
	  ("\eQ" [insert])
	  ("\eE" [insertline])
	  ("\eW" [?\C-?])
	  ("\eR" [deleteline])
	  ("\eP" [print])
	  ("\C-k" [up])
	  ("\C-j" [down])
	  ("\C-l" [right])
	  ("\C-h" [left])
	  ("\C-a\C-k\C-m" [funct-up])
	  ("\C-a\C-j\C-m" [funct-down])
	  ("\C-a\C-l\C-m" [funct-right])
	  ("\C-a\C-h\C-m" [funct-left])
	  ("\er" [replace])
	  ("\^a\^m\^m" [funct-return])
	  ("\^a\^i\^m" [funct-tab])
	  ("\^a@\^m" [f1])
	  ("\^a`\^m" [S-f1])
	  ("\^aA\^m" [f2])
	  ("\^aa\^m" [S-f2])
	  ("\^aB\^m" [f3])
	  ("\^ab\^m" [S-f3])
	  ("\^aC\^m" [f4])
	  ("\^ac\^m" [S-f4])
	  ("\^aD\^m" [f5])
	  ("\^ad\^m" [S-f5])
	  ("\^aE\^m" [f6])
	  ("\^ae\^m" [S-f6])
	  ("\^aF\^m" [f7])
	  ("\^af\^m" [S-f7])
	  ("\^aG\^m" [f8])
	  ("\^ag\^m" [S-f8])
	  ("\^aH\^m" [f9])
	  ("\^ah\^m" [S-f9])
	  ("\^aI\^m" [f10])
	  ("\^ai\^m" [S-f10])
	  ("\^aJ\^m" [f11])
	  ("\^aj\^m" [S-f11])
	  ("\^aK\^m" [f12])
	  ("\^ak\^m" [S-f12])
	  ("\^aL\^m" [f13])
	  ("\^al\^m" [S-f13])
	  ("\^aM\^m" [f14])
	  ("\^am\^m" [S-f14])
	  ("\^aN\^m" [f15])
	  ("\^an\^m" [S-f15])
	  ("\^aO\^m" [f16])
	  ("\^ao\^m" [S-f16])))


;;; Define some of the function keys.
(mapcar (function (lambda (key-definition)
		    (global-set-key (car key-definition)
		     (nth 1 key-definition))))
	'(([insertline]	 wyse-50-insert-line)
	  ([clear]	 recenter)
	  ([clear-eol]   kill-line)
	  ([home]        execute-extended-command)
	  ([home-down]	 shell-command)
	  ([insert]	 wyse-50-insert-char)
	  ([deleteline]	 wyse-50-delete-line)
	  ([replace]	 overwrite-mode)
	  ([print]	 wyse-50-print-buffer)
	  ([funct-up]	 wyse-50-top-of-window)
	  ([funct-down]  wyse-50-bottom-of-window)
	  ([funct-left]  beginning-of-line)
	  ([funct-right] end-of-line)
	  ([f5]		 shell)
	  ([f6]		 dired)
	  ([f7]		 rnews)
	  ([f8]		 rmail)
	  ([f9]		 delete-othe-windows)
	  ([f10]	 other-window)
	  ([f11]	 split-window-vertically)
	  ([f13]	 help-for-help)
	  ([f14]	 wyse-50-toggle-screen-width)
	  ([f15]	 global-set-key)
	  ("\M-?"	 help-for-help)))


;;; Miscellaneous hacks

;;; This is an ugly hack for a nasty problem:
;;; Wyse 50 takes one character cell to store video attributes (which seems to
;;; explain width 79 rather than 80, column 1 is not used!!!).
;;; On killing (C-x C-c) the end inverse code (on column 1 of line 24)
;;; of the mode line is overwritten AFTER all the y-or-n questions.
;;; This causes the attribute to remain in effect until the mode line has
;;; scrolled of the screen.  Suspending (C-z) does not cause this problem.
;;; On such terminals, Emacs should sacrifice the first and last character of
;;; each mode line, rather than a whole screen column!
(setq kill-emacs-hook
      (function (lambda () (interactive)
		  (send-string-to-terminal
		   (concat "\ea23R" (1+ (frame-width)) "C\eG0")))))

(defun enable-arrow-keys ()
  "To be called by term-setup-hook. Overrides 6 Emacs standard keys
whose functions are then typed as follows:
C-a	Funct Left-arrow
C-h	M-?
LFD	Funct Return, some modes override down-arrow via LFD
C-k	CLR Line
C-l	Scrn CLR
M-r	M-x move-to-window-line, Funct up-arrow or down-arrow are similar
All special keys except Send, Shift Ins, Shift Home and shifted functions keys
are assigned some hopefully useful meaning."
  (interactive)
  (mapcar (function (lambda (key-definition)
		      (global-set-key (car key-definition)
				      (nth 1 key-definition))))
	  ;; By unsetting C-a and then binding it to a prefix, we
	  ;; allow the rest of the function keys which start with C-a
	  ;; to be recognized.
	  '(("\C-a"	nil)
	    ("\C-a\C-a"	beginning-of-line)
	    ("\C-k"	nil)
	    ("\C-j"	nil)
	    ("\C-l"	nil)
	    ("\C-h"	nil)
	    ("\er"	nil)))
  (fset 'enable-arrow-keys nil))