Squeak-dev September 2010

squeak-dev@lists.squeakfoundation.org

110 participants
401 discussions

The Trunk: Tests-ar.91.mcz
by commits＠source.squeak.org 02 Sep '10

02 Sep '10

Andreas Raab uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ar.91.mcz ==================== Summary ==================== Name: Tests-ar.91 Author: ar Time: 1 September 2010, 10:56:37.047 pm UUID: 53dae328-bdb6-cd40-94c7-19bb71d28b0f Ancestors: Tests-eem.90 Reclassify methods to fix various package dependencies. Update package dependency tests. =============== Diff against Tests-eem.90 =============== Item was changed: ----- Method: PackageDependencyTest>>testToolBuilder (in category 'tests') ----- testToolBuilder self testPackage: 'ToolBuilder-Kernel' dependsExactlyOn: #( Collections Files Graphics Kernel SUnit + System ).! Item was changed: ----- Method: PackageDependencyTest>>testBalloon (in category 'tests') ----- testBalloon self testPackage: 'Balloon' dependsExactlyOn: #( + Kernel Collections Graphics System - Kernel Collections Graphics Morphic System ).! Item was changed: ----- Method: PackageDependencyTest>>testCollections (in category 'tests') ----- testCollections self testPackage: 'Collections' dependsExactlyOn: #( - Balloon Compiler Kernel Compression Exceptions Files Graphics - Morphic - MorphicExtras Multilingual - Network System 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testEtoys (in category 'tests') ----- testEtoys self testPackage: 'EToys' dependsExactlyOn: #( Balloon Collections Compiler Exceptions Files Graphics Kernel Morphic MorphicExtras Network Protocols System 'ToolBuilder-Kernel' Tools + SUnit ).! Item was changed: ----- Method: PackageDependencyTest>>testSound (in category 'tests') ----- testSound self testPackage: 'Sound' dependsExactlyOn: #( Collections Balloon - EToys Files Graphics Kernel Morphic MorphicExtras Network System 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testShoutCore (in category 'tests') ----- testShoutCore self testPackage: 'ShoutCore' dependsExactlyOn: #( Collections Graphics Kernel Monticello System + Compiler ).! Item was changed: ----- Method: PackageDependencyTest>>testSUnitGUI (in category 'tests') ----- testSUnitGUI self testPackage: 'SUnitGUI' dependsExactlyOn: #( Collections Graphics Kernel PackageInfo SUnit System 'ToolBuilder-Kernel' Tools - Morphic "WindowColorSpec" ).! Item was added: + ----- Method: ExceptionTests>>testHandlerReentrancy (in category 'testing') ----- + testHandlerReentrancy + + | callingOrder | + "Handlers are not re-entrant by default, so inner is not activated twice" + callingOrder := String streamContents: [:stream | + [[stream nextPut: $s. Notification signal] + + "Inner handler" + on: Notification do: [:ex | + stream nextPut: $i. + ex pass]] + + "outer handler" + on: Notification do: [:ex | + stream nextPut: $o. + Notification signal]]. + + self assert: callingOrder = 'sio'. + + "Now make inner re-entrant" + callingOrder := String streamContents: [:stream | + [[stream nextPut: $s. Notification signal] + + "Inner handler" + on: Notification do: [:ex | + stream nextPut: $i. + ex rearmHandlerDuring: [ex pass]]] + + "outer handler" + on: Notification do: [:ex | + stream nextPut: $o. + Notification signal]]. + + self assert: callingOrder = 'sioi'.!

1 0

The Trunk: Tools-ar.263.mcz
by commits＠source.squeak.org 02 Sep '10

02 Sep '10

Andreas Raab uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ar.263.mcz ==================== Summary ==================== Name: Tools-ar.263 Author: ar Time: 1 September 2010, 10:55:03.147 pm UUID: 0de80ed6-03ef-3b40-a638-67913c9bf718 Ancestors: Tools-eem.262 Reclassify methods to fix various package dependencies. =============== Diff against Tools-eem.262 =============== Item was added: + ----- Method: TranscriptStream class>>windowColorSpecification (in category '*Tools') ----- + windowColorSpecification + "Answer a WindowColorSpec object that declares my preference" + + ^ WindowColorSpec classSymbol: self name wording: 'Transcript' brightColor: #lightOrange pastelColor: #paleOrange helpMessage: 'The system transcript'! Item was added: + ----- Method: TranscriptStream class>>openMorphicTranscript (in category '*Tools') ----- + openMorphicTranscript + "Have the current project's transcript open up as a morph" + + ^ToolBuilder open: self! Item was added: + ----- Method: TranscriptStream>>buildWith: (in category '*Tools') ----- + buildWith: builder + | windowSpec textSpec | + windowSpec := builder pluggableWindowSpec new. + windowSpec model: self. + windowSpec label: 'Transcript'. + windowSpec children: OrderedCollection new. + + textSpec := builder pluggableTextSpec new. + textSpec + model: self; + menu: #codePaneMenu:shifted:; + frame: (0@0corner: 1@1). + windowSpec children add: textSpec. + + ^builder build: windowSpec! Item was added: + ----- Method: TranscriptStream class>>buildWith: (in category '*Tools') ----- + buildWith: aBuilder + ^(Smalltalk at: #Transcript) buildWith: aBuilder! Item was added: + ----- Method: TranscriptStream>>openLabel: (in category '*Tools') ----- + openLabel: aString + "Open a window on this transcriptStream" + ^ToolBuilder open: self label: aString! Item was added: + ----- Method: TranscriptStream>>open (in category '*Tools') ----- + open + | openCount | + openCount := self countOpenTranscripts. + openCount = 0 + ifTrue: [self openLabel: 'Transcript'] + ifFalse: [self openLabel: 'Transcript #' , (openCount+1) printString]! Item was added: + ----- Method: TranscriptStream>>codePaneMenu:shifted: (in category '*Tools') ----- + codePaneMenu: aMenu shifted: shifted + "Note that unless we override perform:orSendTo:, PluggableTextController will respond to all menu items" + ^ StringHolder basicNew codePaneMenu: aMenu shifted: shifted + !

1 0

The Trunk: System-ar.367.mcz
by commits＠source.squeak.org 02 Sep '10

02 Sep '10

Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ar.367.mcz ==================== Summary ==================== Name: System-ar.367 Author: ar Time: 1 September 2010, 10:53:27.916 pm UUID: ea5186f8-9f4e-604e-ad4a-45f3e1380905 Ancestors: System-eem.366 Reclassify methods to fix various package dependencies. =============== Diff against System-eem.366 =============== Item was added: + ----- Method: WindowColorSpec>>brightColor (in category 'access') ----- + brightColor + "Answer the brightColor" + + ^ brightColor! Item was added: + ----- Method: WindowColorSpec>>classSymbol (in category 'access') ----- + classSymbol + "Answer the classSymbol" + + ^ classSymbol! Item was added: + ----- Method: WindowColorSpec class>>classSymbol:wording:brightColor:pastelColor:helpMessage: (in category 'instance creation') ----- + classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg + "Answer a new instance of the receiver with the given slots filled in" + + ^ self new classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg! Item was added: + ----- Method: WindowColorSpec>>pastelColor (in category 'access') ----- + pastelColor + "Answer the pastelColor" + + ^ pastelColor! Item was added: + ----- Method: WindowColorSpec>>printOn: (in category 'printing') ----- + printOn: aStream + "Print the receiver on a stream" + + super printOn: aStream. + classSymbol printOn: aStream. + aStream nextPutAll: ' bright: ', brightColor printString, ' pastel: ', pastelColor printString! Item was added: + ----- Method: WindowColorSpec>>helpMessage (in category 'access') ----- + helpMessage + "Answer the helpMessage" + + ^ helpMessage! Item was added: + ----- Method: WindowColorSpec>>classSymbol:wording:brightColor:pastelColor:helpMessage: (in category 'initialization') ----- + classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg + "Initialize the receiver's instance variables" + + classSymbol := sym. + wording := wrd. + brightColor := brCol. + pastelColor := paCol. + helpMessage := hlpMsg! Item was added: + ----- Method: WindowColorSpec>>wording (in category 'access') ----- + wording + "Answer the wording" + + ^ wording! Item was added: + Object subclass: #WindowColorSpec + instanceVariableNames: 'classSymbol wording brightColor pastelColor helpMessage' + classVariableNames: '' + poolDictionaries: '' + category: 'System-Support'!

1 0

The Trunk: Morphic-ar.463.mcz
by commits＠source.squeak.org 02 Sep '10

02 Sep '10

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.463.mcz ==================== Summary ==================== Name: Morphic-ar.463 Author: ar Time: 1 September 2010, 10:51:44.878 pm UUID: 05e011ff-55a5-354a-9949-fee34e545f32 Ancestors: Morphic-nice.462 Reclassify methods to fix various package dependencies. =============== Diff against Morphic-nice.462 =============== Item was added: + ----- Method: TextURL>>actOnClickFor: (in category '*Morphic') ----- + actOnClickFor: anObject + "Do what you can with this URL. Later a web browser." + + | response m | + + (url beginsWith: 'sqPr://') ifTrue: [ + ProjectLoading thumbnailFromUrl: (url copyFrom: 8 to: url size). + ^self "should not get here, but what the heck" + ]. + "if it's a web browser, tell it to jump" + anObject isWebBrowser + ifTrue: [anObject jumpToUrl: url. ^ true] + ifFalse: [((anObject respondsTo: #model) and: [anObject model isWebBrowser]) + ifTrue: [anObject model jumpToUrl: url. ^ true]]. + + "if it's a morph, see if it is contained in a web browser" + (anObject isKindOf: Morph) ifTrue: [ + m := anObject. + [ m ~= nil ] whileTrue: [ + (m isWebBrowser) ifTrue: [ + m jumpToUrl: url. + ^true ]. + (m hasProperty: #webBrowserView) ifTrue: [ + m model jumpToUrl: url. + ^true ]. + m := m owner. ] + ]. + + "no browser in sight. ask if we should start a new browser" + ((self confirm: 'open a browser to view this URL?' translated) and: [WebBrowser default notNil]) ifTrue: [ + WebBrowser default openOnUrl: url. + ^ true ]. + + "couldn't display in a browser. Offer to put up just the source" + + response := (UIManager default + chooseFrom: (Array with: 'View web page as source' translated + with: 'Cancel' translated) + title: 'Couldn''t find a web browser. View\page as source?' withCRs translated). + response = 1 ifTrue: [HTTPSocket httpShowPage: url]. + ^ true! Item was removed: - ----- Method: WindowColorSpec class>>classSymbol:wording:brightColor:pastelColor:helpMessage: (in category 'instance creation') ----- - classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg - "Answer a new instance of the receiver with the given slots filled in" - - ^ self new classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg! Item was removed: - ----- Method: WindowColorSpec>>classSymbol:wording:brightColor:pastelColor:helpMessage: (in category 'initialization') ----- - classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg - "Initialize the receiver's instance variables" - - classSymbol := sym. - wording := wrd. - brightColor := brCol. - pastelColor := paCol. - helpMessage := hlpMsg! Item was removed: - ----- Method: WindowColorSpec>>printOn: (in category 'printing') ----- - printOn: aStream - "Print the receiver on a stream" - - super printOn: aStream. - classSymbol printOn: aStream. - aStream nextPutAll: ' bright: ', brightColor printString, ' pastel: ', pastelColor printString! Item was removed: - ----- Method: WindowColorSpec>>classSymbol (in category 'access') ----- - classSymbol - "Answer the classSymbol" - - ^ classSymbol! Item was removed: - ----- Method: WindowColorSpec>>helpMessage (in category 'access') ----- - helpMessage - "Answer the helpMessage" - - ^ helpMessage! Item was removed: - ----- Method: WindowColorSpec>>brightColor (in category 'access') ----- - brightColor - "Answer the brightColor" - - ^ brightColor! Item was removed: - ----- Method: WindowColorSpec>>pastelColor (in category 'access') ----- - pastelColor - "Answer the pastelColor" - - ^ pastelColor! Item was removed: - ----- Method: WindowColorSpec>>wording (in category 'access') ----- - wording - "Answer the wording" - - ^ wording! Item was removed: - Object subclass: #WindowColorSpec - instanceVariableNames: 'classSymbol wording brightColor pastelColor helpMessage' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Windows'!

1 0

The Trunk: Exceptions-ar.30.mcz
by commits＠source.squeak.org 02 Sep '10

02 Sep '10

Andreas Raab uploaded a new version of Exceptions to project The Trunk: http://source.squeak.org/trunk/Exceptions-ar.30.mcz ==================== Summary ==================== Name: Exceptions-ar.30 Author: ar Time: 1 September 2010, 10:50:45.682 pm UUID: 8c031768-f467-2c4e-8ea1-5fcb95a0a8fd Ancestors: Exceptions-sn.29 Reclassify methods to fix various package dependencies. =============== Diff against Exceptions-sn.29 =============== Item was removed: - TestCase subclass: #ExceptionsTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Exceptions-Extensions'! Item was removed: - ----- Method: ExceptionsTest>>testHandlerReentrancy (in category 'as yet unclassified') ----- - testHandlerReentrancy - - | callingOrder | - "Handlers are not re-entrant by default, so inner is not activated twice" - callingOrder := String streamContents: [:stream | - [[stream nextPut: $s. Notification signal] - - "Inner handler" - on: Notification do: [:ex | - stream nextPut: $i. - ex pass]] - - "outer handler" - on: Notification do: [:ex | - stream nextPut: $o. - Notification signal]]. - - self assert: callingOrder = 'sio'. - - "Now make inner re-entrant" - callingOrder := String streamContents: [:stream | - [[stream nextPut: $s. Notification signal] - - "Inner handler" - on: Notification do: [:ex | - stream nextPut: $i. - ex rearmHandlerDuring: [ex pass]]] - - "outer handler" - on: Notification do: [:ex | - stream nextPut: $o. - Notification signal]]. - - self assert: callingOrder = 'sioi'.!

1 0

The Trunk: Collections-ar.375.mcz
by commits＠source.squeak.org 02 Sep '10

02 Sep '10

Andreas Raab uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ar.375.mcz ==================== Summary ==================== Name: Collections-ar.375 Author: ar Time: 1 September 2010, 10:49:41.755 pm UUID: 87e30eab-a65f-e746-a0af-71bd5cf8f859 Ancestors: Collections-ul.374 Reclassify methods to fix various package dependencies. =============== Diff against Collections-ul.374 =============== Item was removed: - ----- Method: String>>asAlphaNumeric:extraChars:mergeUID: (in category 'converting') ----- - asAlphaNumeric: totalSize extraChars: additionallyAllowed mergeUID: minimalSizeOfRandomPart - "Generates a String with unique identifier ( UID ) qualities, the difference to a - UUID is that its beginning is derived from the receiver, so that it has a meaning - for a human reader. - - Answers a String of totalSize, which consists of 3 parts - 1.part: the beginning of the receiver only consisting of - a-z, A-Z, 0-9 and extraChars in Collection additionallyAllowed ( which can be nil ) - 2.part: a single _ - 3.part: a ( random ) UID of size >= minimalSizeOfRandomPart consisting of - a-z, A-Z, 0-9 - - Starting letters are capitalized. - TotalSize must be at least 1. - Exactly 1 occurrence of $_ is guaranteed ( unless additionallyAllowed includes $_ ). - The random part has even for small sizes good UID qualitites for many practical purposes. - If only lower- or uppercase letters are demanded, simply convert the answer with - say #asLowercase. The probability of a duplicate will rise only moderately ( see below ). - - Example: - size of random part = 10 - in n generated UIDs the chance p of having non-unique UIDs is - n = 10000 -> p < 1e-10 if answer is reduced to lowerCase: p < 1.4 e-8 - n = 100000 -> p < 1e-8 - at the bottom is a snippet for your own calculations - Note: the calculated propabilites are theoretical, - for the actually used random generator they may be much worse" - - | stream out sizeOfFirstPart index ascii ch skip array random | - totalSize > minimalSizeOfRandomPart - ifFalse: [ self errorOutOfBounds ]. - stream := ReadStream on: self. - out := WriteStream on: ( String new: totalSize ). - index := 0. - skip := true. - sizeOfFirstPart := totalSize - minimalSizeOfRandomPart - 1. - [ stream atEnd or: [ index >= sizeOfFirstPart ]] - whileFalse: [ - ((( ascii := ( ch := stream next ) asciiValue ) >= 65 and: [ ascii <= 90 ]) or: [ - ( ascii >= 97 and: [ ascii <= 122 ]) or: [ - ch isDigit or: [ - additionallyAllowed notNil and: [ additionallyAllowed includes: ch ]]]]) - ifTrue: [ - skip - ifTrue: [ out nextPut: ch asUppercase ] - ifFalse: [ out nextPut: ch ]. - index := index + 1. - skip := false ] - ifFalse: [ skip := true ]]. - out nextPut: $_. - array := Array new: 62. - 1 to: 26 do: [ :i | - array at: i put: ( i + 64 ) asCharacter. - array at: i + 26 put: ( i + 96 ) asCharacter ]. - 53 to: 62 do: [ :i | - array at: i put: ( i - 5 ) asCharacter ]. - random := UUIDGenerator default randomGenerator. - totalSize - index - 1 timesRepeat: [ - out nextPut: ( array atRandom: random )]. - ^out contents - - " calculation of probability p for failure of uniqueness in n UIDs - Note: if answer will be converted to upper or lower case replace 62 with 36 - | n i p all | - all := 62 raisedTo: sizeOfRandomPart. - i := 1. - p := 0.0 . - n := 10000. - [ i <= n ] - whileTrue: [ - p := p + (( i - 1 ) / all ). - i := i + 1 ]. - p - - approximation formula: n squared / ( 62.0 raisedTo: sizeOfRandomPart ) / 2 - " - - "'Crop SketchMorphs and Grab Screen Rect to JPG' - asAlphaNumeric: 31 extraChars: nil mergeUID: 10 - 'CropSketchMorphsAndG_iOw94jquN6' - 'Monticello' - asAlphaNumeric: 31 extraChars: nil mergeUID: 10 - 'Monticello_kp6aV2l0IZK9uBULGOeG' - 'version-', ( '1.1.2' replaceAll: $. with: $- ) - asAlphaNumeric: 31 extraChars: #( $- ) mergeUID: 10 - 'Version-1-1-2_kuz2tMg2xX9iRLDVR'" - ! Item was removed: - ----- Method: TranscriptStream class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'Transcript' brightColor: #lightOrange pastelColor: #paleOrange helpMessage: 'The system transcript'! Item was removed: - ----- Method: TextSqkPageLink>>actOnClickFor: (in category 'as yet unclassified') ----- - actOnClickFor: textMorph - "I represent a link to either a SqueakPage in a BookMorph, or a regular url" - - | book | - ((url endsWith: '.bo') or: [url endsWith: '.sp']) ifFalse: [ - ^ super actOnClickFor: textMorph]. - book := textMorph ownerThatIsA: BookMorph. - book ifNotNil: [book goToPageUrl: url]. - "later handle case of page being in another book, not this one" - ^ true! Item was removed: - ----- Method: SequenceableCollection>>asPointArray (in category 'converting') ----- - asPointArray - "Answer an PointArray whose elements are the elements of the receiver, in - the same order." - - | pointArray | - pointArray := PointArray new: self size. - 1 to: self size do:[:i| pointArray at: i put: (self at: i)]. - ^pointArray! Item was removed: - ----- Method: String>>asUrl (in category 'converting') ----- - asUrl - "convert to a Url" - "'http://www.cc.gatech.edu/' asUrl" - "msw://chaos.resnet.gatech.edu:9000/' asUrl" - ^Url absoluteFromText: self! Item was removed: - ----- Method: TranscriptStream class>>openMorphicTranscript (in category 'as yet unclassified') ----- - openMorphicTranscript - "Have the current project's transcript open up as a morph" - - ^ToolBuilder open: self! Item was removed: - ----- Method: TextURL>>actOnClickFor: (in category 'as yet unclassified') ----- - actOnClickFor: anObject - "Do what you can with this URL. Later a web browser." - - | response m | - - (url beginsWith: 'sqPr://') ifTrue: [ - ProjectLoading thumbnailFromUrl: (url copyFrom: 8 to: url size). - ^self "should not get here, but what the heck" - ]. - "if it's a web browser, tell it to jump" - anObject isWebBrowser - ifTrue: [anObject jumpToUrl: url. ^ true] - ifFalse: [((anObject respondsTo: #model) and: [anObject model isWebBrowser]) - ifTrue: [anObject model jumpToUrl: url. ^ true]]. - - "if it's a morph, see if it is contained in a web browser" - (anObject isKindOf: Morph) ifTrue: [ - m := anObject. - [ m ~= nil ] whileTrue: [ - (m isWebBrowser) ifTrue: [ - m jumpToUrl: url. - ^true ]. - (m hasProperty: #webBrowserView) ifTrue: [ - m model jumpToUrl: url. - ^true ]. - m := m owner. ] - ]. - - "no browser in sight. ask if we should start a new browser" - ((self confirm: 'open a browser to view this URL?' translated) and: [WebBrowser default notNil]) ifTrue: [ - WebBrowser default openOnUrl: url. - ^ true ]. - - "couldn't display in a browser. Offer to put up just the source" - - response := (UIManager default - chooseFrom: (Array with: 'View web page as source' translated - with: 'Cancel' translated) - title: 'Couldn''t find a web browser. View\page as source?' withCRs translated). - response = 1 ifTrue: [HTTPSocket httpShowPage: url]. - ^ true! Item was removed: - ----- Method: TranscriptStream>>buildWith: (in category 'toolbuilder') ----- - buildWith: builder - | windowSpec textSpec | - windowSpec := builder pluggableWindowSpec new. - windowSpec model: self. - windowSpec label: 'Transcript'. - windowSpec children: OrderedCollection new. - - textSpec := builder pluggableTextSpec new. - textSpec - model: self; - menu: #codePaneMenu:shifted:; - frame: (0@0corner: 1@1). - windowSpec children add: textSpec. - - ^builder build: windowSpec! Item was removed: - ----- Method: TranscriptStream class>>buildWith: (in category 'toolbuilder') ----- - buildWith: aBuilder - ^(Smalltalk at: #Transcript) buildWith: aBuilder! Item was removed: - ----- Method: TranscriptStream>>openLabel: (in category 'initialization') ----- - openLabel: aString - "Open a window on this transcriptStream" - ^ToolBuilder open: self label: aString! Item was removed: - ----- Method: TranscriptStream>>open (in category 'initialization') ----- - open - | openCount | - openCount := self countOpenTranscripts. - openCount = 0 - ifTrue: [self openLabel: 'Transcript'] - ifFalse: [self openLabel: 'Transcript #' , (openCount+1) printString]! Item was removed: - ----- Method: TranscriptStream>>codePaneMenu:shifted: (in category 'model protocol') ----- - codePaneMenu: aMenu shifted: shifted - "Note that unless we override perform:orSendTo:, PluggableTextController will respond to all menu items" - ^ StringHolder basicNew codePaneMenu: aMenu shifted: shifted - ! Item was removed: - ----- Method: String>>asUrlRelativeTo: (in category 'converting') ----- - asUrlRelativeTo: aUrl - ^aUrl newFromRelativeText: self!

1 0

The Trunk: Balloon-ar.17.mcz
by commits＠source.squeak.org 02 Sep '10

02 Sep '10

Andreas Raab uploaded a new version of Balloon to project The Trunk: http://source.squeak.org/trunk/Balloon-ar.17.mcz ==================== Summary ==================== Name: Balloon-ar.17 Author: ar Time: 1 September 2010, 10:48:04.864 pm UUID: 42038830-f5bc-6041-920f-2c2bf38192ee Ancestors: Balloon-ar.16 Reclassify methods to fix various package dependencies. =============== Diff against Balloon-ar.16 =============== Item was changed: ----- Method: Bezier3Segment class>>example2 (in category 'examples') ----- example2 "draws a cubic bezier on the screen" | c canvas | c := Bezier3Segment new from: 0 @ 0 via: 0 @ 100 and: 100 @ 0 to: 100 @ 100. + canvas := Display getCanvas asBalloonCanvas - canvas := BalloonCanvas on: Display. canvas aaLevel: 4. canvas drawBezier3Shape: c asPointArray color: Color transparent borderWidth: 1 borderColor: Color black! Item was added: + ----- Method: SequenceableCollection>>asPointArray (in category '*Balloon') ----- + asPointArray + "Answer an PointArray whose elements are the elements of the receiver, in + the same order." + + | pointArray | + pointArray := PointArray new: self size. + 1 to: self size do:[:i| pointArray at: i put: (self at: i)]. + ^pointArray!

1 0

[Q on MVC] How can I make my MVC app to save/accept on enter/return key input?
by Sungjin Chun 02 Sep '10

02 Sep '10

Hi, I've developed an app which receives text input using PluggableTextView. The problem is that users should input cmd-s to save his/her editing. They want to use enter/return to save the text input. How can I do this? Thank you in advance. PS) I know everybody uses morphic, but if there's someone who can help me... :-)

1 0

[Cuis] documentation glitch
by Ross Boylan 02 Sep '10

02 Sep '10

I just downloadedd http://www.jvuletich.org/Cuis/Cuis2.6-0540.zip and unzipped it on Debian GNU/Linux (stable release). The Cuis2.6ReleaseNotes.txt file does not display properly when I use more. The start looks like this ------------------------------------------------------- ross@corn:/usr/local/src/squeak/Cuis2.6$ more Cuis2.6ReleaseNotes.txt Cuis Release notes - Only the most relevant Cuis specific changes are detailed here. To see all of them, browse the numbered change s themselves, that are part of this release. Cuis official site is http://www.jvuletich.org/Cuis/Index.html . - Several minor fixes and enitive by defaultes.for debugging. ancements New in Cuis 2.5 - Compatibility with the Cog VM ----------------------------------------------------------------- For example, "New in Cuis 2.6" and the first several points beneath it has been eaten, and the displayed text is mangled. In emacs I think I see all the text, though there are quite a few spots that should be line breaks that instead display "^M" (without the quotes). I assume these are what messed up the display. I don't see an obvious difference between lines that end with ^M and those that simply end and move on to a new physical line. It does look as if the use of ^M has something to do with the particular block of release notes: 2.6, 2.3 and 2.0 have them (though they have some regular line ends too), and the others don't. The problems may have something to do with the system being UTF8 based (LANG=en_US.UTF-8).

2 1

Network tests coverage (Re: WebClient-Core port to Pharo 1.1 final)
by Andreas Raab 02 Sep '10

02 Sep '10

Hi Sven - Good question. It would definitely be good to cover those areas with tests but I fear that may require actual cooperation :-) If there is enough energy (which is hard to say) one might be able to start a "neutral" repository with tests but I'm not sure how well it would work in practice (it would mean the tests are fairly far away from the source it's covering which is generally not a good thing). If anyone has good ideas, please propose. Cheers, - Andreas On 9/1/2010 12:38 PM, Sven Van Caekenberghe wrote: > Andreas, > > Thanks a lot for taking the time to look into these problems and for the patches. > Shouldn't we try to capture these problems with unit tests running across Squeak and its derivatives ? > What would be the procedure to contribute to these tests ? > > Sven > > On 01 Sep 2010, at 06:16, Andreas Raab wrote: > >> Hi Sven - >> >> I had a quick look at the failing tests on Pharo and they seem mostly the result of bugs in Pharo's Network package. First, MimeDocument>>url needs to return an instance of Url not a string (check the senders; all users of it expect it to be a Url not a string) so if you change that to return a url it'll take care of the pathForFile issue. >> >> The failure of testMultiPartPost2 is a combination of two bugs in HTTPSocket. First, there's a typo in getResponseUpTo: at the end (this needs to be #copyFrom:to: (the "to" is missing the colon). Second, there is httpPostMultiPart: which adds an erroneous CrLf at the end of a persistent HTTP/1.1 connection. That causes an interesting series of things to go wrong (which I'm partly still investigating) but the easy solution is to insert a "Connection: close" header. >> >> Fixes attached. These are of course also broken in Pharo 1.0 and 1.1. >> >> Cheers, >> - Andreas >>

1 0

Jump to page: