Monday, November 08, 2010 at 12:06 AM.


on getCursorAddress () { <<4.0.2 -- return the address of the current object
	<<if a non-table window is frontmost, it's the address of that window
		<<if a table window is frontmost, it's the address of the cell cursor
	<<10/31/97 at 7:59:16 AM by DW -- moved from toys.getCursorAddress
	local (adrobject = address (window.frontmost ()));
	if adrobject == nil {
		return (nil)};
	if typeOf (adrobject^) == tabletype {
		adrobject = table.getCursor ()};
	return (adrobject)}
<<bundle <<test code
	<<dialog.alert (getCursorAddress ())

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.