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. _______________________________________________ Pharo-project mailing list [email protected] http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
