Squeak-dev September 2011

squeak-dev@lists.squeakfoundation.org

64 participants
208 discussions

Daily Commit Log
by commits＠source.squeak.org 21 Sep '11

21 Sep '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-September/004986.… Name: Morphic-laza.575 Ancestors: Morphic-nice.572 You can now tell a UserDialogBoxMorph to automatically trigger the preselected button after a timeout of some seconds. There is also now a method that let's you set either true or false as the default choice as in UserDialogBoxMorph confirm: 'I like hot java' title: 'What do you say?' trueChoice: 'You bet!' falseChoice: 'Nope' default: false triggerAfter: 12 at: 121 at 212 As suggested (thanks Bert) this uses an easier implementation using morphic stepping instead of processes ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-September/004987.… Name: Morphic-laza.576 Ancestors: Morphic-nice.572 Another bit right from the Rocket Science Lab. Center preselected button of UserDialogBoxMorph right under the mouse cursor. No more hunting tiny Yes buttons (that's right Nancy). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-September/004988.… Name: Morphic-laza.577 Ancestors: Morphic-laza.575, Morphic-laza.576 Merged =============================================

1 0

cannot run unit-tests under Cog
by Chris Muller 20 Sep '11

20 Sep '11

In a stock Squeak4.3alpha-11481.image, I cannot seem to run the test-suite under the 2486 or 2487 releases of Cog. It doesn't get very far before I see the following on stdout: $ mprotect(x,y,PROT_READ | PROT_WRITE): Cannot allocate memory and the entire OS becomes very sluggish (perhaps writing out a core dump). The VM crashes with: [7]+ Segmentation fault (core dumped) squeak Squeak4.3alpha-11481.image They seemed to run under the interpreter VM. Can anyone else reproduce this?

6 5

The Trunk: Morphic-laza.577.mcz
by commits＠source.squeak.org 20 Sep '11

20 Sep '11

Alexander Lazarević uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-laza.577.mcz ==================== Summary ==================== Name: Morphic-laza.577 Author: laza Time: 19 September 2011, 4:18:26.575 pm UUID: 921e0ae8-d889-4df4-a6a1-dbf092852fa1 Ancestors: Morphic-laza.575, Morphic-laza.576 Merged =============== Diff against Morphic-laza.575 =============== Item was changed: ----- Method: UserDialogBoxMorph>>runModalIn:forHand:at: (in category 'running') ----- runModalIn: aWorld forHand: aHand at: aPointOrNil "Ensure that we have a reasonable minimum size" + | oldFocus pos offset | - | oldFocus pos | (ProvideAnswerNotification signal: self label asString) ifNotNil:[:answer| ^answer]. self openInWorld: aWorld. + pos := aPointOrNil ifNil: [aHand position]. + offset := aPointOrNil + ifNil: [selectedButton fullBounds origin - (selectedButton fullBounds extent // 2 * (-1@1))] + ifNotNil: [self fullBounds extent // 2]. + self setConstrainedPosition: pos - offset hangOut: false. - pos := (aPointOrNil ifNil:[aHand position]) - (self fullBounds extent // 2). - self setConstrainedPosition: pos hangOut: false. oldFocus := aHand keyboardFocus. aHand newMouseFocus: self. aHand newKeyboardFocus: self. savedLabel := selectedButton label. [self isInWorld] whileTrue:[aWorld doOneSubCycle]. oldFocus ifNotNil:[aHand keyboardFocus: oldFocus]. ^value!

1 0

The Trunk: Morphic-laza.576.mcz
by commits＠source.squeak.org 20 Sep '11

20 Sep '11

Alexander Lazarević uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-laza.576.mcz ==================== Summary ==================== Name: Morphic-laza.576 Author: laza Time: 19 September 2011, 3:48:05.75 pm UUID: 57b8c514-c187-4a95-8628-aa874edab248 Ancestors: Morphic-nice.572 Another bit right from the Rocket Science Lab. Center preselected button of UserDialogBoxMorph right under the mouse cursor. No more hunting tiny Yes buttons (that's right Nancy). =============== Diff against Morphic-nice.572 =============== Item was changed: ----- Method: UserDialogBoxMorph>>runModalIn:forHand:at: (in category 'running') ----- runModalIn: aWorld forHand: aHand at: aPointOrNil "Ensure that we have a reasonable minimum size" + | oldFocus pos offset | - | oldFocus pos | (ProvideAnswerNotification signal: self label asString) ifNotNil:[:answer| ^answer]. self openInWorld: aWorld. + pos := aPointOrNil ifNil: [aHand position]. + offset := aPointOrNil + ifNil: [selectedButton fullBounds origin - (selectedButton fullBounds extent // 2 * (-1@1))] + ifNotNil: [self fullBounds extent // 2]. + self setConstrainedPosition: pos - offset hangOut: false. - pos := (aPointOrNil ifNil:[aHand position]) - (self fullBounds extent // 2). - self setConstrainedPosition: pos hangOut: false. oldFocus := aHand keyboardFocus. aHand newMouseFocus: self. aHand newKeyboardFocus: self. [self isInWorld] whileTrue:[aWorld doOneSubCycle]. oldFocus ifNotNil:[aHand keyboardFocus: oldFocus]. ^value!

1 0

The Trunk: Morphic-laza.575.mcz
by commits＠source.squeak.org 20 Sep '11

20 Sep '11

Alexander Lazarević uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-laza.575.mcz ==================== Summary ==================== Name: Morphic-laza.575 Author: laza Time: 19 September 2011, 8:51:54.838 am UUID: 287d060c-cc1b-42a0-877c-8d04e245ecda Ancestors: Morphic-nice.572 You can now tell a UserDialogBoxMorph to automatically trigger the preselected button after a timeout of some seconds. There is also now a method that let's you set either true or false as the default choice as in UserDialogBoxMorph confirm: 'I like hot java' title: 'What do you say?' trueChoice: 'You bet!' falseChoice: 'Nope' default: false triggerAfter: 12 at: 121@212 As suggested (thanks Bert) this uses an easier implementation using morphic stepping instead of processes =============== Diff against Morphic-nice.572 =============== Item was changed: AlignmentMorph subclass: #UserDialogBoxMorph + instanceVariableNames: 'titleMorph labelMorph buttonRow value selectedButton cancelButton timeout savedLabel' - instanceVariableNames: 'titleMorph labelMorph buttonRow value selectedButton cancelButton' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Windows'! !UserDialogBoxMorph commentStamp: 'ar 12/11/2009 22:33' prior: 0! A DialogBoxMorph is Morph used in simple yes/no/confirm dialogs. Strongly modal.! Item was added: + ----- Method: UserDialogBoxMorph class>>confirm:title:trueChoice:falseChoice:default:triggerAfter:at: (in category 'utilities') ----- + confirm: aString title: titleString trueChoice: trueChoice falseChoice: falseChoice default: default triggerAfter: seconds at: aPointOrNil + "UserDialogBoxMorph confirm: 'I like hot java' title: 'What do you say?' trueChoice: 'You bet!!' falseChoice: 'Nope' default: false triggerAfter: 12 at: 121@212" + ^self new + title: titleString; + label: aString; + addButton: ' ', trueChoice translated, ' ' value: true selected: default performActionOnEscape: false; + addButton: ' ', falseChoice translated, ' ' value: false selected: default not performActionOnEscape: true; + triggerAfter: seconds; + runModalIn: ActiveWorld forHand: ActiveHand at: aPointOrNil! Item was changed: ----- Method: UserDialogBoxMorph>>keyStroke: (in category 'events') ----- keyStroke: evt - | evtCharacter | + self stopAutoTrigger. evtCharacter := evt keyCharacter. evtCharacter = Character escape ifTrue: [ ^cancelButton ifNotNil: [ cancelButton performAction ] ]. evtCharacter = Character cr ifTrue: [ ^selectedButton ifNotNil: [ selectedButton performAction ] ]. (evtCharacter = Character arrowLeft or: [ evt shiftPressed and: [ evtCharacter = Character tab ] ]) ifTrue: [ ^self selectPreviousButton ]. (evtCharacter = Character arrowRight or: [ evtCharacter = Character tab ]) ifTrue: [ ^self selectNextButton ].! Item was changed: ----- Method: UserDialogBoxMorph>>mouseDown: (in category 'events') ----- mouseDown: event + self stopAutoTrigger. "Always bring me to the front since I am modal" self comeToFront. (self containsPoint: event position) ifFalse:[ Beeper beepPrimitive. ^self flash]. event hand grabMorph: self.! Item was changed: ----- Method: UserDialogBoxMorph>>mouseUp: (in category 'events') ----- mouseUp: event + self stopAutoTrigger. "aggressively preserve focus" event hand newMouseFocus: self.! Item was changed: ----- Method: UserDialogBoxMorph>>runModalIn:forHand:at: (in category 'running') ----- runModalIn: aWorld forHand: aHand at: aPointOrNil "Ensure that we have a reasonable minimum size" | oldFocus pos | (ProvideAnswerNotification signal: self label asString) ifNotNil:[:answer| ^answer]. self openInWorld: aWorld. pos := (aPointOrNil ifNil:[aHand position]) - (self fullBounds extent // 2). self setConstrainedPosition: pos hangOut: false. oldFocus := aHand keyboardFocus. aHand newMouseFocus: self. aHand newKeyboardFocus: self. + savedLabel := selectedButton label. [self isInWorld] whileTrue:[aWorld doOneSubCycle]. oldFocus ifNotNil:[aHand keyboardFocus: oldFocus]. ^value! Item was added: + ----- Method: UserDialogBoxMorph>>step (in category 'stepping and presenter') ----- + step + timeout ifNil: [^self]. + timeout = 0 + ifTrue: [ + self stopStepping. + selectedButton performAction] + ifFalse: [ + selectedButton label: savedLabel, '(', timeout printString, ')'. + timeout := timeout - 1]! Item was added: + ----- Method: UserDialogBoxMorph>>stepTime (in category 'stepping and presenter') ----- + stepTime + ^1000! Item was added: + ----- Method: UserDialogBoxMorph>>stopAutoTrigger (in category 'stepping and presenter') ----- + stopAutoTrigger + timeout ifNil: [^self]. + timeout := nil. + self stopStepping. + selectedButton label: savedLabel ! Item was added: + ----- Method: UserDialogBoxMorph>>triggerAfter: (in category 'constructing') ----- + triggerAfter: seconds + timeout := seconds!

1 0

updating one or two packages?
by Eliot Miranda 19 Sep '11

19 Sep '11

Hi All, what would be the MonticelloConfigurations code to update a single package or a pair of packages? i.e. how to selectively achieve the results of update squeak for a specific subset of packages? I know in general this is an ill-formed request. Updating in general may require all the packages in the system. But some packages (in my case Compiler and Kernel) have pretty limited dependencies and I know that they can be updated independently of the rest of the packages in the Newspeak image we're using (this image derived from Squeak 4.2 trunk with a slew of additions). I want to update just Compiler and Kernel in our Newspeak image and I want in this case to avoid the long route, which is to apply our Newspeak bootstrap to trunk. -- best, Eliot

3 3

Re: [squeak-dev] The Inbox: Morphic-laza.574.mcz
by Bert Freudenberg 19 Sep '11

19 Sep '11

I like the idea, but not the implementation. I'd rather not fork a process but use Morphic stepping instead. Also, I'd have expected this to be "auto cancel" not "auto accept". Maybe we need both? - Bert - On 15.09.2011, at 09:16, commits(a)source.squeak.org wrote: > Alexander Lazarević uploaded a new version of Morphic to project The Inbox: > http://source.squeak.org/inbox/Morphic-laza.574.mcz > > ==================== Summary ==================== > > Name: Morphic-laza.574 > Author: laza > Time: 15 September 2011, 11:15:54.794 am > UUID: d6d493ea-178b-44ca-bb16-46345d84111d > Ancestors: Morphic-laza.573 > > Now with spiffy countdown on the selected button > > UserDialogBoxMorph confirm: 'Yay! This is great!' timeout: 5 > > =============== Diff against Morphic-laza.573 =============== > > Item was changed: > AlignmentMorph subclass: #UserDialogBoxMorph > + instanceVariableNames: 'titleMorph labelMorph buttonRow value selectedButton selectedButtonLabel cancelButton timeout autoCloseProcess' > - instanceVariableNames: 'titleMorph labelMorph buttonRow value selectedButton cancelButton timeout autoCloseProcess' > classVariableNames: '' > poolDictionaries: '' > category: 'Morphic-Windows'! > > !UserDialogBoxMorph commentStamp: 'ar 12/11/2009 22:33' prior: 0! > A DialogBoxMorph is Morph used in simple yes/no/confirm dialogs. Strongly modal.! > > Item was changed: > ----- Method: UserDialogBoxMorph>>autoCloseBlock (in category 'running') ----- > autoCloseBlock > ^[ > + | start past | > + start := Time totalSeconds. > + selectedButtonLabel := selectedButton label. > + [(past := Time totalSeconds - start) <= timeout] whileTrue: [ > + selectedButton label: selectedButtonLabel, ' (', (timeout - past) printString, ')'. > + (Delay forSeconds: 1) wait]. > - (Delay forSeconds: self timeout) wait. > selectedButton ifNotNil: [selectedButton performAction] > ]! > > Item was changed: > ----- Method: UserDialogBoxMorph>>stopAutoClose (in category 'running') ----- > stopAutoClose > + autoCloseProcess ifNotNil: [autoCloseProcess terminate]. > + selectedButtonLabel ifNotNil: [ > + selectedButton label: selectedButtonLabel. > + selectedButtonLabel := nil]! > - autoCloseProcess ifNotNil: [autoCloseProcess terminate]! > >

2 2

The Inbox: Morphic-laza.577.mcz
by commits＠source.squeak.org 19 Sep '11

19 Sep '11

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-laza.577.mcz ==================== Summary ==================== Name: Morphic-laza.577 Author: laza Time: 19 September 2011, 4:18:26.575 pm UUID: 921e0ae8-d889-4df4-a6a1-dbf092852fa1 Ancestors: Morphic-laza.575, Morphic-laza.576 Merged =============== Diff against Morphic-laza.575 =============== Item was changed: ----- Method: UserDialogBoxMorph>>runModalIn:forHand:at: (in category 'running') ----- runModalIn: aWorld forHand: aHand at: aPointOrNil "Ensure that we have a reasonable minimum size" + | oldFocus pos offset | - | oldFocus pos | (ProvideAnswerNotification signal: self label asString) ifNotNil:[:answer| ^answer]. self openInWorld: aWorld. + pos := aPointOrNil ifNil: [aHand position]. + offset := aPointOrNil + ifNil: [selectedButton fullBounds origin - (selectedButton fullBounds extent // 2 * (-1@1))] + ifNotNil: [self fullBounds extent // 2]. + self setConstrainedPosition: pos - offset hangOut: false. - pos := (aPointOrNil ifNil:[aHand position]) - (self fullBounds extent // 2). - self setConstrainedPosition: pos hangOut: false. oldFocus := aHand keyboardFocus. aHand newMouseFocus: self. aHand newKeyboardFocus: self. savedLabel := selectedButton label. [self isInWorld] whileTrue:[aWorld doOneSubCycle]. oldFocus ifNotNil:[aHand keyboardFocus: oldFocus]. ^value!

1 0

The Inbox: Morphic-laza.576.mcz
by commits＠source.squeak.org 19 Sep '11

19 Sep '11

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-laza.576.mcz ==================== Summary ==================== Name: Morphic-laza.576 Author: laza Time: 19 September 2011, 3:48:05.75 pm UUID: 57b8c514-c187-4a95-8628-aa874edab248 Ancestors: Morphic-nice.572 Another bit right from the Rocket Science Lab. Center preselected button of UserDialogBoxMorph right under the mouse cursor. No more hunting tiny Yes buttons (that's right Nancy). =============== Diff against Morphic-nice.572 =============== Item was changed: ----- Method: UserDialogBoxMorph>>runModalIn:forHand:at: (in category 'running') ----- runModalIn: aWorld forHand: aHand at: aPointOrNil "Ensure that we have a reasonable minimum size" + | oldFocus pos offset | - | oldFocus pos | (ProvideAnswerNotification signal: self label asString) ifNotNil:[:answer| ^answer]. self openInWorld: aWorld. + pos := aPointOrNil ifNil: [aHand position]. + offset := aPointOrNil + ifNil: [selectedButton fullBounds origin - (selectedButton fullBounds extent // 2 * (-1@1))] + ifNotNil: [self fullBounds extent // 2]. + self setConstrainedPosition: pos - offset hangOut: false. - pos := (aPointOrNil ifNil:[aHand position]) - (self fullBounds extent // 2). - self setConstrainedPosition: pos hangOut: false. oldFocus := aHand keyboardFocus. aHand newMouseFocus: self. aHand newKeyboardFocus: self. [self isInWorld] whileTrue:[aWorld doOneSubCycle]. oldFocus ifNotNil:[aHand keyboardFocus: oldFocus]. ^value!

1 0

Re: [Pharo-project] Issue 4538 and CompiledMethod equality
by Eliot Miranda 19 Sep '11

19 Sep '11

On Thu, Sep 15, 2011 at 9:45 AM, Mariano Martinez Peck < marianopeck(a)gmail.com> wrote: > Ok, I understand. But > > On Thu, Sep 15, 2011 at 6:05 PM, Henrik Sperre Johansen < > henrik.s.johansen(a)veloxit.no> wrote: > >> On 15.09.2011 17:27, Mariano Martinez Peck wrote: >> >> Hi guys. I am having a problem with the integration of issue 4538: >> http://code.google.com/p/pharo/issues/detail?id=4538 >> >> I am serializing CompiledMethods with Fuel and then I materialize them. To >> test they are correct, I use #= >> So far it was working correctly, but now for the materialized method it >> says they are not equal. The problem is that #= is failing in >> >> (self sameLiteralsAs: aCompiledMethod) >> >> And inside that method, it is failing because (literal1 == literal2 >> or: [ literal1 literalEqual: literal2 ]) >> answers false. >> >> So... why literal1 literalEqual: literal2 answers false? from what I can >> say, having that selector: "literalEqual", then both MUST be equal, because >> they are. >> The problem is that it was added: >> >> Association >> literalEqual: otherLiteral >> "Answer true if the receiver and otherLiteral represent the same >> literal. >> Variable bindings are literally equals only if identical. >> This is how variable sharing works, by preserving identity and >> changing only the value." >> ^self == otherLiteral >> >> >> So....I am not sure I agree with this change. >> >> Any idea how can we deal with this problem? >> >> Cheers >> >> -- >> Mariano >> http://marianopeck.wordpress.com >> >> The change is correct, here's an example: >> >> Create a global: >> Global := 1 >> >> Create a method: >> foo >> ^Global >> >> Serialize method, deserialize >> >> Change value of global: >> Global := 5. >> >> foo should return 5, not 1. >> Unless it's actually the same association as in the SystemDictionary, this >> will not be true. >> >> > I understand that. In fact, in Fuel we use exactly the same association of > SystemDictionary for globals. Look this test example: > > testGlobalVariableMethod > > | materializedCompiledMethod | > Smalltalk globals at: #TestGlobalVariableMethod2 put: false. > (self class compileSilently: 'globalVariableForTestingMethod > Transcript name. > ^ GlobalVariableForTesting.'). > > materializedCompiledMethod := self materializedCompiledMethod: (self > class >> #globalVariableForTestingMethod). > Smalltalk globals at: #GlobalVariableForTesting put: true. > self assert: (materializedCompiledMethod valueWithReceiver: self > arguments: #()). > > > > BUT, it doesn't mean that Association is always used for globals. > CompiledMethod equality is failing because of the last literal, the one that > maps class name (symbol) and point to the real class. So...when I > materialize, both CMs have non-identical associations for the last literal, > but equal. > As Henrik says the last literals are ideally #== to each other. However, no Squeak dialect makes any attempt to keep the class0side associations equal. Look at a class-side method and you'll see it's last literal is nil->SomeClass class. Now since this association doesn't exist in Smalltalk (unlike last literals on the instance side) the compiler merely creates distinct ones for each class-side method. Personally I don't think one can defend the position where method equality is different for instance-side or class-side methods so there must be some solutions: 1. special case comparison of the last literal (the methodClass literal), comparing keys and insisting that the keys be #== and the values be #== (can't just define it as keys #== since all similar class-side methods will be equal irrespective of their actual class). 2. special case comparison of the last literal (the methodClass literal), insisting only that the class of the literal be the same if it isVariableBinding. 3. make the compile unique class-side methodClass literals. i.e. if a class already has a class-side method then the compiler or method dictionary insertion code must find that existing association and reuse it Other ideas? > From my point of view, that literal, the last one does not need to be > identical to assume 2 CMs are equal. They just need to be equal. > > > -- > Mariano > http://marianopeck.wordpress.com > > -- best, Eliot

4 6

← Newer
1
...
6
7
8
9
10
11
12
...
21
Older →

Jump to page: