Pro porovnání, zde je původní smalltalkovská verze metody na obrázku 25:
drawOn: aCanvas
| f alpha |
f := self filteredForm.
visibility < 100 ifTrue: [
visibility > 0 ifTrue: [
alpha := ((255.0 * visibility) / 100.0) truncated.
aCanvas paintImage: f at: bounds origin sourceRect: f boundingBox alpha: alpha].
^ self].
aCanvas paintImage: f at: bounds origin.
U složitějších metod je vizuální zápis Smalltalku už hodně nepřehledný, viz třeba elements.png. Možná, kdyby se trochu zapracovalo na jeho zpřehlednění, ale i tak už jen množství metod, ze kterých je možné vybírat, obrovské a vizuální editace zde je spíše kontraproduktivní.
Je to urcite delsi, zase se mi ale tento pristup libi mnohem vic, nez napriklad vyvojove diagramy, ty jsou roztahane uplne silene (navic se do tvaru jako kosoctverec ta podminka mnohdy ani nevleze).
Me se to vizualni ztvarneni dost libi, akorat bych bral neco podobneho i pro dalsi jazyky, nejenom ST (ale tam to bude o dost slozitejsi kvuli rozkosatele syntaxi vetsiny mainstreamovych jazyku :-).