[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: screen dump - can MCL call fkeys?
- To: email@example.com (Gerhard Werner)
- Subject: Re: screen dump - can MCL call fkeys?
- From: firstname.lastname@example.org (Bill St. Clair)
- Date: Wed, 6 Jan 1993 14:36:20 -0600
- Cc: info-mcl
>Date: Mon, 4 Jan 1993 14:36:09 -0400
>To: email@example.com, firstname.lastname@example.org (Gerhard Werner)
>From: Robert A. Cassels <email@example.com>
>Subject: Re: screen dump
>At 10:13 AM 1/4/93 -0500, Gerhard Werner wrote:
>>In the old Allegro Lisp running in operating system 6 versions, one
>>could freeze a picture of the screen for printing, using a program called
>>screendump. How can one copy a picture of the screen running MCL in
>>system 7 ?
>In System 7, Command-shift-3 takes a snapshot of the whole screen. (See
>the "Finder Shortcuts" window, page 5.) As straz mentioned, there are
>various shareware programs that give more fine-grained control over what's
>in the picture.
>Date: Mon, 4 Jan 93 15:59:29 -0500
>To: firstname.lastname@example.org (Steve Strassmann)
>From: steele (Oliver Steele)
>Subject: Re: screen dump - can MCL call fkeys?
>At 1:44 PM 1/4/93 -0500, Steve Strassmann wrote:
>>Can MCL invoke an fkey? If so, how? He can simply call one of the
>>dozen or so screen capture fkeys out there.
>Load the FKEY resource, lock it, jsr to it, and release it.
; Code to invoke an FKEY from MCL.
(defun press-fkey (number)
(flet ((reserr ()
(let ((errnum (#_ResError)))
(unless (eql 0 errnum)
(let ((resource (#_GetResource :FKEY number)))
(when (%null-ptr-p resource)
(error "No FKEY number ~s" number))
(with-pointers ((p resource))
; To take a snapshot of the screen(s) in System 7:
; The result appears as a TeachText file named "Picture <n>" at
; top level of your system volume. You can use TeachText to copy a
; rectangular region for pasting into any application that supports
; PICT scraps.