- Pharo-dev - lists.pharo.org

Re: [Pharo-project] Help vs Tutorial

by laurent laffont

On Tue, Sep 21, 2010 at 7:43 PM, Alexandre Bergel <alexandre(a)bergel.eu>wrote: > Hi again! > > Help and Tutorial seem to follow similar construction patterns. I was > wondering why Help expect methods on the class side and Tutorial on the > instance side. > I wonder too :) Maybe when I have the will to do it I should discard Lesson/Tutorial classes and use HelpTopic instead...... Laurent Laffont http://pharocasts.blogspot.com/ http://magaloma.blogspot.com/ > > Cheers, > Alexandre > -- > _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: > Alexandre Bergel http://www.bergel.eu > ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. > > > > > > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >

Sept. 22, 2010

Re: [Pharo-project] [squeak-dev] Morphic

by Hannes Hirzel

Thank you Sean, for bringing up this topic, joining a bit late, here a few remarks. --Hannes On 9/17/10, DeNigris Sean <sean(a)clipperadams.com> wrote: > I was doing a lot of playing with Morphic this week at ESUG in Barcelona. > Many people seem to really not like it and complain about it, but it seems > very vague i.e. they can't point to a specific problem with it. > > I think it's amazingly powerful and universally misunderstood. Many people > are pushing for native widgets for end users, which I think is awesome, but > serves a different role. For me, there are two use cases: > 1. People (mostly Smalltalkers, including myself) interested in the UI's of > the future and exploring what's possible Yes, > 2. People who love their (e.g. Mac) look and feel or are in a setting (e.g. > enterprise) where they have to use a particular GUI. > Morphic seems ideal for group #1. I think the key questions are: > * if you were implementing Morphic today, knowing what you know after it > being used over the years, how would you do it? > * what would it take (if possible) to get there from the current > implementation? > > Two issues I've noticed: > 1. there seems to be an explosion of classes with slightly different > behavior e.g. TextMorph, TextMorphForShout, PluggableTextMorph, > PluggableShoutMorph. > 2. I'm not clear whether the hooks for modifying behavior are > a. available in all the right places > b. working > c. widely understood Yes > I'm forming an informal panel to discuss this. I've reached out to > Morphic's creators and some original users. > > A quick example of my (seemingly common) experience: > For example, I'm writing an implementorsOf browser that shows the execution > path as a graph of MethodMorphs connected by LineMorphs, because the > standard paned browser does not capture the metaphor of drilling down > through implementors. So I Created a MethodMorph and added as a submorph a > PluggableShoutMorph to hold the code. At that point, I couldn't figure out > a good/easy way to react to mouse events and pop out a new MethodMorph. > > I tried (one of these felt very satisfying): > * Morph>>on:send:to:, which sounded good, but never got called > * intercepting Morph>>processEvent:using: (which I was told was not a good > idea) > * (after seeking help), locking the submorphs and overriding the dozen or so > event-related methods in the chain from my morph to TextMorphForShout (the > Morph that actually handles the text and input). > * subclassing TextMorphForShout and then subclassing PluggableShoutMorph to > use that subclass. Which method did you like best? There are some notes on this issue at http://wiki.squeak.org/squeak/2477 ( Eddie Cottongim writes: I know of three main ways to handle events in Morphic.......) I assume Juan does not have this variety anymore in his CUIS image..... Conclusion: It might be worthwile to find out more how Juan has pruned Morphic in Cuis and if it is still valuable for use, document that and put it to use in Squeak and Pharo. I have started reading the Cuis code, it is helpful for understanding Morphic and once you know your way around you do not mind so much that there are a lot of other things.

Sept. 22, 2010

Re: [Pharo-project] Morphic

by Hannes Hirzel

On 9/22/10, Chris Muller <asqueaker(a)gmail.com> wrote: >> All i could find about Morphic was the >> - one chapter in the Pharo/Squeak by Example book, >> - the original Self documentation >> - and a thesis on the subject of âNaked Objectsâ which talks a bit about >> the >> ideas that might have been behind Morphic. > > Here you go: > > > http://stephane.ducasse.free.fr/FreeBooks/CollectiveNBlueBook/morphic.final… > > This is chapter 2 of the "New Blue Book" which describes Morphic > top-to-bottom. From design-principles to proper implementation of > your #drawOn: method. The chapter is still a good introduction. The only thing is that now every Morph has the capability to do the layout of its submorphs. So there is no need for an AlignmentMorph anymore. Class comment of AlignmentMorph in current Squeak 4.1 "Used for layout. Since all morphs now support layoutPolicy the main use of this class is no longer needed. Kept around for compability. Supports a few methods not found elsewhere that can be convenient, eg. newRow " See also some info which still holds on http://wiki.squeak.org/squeak/1820 (Morph) http://wiki.squeak.org/squeak/1285 (Morphic Architecture) > This is just one of many books that you can read on-line at: > > http://stephane.ducasse.free.fr/FreeBooks.html > > - Chris > > > > >> >> The little bit of Morphic i could understand seems really interesting and >> i >> would really love someone could explain the ideas (it seems it had a >> different design principle in mind than the MVC paradigm?) of Morphic in >> Pharo/Squeak more thoroughly to âend usersâ. >> >> It also seems that other users have similar problems: >> http://stackoverflow.com/questions/670727/writing-a-gui-in-squeak

Sept. 22, 2010

Re: [Pharo-project] Morphic

by Chris Muller

> All i could find about Morphic was the > - one chapter in the Pharo/Squeak by Example book, > - the original Self documentation > - and a thesis on the subject of âNaked Objectsâ which talks a bit about the > ideas that might have been behind Morphic. Here you go: http://stephane.ducasse.free.fr/FreeBooks/CollectiveNBlueBook/morphic.final… This is chapter 2 of the "New Blue Book" which describes Morphic top-to-bottom. From design-principles to proper implementation of your #drawOn: method. This is just one of many books that you can read on-line at: http://stephane.ducasse.free.fr/FreeBooks.html - Chris > > The little bit of Morphic i could understand seems really interesting and i > would really love someone could explain the ideas (it seems it had a > different design principle in mind than the MVC paradigm?) of Morphic in > Pharo/Squeak more thoroughly to âend usersâ. > > It also seems that other users have similar problems: > http://stackoverflow.com/questions/670727/writing-a-gui-in-squeak > -- > View this message in context: http://forum.world.st/Morphic-tp2544184p2548950.html > Sent from the Pharo Smalltalk mailing list archive at Nabble.com. > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Sept. 22, 2010

Re: [Pharo-project] Launching class form command line ...

by John M McIntosh

Begin forwarded message: > From: John M McIntosh <johnmci(a)smalltalkconsulting.com> > Date: September 21, 2010 3:55:54 PM PDT > To: Henrik Johansen <henrik.s.johansen(a)veloxit.no> > Cc: pharo-dev(a)lists.gforge.inria.fr > Subject: Re: [Pharo-project] Launching class form command line ... > Reply-To: johnmci(a)smalltalkconsulting.com > > > > On 2010-09-21, at 7:01 AM, Henrik Johansen wrote: >>> >> >> BTW, dunno if it's a crossplatform Cog issue ( haven't checked others) but in John's new OSX Cog-based VMs (last tested 5.8b9), it doesn't look like the arguments are present in systemAttributes at position 2 onwards. >> Thus, ProjectLauncher will fail to execute scripts at all. > > This should work, can you supply an example of use. > > >> >> >> In -help: >>> -encoding <enc> set the internal character encoding (default: MacRoman) >> >> Sounds strangel, should probably be updated to Latin1/ removed (depending on how it's actually used)? > > No the only supported type is UTF8. I've removed the bogus help text line. > > >> >> >> Also, nonrelated to the VM, the comment in SmalltalkImage>>#documentPath seems misleading (not to mention the method name itself), there seems to be no conversion by the vm to absolute path going on in neither OSX nor Windows, the string is passed through raw. >> This is reinforced by the --help mentioning: >>> The first <argument> _normally_ names a Squeak `script' to execute. > > > Any comment in the image might be 15 years out of date. > > > >> >> >> Cheers, >> Henry >> > > -- > =========================================================================== > John M. McIntosh <johnmci(a)smalltalkconsulting.com> Twitter: squeaker68882 > Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com > =========================================================================== > > > > -- =========================================================================== John M. McIntosh <johnmci(a)smalltalkconsulting.com> Twitter: squeaker68882 Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com ===========================================================================

Sept. 22, 2010

Re: [Pharo-project] SparseLargeTable instances and Unicode

by Eliot Miranda

2010/9/21 Mariano Martinez Peck <marianopeck(a)gmail.com> > > > On Tue, Sep 21, 2010 at 7:55 PM, Henrik Sperre Johansen < > henrik.s.johansen(a)veloxit.no> wrote: > >> On 21.09.2010 19:10, Mariano Martinez Peck wrote: >> >>> Hi folks. I wasn't aware of the class SparseLargeTable but it seems it >>> has two important instances "SparseLargeTable allInstances size -> 2" >>> >>> They are the class side variables #DecimalProperty and #GeneralCategory >>> in Unicode. >>> >>> Actually, >>> >>> (Unicode classPool at: 'GeneralCategory') size -> 917632 >>> >>> (Unicode classPool at: 'DecimalProperty') size -> 917632 >>> >>> So...collections of almost 1 million elements. >>> >>> Now a couple of questions: >>> >>> 1) Is this normal/expected? In my calculus both arrays are like 3mb of >>> memory >>> >> Look at the implementation, there's a reason they're called sparse. >> If my math is correct (crosses fingers), DecimalProperty is ~15KB, >> GeneralCategory ~70KB > > > So...there must be a problem with my code, I was doing something like > SpaceTally does: > > > spaceForUsedInstancesOf: aClass withInstanceCount: instCount > "Answer the number of bytes consumed by all instances of the given > class, including their object headers." > > | isCompact instVarBytes bytesPerElement headerBytes total | > instCount = 0 ifTrue: [^ 0]. > isCompact := aClass indexIfCompact > 0. > instVarBytes := aClass instSize * 4. > aClass isVariable > ifTrue: [ > bytesPerElement := aClass isBytes ifTrue: [1] ifFalse: [4]. > total := 0. > aClass allInstancesDo: [:inst | | contentBytes | > contentBytes := instVarBytes + (inst size * > bytesPerElement). > headerBytes := > contentBytes > 255 > ifTrue: [12] > ifFalse: [isCompact ifTrue: [4] ifFalse: [8]]. > (UnusedObjectDiscoverer current primitiveGetUsedBit: > inst) ifTrue: > [total := total + headerBytes + contentBytes]]. > ^ total] > ifFalse: [ > headerBytes := > instVarBytes > 255 > ifTrue: [12] > ifFalse: [isCompact ifTrue: [4] ifFalse: [8]]. > ^ instCount * (headerBytes + instVarBytes)]. > > > > SparseLargeTable instanceCount ->>> 2 > > SpaceTally new spaceForUsedInstancesOf: SparseLargeTable withInstanceCount: > 2 ->>> 7341112 > You must use basicSize not size. This is a sparse table. It has a virtual size. size answers that virtual size, not the actual size. If you use basicSize you'll also need to traverse su structure to correctly compute the size of the entire sparse array including its pages. HTH Eliot > > thanks > > >> >> >>> 2) If I don't use UTF and I send an encoding as parameter in the VM >>> (different from UTF), do I need this class side variables? >>> >> What Lukas said. >> >> Cheers, >> Henry >> >> >> _______________________________________________ >> Pharo-project mailing list >> Pharo-project(a)lists.gforge.inria.fr >> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >> > > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >

Sept. 22, 2010

Re: [Pharo-project] Issue 2744: Renaming the path to the image is not caught in Pharo on OS X

by Mariano Martinez Peck

2010/9/21 Guillermo Polito <guillermopolito(a)gmail.com> > But if the changes file is pointed as "./myImage.changes" instead of > "/home/mariano/pharo/myImage.changes" the problem will not exist. > > But I don't know if the vm supports relative paths... > > > Maybe you are right. I have no idea at all :( > 2010/9/21 Mariano Martinez Peck <marianopeck(a)gmail.com> > >> >> >> 2010/9/21 Guillermo Polito <guillermopolito(a)gmail.com> >> >> >>> >>> 2010/9/21 Mariano Martinez Peck <marianopeck(a)gmail.com> >>> >>> Yes, I have this probelm several times....what I did is to change the >>>> >>>> logChange: so that it does nothing, save it, and then quit the image. >>>> >>>> >>>> Anyway, what could be a solution for this problem? >>>> >>> >>> Relative paths? :/ >>> >>> >> >> No, it won't wotk. >> >> Suppose my .image and .changes are now in /home/mariano/Pharo and while >> the image is running you rename the directory to /home/mariano/pharoRenamed >> >> Your smalltalk image is still pointing to your .changes in >> /home/mariano/Pharo and it was not updated. >> >> So...the only way I see is that the OS somehow should notify SqueakVM >> about that..... >> >> >> >>> >>>> thanks >>>> >>>> mariano >>>> >>>> >>>> On Tue, Aug 3, 2010 at 3:28 PM, Mircea Lungu <lungu(a)iam.unibe.ch>wrote: >>>> >>>>> Hi guys, >>>>> >>>>> If I rename any of the directories in the path of a running image I >>>>> will >>>>> break the image: I can't save it, I can't close it. I get a debugger >>>>> at any step. It seems the image is not informed of the path change >>>>> and it still tries to log the changes in the the changes file which has >>>>> already moved. >>>>> >>>>> I verified this on OS X,. >>>>> >>>>> I opened an issue for this: >>>>> http://code.google.com/p/pharo/issues/detail?id=2744 >>>>> >>>>> Mircea. >>>>> >>>>> _______________________________________________ >>>>> Pharo-project mailing list >>>>> Pharo-project(a)lists.gforge.inria.fr >>>>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >>>>> >>>> >>>> >>>> _______________________________________________ >>>> Pharo-project mailing list >>>> Pharo-project(a)lists.gforge.inria.fr >>>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >>>> >>> >>> >>> _______________________________________________ >>> Pharo-project mailing list >>> Pharo-project(a)lists.gforge.inria.fr >>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >>> >> >> >> _______________________________________________ >> Pharo-project mailing list >> Pharo-project(a)lists.gforge.inria.fr >> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >> > > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >

Sept. 21, 2010

Re: [Pharo-project] SparseLargeTable instances and Unicode

by Mariano Martinez Peck

Sound good to me! > Personally I'd also like some more refactoring, like rewriting > spaceForInstancesOf: withInstanceCount into > #spaceForInstancesOfClass: aClass, delegating to: > #spaceFor: amount instancesOfClass: aFixedClass (private category?) > #spaceForInstancesOfVariableClass: aVariableClass (private category?) > > I was thinking more or less the same. Even more, if we integrate Object >> sizeInMemory why not adding also: Class >> spaceForInstances | totalSize | totalSize := 0. self allInstancesDo: [ :inst | totalSize := totalSize + inst sizeInMemory. ]. ^ totalSize ? Then we can also replace spaceForInstancesOf: withInstanceCount with spaceForInstances Example: printSpaceAnalysis: threshold on: aStream "SpaceTally new printSpaceAnalysis: 1 on:(FileStream forceNewFileNamed: 'STspace.text')" "sd-This method should be rewrote to be more coherent within the rest of the class ie using preAllocate and spaceForInstanceOf:" "If threshold > 0, then only those classes with more than that number of instances will be shown, and they will be sorted by total instance space. If threshold = 0, then all classes will appear, sorted by name." | totalCodeSpace totalInstCount totalInstSpace n totalPercent | Smalltalk garbageCollect. totalCodeSpace := totalInstCount := totalInstSpace := n := 0. results := OrderedCollection new: Smalltalk classNames size. 'Taking statistics...' displayProgressAt: Sensor cursorPoint from: 0 to: Smalltalk classNames size during: [:bar | (Smalltalk globals allClasses) do: [:cl | | codeSpace instCount instSpace eltSize | codeSpace := cl spaceUsed. bar value: (n := n+1). Smalltalk garbageCollectMost. instCount := cl instanceCount. instSpace := cl spaceForInstances. results add: (SpaceTallyItem analyzedClassName: cl name codeSize: codeSpace instanceCount: instCount spaceForInstances: instSpace). totalCodeSpace := totalCodeSpace + codeSpace. totalInstCount := totalInstCount + instCount. totalInstSpace := totalInstSpace + instSpace]]. totalPercent := 0.0. "aStream timeStamp." aStream nextPutAll: ('Class' padded: #right to: 30 with: $ ); nextPutAll: ('code space' padded: #left to: 12 with: $ ); nextPutAll: ('# instances' padded: #left to: 12 with: $ ); nextPutAll: ('inst space' padded: #left to: 12 with: $ ); nextPutAll: ('percent' padded: #left to: 8 with: $ ); cr. threshold > 0 ifTrue: [ "If inst count threshold > 0, then sort by space" results := (results select: [:s | s instanceCount >= threshold or: [s spaceForInstances > (totalInstSpace // 500)]]) asSortedCollection: [:s :s2 | s spaceForInstances > s2 spaceForInstances]]. results do: [:s | | percent | aStream nextPutAll: (s analyzedClassName padded: #right to: 30 with: $ ); nextPutAll: (s codeSize printString padded: #left to: 12 with: $ ); nextPutAll: (s instanceCount printString padded: #left to: 12 with: $ ); nextPutAll: (s spaceForInstances printString padded: #left to: 14 with: $ ). percent := s spaceForInstances*100.0/totalInstSpace roundTo: 0.1. totalPercent := totalPercent + percent. percent >= 0.1 ifTrue: [ aStream nextPutAll: (percent printString padded: #left to: 8 with: $ )]. aStream cr]. aStream cr; nextPutAll: ('Total' padded: #right to: 30 with: $ ); nextPutAll: (totalCodeSpace printString padded: #left to: 12 with: $ ); nextPutAll: (totalInstCount printString padded: #left to: 12 with: $ ); nextPutAll: (totalInstSpace printString padded: #left to: 14 with: $ ); nextPutAll: ((totalPercent roundTo: 0.1) printString padded: #left to: 8 with: $ ). agree?? thanks That way you also move ugly instance counting out of the loop. > > Also, while you're at it, what about factoring out > contentBytes > 255 > ifTrue: [12] > ifFalse: [isCompact ifTrue: [4] ifFalse: [8]. > into, say, #headerBytesOfClass: aClass ? > > And really, wtf? > An instance of a compact, variable class with more than 255 bytes in it > will have a 12-byte header, while those with less will have a 4-byte header? > Plus, setting a class with more than 63 instance variables will never have > an effect, its instances will always have 12-byte headers? > > Cheers, > Henry > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >

Sept. 21, 2010

Re: [Pharo-project] is it possible to know the memory occupation (bytes) of an object?

by Mariano Martinez Peck

2010/9/21 Henrik Sperre Johansen <henrik.s.johansen(a)veloxit.no> > On 21.09.2010 20:47, Mariano Martinez Peck wrote: > > > > On Tue, Apr 27, 2010 at 1:19 PM, Adrian Lienhard <adi(a)netstyle.ch> wrote: > >> Its a simple method in Object: >> >> Object>>sizeInMemory >> "Returns the number of bytes used by this object in memory >> (including its header)" >> >> | headerSize instanceSize | >> headerSize := (self class indexIfCompact > 0 ifTrue: [ 4 ] ifFalse: >> [ 8 ]). >> instanceSize := (self class isVariable >> ifFalse: [ self class instSize * Smalltalk wordSize ] >> ifTrue: [ (self basicSize * (self class isBytes >> ifTrue: [ 1 ] ifFalse: [ Smalltalk wordSize ])) ]). >> ^ headerSize + instanceSize >> >> ^ headerSize + contentBytes :) Thanks Henry....so do you think we can integrate this? Adrian? > > Hi Adrian. Sorry for returning to this thread. I am trying to contemplate > all the cases. > > I was looking at SpaceTally and I found that maybe a better implementation > could be something like this: > > Object >> sizeInMemory > "Answer the number of bytes consumed by this instance including object > header." > > | isCompact instVarBytes bytesPerElement headerBytes total contentBytes > | > isCompact := self class indexIfCompact > 0. > instVarBytes := self class instSize * 4. > self class isVariable > ifTrue: [ > bytesPerElement := self class isBytes ifTrue: [1] ifFalse: [4]. > total := 0. > contentBytes := instVarBytes + (self basicSize * > bytesPerElement). > headerBytes := > contentBytes > 255 > ifTrue: [12] > ifFalse: [isCompact ifTrue: [4] ifFalse: [8]]. > total := headerBytes + contentBytes. > ^ total] > ifFalse: [ > headerBytes := > instVarBytes > 255 > ifTrue: [12] > ifFalse: [isCompact ifTrue: [4] ifFalse: [8]]. > ^ headerBytes + instVarBytes ]. > > > > I guess I did some mistake but if we can arrive to a good implementation it > would be really cool. > > Thanks > > mariano > > > Please, at least do some refactoring :) > > Object >> sizeInMemory > "Answer the number of bytes consumed by this instance including object > header." > | isCompact headerBytes contentBytes | > > isCompact := self class indexIfCompact > 0. > contentBytes := self class instSize * Smalltalk wordSize. "inst vars" > > self class isVariable ifTrue: > [ |bytesPerElement| > bytesPerElement := self class isBytes ifTrue: [1] ifFalse: [4]. > contentBytes := contentBytes + (self basicSize * > bytesPerElement)]. > > headerBytes := > contentBytes > 255 > ifTrue: [12] > ifFalse: [isCompact ifTrue: [4] ifFalse: [8]]. > ^ headerBytes + instVarBytes > > Also, in a 64-bit image, I suspect you may have to make a distinction > between class isWords as well. > ie: > self class isBytes ifTrue: [1] ifFalse: [self class isWords ifTrue: [4] > ifFalse: [Smalltalk wordSize]] > > Cheers, > Henry > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >

Sept. 21, 2010

Re: [Pharo-project] is it possible to know the memory occupation (bytes) of an object?

by Henrik Sperre Johansen

On 21.09.2010 20:47, Mariano Martinez Peck wrote: > > > On Tue, Apr 27, 2010 at 1:19 PM, Adrian Lienhard <adi(a)netstyle.ch > <mailto:adi@netstyle.ch>> wrote: > > Its a simple method in Object: > > Object>>sizeInMemory > "Returns the number of bytes used by this object in memory > (including its header)" > > | headerSize instanceSize | > headerSize := (self class indexIfCompact > 0 ifTrue: [ 4 ] > ifFalse: [ 8 ]). > instanceSize := (self class isVariable > ifFalse: [ self class instSize * Smalltalk wordSize ] > ifTrue: [ (self basicSize * (self class isBytes > ifTrue: [ 1 ] ifFalse: [ Smalltalk wordSize > ])) ]). > ^ headerSize + instanceSize > > > Hi Adrian. Sorry for returning to this thread. I am trying to > contemplate all the cases. > > I was looking at SpaceTally and I found that maybe a better > implementation could be something like this: > > Object >> sizeInMemory > "Answer the number of bytes consumed by this instance including > object header." > > | isCompact instVarBytes bytesPerElement headerBytes total > contentBytes | > isCompact := self class indexIfCompact > 0. > instVarBytes := self class instSize * 4. > self class isVariable > ifTrue: [ > bytesPerElement := self class isBytes ifTrue: [1] ifFalse: > [4]. > total := 0. > contentBytes := instVarBytes + (self basicSize * > bytesPerElement). > headerBytes := > contentBytes > 255 > ifTrue: [12] > ifFalse: [isCompact ifTrue: [4] ifFalse: [8]]. > total := headerBytes + contentBytes. > ^ total] > ifFalse: [ > headerBytes := > instVarBytes > 255 > ifTrue: [12] > ifFalse: [isCompact ifTrue: [4] ifFalse: [8]]. > ^ headerBytes + instVarBytes ]. > > > > I guess I did some mistake but if we can arrive to a good > implementation it would be really cool. > > Thanks > > mariano Please, at least do some refactoring :) Object >> sizeInMemory "Answer the number of bytes consumed by this instance including object header." | isCompact headerBytes contentBytes | isCompact := self class indexIfCompact > 0. contentBytes := self class instSize * Smalltalk wordSize. "inst vars" self class isVariable ifTrue: [ |bytesPerElement| bytesPerElement := self class isBytes ifTrue: [1] ifFalse: [4]. contentBytes := contentBytes + (self basicSize * bytesPerElement)]. headerBytes := contentBytes > 255 ifTrue: [12] ifFalse: [isCompact ifTrue: [4] ifFalse: [8]]. ^ headerBytes + instVarBytes Also, in a 64-bit image, I suspect you may have to make a distinction between class isWords as well. ie: self class isBytes ifTrue: [1] ifFalse: [self class isWords ifTrue: [4] ifFalse: [Smalltalk wordSize]] Cheers, Henry

Sept. 21, 2010