Squeak-dev September 2019

squeak-dev@lists.squeakfoundation.org

38 participants
356 discussions

The Trunk: EToys-mt.352.mcz
by commits＠source.squeak.org 02 Sep '19

02 Sep '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.352.mcz ==================== Summary ==================== Name: EToys-mt.352 Author: mt Time: 2 September 2019, 8:01:28.227688 am UUID: 39bc20b9-66b3-8d47-88f0-fb7e462b9604 Ancestors: EToys-mt.351 Complements Morphic-mt.1512. =============== Diff against EToys-mt.351 =============== Item was removed: - ----- Method: UpdatingStringMorph>>maximumWidth: (in category '*Etoys-Squeakland-accessing') ----- - maximumWidth: aValue - "Set the maximum width that the receiver can have." - - maximumWidth := aValue!

1 0

The Trunk: MorphicExtras-mt.258.mcz
by commits＠source.squeak.org 02 Sep '19

02 Sep '19

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.258.mcz ==================== Summary ==================== Name: MorphicExtras-mt.258 Author: mt Time: 2 September 2019, 8:00:53.097688 am UUID: 7a93292a-fbd3-4c4b-91e7-ab6397cb7528 Ancestors: MorphicExtras-mt.257 Complements Morphic-mt.1512. =============== Diff against MorphicExtras-mt.257 =============== Item was removed: - ----- Method: BorderedMorph>>fullPrintOn: (in category '*MorphicExtras-printing') ----- - fullPrintOn: aStream - aStream nextPutAll: '('. - super fullPrintOn: aStream. - aStream nextPutAll: ') setBorderWidth: '; print: self borderWidth; - nextPutAll: ' borderColor: ' , (self colorString: self borderColor)! Item was removed: - ----- Method: StringMorph>>fullPrintOn: (in category '*MorphicExtras-printing') ----- - fullPrintOn: aStream - - aStream nextPutAll: '('. - super fullPrintOn: aStream. - aStream nextPutAll: ') contents: '; print: contents! Item was removed: - ----- Method: TextMorph>>fullPrintOn: (in category '*MorphicExtras-printing') ----- - fullPrintOn: aStream - - aStream nextPutAll: '('. - super fullPrintOn: aStream. - aStream nextPutAll: ') contents: '; print: text!

1 0

The Trunk: Morphic-mt.1512.mcz
by commits＠source.squeak.org 02 Sep '19

02 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1512.mcz ==================== Summary ==================== Name: Morphic-mt.1512 Author: mt Time: 2 September 2019, 7:59:55.139688 am UUID: 1feb80dc-74d2-2948-a7a1-0192335930f0 Ancestors: Morphic-mt.1511 Clean up StringMorph-related code which also moves some methods from MorphicExtras and Etoys back to Morphic such as #fullPrintOn: - Clean up font+emphasis behavior in StringMorph; not that StringMorphs keep existing emphasis when a new font is set. - MenuItemMorph did strange overrides of #hResizing and #vResizing -- I suppose a performance hack from the old days - No need for UpdatingStringMorph to duplicate implementation for #contents: anymore - Adds StringMorph >> #contentsFitted: (default) besides #contentsClipped: to make these options more clear =============== Diff against Morphic-mt.1511 =============== Item was added: + ----- Method: BorderedMorph>>fullPrintOn: (in category 'printing') ----- + fullPrintOn: aStream + aStream nextPutAll: '('. + super fullPrintOn: aStream. + aStream nextPutAll: ') setBorderWidth: '; print: self borderWidth; + nextPutAll: ' borderColor: ' , (self colorString: self borderColor)! Item was changed: ----- Method: MenuItemMorph>>drawLabelOn: (in category 'drawing') ----- drawLabelOn: aCanvas | stringBounds | + stringBounds := self bounds. - stringBounds := bounds. self hasIcon ifTrue: [ stringBounds := stringBounds left: stringBounds left + self iconForm width + 2 ]. self hasMarker ifTrue: [ stringBounds := stringBounds left: stringBounds left + self submorphBounds width + 8 ]. stringBounds := stringBounds top: stringBounds top + stringBounds bottom - self fontToUse height // 2. aCanvas + drawString: self contents - drawString: contents in: stringBounds font: self fontToUse color: self colorToUse.! Item was removed: - ----- Method: MenuItemMorph>>hResizing (in category 'layout-properties') ----- - hResizing - "Default to #spaceFill" - | props | - props := self layoutProperties. - ^props ifNil:[#spaceFill] ifNotNil:[props hResizing].! Item was removed: - ----- Method: MenuItemMorph>>triangle:containsPoint: (in category 'geometry-testing') ----- - triangle: points containsPoint: p - " Computes if p is in the triangle defined by points. - p should be a Point, and points should be an array with three Points. - I took the algorithm from the bottom of this page: - http://www.blackpawn.com/texts/pointinpoly/default.html " - - | a b c v0 v1 v2 dot00 dot01 dot02 dot11 dot12 denom invDenom u v | - a := points first. - b := points second. - c := points third. - " Compute vectors " - v0 := c - a. - v1 := b - a. - v2 := p - a. - " Compute dot products " - dot00 := v0 dotProduct: v0. - dot01 := v0 dotProduct: v1. - dot02 := v0 dotProduct: v2. - dot11 := v1 dotProduct: v1. - dot12 := v1 dotProduct: v2. - " Compute barycentric coordinates " - denom := dot00 * dot11 - (dot01 * dot01). - denom = 0 ifTrue: [ ^false ]. - invDenom := 1 / denom. - u := (dot11 * dot02 - (dot01 * dot12)) * invDenom. - v := (dot00 * dot12 - (dot01 * dot02)) * invDenom. - " Check if point is in triangle " - ^u >= 0 and: [ v >= 0 and: [ u + v <= 1 ] ]! Item was removed: - ----- Method: MenuItemMorph>>vResizing (in category 'layout-properties') ----- - vResizing - "Default to #shrinkWrap" - | props | - props := self layoutProperties. - ^props ifNil:[#shrinkWrap] ifNotNil:[props vResizing].! Item was changed: ----- Method: StringMorph>>contents (in category 'accessing') ----- contents + ^ contents ifNil: [ self contents: 'String Morph'. contents ] + ! - ^ contents! Item was changed: ----- Method: StringMorph>>contents: (in category 'accessing') ----- contents: newContents + + newContents isText + ifTrue: [^ self initializeFromText: newContents]. + + contents = newContents + ifTrue: [^ self "no substantive change"]. + + contents := newContents. + + self fitContents.! - | scanner | - contents := newContents isText - ifTrue: [scanner := StringMorphAttributeScanner new initializeFromStringMorph: self. - (newContents attributesAt: 1 forStyle: self font textStyle) - do: [:attr | attr emphasizeScanner: scanner]. - emphasis := scanner emphasis. - font := scanner font. - color := scanner textColor. - newContents string] - ifFalse: [contents = newContents - ifTrue: [^ self]. - "no substantive change" - newContents]. - self fitContents! Item was changed: + ----- Method: StringMorph>>contentsClipped: (in category 'accessing - convenience') ----- - ----- Method: StringMorph>>contentsClipped: (in category 'accessing') ----- contentsClipped: aString "Change my text, but do not change my size as a result" contents = aString ifTrue: [^ self]. "No substantive change" contents := aString. self changed! Item was added: + ----- Method: StringMorph>>contentsFitted: (in category 'accessing - convenience') ----- + contentsFitted: aString + "I fit my contents by default." + + self contents: aString.! Item was changed: ----- Method: StringMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas + aCanvas + drawString: self contents + in: self bounds + font: self fontToUse + color: self color.! - aCanvas drawString: contents in: bounds font: self fontToUse color: color.! Item was added: + ----- Method: StringMorph>>emphasis (in category 'accessing') ----- + emphasis + "self assert: emphasis = self font emphasis" + + ^ emphasis! Item was changed: + ----- Method: StringMorph>>emphasis: (in category 'accessing') ----- - ----- Method: StringMorph>>emphasis: (in category 'font') ----- emphasis: aNumber "Set the receiver's emphasis as indicated. aNumber is a bitmask with the following format: bit attribute 1 bold 2 italic 4 underlined 8 narrow 16 struckOut" "examples: 0 -> plain. 1 -> bold. 2 -> italic. 3 -> bold italic. 4 -> underlined 5 -> bold underlined. 6 -> italic underlined. 7 -> bold italic underlined etc..." + self + setFont: (self font emphasized: aNumber) + emphasis: aNumber! - emphasis := aNumber. - ^ self font: font emphasis: emphasis! Item was changed: + ----- Method: StringMorph>>font: (in category 'accessing') ----- - ----- Method: StringMorph>>font: (in category 'printing') ----- font: aFont "Set the font my text will use. The emphasis remains unchanged." aFont = font ifTrue: [^ self]. + + self + setFont: (aFont emphasized: self emphasis) + emphasis: self emphasis.! - ^ self font: aFont emphasis: emphasis! Item was changed: + ----- Method: StringMorph>>font:emphasis: (in category 'accessing - convenience') ----- - ----- Method: StringMorph>>font:emphasis: (in category 'accessing') ----- font: aFont emphasis: emphasisCode + + self + setFont: ((aFont isNil or: [aFont emphasis = emphasisCode] or: [emphasisCode isNil]) + ifTrue: [aFont] + ifFalse: [aFont emphasized: emphasisCode]) + emphasis: emphasisCode.! - font := aFont. - emphasis := emphasisCode. - self fitContents. - " - in inspector say, - self font: (TextStyle default fontAt: 2) emphasis: 1 - "! Item was added: + ----- Method: StringMorph>>fontName: (in category 'fonts') ----- + fontName: fontName + + self + fontName: fontName + size: TextStyle defaultFont pixelSize + emphasis: 0.! Item was added: + ----- Method: StringMorph>>fontName:pointSize: (in category 'fonts') ----- + fontName: fontName pointSize: fontSize + + self + fontName: fontName + pointSize: fontSize + emphasis: 0.! Item was added: + ----- Method: StringMorph>>fontName:pointSize:emphasis: (in category 'fonts') ----- + fontName: fontName pointSize: fontSize emphasis: emphasisCode + + self + setFont: (StrikeFont familyName: fontName pointSize: fontSize emphasized: emphasisCode) + emphasis: emphasisCode.! Item was changed: + ----- Method: StringMorph>>fontName:size: (in category 'fonts') ----- - ----- Method: StringMorph>>fontName:size: (in category 'accessing') ----- fontName: fontName size: fontSize + self + fontName: fontName + size: fontSize + emphasis: 0.! - ^ self font: (StrikeFont familyName: fontName size: fontSize) - emphasis: 0! Item was added: + ----- Method: StringMorph>>fontName:size:emphasis: (in category 'fonts') ----- + fontName: fontName size: fontSize emphasis: emphasisCode + + self + setFont: (StrikeFont familyName: fontName size: fontSize emphasized: emphasisCode) + emphasis: emphasisCode.! Item was changed: + ----- Method: StringMorph>>fontToUse (in category 'drawing') ----- - ----- Method: StringMorph>>fontToUse (in category 'accessing') ----- fontToUse + "Support un-initialized font or emphasis variable." + + ^ font ifNil: [TextStyle defaultFont emphasized: (self emphasis ifNil: [0])]! - | fontToUse | - fontToUse := font isNil ifTrue: [TextStyle defaultFont] ifFalse: [font]. - (emphasis isNil or: [emphasis = 0]) - ifTrue: [^fontToUse] - ifFalse: [^fontToUse emphasized: emphasis]! Item was removed: - ----- Method: StringMorph>>fullBounds (in category 'layout') ----- - fullBounds - self contents ifNil: [ self contents: 'String Morph' ]. - ^super fullBounds! Item was added: + ----- Method: StringMorph>>fullPrintOn: (in category 'printing') ----- + fullPrintOn: aStream + + aStream nextPutAll: '('. + super fullPrintOn: aStream. + aStream nextPutAll: ') contents: '; print: contents! Item was changed: + ----- Method: StringMorph>>hasTranslucentColor (in category 'testing') ----- - ----- Method: StringMorph>>hasTranslucentColor (in category 'accessing') ----- hasTranslucentColor ^true! Item was changed: ----- Method: StringMorph>>initWithContents:font:emphasis: (in category 'initialization') ----- initWithContents: aString font: aFont emphasis: emphasisCode + + self initialize. - super initialize. + contents := aString. + + self font: aFont emphasis: emphasisCode.! - font := aFont. - emphasis := emphasisCode. - hasFocus := false. - self contents: aString! Item was added: + ----- Method: StringMorph>>initializeFromText: (in category 'initialization') ----- + initializeFromText: aText + + | scanner | + scanner := StringMorphAttributeScanner new initializeFromStringMorph: self. + + (aText attributesAt: 1 forStyle: self font textStyle) + do: [:attr | attr emphasizeScanner: scanner]. + + emphasis := scanner emphasis. + font := scanner font. + color := scanner textColor. + + self contents: aText string.! Item was changed: + ----- Method: StringMorph>>interimContents: (in category 'accessing - support') ----- - ----- Method: StringMorph>>interimContents: (in category 'accessing') ----- interimContents: aString "The receiver is under edit and aString represents the string the user sees as she edits, which typically will not have been accepted and indeed may be abandoned" self contents: aString! Item was changed: + ----- Method: StringMorph>>label:font: (in category 'accessing - convenience') ----- - ----- Method: StringMorph>>label:font: (in category 'accessing') ----- label: aString font: aFont "compatible protocol used in ScriptEditorMorph>>bringUpToDate" self contents: aString. self font: aFont! Item was changed: + ----- Method: StringMorph>>measureContents (in category 'accessing - support') ----- - ----- Method: StringMorph>>measureContents (in category 'accessing') ----- measureContents | f | f := self fontToUse. ^(((f widthOfString: contents) max: self minimumWidth) @ f height).! Item was changed: + ----- Method: StringMorph>>minHeight (in category 'layout') ----- - ----- Method: StringMorph>>minHeight (in category 'connectors-layout') ----- minHeight + "Layout specific." + - "answer the receiver's minHeight" ^ super minHeight max: self fontToUse height! Item was added: + ----- Method: StringMorph>>minWidth (in category 'layout') ----- + minWidth + "Layout specific." + + ^ super minWidth max: (self fontToUse widthOfString: self contents)! Item was removed: - ----- Method: StringMorph>>minimumWidth (in category 'accessing') ----- - minimumWidth - "Answer the minimum width that the receiver can have. A nonzero value here keeps the receiver from degenerating into something that cannot ever be seen or touched again!! Obeyed by fitContents." - - ^ 3! Item was added: + ----- Method: StringMorph>>setFont:emphasis: (in category 'initialization') ----- + setFont: aFont emphasis: emphasisCode + "self assert: emphasisCode = aFont emphasis." + + font := aFont. + emphasis := emphasisCode. + + self fitContents. + + " + in inspector say, + self font: (TextStyle default fontAt: 2) emphasis: 1 + "! Item was changed: + ----- Method: StringMorph>>setWidth: (in category 'accessing - support') ----- - ----- Method: StringMorph>>setWidth: (in category 'accessing') ----- setWidth: width self extent: width @ (font ifNil: [TextStyle defaultFont]) height! Item was changed: + ----- Method: StringMorph>>userString (in category 'accessing - support') ----- - ----- Method: StringMorph>>userString (in category 'accessing') ----- userString "Do I have a text string to be searched on?" ^ contents! Item was changed: + ----- Method: StringMorph>>valueFromContents (in category 'accessing - support') ----- - ----- Method: StringMorph>>valueFromContents (in category 'accessing') ----- valueFromContents "Return a new value from the current contents string." ^ contents! Item was added: + ----- Method: TextMorph>>fullPrintOn: (in category 'printing') ----- + fullPrintOn: aStream + + aStream nextPutAll: '('. + super fullPrintOn: aStream. + aStream nextPutAll: ') contents: '; print: text! Item was removed: - ----- Method: UpdatingStringMorph>>contents: (in category 'accessing') ----- - contents: newContents - "This is the original StringMorph implementation of #contents:, restored down in UpdatingStringMorph because a recent 'optimization' of the StringMorph version of this method broke UpdatingStringMorphs." - - contents := newContents isText - ifTrue: - [emphasis := newContents emphasisAt: 1. - newContents string] - ifFalse: - [contents = newContents ifTrue: [^self]. "no substantive change" - newContents]. - self fitContents. - self changed! Item was added: + ----- Method: UpdatingStringMorph>>maximumWidth: (in category 'accessing') ----- + maximumWidth: aValue + "Set the maximum width that the receiver can have." + + maximumWidth := aValue! Item was added: + ----- Method: UpdatingStringMorph>>minWidth (in category 'accessing') ----- + minWidth + "Answer the minimum width that the receiver can have. A nonzero value here keeps the receiver from degenerating into something that cannot ever be seen or touched again!! Obeyed by fitContents." + + ^ minimumWidth ifNil: [minimumWidth := 8]! Item was added: + ----- Method: UpdatingStringMorph>>minWidth: (in category 'accessing') ----- + minWidth: aWidth + "Set the minimum width that the receiver can have. A nonzero value here keeps the receiver from degenerating into something that cannot ever be seen or touched again!! Obeyed by fitContents." + + minimumWidth := aWidth! Item was removed: - ----- Method: UpdatingStringMorph>>minimumWidth (in category 'accessing') ----- - minimumWidth - "Answer the minimum width that the receiver can have. A nonzero value here keeps the receiver from degenerating into something that cannot ever be seen or touched again!! Obeyed by fitContents." - - ^ minimumWidth ifNil: [minimumWidth := 8]! Item was removed: - ----- Method: UpdatingStringMorph>>minimumWidth: (in category 'accessing') ----- - minimumWidth: aWidth - "Set the minimum width that the receiver can have. A nonzero value here keeps the receiver from degenerating into something that cannot ever be seen or touched again!! Obeyed by fitContents." - - minimumWidth := aWidth! Item was changed: + (PackageInfo named: 'Morphic') postscript: '"Reset contributors." + SystemNavigation cleanUp: true.'! - (PackageInfo named: 'Morphic') postscript: '"Convert all cell insets to cell gaps." - TableLayoutProperties allInstancesDo: [:ea | - ea cellInset isZero ifFalse: [ - ea - cellGap: (ea cellInset isRectangle ifTrue: [ea cellInset topLeft] ifFalse: [ea cellInset]); - cellInset: 0]].'!

1 0

The Trunk: Morphic-mt.1511.mcz
by commits＠source.squeak.org 02 Sep '19

02 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1511.mcz ==================== Summary ==================== Name: Morphic-mt.1511 Author: mt Time: 2 September 2019, 7:52:46.126688 am UUID: ed977144-0f6c-074f-86c5-a770cc48abad Ancestors: Morphic-mt.1510 Fixes a recent regression with Morph >> #ownerChanged. Adds comments about this issue. This relates to my recent changes in docking bars where I replaced the #noteNewOwner: callback in items with #addedMorph: in owner. We might want to revert that change because #addedMorph: needs to check for #isMenuItemMorph to support other stuff such as ClockMorph and SearchBar. =============== Diff against Morphic-mt.1510 =============== Item was changed: ----- Method: Morph>>doLayoutIn: (in category 'layout') ----- doLayoutIn: layoutBounds "Compute a new layout based on the given layout bounds." | box priorBounds | "0) Quick return. No children means no effect in layout policies. Use #minWidth and #minHeight to implement #shrinkWrap for morphs without submorphs." self hasSubmorphs ifFalse: [^ fullBounds := self outerBounds]. "X.1) Prepare redraw. Testing for #bounds or #layoutBounds would be sufficient to figure out if we need an invalidation afterwards but #outerBounds is what we need for all leaf nodes so we use that" priorBounds := self outerBounds. + "1) Give our children a chance to manually adjust *before* layout (cell) computation. This allows morphs to layout in their owner without having to use a layout policy." + self submorphsDo: [:m | m ownerChanged]. + + "2) Compute the new layout. This goes down the entire morph hierarchy. See #layoutInBounds: and #minExtent, which are the usual layout-policy callbacks." - "1) Compute the new layout. This goes down the entire morph hierarchy. See #layoutInBounds: and #minExtent, which are the usual layout-policy callbacks." self layoutPolicy ifNotNil: [:layout | + "2.1) Compute the new layout." - "1.1) Compute the new layout." self removeProperty: #doLayoutAgain. layout layout: self in: layoutBounds. + "2.2) Do one additional run on the layout if requested in #layoutInBounds:." - "1.2) Do one additional run on the layout if requested in #layoutInBounds:." (self hasProperty: #doLayoutAgain) ifTrue: [ self removeProperty: #doLayoutAgain. layout flushLayoutCache. layout layout: self in: layoutBounds]. self assert: (self hasProperty: #doLayoutAgain) not]. + - - "2) Give our children a chance to manually adjust after layout computation. This allows morphs to layout in their owner without having to use a layout policy." - self submorphsDo: [:m | m ownerChanged]. - "3) Watch out for minimal extent and apply #shrinkWrap constraints." self adjustLayoutBounds. "4) Compute and set the new full bounds. IMPORTANT to finish layout computation." fullBounds := self privateFullBounds. "X.2) Redraw." box := self outerBounds. box = priorBounds ifFalse: [ self invalidRect: (priorBounds quickMerge: box)].! Item was changed: ----- Method: Morph>>minHeight (in category 'layout') ----- minHeight + "Layout specific. If you don't use a layout policy but claim to be #shrinkWrap on the vertical axis, use #minHeight to answer that shrink-wrapped height. See MenuItemMorph." + - "answer the receiver's minHeight" ^ self valueOfProperty: #minHeight ifAbsent: [1]! Item was changed: ----- Method: Morph>>minWidth (in category 'layout') ----- minWidth + "Layout specific. If you don't use a layout policy but claim to be #shrinkWrap on the horizontal axis, use #minWidth to answer that shrink-wrapped width." + - "answer the receiver's minWidth" ^ self valueOfProperty: #minWidth ifAbsent: [1]!

1 0

Seasidehosting will be shut down
by Max Leske 02 Sep '19

02 Sep '19

Hi everyone, I'm announcing the shutdown of the seasidehosting platform. We will keep it running until the end of September so that people can retrieve their data. Seasidehosting will stop serving requests on October 1 2019. Cheers, Max on behalf of Netstyle.ch

1 0

The Inbox: Installer-Core-tpr.434.mcz
by commits＠source.squeak.org 02 Sep '19

02 Sep '19

tim Rowledge uploaded a new version of Installer-Core to project The Inbox: http://source.squeak.org/inbox/Installer-Core-tpr.434.mcz ==================== Summary ==================== Name: Installer-Core-tpr.434 Author: tpr Time: 27 August 2019, 1:08:05.39831 pm UUID: c1ea7dcd-9b59-4796-b66a-0f558e074ec9 Ancestors: Installer-Core-mt.433 Some possible cleanups for Installer. Make InstallerWeb behave more like the other installer classes. Remove a couple of redundant installer types. Start adding some up to date copmments and make the Installer class comment appear in a HelpBrowser - more needed. Subclasses should get more extensive class specific commentary and that should be made to appear in the help browser pages. =============== Diff against Installer-Core-mt.433 =============== Item was changed: Object subclass: #Installer instanceVariableNames: 'answers packages messagesToSuppress useFileIn noiseLevel' classVariableNames: 'InstallerBindings IsSetToTrapErrors Repositories SkipLoadingTests ValidationBlock' poolDictionaries: '' category: 'Installer-Core'! Installer class instanceVariableNames: 'localRepository'! + !Installer commentStamp: 'tpr 8/25/2019 18:37' prior: 0! + Installer is a mechanism for listing, examining and installing software from a variety of sources. It is intended to help in building install scripts for package setups etc. + + Currently it can use + - files; a file specified by a filename. Relative filenames will be treated as based form the current default directory. See InstallerFile. + - urls; a file specified by a url or a script embedded in a webpage. See InstallerWeb. + - squeakmap; see InstallerSqueakMap + - monticello; by ftp or http access, or a local directory, or a Magma or GOODS database. There is a list of shortcuts to popular repositories in this class protocol 'repositories'. See InstallerMonticello. + - mantis; accessing code attached to a mantis bug report. See InstallerMantis. + + Simple example usages - + Installer squeakmap install: 'DynamicBindings'. + Installer squeakmap search: '*scratch'. + Installer squeakmap search: 'author:*rowledge'. + Installer squeaksource project: 'ss2'; install: 'TinyWiki'. + Installer ss project: 'Installer'; browse: 'Installer-Core'. + - !Installer commentStamp: 'kph 3/30/2009 01:29' prior: 0! - Documentation now available at http://installer.pbwiki.com/Installer useFileIn - flag to load source.st rather than using Monticello! Installer class instanceVariableNames: 'localRepository'! Item was added: + ----- Method: Installer class>>asHelpTopic (in category 'documentation') ----- + asHelpTopic + ^HelpTopic + title: 'Installer' + contents: self class comment! Item was removed: - ----- Method: Installer class>>cobalt (in category 'repositories') ----- - cobalt - - ^ self monticello http: 'http://croquet-src-01.oit.duke.edu:8886'! Item was removed: - ----- Method: Installer class>>goran (in category 'repositories') ----- - goran - - ^ self monticello http: 'squeak.krampe.se'; project: ''! Item was removed: - ----- Method: Installer class>>impara (in category 'repositories') ----- - impara - - ^ self monticello http: 'source.impara.de'! Item was removed: - ----- Method: Installer class>>install: (in category 'action report') ----- - install: scriptName - - ^ (self scripts install: scriptName) ifNil:[ self web install: scriptName ] - ! Item was removed: - ----- Method: Installer class>>keith (in category 'repositories') ----- - keith - - ^ self monticello ftp: 'squeak.warwick.st' directory: 'mc' user: 'squeak' password: 'viewpoints'! Item was changed: ----- Method: Installer class>>remoteRepositories (in category 'repository-overrides') ----- remoteRepositories + ^ #(#ss #ss3 #gemsource #gs #krestianstvo #lukas #squeak #squeakfoundation #squeaksource #squeaksource3 #ss #ss3 #swa #swasource #wiresong )! - ^ #(#ss #ss3 #cobalt #gemsource #goran #gs #impara #keith #krestianstvo #lukas #saltypickle #sophie #squeak #squeakfoundation #squeaksource #squeaksource3 #ss #ss3 #swa #swasource #wiresong )! Item was removed: - ----- Method: Installer class>>sake (in category 'sake') ----- - sake - - ^ self sake: InstallerSake sake! Item was removed: - ----- Method: Installer class>>sake: (in category 'sake') ----- - sake: aSakePackagesClass - - ^ InstallerSake new sake: aSakePackagesClass! Item was removed: - ----- Method: Installer class>>saltypickle (in category 'repositories') ----- - saltypickle - - ^ self monticello http: 'squeak.saltypickle.com'! Item was removed: - ----- Method: Installer class>>setSakeToUse: (in category 'sake') ----- - setSakeToUse: aClass - - InstallerSake sake: aClass! Item was removed: - ----- Method: Installer class>>sophie (in category 'repositories') ----- - sophie - - ^ self monticello http: 'source.sophieproject.org' - - ! Item was removed: - ----- Method: Installer class>>ssMirror (in category 'repositories') ----- - ssMirror - "The Chilean mirror for the original SqueakSource." - ^ self monticello http: 'http://dsal.cl/squeaksource/'! Item was changed: ----- Method: Installer class>>web (in category 'web') ----- web + ^ InstallerWeb new! - ^ InstallerWeb! Item was removed: - Installer subclass: #InstallerSake - instanceVariableNames: 'sake' - classVariableNames: 'Sake' - poolDictionaries: '' - category: 'Installer-Core'! Item was removed: - ----- Method: InstallerSake class>>classPackages (in category 'accessing system') ----- - classPackages - - ^Smalltalk at: #Packages ifAbsent: [ self error: 'Sake Packages code not present' ]! Item was removed: - ----- Method: InstallerSake class>>sake (in category 'accessing') ----- - sake - - ^ Sake ifNil: [ self classPackages current ]! Item was removed: - ----- Method: InstallerSake class>>sake: (in category 'accessing') ----- - sake: aClass - - Sake := aClass! Item was removed: - ----- Method: InstallerSake>>basicInstall (in category 'basic interface') ----- - basicInstall - - self withAnswersDo: [ (self packages collect: [ :packageName | sake named: packageName ]) asTask run ]. - ! Item was removed: - ----- Method: InstallerSake>>sake (in category 'websqueakmap') ----- - sake - - ^ sake ! Item was removed: - ----- Method: InstallerSake>>sake: (in category 'websqueakmap') ----- - sake: aSakePackagesClass - - sake := aSakePackagesClass! Item was removed: - Installer subclass: #InstallerUniverse - instanceVariableNames: 'universe' - classVariableNames: 'LastUniUpdate' - poolDictionaries: '' - category: 'Installer-Core'! Item was removed: - ----- Method: InstallerUniverse class>>classUGlobalInstaller (in category 'accessing system') ----- - classUGlobalInstaller - - ^Smalltalk at: #UGlobalInstaller ifAbsent: [ self error: 'Universes code not present' ]! Item was removed: - ----- Method: InstallerUniverse class>>classUUniverse (in category 'accessing system') ----- - classUUniverse - - ^Smalltalk at: #UUniverse ifAbsent: [ self error: 'Universes code not present' ]! Item was removed: - ----- Method: InstallerUniverse class>>default (in category 'instance creation') ----- - default - - ^ self universe: (self classUGlobalInstaller universe: self classUUniverse systemUniverse)! Item was removed: - ----- Method: InstallerUniverse class>>universe: (in category 'instance creation') ----- - universe: u - - ^ self new universe: u! Item was removed: - ----- 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'] - ]. - universe planToInstallPackage: pkg. - ]. - self uniDoInstall! Item was removed: - ----- Method: InstallerUniverse>>classUVersion (in category 'class references') ----- - classUVersion - - ^Smalltalk at: #UVersion ifAbsent: [ self error: 'Universes code not present' ]! Item was removed: - ----- Method: InstallerUniverse>>uniDoInstall (in category 'universes') ----- - uniDoInstall - - self withAnswersDo: [ self universe doInstall ] ! Item was removed: - ----- Method: InstallerUniverse>>universe (in category 'universes') ----- - universe - - ^ universe! Item was removed: - ----- Method: InstallerUniverse>>universe: (in category 'universes') ----- - universe: u - - universe := u. - self update.! Item was removed: - ----- Method: InstallerUniverse>>update (in category 'public interface') ----- - update - - (LastUniUpdate isNil or:[ (DateAndTime now - LastUniUpdate) > 600 seconds ]) - ifTrue: [universe requestPackageList. - LastUniUpdate := DateAndTime now]! Item was removed: - ----- Method: InstallerWeb class>>install: (in category 'compatability') ----- - install: webPageName - "This keeps the syntax Installer web install: working" - ^ self new install: webPageName! Item was removed: - ----- Method: InstallerWeb class>>searchPath (in category 'accessing') ----- - searchPath - "a search path item, has the following format. prefix*suffix" - - ^ WebSearchPath ifNil: [ WebSearchPath := OrderedCollection new ].! Item was added: + ----- Method: InstallerWeb>>searchPath (in category 'web install') ----- + searchPath + "a search path item has the following format. prefix*suffix" + + ^ WebSearchPath ifNil: [ WebSearchPath := OrderedCollection new ].! Item was changed: ----- Method: InstallerWeb>>urlToDownload (in category 'web install') ----- urlToDownload "while we look for a url which returns what we are looking for, we get the data anyway" | delay | delay := 0. + self searchPath do: [ :pathSpec | - self class webSearchPath do: [ :pathSpec | | potentialUrl readPathSpec retry | readPathSpec := pathSpec value readStream. potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). [retry := false. pageDataStream := self urlGet: potentialUrl. self wasPbwikiSpeedWarning ifTrue: [ retry := true. delay := delay + 5. self logCR: 'PBWiki speed warning. Retrying in ', delay printString, ' seconds'. (Delay forSeconds: delay) wait] ifFalse: [ self hasPage ifTrue: [ pageDataStream reset. ^ potentialUrl ] ]. retry ] whileTrue ]. ^nil !

9 18

Jump to page: