1
0
mirror of synced 2026-01-12 00:42:56 +00:00
Interlisp.medley/library/CLIPBOARD.TEDIT
rmkaplan 02a6d7ad1b
Updated Tedit files for a few Lispusers packages--formatting and typos (#1246)
* Updated Tedit files for a few Lispusers packages--formatting and typos

* Format OBJECTWINDOW.TEDIT, delete WHEELSCROLL.TXT

* Create CLIPBOARD.TEDIT

Small (formatted) documentation file
2023-07-07 12:25:18 -07:00

23 lines
2.6 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

Medley CLIPBOARD
2
4
1
CLIPBOARD
1
4
Written by Ron Kaplan, 2020-2021
A small package that implements copy and paste to the system clipboard.
It arms meta-C for copy to the clipboard from the current selection of an application that has been armed (TEDIT, SEDIT), and also meta-X (TEDIT) for extraction (copy followed by delete). (SEDIT currently assigns "expand" to meta-X).
Meta-V is defined as an interrupt character that pastes the current clipboard contents into whatever process curently has input focus.
The information in the clipboard can be provided from or to external (non-Medley) applications (mail, emacs, etc.) in the usual way. For example, a form selected in SEDIT can be copied to the clipboard and pasted into an Outlook or Mac Mail email message.
It assumes that the external format of the clipboard is determined by (SYSTEM-EXTERNALFORMAT), and characters will be converted to and from the Medley internal character encoding.
The name of the clipboard stream may differ from platform to platform. On the Mac, the paste stream is "pbpaste" and the copy stream is "pbcopy". Those names are used if "darwin" is a substring of (UNIX-GETENV "ostype"). Otherwise both stream-names default to "xclip". The functions CLIPBOARD-COPY-STREAM and CLIPBOARD-PASTE-STREAM perform this selection.
1È$4È$È1ŠŠ8$1ŠŠ8$JÈ$È PAGEHEADING RUNNINGHEAD1$TERMINAL
MODERN MODERN

TIMESROMAN$_Q(DEFAULTFONT 1 (TERMINAL 12) (TERMINAL 8) (TERMINAL 8) (POSTSCRIPT (TERMINAL 8)))   HRULE.GETFNMODERN
 HRULE.GETFNMODERN
 HRULE.GETFNMODERN
  HRULE.GETFNMODERN  HRULE.GETFNMODERN !Gk)s9aDFV&Nzº