From jmw@cammail1.attmail.comMon Apr  8 12:25:57 1996
Date: Mon, 08 Apr 1996 09:12:13 -0500
From: jmw <jmw@cammail1.attmail.com>
To: aurora-editor@sfu.ca
Subject: ClipBoard Viewing Macro

All;

Here's a macro that will allow you to view the contents of a
clipboard. I've often times copied something from a file and then
forgotten what it was. Instead of having to paste it someplace, and
then possibly having to delete it, I can now just display it in a
popup window. Note that you can view any clipboard you'd like, so long
as you know it's name (when the macro runs it takes the current
default clipboard and automatically inserts it's name into the
prompt).

I've only used this on my setup but I don't think there is anything
that should be config-specific. The code is commented enough so that
if you want to change something you should be able to.


Jim Wilson
(jawilson@ix.netcom.com)

{--------------------------------------------------------------------}

/* ------------------------------------------------------------------ */
/* Macro:        VIEWCLIP.AML                                         */
/* Written by:   Jim Wilson                                           */
/*                                                                    */
/* Description:  Macro used to see the contents for the clipboard.    */
/*                                                                    */
/* Usage:        External macro -- Assign it to a menu item and/or    */
/*               key. Can also be assigned to a key in KBD.AML if     */
/*               modified to do so.                                   */
/*                                                                    */
/* Version:      1.0 -- 4/96                                          */
/*               -----------                                          */
/*               Initial version.                                     */
/*                                                                    */
/* ------------------------------------------------------------------ */

include bootpath "define.aml"

Buffer = 'ClipView'


ClipBoardName = ask 'Clipboard to View' '' _ClipName 'View Clipboard' '' 40

if ClipBoardName then
   OrigClipName = _ClipName               // save orig clipboard name
   setobj ClipName ClipBoardName 'prf'    // switch name to user supplied

   if mark? _ClipName then                // see if any data exists
      createbuf Buffer paste              // put data into buffer
      queue 'destroymark'                 // remove mark after paste
      popup Buffer 'Viewing Clipboard: ' + ClipBoardName 71 17   // popup buffer
      destroybuf Buffer                   // destroy temp buffer
   else
      msgbox 'Clipboard "' + ClipBoardName + '" contains no data'
   end

   setobj ClipName OrigClipName 'prf'     // switch back to orig clipboard
end