Winning with il:windowprop

Article View: comp.sys.xerox

Article #611

#611

From: Jellinek.pa
Date: Wed, 09 Nov 1988 03:02

19 lines
1011 bytes

The following trick is of great use in writing window-based applications in
Medley.  I find it makes il:windowprop (and the very notion of window
properties) much more useful in the brave new world of Xerox Common Lisp.

Simply make the following declaration:

	(defsetf il:windowprop il:windowprop)

and you'll be able to use such handy idioms as

	(setf (il:windowprop window 'prop) ...)  ; saves on clarity, not typing
	(push ... (il:windowprop window 'prop))
	(pushnew ... (il:windowprop window 'prop))
	(pop (il:windowprop window 'prop))
	(incf (il:windowprop window 'prop))

and their friends.

		Herb

Technical Details

Message-ID: <881108-190234-1399@Xerox>

Path: arc1-ca.pugleaf.net!utzoo!attcan!uunet!lll-winken!lll-tis!helios.ee.lbl.gov!pasteur!ucbvax!XEROX.COM!Jellinek.pa

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!utzoo!attcan!uunet!lll-winken!lll-tis!helios.ee.lbl.gov!pasteur!ucbvax!XEROX.COM!Jellinek.pa
From: Jellinek.pa@XEROX.COM
Newsgroups: comp.sys.xerox
Subject: Winning with il:windowprop
Message-ID: <881108-190234-1399@Xerox>
Date: 9 Nov 88 03:02:00 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: info-1100@tut.cis.ohio-state.edu
Organization: The Internet
Lines: 18