Squeak-dev August 2009

squeak-dev@lists.squeakfoundation.org

114 participants
300 discussions

The Trunk: KernelTests-laza.86.mcz
by commits＠source.squeak.org 28 Aug '09

28 Aug '09

Alexander Lazarević uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-laza.86.mcz ==================== Summary ==================== Name: KernelTests-laza.86 Author: laza Time: 28 August 2009, 12:37:04 pm UUID: 47bd0541-efc8-4b23-8cee-ea8f7b52a4cf Ancestors: KernelTests-ar.85 vm clocks seem to work differently across platforms. The following gives different results on windows (always 0) and linux (0 and 1). 50 timesRepeat: [Transcript show: (Time dateAndTimeNow last asSeconds - Time now asSeconds) printString; cr]. This is the reason TimeTest>>#testGeneralInquiries is nondeterministic.on linux. This adjusts the test by introducing an epsilon. =============== Diff against KernelTests-ar.85 =============== Item was changed: ----- Method: TimeTest>>testGeneralInquiries (in category 'Tests') ----- testGeneralInquiries + | now d t dt epsilon | - | now d t dt | + "vm clocks seem to work differently across platforms, so an epsilon is required" + epsilon := 1. "second" now := self timeClass dateAndTimeNow. self assert: now size = 2; + assert: (now last asSeconds - self timeClass now asSeconds) abs <= epsilon. - assert: now last <= self timeClass now. self should: [ self timeClass timeWords ] raise: MessageNotUnderstood. d := '2 June 1973' asDate. t := '4:02:47 am' asTime. dt := self timeClass dateAndTimeFromSeconds: (2285280000 + 14567). self assert: dt = {d. t.}. !

1 0

[ANN] Aida/Web 6.0 with tree-like control flow released
by Janko Mivšek 27 Aug '09

27 Aug '09

Dear Smalltalkers, After a long journey the Aida 6.0 web framework and application server is released today on Squeak, Pharo and VisualWorks. To download it visit our website http://www.aidaweb.si and its download section. Come also on ESUG Aida tutorial next Thursday to get a feel of all new features. Major new features since previous 5.6: 1.Tree-like control flow (see WebDemoApp control flow examples) as the final step to close gap to the support of all kinds of web applications from those with an usual graph-like navigation to those with a tree-like control flow as found in GUI-like web apps. 2.Introduction of web execution contexts . These contexts give a scope to the "execution" of web request and are the precondition for controlling this flow of execution. 3.Translation support for text on the web apps, to allow the multilingual text on the pages, besides multilingual content, 4.Caching (memcached like) to improve performance of serving the content, which otherwise doesn't change frequently. About tree-like control flow in action with a help of the attached image: in Aida action method you want to confirm a delete by asking the user with a popup dialog window. Execution is there interrupted until the YES or NO button is pressed on dialog. At that time the execution of action method continue and delete is done if YES button was pressed. Best regards Janko Mivšek -- Janko Mivšek AIDA/Web Smalltalk Web Application Server http://www.aidaweb.si

2 1

Form asSomethingOrOther
by Ronald Spengler 27 Aug '09

27 Aug '09

I have a Form (for use as a button) that I would like to serialize in a way that allows me to keep it as text in a method. I would like to do this the simplest way possible, optimizing for speed (not space.) Ideally it would look as much like this as possible: Foo>>someIcon ^ #( ... ) asForm What's the best way to do this? -- Ron

5 9

The Trunk: Tools-ar.121.mcz
by commits＠source.squeak.org 27 Aug '09

27 Aug '09

Andreas Raab uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ar.121.mcz ==================== Summary ==================== Name: Tools-ar.121 Author: ar Time: 26 August 2009, 11:44:37 am UUID: edc9f008-080b-0448-a09c-e32e8eaec079 Ancestors: Tools-ar.120 Two fixes for FileContentsBrowser: - do not use annotation panes since FCB has info pane - provide proper menu in message list =============== Diff against Tools-ar.120 =============== Item was added: + ----- Method: FileContentsBrowser>>wantsAnnotationPane (in category 'toolbuilder') ----- + wantsAnnotationPane + "Never. FCB has its info pane already which serves the same purpose." + ^false + ! Item was added: + ----- Method: FileContentsBrowser>>messageListMenu:shifted: (in category 'menus') ----- + messageListMenu: aMenu shifted: aBool + + ^ aMenu + labels: + 'fileIn + fileOut + senders (n) + implementors (m) + method inheritance (h) + versions (v) + remove' + lines: #(2 6) + selections: #(fileInMessage fileOutMessage + browseSenders browseImplementors methodHierarchy browseVersions + removeMessage). + ! Item was removed: - ----- Method: FileContentsBrowser>>messageListMenu: (in category 'menus') ----- - messageListMenu: aMenu - - ^ aMenu - labels: - 'fileIn - fileOut - senders (n) - implementors (m) - method inheritance (h) - versions (v) - remove' - lines: #(2 6) - selections: #(fileInMessage fileOutMessage - browseSenders browseImplementors methodHierarchy browseVersions - removeMessage).!

1 0

The Trunk: Kernel-ar.231.mcz
by commits＠source.squeak.org 27 Aug '09

27 Aug '09

Andreas Raab uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ar.231.mcz ==================== Summary ==================== Name: Kernel-ar.231 Author: ar Time: 26 August 2009, 9:44:33 am UUID: 0fa0cc93-b060-8546-b78f-afa7b8429e80 Ancestors: Kernel-ar.230 BlockClosure>>asMinimalRepresentation needs to return self, just like the comment says. =============== Diff against Kernel-ar.230 =============== Item was changed: ----- Method: BlockClosure>>asMinimalRepresentation (in category 'events-support') ----- asMinimalRepresentation "For use in the when:evaluate: protocol, i.e., foo when: #bar evaluate:[self handleBar]. Return the receiver." + ^self! - ^true!

1 0

The Trunk: System-ar.137.mcz
by commits＠source.squeak.org 27 Aug '09

27 Aug '09

Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ar.137.mcz ==================== Summary ==================== Name: System-ar.137 Author: ar Time: 26 August 2009, 9:42:31 am UUID: 49aa20fd-c8be-bf47-bda6-81e8a3dcdb83 Ancestors: System-ar.136 Tests for when:evaluate: with blocks. Remove EventTest while we are at it because it was a duplicate of EventManagerTest. =============== Diff against System-ar.136 =============== Item was added: + ----- Method: EventManagerTest>>testBlockReceiverNoArgs (in category 'running-dependent action') ----- + testBlockReceiverNoArgs + eventSource when: #anEvent evaluate:[self heardEvent]. + eventSource triggerEvent: #anEvent. + self should: [succeeded]! Item was added: + ----- Method: EventManagerTest>>testBlockReceiverTwoArgs (in category 'running-dependent action') ----- + testBlockReceiverTwoArgs + eventSource when: #anEvent:info: evaluate:[:arg1 :arg2| self addArg1: arg1 addArg2: arg2]. + eventSource triggerEvent: #anEvent:info: withArguments: #( 9 42 ). + self should: [(eventListener includes: 9) and: [eventListener includes: 42]]! Item was added: + ----- Method: EventManagerTest>>testBlockReceiverOneArg (in category 'running-dependent action') ----- + testBlockReceiverOneArg + eventSource when: #anEvent: evaluate:[:arg1| eventListener add: arg1]. + eventSource triggerEvent: #anEvent: with: 9. + self should: [eventListener includes: 9]! Item was removed: - ----- Method: EventTest>>testReturnValueWithManyListeners (in category 'running-dependent value') ----- - testReturnValueWithManyListeners - - | value newListener | - newListener := 'busybody'. - eventSource - when: #needsValue - send: #yourself - to: eventListener. - eventSource - when: #needsValue - send: #yourself - to: newListener. - value := eventSource triggerEvent: #needsValue. - self should: [value == newListener]! Item was removed: - ----- Method: EventTest>>addArg1:addArg2: (in category 'private') ----- - addArg1: arg1 - addArg2: arg2 - - eventListener - add: arg1; - add: arg2! Item was removed: - ----- Method: EventTest>>testNoValueSupplierHasArguments (in category 'running-broadcast query') ----- - testNoValueSupplierHasArguments - - succeeded := eventSource - triggerEvent: #needsValue: - with: 'nelja' - ifNotHandled: [true]. - self should: [succeeded]! Item was removed: - ----- Method: EventTest>>testOneArgumentEvent (in category 'running-dependent action') ----- - testOneArgumentEvent - - eventSource when: #anEvent: send: #add: to: eventListener. - eventSource triggerEvent: #anEvent: with: 9. - self should: [eventListener includes: 9]! Item was removed: - ----- Method: EventTest>>testReturnValueWithNoListeners (in category 'running-dependent value') ----- - testReturnValueWithNoListeners - - | value | - value := eventSource triggerEvent: #needsValue. - self should: [value == nil]! Item was removed: - ----- Method: EventTest>>testSingleValueSupplier (in category 'running-broadcast query') ----- - testSingleValueSupplier - - eventSource - when: #needsValue - send: #getTrue - to: self. - succeeded := eventSource triggerEvent: #needsValue. - self should: [succeeded]! Item was removed: - ----- Method: EventTest>>getTrue: (in category 'private') ----- - getTrue: anArg - - ^true! Item was removed: - ----- Method: EventTest>>getTrue (in category 'private') ----- - getTrue - - ^true! Item was removed: - ----- Method: EventTest>>testNoArgumentEventDependentSuppliedArgument (in category 'running-dependent action supplied arguments') ----- - testNoArgumentEventDependentSuppliedArgument - - eventSource when: #anEvent send: #add: to: eventListener with: 'boundValue'. - eventSource triggerEvent: #anEvent. - self should: [eventListener includes: 'boundValue']! Item was removed: - ----- Method: EventTest>>testNoValueSupplier (in category 'running-broadcast query') ----- - testNoValueSupplier - - succeeded := eventSource - triggerEvent: #needsValue - ifNotHandled: [true]. - self should: [succeeded]! Item was removed: - ----- Method: EventTest>>testNoArgumentEvent (in category 'running-dependent action') ----- - testNoArgumentEvent - - eventSource when: #anEvent send: #heardEvent to: self. - eventSource triggerEvent: #anEvent. - self should: [succeeded]! Item was removed: - ----- Method: EventTest>>testTwoArgumentEvent (in category 'running-dependent action') ----- - testTwoArgumentEvent - - eventSource when: #anEvent:info: send: #addArg1:addArg2: to: self. - eventSource triggerEvent: #anEvent:info: withArguments: #( 9 42 ). - self should: [(eventListener includes: 9) and: [eventListener includes: 42]]! Item was removed: - ----- Method: EventTest>>testReturnValueWithOneListener (in category 'running-dependent value') ----- - testReturnValueWithOneListener - - | value | - eventSource - when: #needsValue - send: #yourself - to: eventListener. - value := eventSource triggerEvent: #needsValue. - self should: [value == eventListener]! Item was removed: - ----- Method: EventTest>>getFalse (in category 'private') ----- - getFalse - - ^false! Item was removed: - ----- Method: EventTest>>setUp (in category 'running') ----- - setUp - - super setUp. - eventSource := Object new. - eventListener := Bag new. - succeeded := false! Item was removed: - TestCase subclass: #EventTest - instanceVariableNames: 'eventSource eventListener succeeded' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Object Events-Tests'! Item was removed: - ----- Method: EventTest>>heardEvent (in category 'private') ----- - heardEvent - - succeeded := true! Item was removed: - ----- Method: EventTest>>testRemoveActionsTwiceForEvent (in category 'running-remove actions') ----- - testRemoveActionsTwiceForEvent - - eventSource - when: #anEvent send: #size to: eventListener; - when: #anEvent send: #getTrue to: self; - when: #anEvent: send: #fizzbin to: self. - eventSource removeActionsForEvent: #anEvent. - self assert: (eventSource hasActionForEvent: #anEvent) not. - eventSource removeActionsForEvent: #anEvent. - self assert: (eventSource hasActionForEvent: #anEvent) not.! Item was removed: - ----- Method: EventTest>>testRemoveActionsForEvent (in category 'running-remove actions') ----- - testRemoveActionsForEvent - - eventSource - when: #anEvent send: #size to: eventListener; - when: #anEvent send: #getTrue to: self; - when: #anEvent: send: #fizzbin to: self. - eventSource removeActionsForEvent: #anEvent. - self shouldnt: [eventSource hasActionForEvent: #anEvent]! Item was removed: - ----- Method: EventTest>>testMultipleValueSuppliers (in category 'running-broadcast query') ----- - testMultipleValueSuppliers - - eventSource - when: #needsValue - send: #getFalse - to: self. - eventSource - when: #needsValue - send: #getTrue - to: self. - succeeded := eventSource triggerEvent: #needsValue. - self should: [succeeded]! Item was removed: - ----- Method: EventTest>>testRemoveActionsWithReceiver (in category 'running-remove actions') ----- - testRemoveActionsWithReceiver - - | action | - eventSource - when: #anEvent send: #size to: eventListener; - when: #anEvent send: #getTrue to: self; - when: #anEvent: send: #fizzbin to: self. - eventSource removeActionsWithReceiver: self. - action := eventSource actionForEvent: #anEvent. - self assert: (action respondsTo: #receiver). - self assert: ((action receiver == self) not)! Item was removed: - ----- Method: EventTest>>testMultipleValueSuppliersEventHasArgumentsWithGC (in category 'running-broadcast query') ----- - testMultipleValueSuppliersEventHasArgumentsWithGC - - eventSource - when: #needsValue: - send: #getFalse: - to: self - with: Object new. - eventSource - when: #needsValue: - send: #getTrue: - to: self - with: Object new. - Smalltalk garbageCollectMost. - succeeded := eventSource triggerEvent: #needsValue: with: 'kolme'. - self should: [succeeded = nil] - ! Item was removed: - ----- Method: EventTest>>testMultipleValueSuppliersEventHasArguments (in category 'running-broadcast query') ----- - testMultipleValueSuppliersEventHasArguments - - eventSource - when: #needsValue: - send: #getFalse: - to: self. - eventSource - when: #needsValue: - send: #getTrue: - to: self. - succeeded := eventSource triggerEvent: #needsValue: with: 'kolme'. - self should: [succeeded]! Item was removed: - ----- Method: EventTest>>tearDown (in category 'running') ----- - tearDown - - eventSource releaseActionMap. - eventSource := nil. - eventListener := nil. - super tearDown. - ! Item was removed: - ----- Method: EventTest>>getFalse: (in category 'private') ----- - getFalse: anArg - - ^false! Item was removed: - ----- Method: EventTest>>testNoArgumentEventDependentSuppliedArguments (in category 'running-dependent action supplied arguments') ----- - testNoArgumentEventDependentSuppliedArguments - - eventSource - when: #anEvent - send: #addArg1:addArg2: - to: self - withArguments: #('hello' 'world'). - eventSource triggerEvent: #anEvent. - self should: [(eventListener includes: 'hello') and: [eventListener includes: 'world']]!

1 0

The Trunk: Kernel-ar.230.mcz
by commits＠source.squeak.org 27 Aug '09

27 Aug '09

Andreas Raab uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ar.230.mcz ==================== Summary ==================== Name: Kernel-ar.230 Author: ar Time: 26 August 2009, 9:01:37 am UUID: d0759469-14fd-2c40-a5bd-90aab36cd9a5 Ancestors: Kernel-ar.229 Implementations for BlockClosure>>isValid and asMinimalRepresentation for compatibility of BlockClosure with the when:evaluate: protocol. =============== Diff against Kernel-ar.229 =============== Item was added: + ----- Method: BlockClosure>>isValid (in category 'events-support') ----- + isValid + "For use in the when:evaluate: protocol, i.e., + foo when: #bar evaluate:[self handleBar]. + Return true." + ^true! Item was added: + ----- Method: BlockClosure>>asMinimalRepresentation (in category 'events-support') ----- + asMinimalRepresentation + "For use in the when:evaluate: protocol, i.e., + foo when: #bar evaluate:[self handleBar]. + Return the receiver." + ^true!

1 0

The Trunk: Kernel-ar.229.mcz
by commits＠source.squeak.org 27 Aug '09

27 Aug '09

Andreas Raab uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ar.229.mcz ==================== Summary ==================== Name: Kernel-ar.229 Author: ar Time: 26 August 2009, 8:42:37 am UUID: fad5617c-3a41-4c4e-80af-d8b2234cca10 Ancestors: Kernel-dtl.226, Kernel-djr.228 Merging Kernel-djr.228: CompiledMethod>>= seems to be broken. Attempt to fix it. MethodProperties>>analogousCodeTo: calls Pragma>>analogousCodeTo: which does not exist. Further assume when both properties are nil and both pragmas are empty, its equal. =============== Diff against Kernel-dtl.226 =============== Item was changed: ----- Method: MethodProperties>>analogousCodeTo: (in category 'testing') ----- analogousCodeTo: aMethodProperties pragmas ifNil: [aMethodProperties pragmas notEmpty ifTrue: [^false]] ifNotNil: + [pragmas size ~= aMethodProperties pragmas size ifTrue: - [aMethodProperties pragmas isEmpty ifTrue: [^false]. - pragmas size ~= aMethodProperties pragmas size ifTrue: [^false]. pragmas with: aMethodProperties pragmas do: [:mine :others| (mine analogousCodeTo: others) ifFalse: [^false]]]. + (self propertiesIsNil and: [aMethodProperties propertiesIsNil]) ifTrue: [^true]. ^(self hasAtLeastTheSamePropertiesAs: aMethodProperties) and: [aMethodProperties hasAtLeastTheSamePropertiesAs: self]! Item was added: + ----- Method: MethodProperties>>propertiesIsNil (in category 'testing') ----- + propertiesIsNil + ^ properties isNil! Item was added: + ----- Method: MethodProperties>>keysAndValuesDo: (in category 'accessing') ----- + keysAndValuesDo: aBlock + properties keysAndValuesDo: aBlock! Item was added: + ----- Method: Pragma>>analogousCodeTo: (in category 'testing') ----- + analogousCodeTo: aPragma + ^ (self arguments = aPragma arguments) & + (self keyword = aPragma keyword)!

1 0

CompiledMethod>>= broken?
by Danie Roux 27 Aug '09

27 Aug '09

All, An attempt to fix this is in the inbox. While running the test suite for Magma I tripped over CompiledMethod>>= It seems broken to me: MethodProperties>>analogousCodeTo: calls Pragma>>analogousCodeTo: which does not exist. (the Magma test now pass) -- Danie Roux *shuffle* Adore Unix - http://danieroux.com

2 1

Squeak VM & Cygwin?
by John Chludzinski 27 Aug '09

27 Aug '09

Does the Squeak VM use Cygwin (allowing for a common code base for both Linux/Unix/MacOS and WIndows)? If not, was this considered? ---John

3 9

← Newer
1
...
4
5
6
7
8
9
10
...
30
Older →

Jump to page: