Squeak-dev August 2009

squeak-dev@lists.squeakfoundation.org

114 participants
300 discussions

The Trunk: Morphic-laza.163.mcz
by commits＠source.squeak.org 31 Aug '09

31 Aug '09

Alexander Lazarević uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-laza.163.mcz ==================== Summary ==================== Name: Morphic-laza.163 Author: laza Time: 31 August 2009, 1:21:17 am UUID: 51d4d2f4-1e4d-c649-8f0d-7f6938c8c38b Ancestors: Morphic-ar.162 This makes the keyboard shortcut for the DualChangeSorter <alt><shift>C work again =============== Diff against Morphic-ar.162 =============== Item was changed: ----- Method: PasteUpMorph>>findAWindowSatisfying:orMakeOneUsing: (in category 'world menu') ----- findAWindowSatisfying: qualifyingBlock orMakeOneUsing: makeBlock "Locate a window satisfying a block, open it, and bring it to the front. Create one if necessary, by using the makeBlock" | aWindow | submorphs do: [:aMorph | (((aWindow := aMorph renderedMorph) isSystemWindow) and: [qualifyingBlock value: aWindow]) ifTrue: [aWindow isCollapsed ifTrue: [aWindow expand]. aWindow activateAndForceLabelToShow. ^self]]. "None found, so create one" + makeBlock value! - makeBlock value openInWorld! Item was changed: ----- Method: PasteUpMorph>>findAFileList: (in category 'world menu') ----- findAFileList: evt "Locate a file list, open it, and bring it to the front. Create one if necessary, respecting the Preference." self findAWindowSatisfying: [:aWindow | aWindow model isKindOf: FileList] + orMakeOneUsing: [FileList2 prototypicalToolWindow openInWorld] - orMakeOneUsing: [FileList2 prototypicalToolWindow] !

1 0

[ANN] KomHttpServer 7.1.2
by Giovanni Corriga 30 Aug '09

30 Aug '09

Hi all, the latest version of KomHttpServer is now available on Squeaksource. Since the latest release, the following changes have been integrated: - reliably close the connection socket if the Kom process is terminated while debugging (thanks to Julian Fitzell) - fix a bug preventing ModFile from serving static files (thanks to Francois Stephany) - compatibility code to let Kom run in both Pharo and Squeak (thanks to Micheal Rueger and Damien Cassou) The code has been tested in the current development versions of both Pharo and Squeak. In order to install Kom in your image add KomHttpServer's Squeaksource repository ( http://www.squeaksource.com/KomHttpServer.html ) and load the following packages: - DynamicBindings-GiovanniCorriga.10.mcz - KomServices-gc.19.mcz - KomHttpServer-GiovanniCorriga.50.mcz Ciao, Giovanni

1 0

[Suggestion] Shout Workspace
by Giuseppe Luigi Punzi Ruiz 30 Aug '09

30 Aug '09

Hi all, If Shout is integrated in the image, I think could be interesting, to have ShoutWorkspace as default Workspace too. Giuseppe Luigi Punzi Ruiz Blog: http://www.lordzealon.com Twitter & Skype & GoogleTalk accounts: glpunzi

2 1

The Trunk: EToys-dtl.34.mcz
by commits＠source.squeak.org 30 Aug '09

30 Aug '09

David T. Lewis uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-dtl.34.mcz ==================== Summary ==================== Name: EToys-dtl.34 Author: dtl Time: 30 August 2009, 10:55:15 am UUID: fa445e05-8e85-4fa4-8d32-bfed7de2688a Ancestors: EToys-dtl.33 Eliminate an unnecessary #oopString send =============== Diff against EToys-dtl.33 =============== Item was changed: ----- Method: ScriptInstantiation>>printOn: (in category 'printing') ----- printOn: aStream "Print the receiver on aStream" super printOn: aStream. + aStream nextPut: Character space; + nextPutAll: self identityHashPrintString; + nextPutAll: ' for #', selector asString! - aStream nextPutAll: ' (', self oopString, ') '. - aStream nextPutAll: ' for #', selector asString!

1 0

The Trunk: Graphics-ar.70.mcz
by commits＠source.squeak.org 30 Aug '09

30 Aug '09

Andreas Raab uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ar.70.mcz ==================== Summary ==================== Name: Graphics-ar.70 Author: ar Time: 29 August 2009, 11:12:24 am UUID: 58580694-2983-b146-b230-880ea8cca338 Ancestors: Graphics-jmv.69 Add a workaround for BitBlt not returning the advance width from the displayString primitive. =============== Diff against Graphics-jmv.69 =============== Item was changed: ----- Method: StrikeFont>>displayString:on:from:to:at:kern: (in category 'displaying') ----- displayString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta "Draw the given string from startIndex to stopIndex at aPoint on the (already prepared) BitBlt." + | pt | (aString isByteString) ifFalse: [^ self displayMultiString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: aPoint y + self ascent.]. + pt := aBitBlt displayString: aString - ^ aBitBlt displayString: aString from: startIndex to: stopIndex at: aPoint strikeFont: self + kern: kernDelta. + pt = aPoint ifFalse:[^pt]. + "In some situations BitBlt doesn't return the advance width from the primitive. + Work around the situation" + ^aPoint x + (self widthOfString: aString from: startIndex to: stopIndex) + (stopIndex-startIndex+1*kernDelta) @ aPoint y + ! - kern: kernDelta.! Item was changed: ----- Method: StrikeFont>>displayMultiString:on:from:to:at:kern:baselineY: (in category 'displaying') ----- displayMultiString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY | leftX rightX glyphInfo char destY form gfont destX destPt | destX := aPoint x. charIndex := startIndex. glyphInfo := Array new: 5. startIndex to: stopIndex do:[:charIndex| char := aString at: charIndex. (self hasGlyphOf: char) ifTrue: [ self glyphInfoOf: char into: glyphInfo. form := glyphInfo at: 1. leftX := glyphInfo at: 2. rightX := glyphInfo at: 3. destY := glyphInfo at: 4. gfont := glyphInfo at: 5. (gfont == aBitBlt lastFont) ifFalse: [gfont installOn: aBitBlt]. destY := baselineY - destY. aBitBlt displayGlyph: form at: destX @ destY left: leftX right: rightX font: self. destX := destX + (rightX - leftX + kernDelta). ] ifFalse:[ destPt := self fallbackFont displayString: aString on: aBitBlt from: charIndex to: charIndex at: destX @ aPoint y kern: kernDelta from: self baselineY: baselineY. + destPt x = destX ifTrue:[ + "In some situations BitBlt doesn't return the advance width from the primitive. + Work around the situation" + destX := destX + (self widthOfString: aString from: startIndex to: stopIndex) + kernDelta. + ] ifFalse:[destX := destPt x]. - destX := destPt x. ]. ]. ^destX @ aPoint y !

1 0

The Trunk: Collections-tfel.122.mcz
by commits＠source.squeak.org 30 Aug '09

30 Aug '09

Andreas Raab uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-tfel.122.mcz ==================== Summary ==================== Name: Collections-tfel.122 Author: tfel Time: 28 August 2009, 9:17:27 am UUID: 628fd0f2-dabf-403b-a887-e1cd7d5a4055 Ancestors: Collections-ar.121 For the Method asHtml we have HtmlEntities as class-side Dictionary. I propose to use it for asUnHtml as well and fail silently if we couldn't find a match instead of throwing an Error saying "please add the missing entity to this method" =============== Diff against Collections-ar.121 =============== Item was added: Item was changed: ----- Method: String>>asUnHtml (in category 'converting') ----- asUnHtml "Strip out all Html stuff (commands in angle brackets <>) and convert the characters &<> back to their real value. Leave actual cr and tab as they were in text." + | in out char rest | - | in out char rest did | in := ReadStream on: self. out := WriteStream on: (String new: self size). [in atEnd] whileFalse: [in peek = $< ifTrue: [in unCommand] "Absorb <...><...>" ifFalse: [(char := in next) = $& ifTrue: [rest := in upTo: $;. + out nextPut: (HtmlEntities + at: rest + ifAbsent: [Character space])] - did := out position. - rest = 'lt' ifTrue: [out nextPut: $<]. - rest = 'gt' ifTrue: [out nextPut: $>]. - rest = 'amp' ifTrue: [out nextPut: $&]. - rest = 'deg' ifTrue: [out nextPut: $°]. - rest = 'quot' ifTrue: [out nextPut: $"]. - rest = 'nbsp' ifTrue: [out nextPut: Character space]. - did = out position ifTrue: [ - self error: 'unknown encoded HTML char'. - "Please add it to this method"]] ifFalse: [out nextPut: char]]. ]. ^ out contents!

1 0

The Trunk: Monticello-tfel.320.mcz
by commits＠source.squeak.org 30 Aug '09

30 Aug '09

Andreas Raab uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-tfel.320.mcz ==================== Summary ==================== Name: Monticello-tfel.320 Author: tfel Time: 28 August 2009, 8:47:40 am UUID: cd4608e7-7d48-4111-b449-f0b0b1cf06bd Ancestors: Monticello-rkrk.319 Adapt a test-case to reality - In the MCSnapshotBrowser, when we have abolutely nothing selected, we don't want to see an empty string, instead we see the packages scripts or, in the testcase, the info that this package doesn't define any scripts =============== Diff against Monticello-rkrk.319 =============== Item was changed: ----- Method: MCMethodDefinitionTest>>override (in category 'mocks') ----- override ^ 1! Item was changed: ----- Method: MCSnapshotBrowserTest>>testNoSelection (in category 'testing') ----- testNoSelection self assertAListMatches: self allCategories. self denyAListIncludesAnyOf: self definedClasses. self denyAListIncludesAnyOf: self allProtocols. self denyAListIncludesAnyOf: self allMethods. + "and if there I need to see the packages scripts (or none)" + self assertTextIs: '(package defines no scripts)'.! - self assertTextIs: ''.! Item was changed: ----- Method: MCSnapshotBrowser>>scriptDefinitionString (in category 'text') ----- scriptDefinitionString | defs | defs := items select: [:ea | ea isScriptDefinition]. defs isEmpty ifTrue: [^'(package defines no scripts)']. + - ^ String streamContents: [:stream | defs asArray sort do: [:ea | stream nextPutAll: '---------- package '; nextPutAll: ea scriptSelector; nextPutAll: ' ----------'; cr; nextPutAll: ea script; cr] separatedBy: [stream cr]].!

1 0

The Trunk: TrueType-ar.8.mcz
by commits＠source.squeak.org 30 Aug '09

30 Aug '09

Andreas Raab uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-ar.8.mcz ==================== Summary ==================== Name: TrueType-ar.8 Author: ar Time: 29 August 2009, 7:38:39 am UUID: 0d01ea7c-59a5-fc4e-912b-4a2cbf5ccdb5 Ancestors: TrueType-ar.7 Process typographic metrics from the OS/2 table in truetype fonts. =============== Diff against TrueType-ar.7 =============== Item was added: + ----- Method: TTFontDescription>>fontHeight (in category 'accessing') ----- + fontHeight + ^ascender - descender! Item was added: + ----- Method: TTFontDescription>>typographicDescender (in category 'accessing') ----- + typographicDescender + "Microsoft defines this as the 'true typographic metrics' of the font." + ^sTypoDescender ifNil:[descender]! Item was changed: Object subclass: #TTFileDescription + instanceVariableNames: 'fileName fileOffset familyName subfamilyName ascender descender lineGap unitsPerEm numGlyphs indexToLocOffset indexToLocFormat glyphTableOffset cmapType cmapOffset numHMetrics hmtxTableOffset sTypoAscender sTypoDescender sTypoLineGap' + classVariableNames: 'AllFontsAndFiles FontPaths OfferNonPortableFonts' - instanceVariableNames: 'fileName fileOffset familyName subfamilyName ascender descender lineGap unitsPerEm numGlyphs indexToLocOffset indexToLocFormat glyphTableOffset cmapType cmapOffset numHMetrics hmtxTableOffset' - classVariableNames: 'FontPaths OfferNonPortableFonts AllFontsAndFiles' poolDictionaries: '' category: 'TrueType-Fonts'! !TTFileDescription commentStamp: 'ar 7/29/2009 22:18' prior: 0! Contrary to TTFontDescritption, this class leaves true type files on disk and only reads the required portions when constructing glyphs. This avoids the need of reading the entire font into memory at the cost of having to hit disk whenever a glyph is requested.! Item was added: + ----- Method: TTFontDescription>>setTypographicAscender:descender:lineGap: (in category 'private-initialization') ----- + setTypographicAscender: asc descender: desc lineGap: lGap + sTypoAscender := asc. + sTypoDescender := desc. + sTypoLineGap := lGap. + ! Item was changed: ----- Method: TTFileDescription>>lineGap (in category 'accessing') ----- lineGap + "Leading of the font. Relative to unitsPerEm. + Easily confused with the typographic linegap." - "Ascender of the font. Relative to unitsPerEm." ^lineGap! Item was added: + ----- Method: TTFileDescription>>typographicLineGap (in category 'accessing') ----- + typographicLineGap + "Microsoft defines this as the 'true typographic metrics' of the font." + ^sTypoLineGap ifNil:[lineGap]! Item was changed: ----- Method: TTFileDescription>>ascender (in category 'accessing') ----- ascender + "Ascender of the font. Relative to unitsPerEm. + Easily confused with the typographic ascender." - "Ascender of the font. Relative to unitsPerEm." ^ascender! Item was changed: ----- Method: TTFileDescription>>on:offset: (in category 'initialize') ----- on: aFileName offset: fontOffset "Initialize the receiver from a file name" fileName := aFileName. fileOffset := fontOffset. self withFileDo:[:fontFile| "Some bitmap fonts are called .ttf; skip anything that doesn't have a header" (self findTable: 'head' in: fontFile) ifFalse:[^nil]. self processFontHeaderTable: fontFile. (self findTable: 'maxp' in: fontFile) ifFalse:[^self error: 'File does not have a profile table']. self processMaximumProfileTable: fontFile. (self findTable: 'name' in: fontFile) ifFalse:[^self error: 'File does not have a naming table']. self processNamingTable: fontFile. (self findTable: 'hhea' in: fontFile) ifFalse:[^self error: 'File does not have a horizontal header table']. self processHorizontalHeaderTable: fontFile. + (self findTable: 'OS/2' in: fontFile) + ifTrue:[self processOS2Table: fontFile]. (self findTable: 'hmtx' in: fontFile) ifFalse:[^self error: 'File does not have a horizontal header table']. hmtxTableOffset := fontFile position. (self findTable: 'loca' in: fontFile) ifFalse:[^self error: 'File does not have a naming table']. indexToLocOffset := fontFile position. (self findTable: 'glyf' in: fontFile) ifFalse:[^self error: 'File does not have a naming table']. glyphTableOffset := fontFile position. (self findTable: 'cmap' in: fontFile) ifFalse:[^self error: 'File does not have a header table']. self processCharacterMappingTable: fontFile. ].! Item was added: + ----- Method: TTFileDescription>>renderGlyph:height:fgColor:bgColor:depth: (in category 'rendering') ----- + renderGlyph: code height: height fgColor: fgColor bgColor: bgColor depth: depth + "Render the glyph with the given code point at the specified pixel height." + ^(self at: code) + asFormWithScale: height asFloat / (ascender - descender) + ascender: ascender + descender: descender + fgColor: fgColor bgColor: bgColor depth: depth! Item was changed: ----- Method: TTFontDescription>>lineGap (in category 'properties') ----- lineGap + "Leading of the font. Relative to unitsPerEm. + Easily confused with the typographic linegap." ^lineGap! Item was added: + ----- Method: TTFontDescription>>typographicLineGap (in category 'accessing') ----- + typographicLineGap + "Microsoft defines this as the 'true typographic metrics' of the font." + ^sTypoLineGap ifNil:[lineGap]! Item was added: + ----- Method: TTFileDescription>>typographicAscender (in category 'accessing') ----- + typographicAscender + "Microsoft defines this as the 'true typographic metrics' of the font." + ^sTypoAscender ifNil:[ascender]! Item was changed: ----- Method: TTFileDescription>>descender (in category 'accessing') ----- descender + "Descender of the font. Relative to unitsPerEm. + Easily confused with the typographic descender." - "Descender of the font. Relative to unitsPerEm." ^descender! Item was changed: ----- Method: TTFontDescription>>descender (in category 'properties') ----- descender + "Descender of the font. Relative to unitsPerEm. + Easily confused with the typographic descender." ^descender! Item was changed: Object subclass: #TTFontDescription + instanceVariableNames: 'glyphTable glyphs kernPairs copyright familyName fullName subfamilyName uniqueName versionName postscriptName trademark bounds unitsPerEm ascender descender lineGap sTypoAscender sTypoDescender sTypoLineGap' + classVariableNames: 'Default Descriptions' - instanceVariableNames: 'glyphTable glyphs kernPairs copyright familyName fullName subfamilyName uniqueName versionName postscriptName trademark bounds unitsPerEm ascender descender lineGap' - classVariableNames: 'Descriptions Default' poolDictionaries: '' category: 'TrueType-Fonts'! !TTFontDescription commentStamp: '<historical>' prior: 0! Holds a TrueType font in memory. Is used by TTSampleStringMorph as its font. Class owns a default example. ! Item was added: + ----- Method: TTFileDescription>>typographicDescender (in category 'accessing') ----- + typographicDescender + "Microsoft defines this as the 'true typographic metrics' of the font." + ^sTypoDescender ifNil:[descender]! Item was changed: ----- Method: TTFontDescription>>ascender (in category 'properties') ----- ascender + "Ascender of the font. Relative to unitsPerEm. + Easily confused with the typographic ascender." ^ascender! Item was added: + ----- Method: TTFontDescription>>renderGlyph:height:fgColor:bgColor:depth: (in category 'rendering') ----- + renderGlyph: code height: fontHeight fgColor: fgColor bgColor: bgColor depth: depth + "Render the glyph with the given code point at the specified pixel height." + ^(self at: code) + asFormWithScale: fontHeight asFloat / (ascender - descender) + ascender: ascender + descender: descender + fgColor: fgColor bgColor: bgColor depth: depth! Item was added: + ----- Method: TTFontReader>>processOS2Table: (in category 'processing') ----- + processOS2Table: entry + " + USHORT version 0x0004 + SHORT xAvgCharWidth + USHORT usWeightClass + USHORT usWidthClass + USHORT fsType + SHORT ySubscriptXSize + SHORT ySubscriptYSize + SHORT ySubscriptXOffset + SHORT ySubscriptYOffset + SHORT ySuperscriptXSize + SHORT ySuperscriptYSize + SHORT ySuperscriptXOffset + SHORT ySuperscriptYOffset + SHORT yStrikeoutSize + SHORT yStrikeoutPosition + SHORT sFamilyClass + BYTE panose[10] + ULONG ulUnicodeRange1 Bits 0-31 + ULONG ulUnicodeRange2 Bits 32-63 + ULONG ulUnicodeRange3 Bits 64-95 + ULONG ulUnicodeRange4 Bits 96-127 + CHAR achVendID[4] + USHORT fsSelection + USHORT usFirstCharIndex + USHORT usLastCharIndex + SHORT sTypoAscender + SHORT sTypoDescender + SHORT sTypoLineGap + USHORT usWinAscent + USHORT usWinDescent + ULONG ulCodePageRange1 Bits 0-31 + ULONG ulCodePageRange2 Bits 32-63 + SHORT sxHeight + SHORT sCapHeight + USHORT usDefaultChar + USHORT usBreakChar + USHORT usMaxContext " + | version fsSelection minAscii maxAscii asc desc lGap | + version := entry nextShort. "table version" + version = 0 ifTrue:[^self]. + entry skip: 60. + fsSelection := entry nextUShort. + minAscii := entry nextUShort. + maxAscii := entry nextUShort. + asc := entry nextShort. + desc := entry nextShort. + lGap := entry nextShort. + fontDescription setTypographicAscender: asc descender: desc lineGap: lGap.! Item was added: + ----- Method: TTFontDescription>>typographicAscender (in category 'accessing') ----- + typographicAscender + "Microsoft defines this as the 'true typographic metrics' of the font." + ^sTypoAscender ifNil:[ascender]! Item was added: + ----- Method: TTFileDescription>>processOS2Table: (in category 'ttf tables') ----- + processOS2Table: fontFile + " + USHORT version 0x0004 + SHORT xAvgCharWidth + USHORT usWeightClass + USHORT usWidthClass + USHORT fsType + SHORT ySubscriptXSize + SHORT ySubscriptYSize + SHORT ySubscriptXOffset + SHORT ySubscriptYOffset + SHORT ySuperscriptXSize + SHORT ySuperscriptYSize + SHORT ySuperscriptXOffset + SHORT ySuperscriptYOffset + SHORT yStrikeoutSize + SHORT yStrikeoutPosition + SHORT sFamilyClass + BYTE panose[10] + ULONG ulUnicodeRange1 Bits 0-31 + ULONG ulUnicodeRange2 Bits 32-63 + ULONG ulUnicodeRange3 Bits 64-95 + ULONG ulUnicodeRange4 Bits 96-127 + CHAR achVendID[4] + USHORT fsSelection + USHORT usFirstCharIndex + USHORT usLastCharIndex + SHORT sTypoAscender + SHORT sTypoDescender + SHORT sTypoLineGap + USHORT usWinAscent + USHORT usWinDescent + ULONG ulCodePageRange1 Bits 0-31 + ULONG ulCodePageRange2 Bits 32-63 + SHORT sxHeight + SHORT sCapHeight + USHORT usDefaultChar + USHORT usBreakChar + USHORT usMaxContext " + | version fsSelection minAscii maxAscii | + version := self short: (fontFile nextNumber: 2). "table version" + version = 0 ifTrue:[^self]. + fontFile skip: 60. + fsSelection := fontFile nextNumber: 2. + minAscii := fontFile nextNumber: 2. + maxAscii := fontFile nextNumber: 2. + sTypoAscender := self short: (fontFile nextNumber: 2). + sTypoDescender := self short: (fontFile nextNumber: 2). + sTypoLineGap := self short: (fontFile nextNumber: 2). + ! Item was added: + ----- Method: TTFileDescription>>fontHeight (in category 'accessing') ----- + fontHeight + ^ascender - descender!

1 0

My button isn't listening to me.
by Ronald Spengler 29 Aug '09

29 Aug '09

I have the following initialization method on my subclass of IconicButton: initialize super initialize. self extent: 50@50; color: Color transparent; borderWidth: 2; borderColor: Color transparent; hResizing: #shrinkWrap; vResizing: #shrinkWrap; borderStyle: SimpleBorder new; cornerStyle: #rounded; borderWidth: 2; actWhen: #startDrag Oddly, however, when I create and inspect my button, I see that actWhen is set to #buttonUp. That seems weird. Am I doing something wrong, or do I have a bug? -- Ron

1 1

The Trunk: System-dtl.138.mcz
by commits＠source.squeak.org 29 Aug '09

29 Aug '09

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.138.mcz ==================== Summary ==================== Name: System-dtl.138 Author: dtl Time: 29 August 2009, 3:15:27 am UUID: 766e5fa8-0bee-4613-b450-082151567a9d Ancestors: System-ar.137 Use #identityHash rather than #asOop in MessageTally>>Hash =============== Diff against System-ar.137 =============== Item was changed: ----- Method: MessageTally>>hash (in category 'comparing') ----- hash "Hash is reimplemented because = is implemented." + ^method identityHash! - ^method asOop! Item was removed:

1 0

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

Jump to page: