Packages June 2011

packages@lists.squeakfoundation.org

1 participants
306 discussions

The Trunk: Kernel-bf.603.mcz
by commits＠source.squeak.org 30 Jun '11

30 Jun '11

Bert Freudenberg uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-bf.603.mcz ==================== Summary ==================== Name: Kernel-bf.603 Author: bf Time: 1 July 2011, 12:01:00.19 am UUID: f3bbcccb-40c4-4d2c-a4f1-1bf957306c42 Ancestors: Kernel-nice.602, Kernel-yo.543 merge "Button for it" feature =============== Diff against Kernel-nice.602 =============== Item was changed: ----- Method: StringHolder class>>yellowButtonMenuItems (in category 'yellow button menu') ----- yellowButtonMenuItems "Returns the standard yellow button menu items" ^{ {'set font... (k)' translated. #offerFontMenu}. {'set style... (K)' translated. #changeStyle}. {'set alignment... (u)' translated. #chooseAlignment}. #-. {'make project link (P)' translated. #makeProjectLink}. #-. {'find...(f)' translated. #find}. {'find again (g)' translated. #findAgain}. {'set search string (h)' translated. #setSearchString}. #-. {'do again (j)' translated. #again}. {'undo (z)' translated. #undo}. #-. {'copy (c)' translated. #copySelection}. {'cut (x)' translated. #cut}. {'paste (v)' translated. #paste}. {'paste...' translated. #pasteRecent}. #-. {'do it (d)' translated. #doIt}. {'print it (p)' translated. #printIt}. {'inspect it (i)' translated. #inspectIt}. {'explore it (I)' translated. #exploreIt}. {'debug it' translated. #debugIt}. + {'button for it' translated. #buttonForIt}. {'tally it' translated. #tallyIt}. #-. {'accept (s)' translated. #accept}. {'cancel (l)' translated. #cancel}. #-. {'show bytecodes' translated. #showBytecodes}. #-. {'copy html' translated. #copyHtml}. #-. {'more...' translated. #shiftedTextPaneMenuRequest}. }!

1 0

The Trunk: Kernel-bf.603.mcz
by commits＠source.squeak.org 30 Jun '11

30 Jun '11

1 0

The Trunk: Kernel-bf.603.mcz
by commits＠source.squeak.org 30 Jun '11

30 Jun '11

1 0

The Trunk: Morphic-bf.553.mcz
by commits＠source.squeak.org 30 Jun '11

30 Jun '11

Bert Freudenberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-bf.553.mcz ==================== Summary ==================== Name: Morphic-bf.553 Author: bf Time: 30 June 2011, 11:59:55.988 pm UUID: d9302a11-c4d7-4f5a-be1a-61eb94c07684 Ancestors: Morphic-bf.552, Morphic-yo.520 merge "Button for it" feature =============== Diff against Morphic-bf.552 =============== Item was added: + ----- Method: PluggableTextMorph>>buttonForIt (in category 'menu commands') ----- + buttonForIt + self handleEdit: [textMorph editor buttonForIt]! Item was added: + ----- Method: SmalltalkEditor>>buttonForIt (in category 'do-its') ----- + buttonForIt + + ^ self doItButtonFromSelection ifNotNilDo: [:e | e openInHand]! Item was added: + ----- Method: SmalltalkEditor>>doItButtonFromSelection (in category 'do-its') ----- + doItButtonFromSelection + + | button string cm | + self lineSelectAndEmptyCheck: [^ nil]. + button := SimpleButtonMorph new. + string := self selection. + (model respondsTo: #doItReceiver) + ifTrue: [ + button setProperty: #rcvr toValue: model doItReceiver. + button setProperty: #ctxt toValue: model doItContext]. + + cm := (button valueOfProperty: #rcvr) class compilerClass new + compiledMethodFor: string readStream + in: (button valueOfProperty: #ctxt) + to: (button valueOfProperty: #rcvr) + notifying: nil + ifFail: [^ nil] + logged: false. + button setProperty: #cm toValue: cm. + button target: [:b | + [(b valueOfProperty: #cm) valueWithReceiver: (b valueOfProperty: #rcvr) arguments: + ((b valueOfProperty: #ctxt) ifNotNil: [{(b valueOfProperty: #ctxt) }] ifNil: [#()])] + on: OutOfScopeNotification + do: [ :ex | ex resume: true]]; + actionSelector: #value:; + arguments: {button}. + button label: string. + ^ button. + !

1 0

The Trunk: Morphic-bf.553.mcz
by commits＠source.squeak.org 30 Jun '11

30 Jun '11

1 0

The Trunk: Morphic-bf.553.mcz
by commits＠source.squeak.org 30 Jun '11

30 Jun '11

1 0

The Trunk: Installer-Core-nice.350.mcz
by commits＠source.squeak.org 27 Jun '11

27 Jun '11

Nicolas Cellier uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-nice.350.mcz ==================== Summary ==================== Name: Installer-Core-nice.350 Author: nice Time: 27 June 2011, 8:44:47.278 pm UUID: 9c24a081-c6be-4425-ab27-1d8664fa16ce Ancestors: Installer-Core-cmm.349 #anySatisfy: vs #detect:ifNone: Hint: when you ain't gonna use the element detected by #detect:ifNone:, it probably means you shall better be using one of #(anySatisfy: allStatisfy: noneSatisfy:). =============== Diff against Installer-Core-cmm.349 =============== Item was changed: ----- Method: InstallerMonticello>>mcDetectFileBlock: (in category 'monticello') ----- mcDetectFileBlock: pkg pkg isString ifTrue: [ ^ [ :aFile | aFile beginsWith: pkg ] ]. (pkg isKindOf: Array) + ifTrue: [ ^ [ :aFile | pkg anySatisfy: [ :item | aFile beginsWith: item ] ] ]. - ifTrue: [ ^ [ :aFile | (pkg detect: [ :item | aFile beginsWith: item ] ifNone: [ false ]) ~= false ] ]. pkg isBlock ifTrue: [ ^ pkg ]. ! Item was changed: ----- Method: InstallerUniverse>>basicInstall (in category 'basic interface') ----- basicInstall self packages do: [ :packageName | | potentials pkg pkgAndVersion version | pkgAndVersion := self packageAndVersionFrom: packageName. pkg := pkgAndVersion first. version := pkgAndVersion last. potentials := universe packageVersionsForPackage: pkg. pkg := version isEmpty ifTrue: [ potentials last ] ifFalse: [ version := self classUVersion readFrom: version readStream. + (potentials anySatisfy: [ :p | p version = version]) ifFalse: [ ^ self error: 'version not found'] - potentials detect:[ :p | p version = version] ifNone: [ ^ self error: 'version not found'] ]. universe planToInstallPackage: pkg. ]. self uniDoInstall!

1 0

The Trunk: Installer-Core-nice.350.mcz
by commits＠source.squeak.org 27 Jun '11

27 Jun '11

1 0

The Trunk: Installer-Core-nice.350.mcz
by commits＠source.squeak.org 27 Jun '11

27 Jun '11

1 0

The Trunk: Graphics-nice.187.mcz
by commits＠source.squeak.org 27 Jun '11

27 Jun '11

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.187.mcz ==================== Summary ==================== Name: Graphics-nice.187 Author: nice Time: 27 June 2011, 8:38:52.631 pm UUID: 3d0c74fa-7438-4139-8e2a-74979eee4a86 Ancestors: Graphics-ul.186 Apply Display/Character Scanner clean-ups from Cuis: - remove unused paragraph ivar from DisplayScanner - remove historical dead code from #crossedX - ifNil: simplifies code a bit =============== Diff against Graphics-ul.186 =============== Item was changed: ----- Method: CharacterBlockScanner>>characterBlockAtPoint:index:in: (in category 'scanning') ----- characterBlockAtPoint: aPoint index: index in: textLine "This method is the Morphic characterBlock finder. It combines MVC's characterBlockAtPoint:, -ForIndex:, and buildCharcterBlock:in:" | runLength lineStop stopCondition | line := textLine. rightMargin := line rightMargin. lastIndex := line first. self setStopConditions. "also sets font" characterIndex := index. " == nil means scanning for point" characterPoint := aPoint. (characterPoint isNil or: [characterPoint y > line bottom]) ifTrue: [characterPoint := line bottomRight]. (text isEmpty or: [(characterPoint y < line top or: [characterPoint x < line left]) or: [characterIndex notNil and: [characterIndex < line first]]]) ifTrue: [^ (CharacterBlock new stringIndex: line first text: text topLeft: line leftMargin@line top extent: 0 @ textStyle lineGrid) textLine: line]. destX := leftMargin := line leftMarginForAlignment: alignment. destY := line top. runLength := text runLengthFor: line first. + lineStop := characterIndex "scanning for index" + ifNil: [ line last ]. "scanning for point" - characterIndex - ifNotNil: [lineStop := characterIndex "scanning for index"] - ifNil: [lineStop := line last "scanning for point"]. runStopIndex := lastIndex + (runLength - 1) min: lineStop. lastCharacterExtent := 0 @ line lineHeight. spaceCount := 0. [ stopCondition := self scanCharactersFrom: lastIndex to: runStopIndex in: text string rightX: characterPoint x stopConditions: stopConditions kern: kern. "see setStopConditions for stopping conditions for character block operations." self lastCharacterExtentSetX: (specialWidth ifNil: [font widthOf: (text at: lastIndex)] ifNotNil: [specialWidth]). self perform: stopCondition ] whileFalse. characterIndex ifNil: [ "Result for characterBlockAtPoint: " (stopCondition ~~ #cr and: [ lastIndex == line last and: [ aPoint x > ((characterPoint x) + (lastCharacterExtent x / 2)) ]]) ifTrue: [ "Correct for right half of last character in line" ^ (CharacterBlock new stringIndex: lastIndex + 1 text: text topLeft: characterPoint + (lastCharacterExtent x @ 0) + (font descentKern @ 0) extent: 0 @ lastCharacterExtent y) textLine: line ]. ^ (CharacterBlock new stringIndex: lastIndex text: text topLeft: characterPoint + (font descentKern @ 0) extent: lastCharacterExtent - (font baseKern @ 0)) textLine: line] ifNotNil: ["Result for characterBlockForIndex: " ^ (CharacterBlock new stringIndex: characterIndex text: text topLeft: characterPoint + ((font descentKern) - kern @ 0) extent: lastCharacterExtent) textLine: line]! Item was changed: ----- Method: CharacterBlockScanner>>crossedX (in category 'stop conditions') ----- crossedX "Text display has wrapping. The scanner just found a character past the x location of the cursor. We know that the cursor is pointing at a character or before one." + | currentX | - | leadingTab currentX | characterIndex == nil ifFalse: [ "If the last character of the last line is a space, and it crosses the right margin, then locating the character block after it is impossible without this hack." characterIndex > text size ifTrue: [ lastIndex := characterIndex. characterPoint := (nextLeftMargin ifNil: [leftMargin]) @ (destY + line lineHeight). ^true]]. characterPoint x <= (destX + (lastCharacterExtent x // 2)) ifTrue: [lastCharacter := (text at: lastIndex). characterPoint := destX @ destY. ^true]. lastIndex >= line last ifTrue: [lastCharacter := (text at: line last). characterPoint := destX @ destY. ^true]. "Pointing past middle of a character, return the next character." lastIndex := lastIndex + 1. lastCharacter := text at: lastIndex. currentX := destX + lastCharacterExtent x + kern. self lastCharacterExtentSetX: (font widthOf: lastCharacter). characterPoint := currentX @ destY. lastCharacter = Space ifFalse: [^ true]. "Yukky if next character is space or tab." alignment = Justified ifTrue: [self lastCharacterExtentSetX: + (lastCharacterExtent x + (line justifiedPadFor: (spaceCount + 1) font: font))]. - (lastCharacterExtent x + (line justifiedPadFor: (spaceCount + 1) font: font)). - ^ true]. - true ifTrue: [^ true]. - "NOTE: I find no value to the following code, and so have defeated it - DI" - - "See tabForDisplay for illumination on the following awfulness." - leadingTab := true. - line first to: lastIndex - 1 do: - [:index | (text at: index) ~= Tab ifTrue: [leadingTab := false]]. - (alignment ~= Justified or: [leadingTab]) - ifTrue: [self lastCharacterExtentSetX: (textStyle nextTabXFrom: currentX - leftMargin: leftMargin rightMargin: rightMargin) - - currentX] - ifFalse: [self lastCharacterExtentSetX: (((currentX + (textStyle tabWidth - - (line justifiedTabDeltaFor: spaceCount))) - - currentX) max: 0)]. ^ true! Item was changed: CharacterScanner subclass: #DisplayScanner + instanceVariableNames: 'bitBlt lineY runX foregroundColor backgroundColor fillBlt lineHeight paragraphColor morphicOffset ignoreColorChanges' - instanceVariableNames: 'bitBlt lineY runX foregroundColor backgroundColor fillBlt lineHeight paragraph paragraphColor morphicOffset ignoreColorChanges' classVariableNames: '' poolDictionaries: '' category: 'Graphics-Text'! !DisplayScanner commentStamp: '<historical>' prior: 0! My instances are used to scan text and display it on the screen or in a hidden form.! Item was changed: ----- Method: DisplayScanner>>displayLines:in:clippedBy: (in category 'MVC-compatibility') ----- displayLines: linesInterval in: aParagraph clippedBy: visibleRectangle "The central display routine. The call on the primitive (scanCharactersFrom:to:in:rightX:) will be interrupted according to an array of stop conditions passed to the scanner at which time the code to handle the stop condition is run and the call on the primitive continued until a stop condition returns true (which means the line has terminated)." | leftInRun | "leftInRun is the # of characters left to scan in the current run; when 0, it is time to call 'self setStopConditions'" morphicOffset := 0@0. leftInRun := 0. self initializeFromParagraph: aParagraph clippedBy: visibleRectangle. ignoreColorChanges := false. - paragraph := aParagraph. foregroundColor := paragraphColor := aParagraph foregroundColor. backgroundColor := aParagraph backgroundColor. aParagraph backgroundColor isTransparent ifTrue: [fillBlt := nil] ifFalse: [fillBlt := bitBlt copy. "Blt to fill spaces, tabs, margins" fillBlt sourceForm: nil; sourceOrigin: 0@0. fillBlt fillColor: aParagraph backgroundColor]. rightMargin := aParagraph rightMarginForDisplay. lineY := aParagraph topAtLineIndex: linesInterval first. bitBlt destForm deferUpdatesIn: visibleRectangle while: [ linesInterval do: [:lineIndex | | string startIndex lastPos runLength stopCondition | line := aParagraph lines at: lineIndex. lastIndex := line first. self setStopConditions. " causes an assignment to inst var. alignment " leftMargin := aParagraph leftMarginForDisplayForLine: lineIndex alignment: (alignment ifNil:[textStyle alignment]). destX := (runX := leftMargin). line := aParagraph lines at: lineIndex. lineHeight := line lineHeight. fillBlt == nil ifFalse: [fillBlt destX: visibleRectangle left destY: lineY width: visibleRectangle width height: lineHeight; copyBits]. lastIndex := line first. leftInRun <= 0 ifTrue: [self setStopConditions. "also sets the font" leftInRun := text runLengthFor: line first]. destY := lineY + line baseline - font ascent. "Should have happened in setFont" runLength := leftInRun. runStopIndex := lastIndex + (runLength - 1) min: line last. leftInRun := leftInRun - (runStopIndex - lastIndex + 1). spaceCount := 0. string := text string. self handleIndentation. [ startIndex := lastIndex. lastPos := destX@destY. stopCondition := self scanCharactersFrom: lastIndex to: runStopIndex in: string rightX: rightMargin stopConditions: stopConditions kern: kern. lastIndex >= startIndex ifTrue:[ font displayString: string on: bitBlt from: startIndex to: lastIndex at: lastPos kern: kern]. "see setStopConditions for stopping conditions for displaying." self perform: stopCondition ] whileFalse. fillBlt == nil ifFalse: [fillBlt destX: destX destY: lineY width: visibleRectangle right-destX height: lineHeight; copyBits]. lineY := lineY + lineHeight]]!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2011