Path: 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

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