I'm studying the code of some system classes of LOOPS (Lisp Object-Oriented programming System), the OOP extension of Interlisp.
Here are some methods of class Window. The code is quite readable, with short and clean methods that most of the times make me understand what's going on.