Squeak-dev August 2002

squeak-dev@lists.squeakfoundation.org

175 participants
535 discussions

[ENH] CachePushpin-nk
by ned＠bike-nomad.com 02 Aug '02

02 Aug '02

from preamble: "Change Set: CachePushpin-nk Date: 1 August 2002 Author: Ned Konz This provides caching for the menu titlebar icons so they don't have to be built every time. "!

1 0

[BUG] [FIX][?] 3.2 -- showBoundsInHalo preference disables dismiss halo button.
by Ned Konz 02 Aug '02

02 Aug '02

This is still a bug in the shipping version. The fix (which I think someone else suggested) appears to be to remove the method HaloMorph>>bounds: Can anyone tell me whether this is the *correct* fix? ---------- Forwarded Message ---------- Subject: [BUG] 3.2g -- showBoundsInHalo preference disables dismiss halo button. Date: Sat, 23 Feb 2002 13:09:47 -0800 From: Ned Konz <ned(a)bike-nomad.com> To: squeak-dev(a)lists.squeakfoundation.org If you turn the showBoundsInHalo pref on, you can't delete Morphs using the dismiss (pink X) halo button. 3.2g - 4743. -- Ned Konz currently: Stanwood, WA email: ned(a)bike-nomad.com homepage: http://bike-nomad.com ------------------------------------------------------- -- Ned Konz http://bike-nomad.com GPG key ID: BEEA7EFE

2 1

Re: Morphic slowness (was Re: Does *anyone* use MVC?)
by Bob Arning 02 Aug '02

02 Aug '02

On Fri, 02 Aug 2002 01:17:35 +0200 (CEST) =?ISO-8859-1?Q?G=F6ran_Hultgren?= <goran.hultgren(a)bluefish.se> wrote: >Yes, ok, I saw that - but that is not really what I want. I would like to do this: > >Smalltalk at: #MyTallyer put: MessageTally new. >10 timesRepeat: [ > <some code I don't want to tally> > MyTallyer spy: [ <some code> ]. > <some code I don't want to tally> > MyTallyer spy: [ <some other code> ]. >]. >MyTallyer openUpInSomeFancyToolWhatever... > >:-) > >Then we could select the pieces we want and the pieces we don't want even! We >could of course use "MyTallyer pause" and "MyTallyer resume" too. OK, then, do it. If you look at: spyOn: aBlock "MessageTally spyOn: [100 timesRepeat: [3.14159 printString]]" | node result | node _ self new. result _ node spyEvery: 16 on: aBlock. (StringHolder new contents: (String streamContents: [:s | node report: s; close])) openLabel: 'Spy Results'. ^ result it would certainly seem that you could break this up into | myTally | myTally _ MessageTally new. 10 timesRepeat: [ (String new: 10000) reversed. myTally spyEveryRepeating: 16 on: [ [(String new: 1000000) asLowercase.] value ]. (String new: 10000) reversed. myTally spyEveryRepeating: 16 on: [ [(String new: 10000) shuffled.] value ]. ]. (StringHolder new contents: (String streamContents: [:s | myTally report: s; close])) openLabel: 'Spy Results'. The only change to the system is a spy method that does not reinitialize the tally every time it is called (see below). Cheers, Bob ========= !MessageTally methodsFor: 'initialize-release' stamp: 'RAA 8/1/2002 19:54'! spyEveryRepeating: millisecs on: aBlock "Create a spy and spy on the given block at the specified rate." | myDelay value startTime time0 | tally ifNil: [ tally _ 0. receivers _ Array new: 0 ]. (aBlock isMemberOf: BlockContext) ifFalse: [self error: 'spy needs a block here']. class _ aBlock receiver class. method _ aBlock method. "set up the probe" ObservedProcess _ Processor activeProcess. myDelay := Delay forMilliseconds: millisecs. time0 := Time millisecondClockValue. gcStats _ Smalltalk getVMParameters. Timer := [[true] whileTrue: [startTime := Time millisecondClockValue. myDelay wait. self tally: ObservedProcess suspendedContext "tally can be > 1 if ran a long primitive" by: (Time millisecondClockValue - startTime) // millisecs]. nil] newProcess. Timer priority: Processor userInterruptPriority. "activate the probe and evaluate the block" Timer resume. value := aBlock value. "Collect gc statistics" Smalltalk getVMParameters keysAndValuesDo: [:idx :gcVal| gcStats at: idx put: (gcVal - gcStats at: idx)]. "cancel the probe and return the value" Timer terminate. time := Time millisecondClockValue - time0. ^value! ! =====

2 1

Re: [Magma] Error creating a Repository
by Chris Muller 02 Aug '02

02 Aug '02

Aaak! I'm sorry. The create:root: method was put in at the last minute (before, you first created, then opened and set the root). The bug in create:root: is I forgot to connect to the repository before I set the root! Sorry everybody! I'll fix it and repost it in just a few minutes! __________________________________________________ Do You Yahoo!? Yahoo! Health - Feel better, live better http://health.yahoo.com

1 0

RE: [BUG] 3.2 VM Crash on Windows NT
by Norton, Chris 02 Aug '02

02 Aug '02

Sorry. Here's the picture of the morph that crashes. When I try to turn on the hardware acceleration and it blows up my Squeak. ;-) <<CRASH.JPG>>

2 1

[ENH] RepeatableTally-nk
by ned＠bike-nomad.com 02 Aug '02

02 Aug '02

from preamble: "Change Set: RepeatableTally-nk Date: 1 August 2002 Author: Ned Konz This change set makes the MessageTally able to be cumulative, so you can do this: e _ ActiveEvent. mt _ MessageTally new. msec _ 16. mt spyEvery: msec on: [ m _ World putUpWorldMenu: e. m delete ]. mt spyEvery: msec on: [ m _ World putUpWorldMenu: e. m delete ]. mt spyEvery: msec on: [ m _ World putUpWorldMenu: e. m delete ]. file _ FileStream newFileNamed: 'tally.out'. mt report: file; close. file close. "!

1 0

[BUG] 3.2 VM Crash on Windows NT
by Norton, Chris 02 Aug '02

02 Aug '02

Hi Folks. Using a virgin 3.2 image on Windows NT 4.0 (service pk 6+), I opened a new project and started playing around with some morphs from the object tool. I was playing around with the morph shown in the attached picture and I clicked on the little box in the upper left corner -- this resulted in a hard crash of my VM -- the whole program crashed. I've attached the VM's dump file. Thanks for your time. ---==> Chris <<...OLE_Obj...>> <<crash.dmp>>

1 0

pending mac vm 3.2.8 & squeak browser plugin for os-x
by John M McIntosh 02 Aug '02

02 Aug '02

Well I've been working on a 3.2.8 VM with an eye towards building a plugin that works for IE 5.2 under OS-X. This "mostly" works, and right now I'll accept any bug reports (crashes!, not squeak walkbacks) that people have found in 3.2.7b6 while I've got the source code splashed over my desktop... VM feature requests are welcome too. -- -- =========================================================================== John M. McIntosh <johnmci(a)smalltalkconsulting.com> 1-800-477-2659 Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com ===========================================================================

1 0

RE: Morphic slowness (was Re: Does *anyone* use MVC?)
by Norton, Chris 02 Aug '02

02 Aug '02

Hi Guys. I ran Andreas' script to test menu popups. I dunno if this'll help you, but here's what i get on my 1 GHz Windows NT 4.0 box (service pk 6+) -- Using a virgin Squeak 3.2 image & VM. I see that my image spent more time in the TransformMorph>>fullDrawOn: than Tim's acorn image did. Cheers, ---==> Chris - 231 tallies, 3764 msec. **Tree** 76.6% {2883ms} PasteUpMorph>>doOneCycleNow |76.6% {2883ms} WorldState>>doOneCycleNowFor: | 74.9% {2819ms} WorldState>>displayWorldSafely: | 74.9% {2819ms} PasteUpMorph>>displayWorld | 74.9% {2819ms} PasteUpMorph>>privateOuterDisplayWorld | 74.9% {2819ms} WorldState>>displayWorld:submorphs: | 67.5% {2541ms} WorldState>>drawWorld:submorphs:invalidAreasOn: | |66.7% {2511ms} FormCanvas(Canvas)>>fullDrawMorph: | | 66.7% {2511ms} FormCanvas(Canvas)>>fullDraw: | | 66.2% {2492ms} SystemWindow(Morph)>>fullDrawOn: | | 55.0% {2070ms} SystemWindow(Morph)>>drawSubmorphsOn: | | |54.5% {2051ms} FormCanvas(Canvas)>>fullDrawMorph: | | | 54.5% {2051ms} FormCanvas(Canvas)>>fullDraw: | | | 54.5% {2051ms} PluggableListMorph(Morph)>>fullDrawOn: | | | 45.9% {1728ms} PluggableListMorph(Morph)>>drawSubmorphsOn: | | | |45.9% {1728ms} FormCanvas(Canvas)>>fullDrawMorph: | | | | 45.9% {1728ms} FormCanvas(Canvas)>>fullDraw: [45.9% {1728ms} TransformMorph(Morph)>>fullDrawOn: [ 19.5% {734ms} AlignmentMorph(Morph)>>drawSubmorphsOn: [ |19.5% {734ms} FormCanvas(Canvas)>>fullDrawMorph: [ | 19.5% {734ms} FormCanvas(Canvas)>>fullDraw: [ | 19.5% {734ms} PluggableButtonMorph(Morph)>>fullDrawOn: [ | 7.4% {279ms} PluggableButtonMorph(Morph)>>drawSubmorphsOn: [ | |7.4% {279ms} FormCanvas(Canvas)>>fullDrawMorph: [ | | 7.4% {279ms} FormCanvas(Canvas)>>fullDraw: [ | | 7.4% {279ms} AlignmentMorph(Morph)>>fullDrawOn: [ | | 3.0% {113ms} FormCanvas(Canvas)>>drawMorph: [ | | 3.0% {113ms} FormCanvas(Canvas)>>draw: [ | | 2.6% {98ms} RectangleMorph(Morph)>>drawOn: [ | 5.2% {196ms} FormCanvas(Canvas)>>roundCornersOf:during: [ | |4.8% {181ms} FormCanvas>>roundCornersOf:in:during: [ | | 4.3% {162ms} CornerRounder class>>roundCornersOf:on:i...orderWidth:corners: [ | | 3.0% {113ms} CornerRounder>>tweakCornersOf:on:in:borderWidth:corners: [ | 3.5% {132ms} FormCanvas(Canvas)>>drawMorph: [ | 3.5% {132ms} FormCanvas(Canvas)>>draw: [ 14.3% {538ms} TransformMorph>>drawSubmorphsOn: [ |13.0% {489ms} FormCanvas(Canvas)>>fullDrawMorph: [ | 13.0% {489ms} FormCanvas(Canvas)>>fullDraw: [ | 13.0% {489ms} TextMorphForEditView(Morph)>>fullDrawOn: [ | 10.4% {391ms} FormCanvas(Canvas)>>drawMorph: [ | 10.4% {391ms} FormCanvas(Canvas)>>draw: [ | 7.4% {279ms} TextMorphForEditView(TextMorph)>>drawOn: [ | |6.9% {260ms} FormCanvas>>paragraph:bounds:color: [ | | 5.2% {196ms} NewParagraph>>displayOn:using:at: [ | | 4.3% {162ms} DisplayScanner>>displayLine:offset:leftInRun: [ | 3.0% {113ms} StringMorph>>drawOn: [ | 3.0% {113ms} FormCanvas(Canvas)>>drawString:in:font:color: [ | 3.0% {113ms} FormCanvas>>drawString:from:to:in:font:color: [ 4.8% {181ms} FormCanvas(Canvas)>>roundCornersOf:during: [ |4.8% {181ms} FormCanvas>>roundCornersOf:in:during: [ | 4.3% {162ms} CornerRounder class>>roundCornersOf:on:i...orderWidth:corners: [ | 3.5% {132ms} CornerRounder>>tweakCornersOf:on:in:borderWidth:corners: [ 4.3% {162ms} FormCanvas(Canvas)>>drawMorph: [ 4.3% {162ms} FormCanvas(Canvas)>>draw: [ 3.0% {113ms} RectangleMorph(Morph)>>drawOn: [ 2.6% {98ms} FormCanvas(Canvas)>>fillRectangle:fillStyle:borderStyle: | | | 5.2% {196ms} FormCanvas(Canvas)>>drawMorph: | | | 5.2% {196ms} FormCanvas(Canvas)>>draw: | | 6.5% {245ms} FormCanvas(Canvas)>>drawMorph: | | |6.5% {245ms} FormCanvas(Canvas)>>draw: | | | 6.1% {230ms} SystemWindow(Morph)>>drawOn: | | | 5.6% {211ms} FormCanvas(Canvas)>>fillRectangle:fillStyle:borderStyle: | | | 5.2% {196ms} RaisedBorder(SimpleBorder)>>frameRectangle:on: | | 4.8% {181ms} FormCanvas(Canvas)>>roundCornersOf:during: | | 4.8% {181ms} FormCanvas>>roundCornersOf:in:during: | | 3.9% {147ms} CornerRounder class>>roundCornersOf:on:i...orderWidth:corners: | 7.4% {279ms} WorldState>>forceDamageToScreen: | 7.4% {279ms} DisplayScreen>>forceDamageToScreen: | 3.9% {147ms} OrderedCollection>>do: | 3.5% {132ms} DisplayScreen>>forceToScreen: 16.5% {621ms} MenuMorph>>popUpAt:forHand:in: |16.0% {602ms} MenuMorph>>popUpAt:forHand:in:allowKeyboard: | 13.0% {489ms} PasteUpMorph>>addMorphFront: | 13.0% {489ms} PasteUpMorph(Morph)>>addMorphInFrontOfLayer: | 13.0% {489ms} PasteUpMorph(Morph)>>addMorph:inFrontOf: | 13.0% {489ms} PasteUpMorph(Morph)>>privateAddMorph:atIndex: | 13.0% {489ms} PasteUpMorph(Morph)>>addedOrRemovedSubmorph: | 13.0% {489ms} MenuMorph(Morph)>>fullBounds | 13.0% {489ms} MenuMorph(Morph)>>doLayoutIn: | 10.8% {407ms} TableLayout>>layout:in: | 10.8% {407ms} TableLayout>>layoutTopToBottom:in: | 7.8% {294ms} MenuItemMorph(Morph)>>layoutInBounds: | 4.3% {162ms} MenuItemMorph(Morph)>>bounds: 6.1% {230ms} PluggableListMorph>>getMenu: 6.1% {230ms} PluggableListMorph(ScrollPane)>>getMenu: **Leaves** 5.2% {196ms} OrderedCollection>>do: 4.3% {162ms} GrafPort(BitBlt)>>clipRect: 3.9% {147ms} Rectangle class>>origin:corner: 3.9% {147ms} Point>>+ 3.5% {132ms} DisplayScreen>>forceToScreen: 3.5% {132ms} IdentityDictionary>>scanFor: 3.0% {113ms} IdentityDictionary(Dictionary)>>at:ifAbsent: 2.6% {98ms} IdentityDictionary(Set)>>findElementOrNil: 2.6% {98ms} Rectangle>>setOrigin:corner: 2.6% {98ms} Rectangle>>right 2.6% {98ms} StringMorph(Morph)>>valueOfProperty:ifAbsent: 2.6% {98ms} Point>>- **Memory** old +48,268 bytes young -137,948 bytes used -89,680 bytes free +89,680 bytes **GCs** full 0 totalling 0ms (0.0% uptime) incr 369 totalling 441ms (12.0% uptime), avg 1.0ms tenures 1 (avg 369 GCs/tenure) root table 0 overflows

1 0

Our book out ...finally
by Stephane Ducasse 02 Aug '02

02 Aug '02

Hi Just a small email to let you know that the book I wrote with Oscar Nierstrasz and Serge Demeyer is finally out. Object Oriented Reengineering Patterns Serge Demeyer Oscar Nierstrasz Foreword by Ralph E. Johnson and Martin Fowler ISBN: 1558606394 http://www.iam.unibe.ch/%7Escg/OORP/index.html PS: One pattern was found browsing the code with John Sarkela and resulted in the new architecture for the file list that is available in 3.3a. Stef Dr. Stéphane DUCASSE (ducasse(a)iam.unibe.ch) http://www.iam.unibe.ch/~ducasse/ "if you knew today was your last day on earth, what would you do different? ... especially if, by doing something different, today might not be your last day on earth" Calvin&Hobbes

2 1

Jump to page: