Squeak-dev July 2014

squeak-dev@lists.squeakfoundation.org

31 participants
223 discussions

The Trunk: Graphics-nice.299.mcz
by commits＠source.squeak.org 28 Jul '14

28 Jul '14

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.299.mcz ==================== Summary ==================== Name: Graphics-nice.299 Author: nice Time: 28 July 2014, 12:17:36.812 pm UUID: 571c7dc6-b3c2-45cd-8a70-372784b82f72 Ancestors: Graphics-nice.298 Continue cleaning of RWBinaryOrTextStream reset uggliness: - don't reset the stream in ImageReadWriter initialization (>>on:) - reset the stream after sending #understandsImageFormat: - make sure the stream is still binary after the reset in JPEGReadWriter class>>understandsImageFormat: - NOTE: from what I understand, RWBinaryOrTextStream and it's Multi alternative are those loosing the binary property, not FileStream... These swiss knife streams are really a next of undue complexity. This workaround should go away when we finally get rid of them. =============== Diff against Graphics-nice.298 =============== Item was changed: ----- Method: ImageReadWriter class>>formFromStream: (in category 'image reading/writing') ----- formFromStream: aBinaryStream "Answer a ColorForm stored on the given stream. closes the stream" | reader readerClass form | readerClass := self withAllSubclasses detect: [:subclass | subclass understandsImageFormat: aBinaryStream] ifNone: [ aBinaryStream close. ^self error: 'image format not recognized']. + aBinaryStream reset. reader := readerClass new on: aBinaryStream. Cursor read showWhile: [ form := reader nextImage. reader close]. ^ form ! Item was changed: ----- Method: ImageReadWriter>>on: (in category 'private') ----- on: aStream + stream := aStream. + stream binary.! - (stream := aStream) reset. - stream binary. - "Note that 'reset' makes a file be text. Must do this after."! Item was changed: ----- Method: JPEGReadWriter class>>understandsImageFormat: (in category 'image reading/writing') ----- understandsImageFormat: aStream (JPEGReadWriter2 understandsImageFormat: aStream) ifTrue:[^false]. + aStream reset; binary. - aStream reset. aStream next = 16rFF ifFalse: [^ false]. aStream next = 16rD8 ifFalse: [^ false]. ^true!

1 0

Re: [squeak-dev] The Trunk: Graphics-nice.298.mcz
by Levente Uzonyi 28 Jul '14

28 Jul '14

On Sun, 27 Jul 2014, commits(a)source.squeak.org wrote: > Nicolas Cellier uploaded a new version of Graphics to project The Trunk: > http://source.squeak.org/trunk/Graphics-nice.298.mcz > > ==================== Summary ==================== > > Name: Graphics-nice.298 > Author: nice > Time: 27 July 2014, 4:20:11.638 pm > UUID: 170cf894-37d9-4c00-adc3-8531594246dc > Ancestors: Graphics-nice.297 > > Rather than commenting uggliness, remove it. > > Compatibility notes: >> From now on, DON'T expect (ImageReadWriter formFromStream: yourStream) to reset yourStream. It's not its business, besides it does not work for every kind of Stream. > Resetting a Stream was only ever required for constructs like (ReadWriteStream with: 'someData') reset. > But you DON'T have to use a ReadWriteStream if it's just for reading. Rather use a ReadStream, this way, no reset is required. > If really ReadWriteStream is what fits (why?) then you'll now have to perform the reset by yourself. The stream will still receive #reset many times from #understandsImageFormat, #understandsImageFormat: and the instance side #on: methods. So I think this change may break #readNativeResourceFrom:. Levente > > =============== Diff against Graphics-nice.297 =============== > > Item was changed: > ----- Method: Form>>readNativeResourceFrom: (in category 'resources') ----- > readNativeResourceFrom: byteStream > | img aStream | > + aStream := byteStream. > - (byteStream isKindOf: FileStream) ifTrue:[ > - "Ugly, but ImageReadWriter will send #reset which is implemented as #reopen and we may not be able to do so." > - aStream := RWBinaryOrTextStream with: byteStream contents. > - ] ifFalse:[ > - aStream := byteStream. > - ]. > img := [ImageReadWriter formFromStream: aStream] on: Error do:[:ex| nil]. > img ifNil:[^nil]. > (img isColorForm and:[self isColorForm]) ifTrue:[ > | cc | > cc := img colors. > img colors: nil. > img displayOn: self. > img colors: cc. > ] ifFalse:[ > img displayOn: self. > ]. > img := nil.! > > Item was changed: > ----- Method: ImageReadWriter class>>formFromStream: (in category 'image reading/writing') ----- > formFromStream: aBinaryStream > "Answer a ColorForm stored on the given stream. closes the stream" > | reader readerClass form | > > readerClass := self withAllSubclasses > detect: [:subclass | subclass understandsImageFormat: aBinaryStream] > ifNone: [ > aBinaryStream close. > ^self error: 'image format not recognized']. > + reader := readerClass new on: aBinaryStream. > - reader := readerClass new on: aBinaryStream reset. > Cursor read showWhile: [ > form := reader nextImage. > reader close]. > ^ form > ! > > >

2 1

MC history is now more accessible
by Chris Muller 28 Jul '14

28 Jul '14

I just slammed in some brilliant UI changes suggested by Eliot related to the MC history function. - "browse mc history" is now always enabled. If it is selected and the historical repository has not already been added to that package, the system will prompt you. - "browse mc origin" has been removed from the methods and class menu, but added to the history list that is provided when "browse mc history" is selected. These changes make the mc history/origin functions a LOT more accessible. Now the only thing left is to fix the bug related to branches. I still need to dig into that to even remember what it was, but these changes are not held up by that.. - Chris

3 3

Daily Commit Log
by commits＠source.squeak.org 28 Jul '14

28 Jul '14

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2014-July/007204.html Name: Services-Base-cmm.53 Ancestors: Services-Base-eem.52 None of our menu entries are capitalized, stop capitalizing service menu entries. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-July/007205.html Name: Monticello-cmm.596 Ancestors: Monticello-eem.595 - 'browse mc history' and 'browse mc origin' functions are now enabled all the time. If selected, and the historical repository hasn't been added to the necessary package, the system will now prompt the user to confirm its okay to add it to that package, instead of simply reporting an error message. Enablement. - However, about to remove 'browse mc origin' from all but the PathOperations browser. That's really where it belongs. Versioning before I do that, though, just in case. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-July/007206.html Name: Monticello-cmm.597 Ancestors: Monticello-cmm.596 - 'browse mc origin' is now moved to the mc history browser. Thanks for the suggestion Eliot, this is precisely where it belongs. - Browsing origin takes a few seconds, show the #wait cursor during that time. Ah hell, show it for browse mc history too because are are network operations, and the network could possibly be slow. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-July/007207.html Name: ToolsTests-nice.69 Ancestors: ToolsTests-cmm.68 Don't use a ReadWriteStream when our intention is just to sequentially write then read. ReadWriteStream and its complexity should be reserved to random read/write access. Instead, write on a WriteStream, then read from a ReadStream using new conveniency WriteStream>>readStream.. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-July/007208.html Name: Graphics-nice.298 Ancestors: Graphics-nice.297 Rather than commenting uggliness, remove it. Compatibility notes: >From now on, DON'T expect (ImageReadWriter formFromStream: yourStream) to reset yourStream. It's not its business, besides it does not work for every kind of Stream. Resetting a Stream was only ever required for constructs like (ReadWriteStream with: 'someData') reset. But you DON'T have to use a ReadWriteStream if it's just for reading. Rather use a ReadStream, this way, no reset is required. If really ReadWriteStream is what fits (why?) then you'll now have to perform the reset by yourself. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-July/007209.html Name: CollectionsTests-nice.221 Ancestors: CollectionsTests-nice.220 TextAttributesScanningTest is repeating the same code in most tests, refactor it, and while at it, use a WriteStream for writing then a ReadStream for reading. Note: there are still 2 tests failing... =============================================

1 0

The Trunk: CollectionsTests-nice.221.mcz
by commits＠source.squeak.org 27 Jul '14

27 Jul '14

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.221.mcz ==================== Summary ==================== Name: CollectionsTests-nice.221 Author: nice Time: 27 July 2014, 10:28:40.852 pm UUID: 25bc290f-60ff-429d-a608-304e995e35a2 Ancestors: CollectionsTests-nice.220 TextAttributesScanningTest is repeating the same code in most tests, refactor it, and while at it, use a WriteStream for writing then a ReadStream for reading. Note: there are still 2 tests failing... =============== Diff against CollectionsTests-nice.220 =============== Item was added: + ----- Method: TextAttributesScanningTest>>streamWithAttribute: (in category 'testing') ----- + streamWithAttribute: att + "Encode a TextAttribute on a Stream, and return a readStream on it" + | strm | + strm := (String new: 16) writeStream. + att writeScanOn: strm. + ^strm readStream! Item was changed: ----- Method: TextAttributesScanningTest>>testPluggableTextAttribute (in category 'testing') ----- testPluggableTextAttribute | att strm | att := PluggableTextAttribute evalBlock: [ #foo ]. + strm := WriteStream on: ''. - strm := ReadWriteStream on: ''. self assert: (att respondsTo: #writeScanOn:). att writeScanOn: strm. "FIXME: PluggableTextAttribute used by SqueakMap. Currently it cannot be filed out, so this probably needs fixing. See RunArray class>>scanFrom:" ! Item was changed: ----- Method: TextAttributesScanningTest>>testRunArrayScan (in category 'testing') ----- testRunArrayScan | ra ra2 strm | ra := RunArray scanFrom: (ReadStream on: '(14 50 312)f1,f1b,f1LInteger +;i'). + strm := WriteStream on: ''. - strm := ReadWriteStream on: ''. ra writeScanOn: strm. + + ra2 := RunArray scanFrom: strm readStream. - strm reset. - ra2 := RunArray scanFrom: strm. self assert: ra equals: ra2 ! Item was added: + ----- Method: TextAttributesScanningTest>>testScanAttribute:encodedWithCharacter: (in category 'testing') ----- + testScanAttribute: att encodedWithCharacter: aCharacter + ^self testScanAttribute: att encodedWithCharacter: aCharacter decodedWithBlock: [:strm | att] + ! Item was added: + ----- Method: TextAttributesScanningTest>>testScanAttribute:encodedWithCharacter:decodedWithBlock: (in category 'testing') ----- + testScanAttribute: att encodedWithCharacter: aCharacter decodedWithBlock: aBlock + "Test official encoding API, internal encoding details, and official decoding API for a specific TextAttribute" + | stream att2 att3 | + "First encode the TextAttribute on a Stream" + stream := self streamWithAttribute: att. + "Then test internal encoding" + att2 := self testScanAttribute: att fromStream: stream encodedWithCharacter: aCharacter decodedWithBlock: aBlock. + self assert: att equals: att2. + "Then test normal decoding API" + stream reset. + att3 := TextAttribute newFrom: stream. + self assert: att equals: att3. + ! Item was added: + ----- Method: TextAttributesScanningTest>>testScanAttribute:fromStream:encodedWithCharacter:decodedWithBlock: (in category 'testing') ----- + testScanAttribute: att fromStream: strm encodedWithCharacter: aCharacter decodedWithBlock: aBlock + "This is intended to test internal encoding of a TextAttribute. + The first char is decoded by this method, the optional parameters by aBlock" + | identifierCharacter att2 | + identifierCharacter := strm next. + self assert: aCharacter equals: identifierCharacter. + self assert: att class equals: (TextAttribute classFor: aCharacter). + att2 := aBlock value: strm. + self assert: strm atEnd. + ^att2 + ! Item was changed: ----- Method: TextAttributesScanningTest>>testTextAlignment (in category 'testing') ----- testTextAlignment + #(leftFlush rightFlush centered justified) do: [:alignment | + | att | + att := TextAlignment perform: alignment. + self testScanAttribute: att encodedWithCharacter: $a decodedWithBlock: [:strm | + TextAlignment new alignment: (Integer readFrom: strm ifFail: [-1])]. + self testScanAttribute: att encodedWithCharacter: $a decodedWithBlock: [:strm | + TextAlignment scanFrom: strm]].! - | att strm att2 identifierCharacter att3 att4 | - att := TextAlignment leftFlush. - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - identifierCharacter := strm next. - self assert: $a equals: identifierCharacter. - att2 :=TextAlignment new alignment: (Integer readFrom: strm ifFail: [-1]). - self assert: att equals: att2. - self assert: (TextAttribute classFor: $a) equals: TextAlignment. - - strm reset. - identifierCharacter := strm next. - self assert: $a equals: identifierCharacter. - att3 := TextAlignment scanFrom: strm. - self assert: att equals: att3. - self assert: TextAlignment equals: (TextAttribute classFor: $a). - - strm reset. - att4 := TextAttribute newFrom: strm. - self assert: att equals: att4.! Item was changed: ----- Method: TextAttributesScanningTest>>testTextAnchor (in category 'testing') ----- testTextAnchor | att strm | att := TextAnchor new anchoredMorph: RectangleMorph new initialize. + strm := WriteStream on: ''. - strm := ReadWriteStream on: ''. self assert: (att respondsTo: #writeScanOn:). att writeScanOn: strm. "FIXME - is TextAnchor used for anything?" ! Item was changed: ----- Method: TextAttributesScanningTest>>testTextColor (in category 'testing') ----- testTextColor + | att | - | att strm att2 att3 identifierCharacter | att := TextColor color: Color red. + self testScanAttribute: att encodedWithCharacter: $c decodedWithBlock: [:strm | TextColor scanFrom: strm]! - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - identifierCharacter := strm next. - self assert: $c equals: identifierCharacter. - att2 := TextColor scanFrom: strm. - self assert: att equals: att2. - self assert: TextColor equals: (TextAttribute classFor: $c). - strm reset. - att3 := TextAttribute newFrom: strm. - self assert: att equals: att3. - ! Item was changed: ----- Method: TextAttributesScanningTest>>testTextDoIt (in category 'testing') ----- testTextDoIt + | att | - | att strm att2 identifierCharacter att3 | att := TextDoIt evalString: 'foo'. + self testScanAttribute: att encodedWithCharacter: $d decodedWithBlock: [:strm | TextDoIt scanFrom: strm]! - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - identifierCharacter := strm next. - self assert: identifierCharacter equals: $d. - att2 := TextDoIt scanFrom: strm. - self assert: att equals: att2. - self assert: (TextAttribute classFor: $d) equals: TextDoIt. - strm reset. - att3 := TextAttribute newFrom: strm. - self assert: att equals: att3.! Item was changed: ----- Method: TextAttributesScanningTest>>testTextEmphasisBold (in category 'testing') ----- testTextEmphasisBold + self testScanAttribute: TextEmphasis bold encodedWithCharacter: $b - | att strm identifierCharacter att3 | - att := TextEmphasis bold. - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - identifierCharacter := strm next. - self assert: $b equals: identifierCharacter. - self assert: strm atEnd. - self assert: (TextAttribute classFor: $b) equals: TextEmphasis. - self assert: TextEmphasis equals: (TextAttribute classFor: $b). - strm reset. - att3 := TextAttribute newFrom: strm. - self assert: att equals: att3. ! Item was changed: ----- Method: TextAttributesScanningTest>>testTextEmphasisItalic (in category 'testing') ----- testTextEmphasisItalic + self testScanAttribute: TextEmphasis italic encodedWithCharacter: $i! - | att strm identifierCharacter att3 | - att := TextEmphasis italic. - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - identifierCharacter := strm next. - self assert: $i equals: identifierCharacter. - self assert: strm atEnd. - self assert: TextEmphasis equals: (TextAttribute classFor: $i). - strm reset. - att3 := TextAttribute newFrom: strm. - self assert: att equals: att3. - ! Item was changed: ----- Method: TextAttributesScanningTest>>testTextEmphasisNormal (in category 'testing') ----- testTextEmphasisNormal + self testScanAttribute: TextEmphasis normal encodedWithCharacter: $n! - | att strm identifierCharacter att3 | - att := TextEmphasis normal. - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - identifierCharacter := strm next. - self assert: $n equals: identifierCharacter. - self assert: strm atEnd. - self assert: TextEmphasis equals: (TextAttribute classFor: $n). - strm reset. - att3 := TextAttribute newFrom: strm. - self assert: att equals: att3. - ! Item was changed: ----- Method: TextAttributesScanningTest>>testTextEmphasisStruckOut (in category 'testing') ----- testTextEmphasisStruckOut + self testScanAttribute: TextEmphasis struckOut encodedWithCharacter: $=! - | att strm identifierCharacter att3 | - att := TextEmphasis struckOut. - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - identifierCharacter := strm next. - self assert: $= equals: identifierCharacter. - self assert: strm atEnd. - self assert: (TextAttribute classFor: $=) equals: TextEmphasis. - self assert: TextEmphasis equals: (TextAttribute classFor: $= ). - strm reset. - att3 := TextAttribute newFrom: strm. - self assert: att equals: att3. - ! Item was changed: ----- Method: TextAttributesScanningTest>>testTextEmphasisUnderlined (in category 'testing') ----- testTextEmphasisUnderlined + self testScanAttribute: TextEmphasis underlined encodedWithCharacter: $u! - | att strm identifierCharacter att3 | - att := TextEmphasis underlined. - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - identifierCharacter := strm next. - self assert: $u equals: identifierCharacter. - self assert: strm atEnd. - self assert: TextEmphasis equals: (TextAttribute classFor: $u). - strm reset. - att3 := TextAttribute newFrom: strm. - self assert: att equals: att3. - ! Item was changed: ----- Method: TextAttributesScanningTest>>testTextFontChange (in category 'testing') ----- testTextFontChange + | att | - | att strm att2 identifierCharacter att3 | att := TextFontChange font3. + self testScanAttribute: att encodedWithCharacter: $f decodedWithBlock: [:strm | TextFontChange new fontNumber: (Integer readFrom: strm ifFail: [0])]! - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - identifierCharacter := strm next. - self assert: $f equals: identifierCharacter. - att2 := TextFontChange new fontNumber: (Integer readFrom: strm ifFail: [0]). - self assert: att equals: att2. - self assert: TextFontChange equals: (TextAttribute classFor: $f). - strm reset. - att3 := TextAttribute newFrom: strm. - self assert: att equals: att3.! Item was changed: ----- Method: TextAttributesScanningTest>>testTextFontReference (in category 'testing') ----- testTextFontReference "Test TextFontReference with a StrikeFont" + | font att att3 stream fontReferenceString | - | font att strm identifierCharacter fontReferenceString att3 | font := StrikeFont someInstance. att := TextFontReference toFont: font. + stream := self streamWithAttribute: att. + fontReferenceString := self testScanAttribute: att fromStream: stream encodedWithCharacter: $F decodedWithBlock: [:strm | strm upToEnd]. - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - identifierCharacter := strm next. - self assert: $F equals: identifierCharacter. - fontReferenceString := strm upToEnd. self assert: font familyName, '#', font height equals: fontReferenceString. + stream reset. + att3 := TextAttribute newFrom: stream. + self assert: att equals: att3.! - self assert: TextFontReference equals: (TextAttribute classFor: $F). - strm reset. - att3 := TextAttribute newFrom: strm. - self assert: att equals: att3. - ! Item was changed: ----- Method: TextAttributesScanningTest>>testTextFontReferenceTTC (in category 'testing') ----- testTextFontReferenceTTC "n.b. A TextFontReference specifies font height only, which is not sufficient to identify a unique TTCFont. Here we test only that the font height of the selected font matches the TextFontReference specification." "(self selector: #testTextFontReferenceTTC) debug" "Test TextFontReference with a TTCFont" + | font att att3 stream fontReferenceString | - | font att strm identifierCharacter fontReferenceString att3 | font := TTCFont someInstance. att := TextFontReference toFont: font. + stream := self streamWithAttribute: att. + fontReferenceString := self testScanAttribute: att fromStream: stream encodedWithCharacter: $F decodedWithBlock: [:strm | strm upToEnd]. - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - identifierCharacter := strm next. - self assert: $F equals: identifierCharacter. - fontReferenceString := strm upToEnd. self assert: font familyName, '#', font height equals: fontReferenceString. + stream reset. + att3 := TextAttribute newFrom: stream. - self assert: TextFontReference equals: (TextAttribute classFor: $F). - strm reset. - att3 := TextAttribute newFrom: strm. "test font height only, see comment above" self assert: att font height equals: att3 font height. "we really want an exact match, which probably requires different implentation of TextFontReference" self assert: att equals: att3. ! Item was changed: ----- Method: TextAttributesScanningTest>>testTextKern (in category 'testing') ----- testTextKern + | att | - | att strm att2 att3 | att := TextKern kern: 5. + self testScanAttribute: att encodedWithCharacter: $+ decodedWithBlock: [:strm | + strm skip: -1. "The first $+ was consumed by the encoding letter test" + 5 timesRepeat: [self assert: $+ equals: strm next]. + att]. + - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - 5 timesRepeat: [self assert: $+ equals: strm next]. - self assert: strm atEnd. - strm reset. - att2 := TextAttribute newFrom: strm. - self assert: att equals: att2. - att := TextKern kern: -5. + self testScanAttribute: att encodedWithCharacter: $- decodedWithBlock: [:strm | + strm skip: -1. + 5 timesRepeat: [self assert: $- equals: strm next]. + att].! - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - 5 timesRepeat: [self assert: $- equals: strm next]. - self assert: strm atEnd. - strm reset. - att3 := TextAttribute newFrom: strm. - self assert: att equals: att3.! Item was changed: ----- Method: TextAttributesScanningTest>>testTextLink (in category 'testing') ----- testTextLink + | att | - | att strm att2 identifierCharacter att3 | att := TextLink new classAndMethod: 'class and method string'. + self testScanAttribute: att encodedWithCharacter: $L decodedWithBlock: [:strm | TextLink scanFrom: strm].! - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - identifierCharacter := strm next. - self assert: $L equals: identifierCharacter. - att2 := TextLink scanFrom: strm. - self assert: att equals: att2. - self assert: TextLink equals: (TextAttribute classFor: $L). - strm reset. - att3 := TextAttribute newFrom: strm. - self assert: att equals: att3.! Item was changed: ----- Method: TextAttributesScanningTest>>testTextMessageLink (in category 'testing') ----- testTextMessageLink | att strm | att := TextMessageLink message: Message someInstance. + strm := WriteStream on: ''. - strm := ReadWriteStream on: ''. self assert: (att respondsTo: #writeScanOn:). att writeScanOn: strm. "FIXME - is TextMessageLink used for anything?" ! Item was changed: ----- Method: TextAttributesScanningTest>>testTextPlusJumpEnd (in category 'testing') ----- testTextPlusJumpEnd | att strm | att := TextPlusJumpEnd new jumpLabel: 'this is a jump label'. + strm := WriteStream on: ''. - strm := ReadWriteStream on: ''. self assert: (att respondsTo: #writeScanOn:). att writeScanOn: strm. "FIXME - is TextPlusJumpEnd used for anything?" ! Item was changed: ----- Method: TextAttributesScanningTest>>testTextPlusJumpStart (in category 'testing') ----- testTextPlusJumpStart | att strm | att := TextPlusJumpStart new jumpLabel: 'this is a jump label'. + strm := WriteStream on: ''. - strm := ReadWriteStream on: ''. self assert: (att respondsTo: #writeScanOn:). att writeScanOn: strm. "FIXME - is TextPlusJumpStart used for anything?" ! Item was changed: ----- Method: TextAttributesScanningTest>>testTextPrintIt (in category 'testing') ----- testTextPrintIt + | att | - | att strm att2 identifierCharacter att3 | att := TextPrintIt evalString: 'foo'. + self testScanAttribute: att encodedWithCharacter: $P decodedWithBlock: [:strm | TextPrintIt scanFrom: strm]! - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - identifierCharacter := strm next. - self assert: $P equals: identifierCharacter. - att2 := TextPrintIt scanFrom: strm. - self assert: att equals: att2. - self assert: TextPrintIt equals: (TextAttribute classFor: $P). - strm reset. - att3 := TextAttribute newFrom: strm. - self assert: att equals: att3.! Item was changed: ----- Method: TextAttributesScanningTest>>testTextSqkPageLink (in category 'testing') ----- testTextSqkPageLink + | att | - | att strm att2 identifierCharacter att3 | att := TextSqkPageLink new url: 'a URL string'. + self testScanAttribute: att encodedWithCharacter: $q decodedWithBlock: [:strm | TextSqkPageLink scanFrom: strm]! - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - identifierCharacter := strm next. - self assert: $q equals: identifierCharacter. - att2 := TextSqkPageLink scanFrom: strm. - self assert: att equals: att2. - self assert: TextSqkPageLink equals: (TextAttribute classFor: $q). - strm reset. - att3 := TextAttribute newFrom: strm. - self assert: att equals: att3.! Item was changed: ----- Method: TextAttributesScanningTest>>testTextSqkProjectLink (in category 'testing') ----- testTextSqkProjectLink + | att | - | att strm att2 identifierCharacter att3 | att := TextSqkProjectLink new url: 'a URL string'. + self testScanAttribute: att encodedWithCharacter: $p decodedWithBlock: [:strm | TextSqkProjectLink scanFrom: strm]! - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - identifierCharacter := strm next. - self assert: $p equals: identifierCharacter. - att2 := TextSqkProjectLink scanFrom: strm. - self assert: att equals: att2. - self assert: TextSqkProjectLink equals: (TextAttribute classFor: $p). - strm reset. - att3 := TextAttribute newFrom: strm. - self assert: att equals: att3.! Item was changed: ----- Method: TextAttributesScanningTest>>testTextURL (in category 'testing') ----- testTextURL + | att | - | att strm att2 identifierCharacter att3 | att := TextURL new url: 'a URL string'. + self testScanAttribute: att encodedWithCharacter: $R decodedWithBlock: [:strm | TextURL scanFrom: strm]! - strm := ReadWriteStream on: ''. - att writeScanOn: strm. - strm reset. - identifierCharacter := strm next. - self assert: $R equals: identifierCharacter. - att2 := TextURL scanFrom: strm. - self assert: att equals: att2. - self assert: TextURL equals: (TextAttribute classFor: $R). - strm reset. - att3 := TextAttribute newFrom: strm. - self assert: att equals: att3.!

1 0

The Trunk: Graphics-nice.298.mcz
by commits＠source.squeak.org 27 Jul '14

27 Jul '14

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.298.mcz ==================== Summary ==================== Name: Graphics-nice.298 Author: nice Time: 27 July 2014, 4:20:11.638 pm UUID: 170cf894-37d9-4c00-adc3-8531594246dc Ancestors: Graphics-nice.297 Rather than commenting uggliness, remove it. Compatibility notes: >From now on, DON'T expect (ImageReadWriter formFromStream: yourStream) to reset yourStream. It's not its business, besides it does not work for every kind of Stream. Resetting a Stream was only ever required for constructs like (ReadWriteStream with: 'someData') reset. But you DON'T have to use a ReadWriteStream if it's just for reading. Rather use a ReadStream, this way, no reset is required. If really ReadWriteStream is what fits (why?) then you'll now have to perform the reset by yourself. =============== Diff against Graphics-nice.297 =============== Item was changed: ----- Method: Form>>readNativeResourceFrom: (in category 'resources') ----- readNativeResourceFrom: byteStream | img aStream | + aStream := byteStream. - (byteStream isKindOf: FileStream) ifTrue:[ - "Ugly, but ImageReadWriter will send #reset which is implemented as #reopen and we may not be able to do so." - aStream := RWBinaryOrTextStream with: byteStream contents. - ] ifFalse:[ - aStream := byteStream. - ]. img := [ImageReadWriter formFromStream: aStream] on: Error do:[:ex| nil]. img ifNil:[^nil]. (img isColorForm and:[self isColorForm]) ifTrue:[ | cc | cc := img colors. img colors: nil. img displayOn: self. img colors: cc. ] ifFalse:[ img displayOn: self. ]. img := nil.! Item was changed: ----- Method: ImageReadWriter class>>formFromStream: (in category 'image reading/writing') ----- formFromStream: aBinaryStream "Answer a ColorForm stored on the given stream. closes the stream" | reader readerClass form | readerClass := self withAllSubclasses detect: [:subclass | subclass understandsImageFormat: aBinaryStream] ifNone: [ aBinaryStream close. ^self error: 'image format not recognized']. + reader := readerClass new on: aBinaryStream. - reader := readerClass new on: aBinaryStream reset. Cursor read showWhile: [ form := reader nextImage. reader close]. ^ form !

1 0

The Trunk: ToolsTests-nice.69.mcz
by commits＠source.squeak.org 27 Jul '14

27 Jul '14

Nicolas Cellier uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-nice.69.mcz ==================== Summary ==================== Name: ToolsTests-nice.69 Author: nice Time: 27 July 2014, 3:55:03.028 pm UUID: 53091322-737b-4b76-9e47-2e35cefb723b Ancestors: ToolsTests-cmm.68 Don't use a ReadWriteStream when our intention is just to sequentially write then read. ReadWriteStream and its complexity should be reserved to random read/write access. Instead, write on a WriteStream, then read from a ReadStream using new conveniency WriteStream>>readStream.. =============== Diff against ToolsTests-cmm.68 =============== Item was changed: ----- Method: FileContentsBrowserTest>>setUp (in category 'as yet unclassified') ----- setUp | fileout testCat package packageDict organizer | testCat := self class category. + fileout := WriteStream on: (String new: 10000). - fileout := ReadWriteStream on: (String new: 10000). SystemOrganization fileOutCategory: testCat on: fileout. packageDict := Dictionary new. browser := FileContentsBrowser new. organizer := SystemOrganizer defaultList: Array new. + package := (FilePackage new fullName: testCat; fileInFrom: fileout readStream). - package := (FilePackage new fullName: testCat; fileInFrom: fileout). packageDict at: package packageName put: package. organizer classifyAll: package classes keys under: package packageName. (browser := FileContentsBrowser systemOrganizer: organizer) packages: packageDict.!

1 0

ESUG 2014 REMINDER: 11th Innovation Technology Awards
by Jordi Delgado 27 Jul '14

27 Jul '14

ESUG 2014 REMINDER: 11th Innovation Technology Awards http://esug.org/Conferences/2014/Innovation-Technology-Awards Have you written innovative Smalltalk? The developers of any Smalltalk-based software can enter by submitting a 3-5min video of their software. Entrants demo their systems in a session at the end of Monday August 18th 2014, after which the conference attendees vote. (A vote consists in providing a sorted list of 3 preferred pieces of software.) The top 3 teams with the most innovative software will receive, respectively, 500 Euros, 300 Euros and 200 Euros. The results are announced in the Awards ceremony that is held during the social event. Applicants should provide the following information on the conference registration server. Once you have registered your personal info, an 'Awards' menu allows submitting your software. You can provide this information when you first register, or login again later and update your details. The registration server will open soon. You can start preparing your software right now though. Info to provide: Name of the software Licence information (free, shareware, or commercial) Name of the Smalltalk dialect used Name, Affiliation and Country of developers Besides, it would be great if the submission could include: URL for a video (3-5 min) showing a screencast / demo of the software URL for downloading the software or at least a runnable demo Deadline: August 15th Any Smalltalker can apply (students, companies, ...). The presented piece of code/software should be written in Smalltalk or directly support Smalltalk (e.g. Smalltalk VM). All Smalltalk dialects are accepted. The applicant should be "strongly related" to the presented code, be it as an author, as owner of the copyright/copyleft, or as an official representative of the copyright/copyleft owner. Bests, Jordi

1 0

The Trunk: Monticello-cmm.597.mcz
by commits＠source.squeak.org 27 Jul '14

27 Jul '14

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.597.mcz ==================== Summary ==================== Name: Monticello-cmm.597 Author: cmm Time: 26 July 2014, 7:20:36.737 pm UUID: 2787677e-bb50-4e0d-b3d0-6ee974696c2c Ancestors: Monticello-cmm.596 - 'browse mc origin' is now moved to the mc history browser. Thanks for the suggestion Eliot, this is precisely where it belongs. - Browsing origin takes a few seconds, show the #wait cursor during that time. Ah hell, show it for browse mc history too because are are network operations, and the network could possibly be slow. =============== Diff against Monticello-cmm.596 =============== Item was changed: ----- Method: BrowserRequestor>>browseMcClassHistory (in category '*monticello-history') ----- browseMcClassHistory "Open a browser on all versions of this class available in the MC repository for this package." self getClass ifNil: [ UIManager inform: 'No class selected' ] ifNotNilDo: + [ : theClass | (MCWorkingCopyBrowser mcModelFor: theClass theNonMetaClass) ifNotNil: + [ : mcModel | (MCOperationsList operations: (Cursor wait showWhile: [ theClass theNonMetaClass mcPatchOperations ])) browse ] ]! - [ : theClass | theClass mcModel - ifNil: [ UIManager inform: 'No Magma-based repository for ' , theClass packageInfo packageName ] - ifNotNilDo: - [ : mcModel | (MCOperationsList operations: theClass mcPatchOperations) browse ] ]! Item was removed: - ----- Method: BrowserRequestor>>browseMcClassOrigin (in category '*monticello-history') ----- - browseMcClassOrigin - "Open a Monticello version browser on the earliest version available in the repository known to contain this version." - self getClass - ifNil: [ UIManager inform: 'No method selected' ] - ifNotNilDo: - [ : selectedClass | selectedClass mcModel - ifNil: [ UIManager inform: 'No Magma-based repository for ' , selectedClass packageInfo packageName ] - ifNotNilDo: - [ : mcModel | (mcModel originOf: selectedClass asClassDefinition) - ifNil: [ UIManager inform: selectedClass asString , ' was not found in any Magma-based MC repository.' ] - ifNotNilDo: - [ : version | version open ] ] ]! Item was changed: ----- Method: BrowserRequestor>>browseMcMethodHistory (in category '*monticello-history') ----- browseMcMethodHistory "Open a browser on all versions of this method available in the MC repository for this package." self selectedMethodReference ifNil: [ UIManager inform: 'No method selected' ] ifNotNilDo: + [ : methodReference | (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: [ (MCOperationsList operations: (Cursor wait showWhile: [ methodReference mcPatchOperations ])) browse ] ]! - [ : methodReference | (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: [ (MCOperationsList operations: methodReference mcPatchOperations) browse ] ]! Item was removed: - ----- Method: BrowserRequestor>>browseMcMethodOrigin (in category '*monticello-history') ----- - browseMcMethodOrigin - "Open a Monticello version browser on the earliest version available in the repository known to contain this version." - self selectedMethodReference - ifNil: [ UIManager inform: 'No method selected' ] - ifNotNilDo: - [ : methodReference | (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: - [ : mcModel | (mcModel originOf: methodReference asMethodDefinition) - ifNil: [ UIManager inform: methodReference asString , ' was not found in the historical MC repository.' ] - ifNotNilDo: [ : version | version open ] ] ]! Item was removed: - ----- Method: BrowserRequestor>>canBrowseMcClassHistory (in category '*monticello-history') ----- - canBrowseMcClassHistory - ^ self getClass - ifNil: [ false ] - ifNotNilDo: - [ : class | class mcModel notNil ]! Item was removed: - ----- Method: Class>>mcOrigin (in category '*monticello') ----- - mcOrigin - "Answer the MCVersion in which this definition of this class was originally committed." - ^ self mcModel ifNotNil: [ : mcmodel | mcmodel originOf: self ]! Item was removed: - ----- Method: MCDefinition>>findMcModel (in category 'private') ----- - findMcModel - "Find my WorkingCopy, use the first mcModel-capable repository in its reposigoryGroup." - self repositoryGroup repositoriesDo: - [ : each | each mcModel ifNotNilDo: - [ : mcModel | ^ mcModel ] ]. - ^ nil! Item was removed: - ----- Method: MCDefinition>>origin (in category 'private') ----- - origin - "Answer the MCVersion in which the receiver was originally committed." - ^ self mcModel ifNotNil: [ : model | model originOf: self ]! Item was changed: ----- Method: MCHttpRepository class>>initialize (in category 'class initialization') ----- initialize self unload. + (ServiceRegistry current serviceWithId: #browserMethodMenu) services add: self browseMcMethodHistoryService. + (ServiceRegistry current serviceWithId: #browserClassMenu) services add: self browseMcClassHistoryService! - (ServiceRegistry current serviceWithId: #browserMethodMenu) services - add: self browseMcMethodHistoryService ; - add: self browseMcMethodOriginService. - (ServiceRegistry current serviceWithId: #browserClassMenu) services - add: self browseMcClassHistoryService ; - add: self browseMcClassOriginService! Item was changed: ----- Method: MCOperationsBrowser>>browseSelectionOrigin (in category 'actions') ----- browseSelectionOrigin + | mcDefinition | selection ifNil: [ UIManager inform: 'Make a selection.' ]. + mcDefinition := selection definition. + Cursor wait showWhile: + [ (MCWorkingCopyBrowser mcModelFor: mcDefinition) ifNotNil: + [ : mcModel | (mcModel originOf: mcDefinition) + ifNil: [ UIManager inform: mcDefinition asString , ' was not found in any historical MC repository.' ] - selection definition isMethodDefinition ifTrue: - [ | methodReference | - methodReference := selection definition asMethodReference. - (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: - [ : mcModel | (mcModel originOf: methodReference asMethodDefinition) - ifNil: [ UIManager inform: methodReference asString , ' was not found in any historical MC repository.' ] ifNotNilDo: [ : version | version open ] ] ]! Item was changed: ----- Method: MCRepository class>>browseMcClassHistoryService (in category 'ui-support') ----- browseMcClassHistoryService ^ ServiceAction id: #browseMcClassHistory text: 'browse mc history' button: 'mc' + description: 'Browse the Monticello history of this class from the historical code repository.' - description: 'Browse the Monticello history of this class from the code repository.' action: [ : aBrowserRequestor | aBrowserRequestor browseMcClassHistory ] condition: + [ : aBrowserRequestor | true ]! - [ : aBrowserRequestor | aBrowserRequestor canBrowseMcClassHistory ]! Item was removed: - ----- Method: MCRepository class>>browseMcClassOriginService (in category 'ui-support') ----- - browseMcClassOriginService - ^ ServiceAction - id: #browseMcClassOrigin - text: 'browse mc origin' - button: 'mc' - description: 'Browse the Monticello version comments in which this class definition was originally committed.' - action: - [ : aBrowserRequestor | aBrowserRequestor browseMcClassOrigin ] - condition: - [ : aBrowserRequestor | aBrowserRequestor canBrowseMcClassHistory ]! Item was changed: ----- Method: MCRepository class>>browseMcMethodHistoryService (in category 'ui-support') ----- browseMcMethodHistoryService ^ ServiceAction id: #browseMcMethodHistory text: 'browse mc history' button: 'mc' + description: 'Browse the Monticello history of this method from the historical code repository.' - description: 'Browse the Monticello history of this method from the code repository.' action: [ : aBrowserRequestor | aBrowserRequestor browseMcMethodHistory ] condition: [ : aBrowserRequestor | true ]! Item was removed: - ----- Method: MCRepository class>>browseMcMethodOriginService (in category 'ui-support') ----- - browseMcMethodOriginService - ^ ServiceAction - id: #browseMcMethodOrigin - text: 'browse mc origin' - button: 'mc' - description: 'Browse the Monticello version comments in which this edition of this method was originally committed.' - action: - [ : aBrowserRequestor | aBrowserRequestor browseMcMethodOrigin ] - condition: - [ : aBrowserRequestor | true ]! Item was removed: - ----- Method: MethodReference>>mcOrigin (in category '*monticello') ----- - mcOrigin - "Answer the MCVersion in which this version of this method was originally committed." - ^ self mcModel ifNotNil: [ : mcmodel | mcmodel originOf: self ]! Item was added: + (PackageInfo named: 'Monticello') postscript: 'MCHttpRepository unload; initialize.'!

1 0

The Trunk: Monticello-cmm.596.mcz
by commits＠source.squeak.org 27 Jul '14

27 Jul '14

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.596.mcz ==================== Summary ==================== Name: Monticello-cmm.596 Author: cmm Time: 26 July 2014, 6:22:58.028 pm UUID: 32e8bf38-ae20-4356-b7b3-32e6568012ac Ancestors: Monticello-eem.595 - 'browse mc history' and 'browse mc origin' functions are now enabled all the time. If selected, and the historical repository hasn't been added to the necessary package, the system will now prompt the user to confirm its okay to add it to that package, instead of simply reporting an error message. Enablement. - However, about to remove 'browse mc origin' from all but the PathOperations browser. That's really where it belongs. Versioning before I do that, though, just in case. =============== Diff against Monticello-eem.595 =============== Item was changed: ----- Method: BrowserRequestor>>browseMcMethodHistory (in category '*monticello-history') ----- browseMcMethodHistory "Open a browser on all versions of this method available in the MC repository for this package." self selectedMethodReference ifNil: [ UIManager inform: 'No method selected' ] ifNotNilDo: + [ : methodReference | (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: [ (MCOperationsList operations: methodReference mcPatchOperations) browse ] ]! - [ : methodReference | methodReference mcModel - ifNil: [ UIManager inform: 'No Magma-based repository for ' , methodReference packageInfo packageName ] - ifNotNilDo: - [ : mcModel | (MCOperationsList operations: methodReference mcPatchOperations) browse ] ]! Item was changed: ----- Method: BrowserRequestor>>browseMcMethodOrigin (in category '*monticello-history') ----- browseMcMethodOrigin "Open a Monticello version browser on the earliest version available in the repository known to contain this version." self selectedMethodReference ifNil: [ UIManager inform: 'No method selected' ] ifNotNilDo: + [ : methodReference | (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: + [ : mcModel | (mcModel originOf: methodReference asMethodDefinition) + ifNil: [ UIManager inform: methodReference asString , ' was not found in the historical MC repository.' ] + ifNotNilDo: [ : version | version open ] ] ]! - [ : methodReference | methodReference mcModel - ifNil: [ UIManager inform: 'No Magma-based repository for ' , methodReference packageInfo packageName ] - ifNotNilDo: - [ : mcModel | (mcModel originOf: methodReference asMethodDefinition) - ifNil: [ UIManager inform: methodReference asString , ' was not found in any Magma-based MC repository.' ] - ifNotNilDo: - [ : version | version open ] ] ]! Item was removed: - ----- Method: BrowserRequestor>>canBrowseMcMethodHistory (in category '*monticello-history') ----- - canBrowseMcMethodHistory - ^ self selectedMethodReference - ifNil: [ false ] - ifNotNilDo: - [ : methodReference | methodReference mcModel notNil ]! Item was changed: ----- Method: MCDefinition>>mcModel (in category 'private') ----- mcModel + "Find my WorkingCopy, use the first mcModel-capable repository in its reposigoryGroup." + self repositoryGroup repositoriesDo: + [ : each | each mcModel ifNotNilDo: + [ : mcModel | ^ mcModel ] ]. + ^ nil! - ^ self findMcModel ifNil: [ super mcModel ]! Item was added: + ----- Method: MCHttpRepository class>>trunkBackup (in category 'well-known repositories') ----- + trunkBackup + ^ MCRepositoryGroup default repositories + detect: + [ : each | each isTrunkBackup ] + ifNone: + [ MCHttpRepository + location: MCHttpRepository trunkBackupUrlString + user: 'squeak' + password: 'squeak' ]! Item was added: + ----- Method: MCHttpRepository class>>trunkBackupUrlString (in category 'accessing') ----- + trunkBackupUrlString + ^ 'http://box4.squeak.org:8888/trunk'! Item was added: + ----- Method: MCHttpRepository>>isTrunkBackup (in category 'testing') ----- + isTrunkBackup + ^ location = self class trunkBackupUrlString! Item was changed: ----- Method: MCHttpRepository>>mcModel (in category 'overriding') ----- mcModel "Answer the object which can respond to #historyOf: and #originOf:." + ^ ((location beginsWith: 'http://localhost:8888/') or: [ location beginsWith: self class trunkBackupUrlString ]) ifTrue: [ self ]! - ^ ((location beginsWith: 'http://localhost:8888/') or: [ location beginsWith: 'http://box4.squeak.org:8888/' ]) ifTrue: [ self ]! Item was added: + ----- Method: MCOperationsBrowser>>browseSelectionOrigin (in category 'actions') ----- + browseSelectionOrigin + selection ifNil: [ UIManager inform: 'Make a selection.' ]. + selection definition isMethodDefinition ifTrue: + [ | methodReference | + methodReference := selection definition asMethodReference. + (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: + [ : mcModel | (mcModel originOf: methodReference asMethodDefinition) + ifNil: [ UIManager inform: methodReference asString , ' was not found in any historical MC repository.' ] + ifNotNilDo: + [ : version | version open ] ] ]! Item was changed: ----- Method: MCOperationsBrowser>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu selection ifNotNil: [aMenu addList:#( ('install' installSelection) ('revert' revertSelection) + ('browse origin' browseSelectionOrigin) -)]. self unchangedMethods ifNotEmpty: [aMenu addList:#( ('revert unchanged methods...' revertUnchangedMethods) -)]. super methodListMenu: aMenu. + ^ aMenu! - ^ aMenu - ! Item was added: + ----- Method: MCPackageManager class>>forPackageNamed: (in category 'as yet unclassified') ----- + forPackageNamed: aString + ^ self registry detect: + [ : each | each packageName = aString ]! Item was changed: ----- Method: MCRepository class>>browseMcMethodHistoryService (in category 'ui-support') ----- browseMcMethodHistoryService ^ ServiceAction id: #browseMcMethodHistory text: 'browse mc history' button: 'mc' description: 'Browse the Monticello history of this method from the code repository.' action: [ : aBrowserRequestor | aBrowserRequestor browseMcMethodHistory ] condition: + [ : aBrowserRequestor | true ]! - [ : aBrowserRequestor | aBrowserRequestor canBrowseMcMethodHistory ]! Item was changed: ----- Method: MCRepository class>>browseMcMethodOriginService (in category 'ui-support') ----- browseMcMethodOriginService ^ ServiceAction id: #browseMcMethodOrigin text: 'browse mc origin' button: 'mc' description: 'Browse the Monticello version comments in which this edition of this method was originally committed.' action: [ : aBrowserRequestor | aBrowserRequestor browseMcMethodOrigin ] condition: + [ : aBrowserRequestor | true ]! - [ : aBrowserRequestor | aBrowserRequestor canBrowseMcMethodHistory ]! Item was added: + ----- Method: MCRepository>>isTrunkBackup (in category 'testing') ----- + isTrunkBackup + ^ false! Item was added: + ----- Method: MCWorkingCopyBrowser class>>mcModelFor: (in category 'hooks') ----- + mcModelFor: aClassOrMethodReference + ^ aClassOrMethodReference mcModel ifNil: + [ | pkgName | (UIManager confirm: 'Okay to add historical repository to ' , (pkgName := aClassOrMethodReference packageInfo packageName) , '?') ifTrue: + [ (MCWorkingCopy forPackageNamed: pkgName) repositoryGroup addRepository: MCHttpRepository trunkBackup. + aClassOrMethodReference mcModel ] ]!

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
23
Older →

Jump to page: