Sean P. DeNigris wrote > > [:barValArg | | barVal return newBarSize | > barVal := barValArg. > return := nil. > ... > "new fun stuff here" > barVal == #current ifTrue: [ return := barSize ]. > barVal == #label ifTrue:[ return := (labels at: slot) contents > ]. > barVal == #setMax ifTrue: [ return := maxValue. maxValue := > minValue ]. > barVal == #setMin ifTrue: [ return := minValue. minValue := > maxValue ]. > barVal == #increment ifTrue: [return := barVal := barSize + 1]. > barVal == #decrement ifTrue: [ return := barVal := barSize - 1]. > (barVal isString and: [barVal isSymbol not]) ifTrue: [ > (labels at: slot) contents: barVal. > barVal := #refresh]. > barVal == #refresh ifTrue: [self currentWorld displayWorld. > return := > true]. > ... > return] >
I think we should consider this alternate Class implementation. A block with its own custom method lookup mechanism ;-) -- View this message in context: http://forum.world.st/Notify-progress-with-Announcements-instead-of-Exceptions-tp4629057p4630162.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.
