rentsch@unc.UUCP (Tim Rentsch) (11/11/86)
Copyright(c) 1986, by Tim Rentsch Copyright Notice: This memo is Copyright(c) 1986, by Tim Rentsch. Copies may be made and distributed provided all of the following conditions are met: one, the copyright notice be included in its entirety; two, the memo be copied (or distributed) in its entirety; three, the memo be copied (or distributed) individually, i.e., not in collection with other material; four, copies be made and distributed one at a time, i.e., copies cannot be made or distributed in batches of more than one; five, copies may not be sold -- distributing copies is to be done at no cost to the recipients of the copies. (End of conditions, and end of copyright notice.) Note # 4: Trivial Goodie ========================= Before we start on the next note, I would like to issue a disclaimer. The version of PS we use here at UNC is the original, non-supported version. I understand that there is a newer, better, and supported version available, and that the fixes and bugs being reported here may not apply to the new version. (I also understand that the new version is by far the preferable one to get, which we are in the process of doing now. But in the meantime these notes will apply to the version we've got.) [End of disclaimer.] The goodie here enclosed is trivial, yet I find use for it often. It defines the message 'browse' in Object, allowing one to browse the class of any object. The point of the posting is not the code (trivial enough once you know your way around the system), but that no goodie is too trivial if it is also useful. So, come on you all out there -- let's see your favorite (even trivial) goodie. As usual, the code follows the.... (End of Note # 4) --------------------------------CUT HERE-------------------------------- 'From UNC Smalltalk-80, version 2.1, of October 26, 1986 on 31 October 1986 at 3:13:42 pm'! !Object methodsFor: 'browsing'! browse "Browse my class Done January 11, 1986, by Tim Rentsch" self class browse "nil browse."! ! !Class methodsFor: 'browsing'! browse "Open a browser for me and my methods. Done January 11, 1986, by Tim Rentsch" Browser newOnClass: self! !