June 2011 - Pharo-users - lists.pharo.org

Re: [Pharo-users] How to find all classes within a category?

by Marcus Denker

On Jun 30, 2011, at 3:59 PM, Alex Schenkman wrote: > Hi list, > > How do I find all classes belonging to a category? > I could go through the Smalltalk dictionary, but I'm sure there is a better way, :-) > Everything related to Categories is strange. (this is code from the 70ties... it violates the "principle of the least surprise" as often as possible by being done exactly as you would not do it if you would implement it... SystemOrganization listAtCategoryNamed: 'Files-System' SystemOrganization here is a global pointing ot one instance of SystemOrganizer. This, of course, returns not the classes (this would be too easy), bit symbols equal to the class names (suitable to query Smalltalk globals): (SystemOrganization listAtCategoryNamed: 'Files-System') collect: [:each | Smalltalk globals at: each] -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

June 30, 2011

How to find all classes within a category?

by Alex Schenkman

Hi list, How do I find all classes belonging to a category? I could go through the Smalltalk dictionary, but I'm sure there is a better way, :-) Thanks!

June 30, 2011

Re: [Pharo-users] How to delete a class and method programatically?

by Mariano Martinez Peck

On Thu, Jun 30, 2011 at 11:44 AM, Alex Schenkman <alex(a)schenkman.info>wrote: > Hi list, > > How can I delete a class pragmatically? > MyClass removeFromSystem > And a method? > > MyClass removeSelector: #foo > Thanks in advance! > -- Mariano http://marianopeck.wordpress.com

June 30, 2011

How to delete a class and method programatically?

by Alex Schenkman

Hi list, How can I delete a class pragmatically? And a method? Thanks in advance!

June 30, 2011

Re: [Pharo-users] Howto add a method programatically

by StÃ©phane Ducasse

the compileSilently: will not log your changes if you need that. On Jun 29, 2011, at 8:01 PM, Mariano Martinez Peck wrote: > > > On Wed, Jun 29, 2011 at 7:04 PM, Igor Stasenko <siguctua(a)gmail.com> wrote: > On 29 June 2011 18:44, Alex Schenkman <alex(a)schenkman.info> wrote: > > Hi list, > > I'm using Pharo 1.2.1. > > How can I add a method programatically (with code)? > > Where do I find information about it? > > Thanks in advance! > > > > MyClass compile: 'newMethod ^ 1 + 1 ' > > > yes, and you can also check the friends of #compile: that are in the same category. You can specify notifiers, category, etc, etc. > > -- > Best regards, > Igor Stasenko AKA sig. > > > > > -- > Mariano > http://marianopeck.wordpress.com >

June 30, 2011

Re: [Pharo-users] SandstoneDB and a dictionary

by David Zmick

Awesome!! Thank you so much for fixing it so quickly and being tolerant of my lack of knowledge. I have to say I am once again impressed by the smalltalk community. Thank you. On Wed, Jun 29, 2011 at 11:11 PM, Ramon Leon <ramon.leon(a)allresnet.com>wrote: > On 06/29/2011 05:40 PM, David Zmick wrote: > >> Okay. So I wrote a test case with similar behavior and it worked >> correctly, but the difference between the test case objects and my >> objects is that all of the test case objects are active records that get >> saved, not just the top level object as in my code. >> > > Nope, that wasn't the difference that mattered. You did find a bug, an > interesting one, but your test code was overly complex hiding what was > really going on. Here's a simpler test case that exposes the bug more > directly. > > testObjectFoundMultipleTimesIn**Aggregate > | obj key | > obj := SDPersonMock new. > obj children: Dictionary new. > key := Object new. > > "store ref to key in two places" > obj children at: key put: 1. > obj children at: 1 put: key. > > self deny: (obj children keys includes: nil). > self deny: (obj children values includes: nil). > obj save. > self flushAndReload. > self deny: (obj children keys includes: nil). > self deny: (obj children values includes: nil) > > The bug has been fixed, pull down the latest code from SqueakSource and > your code with work fine. As you can see from the test case above, the > issue was related to an object being references in multiple places inside an > active record. During serialization, this exposed a silly bug in the deep > copy that I think I introduced recently with a round of refactoring. Thanks > for the bug report. > > > -- > Ramon Leon > http://onsmalltalk.com > > -- David Zmick dpzmick(a)gmail.com

June 30, 2011

Re: [Pharo-users] SandstoneDB and a dictionary

by Ramon Leon

On 06/29/2011 05:40 PM, David Zmick wrote: > Okay. So I wrote a test case with similar behavior and it worked > correctly, but the difference between the test case objects and my > objects is that all of the test case objects are active records that get > saved, not just the top level object as in my code. Nope, that wasn't the difference that mattered. You did find a bug, an interesting one, but your test code was overly complex hiding what was really going on. Here's a simpler test case that exposes the bug more directly. testObjectFoundMultipleTimesInAggregate | obj key | obj := SDPersonMock new. obj children: Dictionary new. key := Object new. "store ref to key in two places" obj children at: key put: 1. obj children at: 1 put: key. self deny: (obj children keys includes: nil). self deny: (obj children values includes: nil). obj save. self flushAndReload. self deny: (obj children keys includes: nil). self deny: (obj children values includes: nil) The bug has been fixed, pull down the latest code from SqueakSource and your code with work fine. As you can see from the test case above, the issue was related to an object being references in multiple places inside an active record. During serialization, this exposed a silly bug in the deep copy that I think I introduced recently with a round of refactoring. Thanks for the bug report. -- Ramon Leon http://onsmalltalk.com

June 30, 2011

Re: [Pharo-users] SandstoneDB and a dictionary

by David Zmick

Okay. So I wrote a test case with similar behavior and it worked correctly, but the difference between the test case objects and my objects is that all of the test case objects are active records that get saved, not just the top level object as in my code. So I guess there is no bug, I just do not understand what I am doing, which is what I was expecting to be the case anyway. So I guess my question is, do I need to make every object I am saving into a subclass of SDActiveRecord and go through everything and save everything, or should I be able to have, in my example code, the class Test be the only SDActiveRecord subclass and only worry about saving instances of Test? On Wed, Jun 29, 2011 at 6:17 PM, Ramon Leon <ramon.leon(a)allresnet.com>wrote: > On 06/29/2011 02:55 PM, David Zmick wrote: > >> >> Do you want me to create a test in the actual test classes for >> Sandstonedb using the mom dad kid objects or can I do something like this? >> > > If you can use the existing mocks, i.e. the man woman child classes, and > make it fail in a workspace like you just did, that would be very helpful. > Look at the existing testDictionaryKeys and build a similar one in the test > class and get it to fail. Send me the failing test. If you can do it in a > workspace, you can do it in a test, but I'd start with the test and forget > the workspace all together. You may find a bug, or you may find you were > wrong. > > If you don't reply with a failing test, I may or may not find some time > tonight to look into your examples, but if you need/want it fixed fast, send > me a failing test. > > > -- > Ramon Leon > http://onsmalltalk.com > > -- David Zmick dpzmick(a)gmail.com

June 30, 2011

Re: [Pharo-users] SandstoneDB and a dictionary

by Ramon Leon

On 06/29/2011 02:55 PM, David Zmick wrote: > > Do you want me to create a test in the actual test classes for > Sandstonedb using the mom dad kid objects or can I do something like this? If you can use the existing mocks, i.e. the man woman child classes, and make it fail in a workspace like you just did, that would be very helpful. Look at the existing testDictionaryKeys and build a similar one in the test class and get it to fail. Send me the failing test. If you can do it in a workspace, you can do it in a test, but I'd start with the test and forget the workspace all together. You may find a bug, or you may find you were wrong. If you don't reply with a failing test, I may or may not find some time tonight to look into your examples, but if you need/want it fixed fast, send me a failing test. -- Ramon Leon http://onsmalltalk.com

June 29, 2011

Re: [Pharo-users] SandstoneDB and a dictionary

by David Zmick

All the tests are passing except SDFileStoreTests>>#testBigSave and it appears to be because commitTime is not < 3 seconds. Do you want me to create a test in the actual test classes for Sandstonedb using the mom dad kid objects or can I do something like this? this creates the error I am experiencing when I ran it in the workspace: | t | t := Test new. t as1: OrderedCollection new. t bs: OrderedCollection new. t as add: (A new title: 1). t bs add: (B new title: 1). t as do: [:a | t bs do: [:b | a dict at: b put: 1]]. t save. Test coolDown; warmUp. t inspect. I don't really know how I would translate this into a test case, I am still new to programming so if you could give me some pointers I would very much appreciate them. On Wed, Jun 29, 2011 at 4:39 PM, Ramon Leon <ramon.leon(a)allresnet.com>wrote: > On 06/29/2011 02:30 PM, David Zmick wrote: > >> Saving a dictionary that has references to other objects as keys results >> in data loss in the dictionary. >> > > Do all the tests pass in your image? The test.. > > testDictionaryKeys > | dad | > dad := self manClass testPerson save. > kid save. > mom children: (Dictionary with: dad -> kid). > mom save. > self flushAndReload. > self > assert: (mom refreshed children at: dad refreshed ) > equals: kid refreshed > > Should have already covered this scenario to ensure other records work as > keys. #flushAndReload is the same process that happens during image > startup. Could you possibly express your scenario as a failing test like > above using the existing mock objects? If you can show me a failing test > I'll get the problem resolved much quicker. > > -- > Ramon Leon > http://onsmalltalk.com > > -- David Zmick dpzmick(a)gmail.com

June 29, 2011