Novel form of refactoring

Marcus Denker marcus at ira.uka.de
Fri Oct 24 21:03:27 UTC 2003


On Fri, Oct 24, 2003 at 12:12:15PM -0700, Eric Merritt wrote:
> > class := Smalltalk allClasses atRandom.
> > Browser fullOnClass: class selector: (class
> > methodDict keys atRandom).
> 
>  Thats it, more or less, amazing difference in code
> size isn't it. 
> 
Yes, but it doesn't do any error checks: "class methodDict" could
be empty. For a demo it should be enough to do

[
class := Smalltalk allClasses atRandom.
Browser fullOnClass: class selector: (class methodDict keys atRandom]
] on: Error do: [:e | e retry]

but "on: Error do: [:e | e retry]" isn't a good idea for production code,
really not ;-))

   Marcus

-- 
Marcus Denker marcus at ira.uka.de  -- Squeak! http://squeak.de




More information about the Squeak-dev mailing list