Re: [Pharo-project] Call for UI gripes

Feb. 8, 2009


      for automated benchmarking i can imagine something like following:

benchButton
| browser button canvas time |
browser := OBPackageBrowser openOnClass: Object selector: #yourself.
browser position: 0@0.
button := browser allMorphs detect: [:m | (m
isKindOf:PluggableButtonMorph ) and: [ m label = 'browse' ]].

canvas := World assuredCanvas.
time := [1000 timesRepeat: [ button fullDrawOn: canvas ]] timeToRun.
browser delete.
^ time


-- 
Best regards,
Igor Stasenko AKA sig.