Packages February 2019

packages@lists.squeakfoundation.org

1 participants
39 discussions

The Trunk: Morphic-kfr.1480.mcz
by commits＠source.squeak.org 28 Feb '19

28 Feb '19

Karl Ramberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.1480.mcz ==================== Summary ==================== Name: Morphic-kfr.1480 Author: kfr Time: 28 February 2019, 4:40:24.875838 pm UUID: 9fdf2251-873b-9b42-a287-d85231cd70d3 Ancestors: Morphic-kfr.1479 Force update of TheWorldMainDockingBar =============== Diff against Morphic-kfr.1479 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>newProjectMenuItemOn: (in category 'submenu - projects') ----- newProjectMenuItemOn: menu Project allSubclasses do: [ :each | menu addItem: [ :item | item contents: ('New ', each name) translated; help: ('Start a new ', each name) translated; target: self; selector: #newProject:; + arguments: { each } ] ] ! - arguments: { each } ] ]! Item was changed: (PackageInfo named: 'Morphic') postscript: '"Migrate all open resizers." AbstractResizerMorph allSubInstancesDo: [:ea | ea handleColor isColor ifFalse: [ea handleColor: nil]. ea removeAllMorphs]. "Re-enable deprecation warnings in Trunk." + Deprecation showDeprecationWarnings: true. + + TheWorldMainDockingBar updateInstances'! - Deprecation showDeprecationWarnings: true.'!

1 0

The Trunk: Morphic-kfr.1479.mcz
by commits＠source.squeak.org 28 Feb '19

28 Feb '19

Karl Ramberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.1479.mcz ==================== Summary ==================== Name: Morphic-kfr.1479 Author: kfr Time: 28 February 2019, 4:15:42.283606 pm UUID: 17084141-786d-4cbc-83a2-3ada7d367346 Ancestors: Morphic-kfr.1478 Preamble to update current instances of TheWorldMainDockingBar =============== Diff against Morphic-kfr.1478 =============== Item was changed: (PackageInfo named: 'Morphic') preamble: '"Disable deprecation warnings to avoid hick-ups." + Deprecation showDeprecationWarnings: false. + + TheWorldMainDockingBar updateInstances'! - Deprecation showDeprecationWarnings: false.'!

1 0

The Trunk: Morphic-kfr.1478.mcz
by commits＠source.squeak.org 28 Feb '19

28 Feb '19

Karl Ramberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.1478.mcz ==================== Summary ==================== Name: Morphic-kfr.1478 Author: kfr Time: 28 February 2019, 4:09:26.634492 pm UUID: ec9720b3-1097-4cef-989b-8a21a5ac15e8 Ancestors: Morphic-tonyg.1477 A few changes to Project menu in TheWorldMainDocingBar No need for a submenu for only 2 sub entries, so I simplyfied to have the the main menu include all project types. Change so new projects are not automatically entered upon creation, because that is unexpected behavior. =============== Diff against Morphic-tonyg.1477 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>newProject: (in category 'menu actions') ----- newProject: projectClass "Create a new project of the given type" | newProject | "Allow the project to return nil from #new to indicate that it was canceled." newProject := projectClass new ifNil:[^self]. ProjectViewMorph openOn: newProject. + ! - newProject enter.! Item was changed: ----- Method: TheWorldMainDockingBar>>newProjectMenuItemOn: (in category 'submenu - projects') ----- newProjectMenuItemOn: menu + Project allSubclasses do: [ :each | + menu addItem: [ :item | + item + contents: ('New ', each name) translated; + help: ('Start a new ', each name) translated; + target: self; + selector: #newProject:; + arguments: { each } ] ]! - menu addItem: [ :item | - item - contents: 'New Project' translated; - help: 'Start a new MorphicProject' translated; - icon: MenuIcons smallProjectIcon; - target: self; - selector: #newProject:; - arguments: { MorphicProject }; - subMenuUpdater: self - selector: #updateNewProjectSubMenu: ]! Item was removed: - ----- Method: TheWorldMainDockingBar>>updateNewProjectSubMenu: (in category 'submenu - projects') ----- - updateNewProjectSubMenu: menu - - Project allSubclasses do: [ :each | - menu addItem: [ :item | - item - contents: ('New ', each name) translated; - help: ('Start a new ', each name) translated; - target: self; - selector: #newProject:; - arguments: { each } ] ]!

1 0

The Trunk: Network-tpr.231.mcz
by commits＠source.squeak.org 25 Feb '19

25 Feb '19

tim Rowledge uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-tpr.231.mcz ==================== Summary ==================== Name: Network-tpr.231 Author: tpr Time: 25 February 2019, 2:27:15.218701 pm UUID: 75e4e492-3a02-4d3b-bc97-4b64cd827635 Ancestors: Network-tpr.230 drop the for-deprecation implementation of URI class>>basicNew =============== Diff against Network-tpr.230 =============== Item was removed: - ----- Method: URI class>>basicNew (in category 'instance creation') ----- - basicNew - self deprecated: 'This class is deprecated. USe one ofthe Url classes instead'. - ^super basicNew!

1 0

The Trunk: Network-tpr.230.mcz
by commits＠source.squeak.org 25 Feb '19

25 Feb '19

tim Rowledge uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-tpr.230.mcz ==================== Summary ==================== Name: Network-tpr.230 Author: tpr Time: 25 February 2019, 1:18:58.682316 pm UUID: e0d4c983-2401-4421-89bd-8ef3d1318d5d Ancestors: Network-tpr.229 De-deprecate the URI class(es) since there is a tiny pinhole leak via String asUri etc. Best option would be to reimplement URI & Url to unify and improve both. Not least to fix the incorrect naming of Url - it's an initialism and should be URL. =============== Diff against Network-tpr.229 =============== Item was added: + URI subclass: #HierarchicalURI + instanceVariableNames: 'authority query' + classVariableNames: '' + poolDictionaries: '' + category: 'Network-URI'! Item was added: + ----- Method: HierarchicalURI>>absoluteFromString:scheme: (in category 'private') ----- + absoluteFromString: aString scheme: schemeName + | remainder | + super absoluteFromString: aString scheme: schemeName. + + "We now have the interesting part in schemeSpecficPart and can parse it further" + + "This check is somewhat redundant, just in case somebody calls this directly." + remainder := schemeSpecificPart. + (remainder isEmpty + or: [remainder first ~~ $/]) + ifTrue: [(IllegalURIException new uriString: remainder) signal: 'Invalid absolute URI']. + + (aString beginsWith: '//') + ifTrue: [remainder := self extractAuthority: (remainder copyFrom: 3 to: remainder size)]. + + self extractSchemeSpecificPartAndFragment: remainder! Item was added: + ----- Method: HierarchicalURI>>absolutePath (in category 'accessing') ----- + absolutePath + ^self schemeSpecificPart isEmpty + ifTrue: ['/'] + ifFalse: [self schemeSpecificPart]! Item was added: + ----- Method: HierarchicalURI>>allButScheme (in category 'printing') ----- + allButScheme + "Answer the entire url except its scheme" + + ^String streamContents:[:s| + authority ifNotNil:[self authority printOn: s]. + s nextPutAll: super allButScheme. + query ifNotNil:[s nextPutAll: query]. + ].! Item was added: + ----- Method: HierarchicalURI>>assureExistance (in category 'directory operations') ----- + assureExistance + ! Item was added: + ----- Method: HierarchicalURI>>authority (in category 'accessing') ----- + authority + ^authority! Item was added: + ----- Method: HierarchicalURI>>baseName (in category 'accessing') ----- + baseName + "returns the last component stripped of its extension" + + | baseName i | + baseName := self pathComponents last. + i := baseName findLast: [:c | c = $.]. + ^i = 0 + ifTrue: [baseName] + ifFalse: [baseName copyFrom: 1 to: i-1]. + ! Item was added: + ----- Method: HierarchicalURI>>buildAbsolutePath: (in category 'private') ----- + buildAbsolutePath: pathComponents + ^String streamContents: [:stream | + stream nextPut: $/. + pathComponents + do: [:pathPart | stream nextPutAll: pathPart] + separatedBy: [stream nextPut: $/]]! Item was added: + ----- Method: HierarchicalURI>>extension (in category 'accessing') ----- + extension + "This method assumes a $. as extension delimiter" + + | i leafName | + leafName := self pathComponents last. + i := leafName findLast: [:c | c = $.]. + ^i = 0 + ifTrue: [''] + ifFalse: [leafName copyFrom: i + 1 to: leafName size]. + ! Item was added: + ----- Method: HierarchicalURI>>extractAuthority: (in category 'private') ----- + extractAuthority: aString + | endAuthorityIndex authorityString | + endAuthorityIndex := (aString indexOf: $/ ) - 1. + endAuthorityIndex < 0 + ifTrue: [endAuthorityIndex := aString size]. + authorityString := aString copyFrom: 1 to: endAuthorityIndex. + authority := URIAuthority fromString: authorityString. + ^aString copyFrom: endAuthorityIndex+1 to: aString size! Item was added: + ----- Method: HierarchicalURI>>extractQuery: (in category 'private') ----- + extractQuery: remainder + | queryIndex | + queryIndex := remainder indexOf: $?. + queryIndex > 0 + ifFalse: [^remainder]. + query := remainder copyFrom: queryIndex to: remainder size. + ^remainder copyFrom: 1 to: queryIndex-1! Item was added: + ----- Method: HierarchicalURI>>extractSchemeSpecificPartAndFragment: (in category 'private') ----- + extractSchemeSpecificPartAndFragment: remainder + super extractSchemeSpecificPartAndFragment: remainder. + schemeSpecificPart := self extractQuery: schemeSpecificPart! Item was added: + ----- Method: HierarchicalURI>>host (in category 'accessing') ----- + host + ^self authority host! Item was added: + ----- Method: HierarchicalURI>>path (in category 'accessing') ----- + path + " ^self schemeSpecificPart isEmpty + ifTrue: ['/'] + ifFalse: [self schemeSpecificPart]" + ^self schemeSpecificPart! Item was added: + ----- Method: HierarchicalURI>>pathComponents (in category 'accessing') ----- + pathComponents + ^self path findTokens: $/! Item was added: + ----- Method: HierarchicalURI>>port (in category 'accessing') ----- + port + ^self authority port! Item was added: + ----- Method: HierarchicalURI>>printSchemeSpecificPartOn: (in category 'printing') ----- + printSchemeSpecificPartOn: stream + self isAbsolute + ifTrue: [stream nextPutAll: '//']. + authority + ifNotNil: [self authority printOn: stream]. + super printSchemeSpecificPartOn: stream. + query + ifNotNil: [stream nextPutAll: query]! Item was added: + ----- Method: HierarchicalURI>>query (in category 'accessing') ----- + query + ^query! Item was added: + ----- Method: HierarchicalURI>>relativeFromString: (in category 'private') ----- + relativeFromString: aString + | remainder authorityEnd | + remainder := (aString beginsWith: '//') + ifTrue: [ + authorityEnd := aString indexOf: $/ startingAt: 3. + authorityEnd = 0 + ifTrue: [authorityEnd := aString size+1]. + self extractAuthority: (aString copyFrom: 3 to: authorityEnd-1)] + ifFalse: [aString]. + self extractSchemeSpecificPartAndFragment: remainder! Item was added: + ----- Method: HierarchicalURI>>removeComponentDotDotPairs: (in category 'private') ----- + removeComponentDotDotPairs: pathComponents + | dotDotIndex | + dotDotIndex := pathComponents indexOf: '..'. + [dotDotIndex > 1] + whileTrue: [ + pathComponents + removeAt: dotDotIndex; + removeAt: dotDotIndex-1. + dotDotIndex := pathComponents indexOf: '..']! Item was added: + ----- Method: HierarchicalURI>>resolveRelativeURI: (in category 'accessing') ----- + resolveRelativeURI: aURI + | relativeURI newAuthority newPath pathComponents newURI relComps | + relativeURI := aURI asURI. + + relativeURI isAbsolute + ifTrue: [^relativeURI]. + + relativeURI authority + ifNil: [ + newAuthority := self authority. + (relativeURI path beginsWith: '/') + ifTrue: [newPath := relativeURI path] + ifFalse: [ + pathComponents := (self path copyUpToLast: $/) findTokens: $/. + relComps := relativeURI pathComponents. + relComps removeAllSuchThat: [:each | each = '.']. + pathComponents addAll: relComps. + pathComponents removeAllSuchThat: [:each | each = '.']. + self removeComponentDotDotPairs: pathComponents. + newPath := self buildAbsolutePath: pathComponents. + ((relComps isEmpty + or: [relativeURI path last == $/ + or: [(relativeURI path endsWith: '/..') + or: [relativeURI path = '..' + or: [relativeURI path endsWith: '/.' ]]]]) + and: [newPath size > 1]) + ifTrue: [newPath := newPath , '/']]] + ifNotNil: [ + newAuthority := relativeURI authority. + newPath := relativeURI path]. + + newURI := String streamContents: [:stream | + stream nextPutAll: self scheme. + stream nextPut: $: . + newAuthority notNil + ifTrue: [ + stream nextPutAll: '//'. + newAuthority printOn: stream]. + newPath notNil + ifTrue: [stream nextPutAll: newPath]. + relativeURI query notNil + ifTrue: [stream nextPutAll: relativeURI query]. + relativeURI fragment notNil + ifTrue: [ + stream nextPut: $# . + stream nextPutAll: relativeURI fragment]]. + ^newURI asURI! Item was added: + ----- Method: HierarchicalURI>>userInfo (in category 'accessing') ----- + userInfo + ^self authority userInfo! Item was added: + URI subclass: #OpaqueURI + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Network-URI'! Item was added: + ----- Method: OpaqueURI>>isOpaque (in category 'testing') ----- + isOpaque + ^true! Item was added: + Object subclass: #URI + instanceVariableNames: 'fragment scheme schemeSpecificPart' + classVariableNames: 'ClientClasses' + poolDictionaries: '' + category: 'Network-URI'! + + !URI commentStamp: 'tpr 2/18/2019 18:06' prior: 0! + This class is deprecated. Consider using one of the Url classes instead. + + A Uniform Resource Identifier (URI) is a compact string of characters for identifying an abstract or physical resource. + This implementation is based on http://www.ietf.org/rfc/rfc2396.txt. + + ! Item was added: + ----- Method: URI class>>absoluteFromString:scheme: (in category 'instance creation') ----- + absoluteFromString: aString scheme: scheme + | remainder | + remainder := aString copyFrom: scheme size+2 to: aString size. + remainder isEmpty + ifTrue: [(IllegalURIException new uriString: aString) signal: 'Invalid absolute URI']. + ^(remainder first = $/ + ifTrue: [HierarchicalURI] + ifFalse: [OpaqueURI]) new absoluteFromString: remainder scheme: scheme! Item was added: + ----- Method: URI class>>basicNew (in category 'instance creation') ----- + basicNew + self deprecated: 'This class is deprecated. USe one ofthe Url classes instead'. + ^super basicNew! Item was added: + ----- Method: URI class>>extractSchemeFrom: (in category 'instance creation') ----- + extractSchemeFrom: aString + | colonIndex slashIndex | + colonIndex := aString indexOf: $: . + ^colonIndex > 0 + ifTrue: [ + slashIndex := aString indexOf: $/ . + (slashIndex = 0 + or: [colonIndex < slashIndex]) + ifTrue: [aString copyFrom: 1 to: colonIndex-1] + ifFalse: [nil]] + ifFalse: [nil]! Item was added: + ----- Method: URI class>>fromString: (in category 'instance creation') ----- + fromString: aString + | parseString scheme | + parseString := aString withBlanksTrimmed. + scheme := self extractSchemeFrom: parseString. + ^scheme + ifNil: [HierarchicalURI new relativeFromString: aString] + ifNotNil: [self absoluteFromString: aString scheme: scheme] + ! Item was added: + ----- Method: URI class>>initialize (in category 'class initialization') ----- + initialize + "URI initialize" + + ClientClasses := Dictionary new. + ClientClasses + at: 'http' put: #HTTPClient; + at: 'ftp' put: #FTPClient; + at: 'file' put: #FileDirectory + ! Item was added: + ----- Method: URI>>= (in category 'testing') ----- + = otherURI + ^ self class = otherURI class + and: [self asString = otherURI asString]! Item was added: + ----- Method: URI>>absoluteFromString:scheme: (in category 'private') ----- + absoluteFromString: remainder scheme: schemeName + scheme := schemeName. + self extractSchemeSpecificPartAndFragment: remainder! Item was added: + ----- Method: URI>>allButScheme (in category 'printing') ----- + allButScheme + "Answer the entire url except its scheme" + + ^String streamContents:[:s| + s nextPutAll: schemeSpecificPart. + fragment ifNotNil: [ + s nextPut: $# . + s nextPutAll: self fragment] + ].! Item was added: + ----- Method: URI>>asText (in category 'converting') ----- + asText + ^self asString asText! Item was added: + ----- Method: URI>>asURI (in category 'converting') ----- + asURI + ^self! Item was added: + ----- Method: URI>>asUrl (in category 'converting') ----- + asUrl + + ^self asString asUrl! Item was added: + ----- Method: URI>>clientClass (in category 'private') ----- + clientClass + ^Smalltalk at: (ClientClasses at: self scheme ifAbsent: [ClientClasses at: 'file'])! Item was added: + ----- Method: URI>>contentStream (in category 'retrieval') ----- + contentStream + ^self clientClass contentStreamForURI: self! Item was added: + ----- Method: URI>>downloadUrl (in category 'converting') ----- + downloadUrl + self halt! Item was added: + ----- Method: URI>>extractSchemeSpecificPartAndFragment: (in category 'private') ----- + extractSchemeSpecificPartAndFragment: remainder + | fragmentIndex | + fragmentIndex := remainder indexOf: $# . + fragmentIndex > 0 + ifTrue: [ + schemeSpecificPart := remainder copyFrom: 1 to: fragmentIndex-1. + fragment := remainder copyFrom: fragmentIndex+1 to: remainder size] + ifFalse: [schemeSpecificPart := remainder]! Item was added: + ----- Method: URI>>fragment (in category 'accessing') ----- + fragment + ^fragment! Item was added: + ----- Method: URI>>hasRemoteContents (in category 'testing') ----- + hasRemoteContents + self halt! Item was added: + ----- Method: URI>>hash (in category 'testing') ----- + hash + ^ self asString hash! Item was added: + ----- Method: URI>>isAbsolute (in category 'testing') ----- + isAbsolute + ^self scheme notNil! Item was added: + ----- Method: URI>>isOpaque (in category 'testing') ----- + isOpaque + ^false! Item was added: + ----- Method: URI>>isRelative (in category 'testing') ----- + isRelative + ^self isAbsolute not! Item was added: + ----- Method: URI>>printOn: (in category 'printing') ----- + printOn: stream + self isAbsolute + ifTrue: [ + stream nextPutAll: self scheme. + stream nextPut: $: ]. + self printSchemeSpecificPartOn: stream. + fragment + ifNotNil: [ + stream nextPut: $# . + stream nextPutAll: self fragment] + ! Item was added: + ----- Method: URI>>printSchemeSpecificPartOn: (in category 'printing') ----- + printSchemeSpecificPartOn: stream + stream nextPutAll: self schemeSpecificPart! Item was added: + ----- Method: URI>>resolveRelativeURI: (in category 'accessing') ----- + resolveRelativeURI: relativeURI + self shouldNotImplement! Item was added: + ----- Method: URI>>retrieveContentStream (in category 'retrieval') ----- + retrieveContentStream + ^self retrieveMIMEDocument contentStream! Item was added: + ----- Method: URI>>retrieveContents (in category 'retrieval') ----- + retrieveContents + ^self retrieveMIMEDocument contents! Item was added: + ----- Method: URI>>retrieveMIMEDocument (in category 'retrieval') ----- + retrieveMIMEDocument + ^self clientClass retrieveMIMEDocument: self! Item was added: + ----- Method: URI>>scheme (in category 'accessing') ----- + scheme + ^scheme! Item was added: + ----- Method: URI>>schemeSpecificPart (in category 'private') ----- + schemeSpecificPart + ^schemeSpecificPart!

1 0

The Trunk: 60Deprecated-tpr.33.mcz
by commits＠source.squeak.org 25 Feb '19

25 Feb '19

tim Rowledge uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-tpr.33.mcz ==================== Summary ==================== Name: 60Deprecated-tpr.33 Author: tpr Time: 25 February 2019, 1:17:39.079517 pm UUID: 1fb9d494-de7a-4eb8-a0ad-e58a74035cfb Ancestors: 60Deprecated-tpr.32 De-deprecate the URI class(es) since tere is a tiny pinhole leak via String asUri etc. Best option would be to reimplement URI & Url to unify and improve both. Not least to fix the incorrect naming of Url - it's an initialism and should be URL. =============== Diff against 60Deprecated-tpr.32 =============== Item was changed: SystemOrganization addCategory: #'60Deprecated-Collections-Streams'! SystemOrganization addCategory: #'60Deprecated-Kernel-Methods'! SystemOrganization addCategory: #'60Deprecated-System-Support'! SystemOrganization addCategory: #'60Deprecated-Tools-Inspector'! SystemOrganization addCategory: #'60Deprecated-Tools-Menus'! - SystemOrganization addCategory: #'60Deprecated-Network-URI'! Item was removed: - URI subclass: #HierarchicalURI - instanceVariableNames: 'authority query' - classVariableNames: '' - poolDictionaries: '' - category: '60Deprecated-Network-URI'! Item was removed: - ----- Method: HierarchicalURI>>absoluteFromString:scheme: (in category 'private') ----- - absoluteFromString: aString scheme: schemeName - | remainder | - super absoluteFromString: aString scheme: schemeName. - - "We now have the interesting part in schemeSpecficPart and can parse it further" - - "This check is somewhat redundant, just in case somebody calls this directly." - remainder := schemeSpecificPart. - (remainder isEmpty - or: [remainder first ~~ $/]) - ifTrue: [(IllegalURIException new uriString: remainder) signal: 'Invalid absolute URI']. - - (aString beginsWith: '//') - ifTrue: [remainder := self extractAuthority: (remainder copyFrom: 3 to: remainder size)]. - - self extractSchemeSpecificPartAndFragment: remainder! Item was removed: - ----- Method: HierarchicalURI>>absolutePath (in category 'accessing') ----- - absolutePath - ^self schemeSpecificPart isEmpty - ifTrue: ['/'] - ifFalse: [self schemeSpecificPart]! Item was removed: - ----- Method: HierarchicalURI>>allButScheme (in category 'printing') ----- - allButScheme - "Answer the entire url except its scheme" - - ^String streamContents:[:s| - authority ifNotNil:[self authority printOn: s]. - s nextPutAll: super allButScheme. - query ifNotNil:[s nextPutAll: query]. - ].! Item was removed: - ----- Method: HierarchicalURI>>assureExistance (in category 'directory operations') ----- - assureExistance - ! Item was removed: - ----- Method: HierarchicalURI>>authority (in category 'accessing') ----- - authority - ^authority! Item was removed: - ----- Method: HierarchicalURI>>baseName (in category 'accessing') ----- - baseName - "returns the last component stripped of its extension" - - | baseName i | - baseName := self pathComponents last. - i := baseName findLast: [:c | c = $.]. - ^i = 0 - ifTrue: [baseName] - ifFalse: [baseName copyFrom: 1 to: i-1]. - ! Item was removed: - ----- Method: HierarchicalURI>>buildAbsolutePath: (in category 'private') ----- - buildAbsolutePath: pathComponents - ^String streamContents: [:stream | - stream nextPut: $/. - pathComponents - do: [:pathPart | stream nextPutAll: pathPart] - separatedBy: [stream nextPut: $/]]! Item was removed: - ----- Method: HierarchicalURI>>extension (in category 'accessing') ----- - extension - "This method assumes a $. as extension delimiter" - - | i leafName | - leafName := self pathComponents last. - i := leafName findLast: [:c | c = $.]. - ^i = 0 - ifTrue: [''] - ifFalse: [leafName copyFrom: i + 1 to: leafName size]. - ! Item was removed: - ----- Method: HierarchicalURI>>extractAuthority: (in category 'private') ----- - extractAuthority: aString - | endAuthorityIndex authorityString | - endAuthorityIndex := (aString indexOf: $/ ) - 1. - endAuthorityIndex < 0 - ifTrue: [endAuthorityIndex := aString size]. - authorityString := aString copyFrom: 1 to: endAuthorityIndex. - authority := URIAuthority fromString: authorityString. - ^aString copyFrom: endAuthorityIndex+1 to: aString size! Item was removed: - ----- Method: HierarchicalURI>>extractQuery: (in category 'private') ----- - extractQuery: remainder - | queryIndex | - queryIndex := remainder indexOf: $?. - queryIndex > 0 - ifFalse: [^remainder]. - query := remainder copyFrom: queryIndex to: remainder size. - ^remainder copyFrom: 1 to: queryIndex-1! Item was removed: - ----- Method: HierarchicalURI>>extractSchemeSpecificPartAndFragment: (in category 'private') ----- - extractSchemeSpecificPartAndFragment: remainder - super extractSchemeSpecificPartAndFragment: remainder. - schemeSpecificPart := self extractQuery: schemeSpecificPart! Item was removed: - ----- Method: HierarchicalURI>>host (in category 'accessing') ----- - host - ^self authority host! Item was removed: - ----- Method: HierarchicalURI>>path (in category 'accessing') ----- - path - " ^self schemeSpecificPart isEmpty - ifTrue: ['/'] - ifFalse: [self schemeSpecificPart]" - ^self schemeSpecificPart! Item was removed: - ----- Method: HierarchicalURI>>pathComponents (in category 'accessing') ----- - pathComponents - ^self path findTokens: $/! Item was removed: - ----- Method: HierarchicalURI>>port (in category 'accessing') ----- - port - ^self authority port! Item was removed: - ----- Method: HierarchicalURI>>printSchemeSpecificPartOn: (in category 'printing') ----- - printSchemeSpecificPartOn: stream - self isAbsolute - ifTrue: [stream nextPutAll: '//']. - authority - ifNotNil: [self authority printOn: stream]. - super printSchemeSpecificPartOn: stream. - query - ifNotNil: [stream nextPutAll: query]! Item was removed: - ----- Method: HierarchicalURI>>query (in category 'accessing') ----- - query - ^query! Item was removed: - ----- Method: HierarchicalURI>>relativeFromString: (in category 'private') ----- - relativeFromString: aString - | remainder authorityEnd | - remainder := (aString beginsWith: '//') - ifTrue: [ - authorityEnd := aString indexOf: $/ startingAt: 3. - authorityEnd = 0 - ifTrue: [authorityEnd := aString size+1]. - self extractAuthority: (aString copyFrom: 3 to: authorityEnd-1)] - ifFalse: [aString]. - self extractSchemeSpecificPartAndFragment: remainder! Item was removed: - ----- Method: HierarchicalURI>>removeComponentDotDotPairs: (in category 'private') ----- - removeComponentDotDotPairs: pathComponents - | dotDotIndex | - dotDotIndex := pathComponents indexOf: '..'. - [dotDotIndex > 1] - whileTrue: [ - pathComponents - removeAt: dotDotIndex; - removeAt: dotDotIndex-1. - dotDotIndex := pathComponents indexOf: '..']! Item was removed: - ----- Method: HierarchicalURI>>resolveRelativeURI: (in category 'accessing') ----- - resolveRelativeURI: aURI - | relativeURI newAuthority newPath pathComponents newURI relComps | - relativeURI := aURI asURI. - - relativeURI isAbsolute - ifTrue: [^relativeURI]. - - relativeURI authority - ifNil: [ - newAuthority := self authority. - (relativeURI path beginsWith: '/') - ifTrue: [newPath := relativeURI path] - ifFalse: [ - pathComponents := (self path copyUpToLast: $/) findTokens: $/. - relComps := relativeURI pathComponents. - relComps removeAllSuchThat: [:each | each = '.']. - pathComponents addAll: relComps. - pathComponents removeAllSuchThat: [:each | each = '.']. - self removeComponentDotDotPairs: pathComponents. - newPath := self buildAbsolutePath: pathComponents. - ((relComps isEmpty - or: [relativeURI path last == $/ - or: [(relativeURI path endsWith: '/..') - or: [relativeURI path = '..' - or: [relativeURI path endsWith: '/.' ]]]]) - and: [newPath size > 1]) - ifTrue: [newPath := newPath , '/']]] - ifNotNil: [ - newAuthority := relativeURI authority. - newPath := relativeURI path]. - - newURI := String streamContents: [:stream | - stream nextPutAll: self scheme. - stream nextPut: $: . - newAuthority notNil - ifTrue: [ - stream nextPutAll: '//'. - newAuthority printOn: stream]. - newPath notNil - ifTrue: [stream nextPutAll: newPath]. - relativeURI query notNil - ifTrue: [stream nextPutAll: relativeURI query]. - relativeURI fragment notNil - ifTrue: [ - stream nextPut: $# . - stream nextPutAll: relativeURI fragment]]. - ^newURI asURI! Item was removed: - ----- Method: HierarchicalURI>>userInfo (in category 'accessing') ----- - userInfo - ^self authority userInfo! Item was removed: - URI subclass: #OpaqueURI - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: '60Deprecated-Network-URI'! Item was removed: - ----- Method: OpaqueURI>>isOpaque (in category 'testing') ----- - isOpaque - ^true! Item was removed: - Object subclass: #URI - instanceVariableNames: 'fragment scheme schemeSpecificPart' - classVariableNames: 'ClientClasses' - poolDictionaries: '' - category: '60Deprecated-Network-URI'! - - !URI commentStamp: 'tpr 2/18/2019 18:06' prior: 0! - This class is deprecated. Consider using one of the Url classes instead. - - A Uniform Resource Identifier (URI) is a compact string of characters for identifying an abstract or physical resource. - This implementation is based on http://www.ietf.org/rfc/rfc2396.txt. - - ! Item was removed: - ----- Method: URI class>>absoluteFromString:scheme: (in category 'instance creation') ----- - absoluteFromString: aString scheme: scheme - | remainder | - remainder := aString copyFrom: scheme size+2 to: aString size. - remainder isEmpty - ifTrue: [(IllegalURIException new uriString: aString) signal: 'Invalid absolute URI']. - ^(remainder first = $/ - ifTrue: [HierarchicalURI] - ifFalse: [OpaqueURI]) new absoluteFromString: remainder scheme: scheme! Item was removed: - ----- Method: URI class>>basicNew (in category 'instance creation') ----- - basicNew - self deprecated: 'This class is deprecated. USe one ofthe Url classes instead'. - ^super basicNew! Item was removed: - ----- Method: URI class>>extractSchemeFrom: (in category 'instance creation') ----- - extractSchemeFrom: aString - | colonIndex slashIndex | - colonIndex := aString indexOf: $: . - ^colonIndex > 0 - ifTrue: [ - slashIndex := aString indexOf: $/ . - (slashIndex = 0 - or: [colonIndex < slashIndex]) - ifTrue: [aString copyFrom: 1 to: colonIndex-1] - ifFalse: [nil]] - ifFalse: [nil]! Item was removed: - ----- Method: URI class>>fromString: (in category 'instance creation') ----- - fromString: aString - | parseString scheme | - parseString := aString withBlanksTrimmed. - scheme := self extractSchemeFrom: parseString. - ^scheme - ifNil: [HierarchicalURI new relativeFromString: aString] - ifNotNil: [self absoluteFromString: aString scheme: scheme] - ! Item was removed: - ----- Method: URI class>>initialize (in category 'class initialization') ----- - initialize - "URI initialize" - - ClientClasses := Dictionary new. - ClientClasses - at: 'http' put: #HTTPClient; - at: 'ftp' put: #FTPClient; - at: 'file' put: #FileDirectory - ! Item was removed: - ----- Method: URI>>= (in category 'testing') ----- - = otherURI - ^ self class = otherURI class - and: [self asString = otherURI asString]! Item was removed: - ----- Method: URI>>absoluteFromString:scheme: (in category 'private') ----- - absoluteFromString: remainder scheme: schemeName - scheme := schemeName. - self extractSchemeSpecificPartAndFragment: remainder! Item was removed: - ----- Method: URI>>allButScheme (in category 'printing') ----- - allButScheme - "Answer the entire url except its scheme" - - ^String streamContents:[:s| - s nextPutAll: schemeSpecificPart. - fragment ifNotNil: [ - s nextPut: $# . - s nextPutAll: self fragment] - ].! Item was removed: - ----- Method: URI>>asText (in category 'converting') ----- - asText - ^self asString asText! Item was removed: - ----- Method: URI>>asURI (in category 'converting') ----- - asURI - ^self! Item was removed: - ----- Method: URI>>asUrl (in category 'converting') ----- - asUrl - - ^self asString asUrl! Item was removed: - ----- Method: URI>>clientClass (in category 'private') ----- - clientClass - ^Smalltalk at: (ClientClasses at: self scheme ifAbsent: [ClientClasses at: 'file'])! Item was removed: - ----- Method: URI>>contentStream (in category 'retrieval') ----- - contentStream - ^self clientClass contentStreamForURI: self! Item was removed: - ----- Method: URI>>downloadUrl (in category 'converting') ----- - downloadUrl - self halt! Item was removed: - ----- Method: URI>>extractSchemeSpecificPartAndFragment: (in category 'private') ----- - extractSchemeSpecificPartAndFragment: remainder - | fragmentIndex | - fragmentIndex := remainder indexOf: $# . - fragmentIndex > 0 - ifTrue: [ - schemeSpecificPart := remainder copyFrom: 1 to: fragmentIndex-1. - fragment := remainder copyFrom: fragmentIndex+1 to: remainder size] - ifFalse: [schemeSpecificPart := remainder]! Item was removed: - ----- Method: URI>>fragment (in category 'accessing') ----- - fragment - ^fragment! Item was removed: - ----- Method: URI>>hasRemoteContents (in category 'testing') ----- - hasRemoteContents - self halt! Item was removed: - ----- Method: URI>>hash (in category 'testing') ----- - hash - ^ self asString hash! Item was removed: - ----- Method: URI>>isAbsolute (in category 'testing') ----- - isAbsolute - ^self scheme notNil! Item was removed: - ----- Method: URI>>isOpaque (in category 'testing') ----- - isOpaque - ^false! Item was removed: - ----- Method: URI>>isRelative (in category 'testing') ----- - isRelative - ^self isAbsolute not! Item was removed: - ----- Method: URI>>printOn: (in category 'printing') ----- - printOn: stream - self isAbsolute - ifTrue: [ - stream nextPutAll: self scheme. - stream nextPut: $: ]. - self printSchemeSpecificPartOn: stream. - fragment - ifNotNil: [ - stream nextPut: $# . - stream nextPutAll: self fragment] - ! Item was removed: - ----- Method: URI>>printSchemeSpecificPartOn: (in category 'printing') ----- - printSchemeSpecificPartOn: stream - stream nextPutAll: self schemeSpecificPart! Item was removed: - ----- Method: URI>>resolveRelativeURI: (in category 'accessing') ----- - resolveRelativeURI: relativeURI - self shouldNotImplement! Item was removed: - ----- Method: URI>>retrieveContentStream (in category 'retrieval') ----- - retrieveContentStream - ^self retrieveMIMEDocument contentStream! Item was removed: - ----- Method: URI>>retrieveContents (in category 'retrieval') ----- - retrieveContents - ^self retrieveMIMEDocument contents! Item was removed: - ----- Method: URI>>retrieveMIMEDocument (in category 'retrieval') ----- - retrieveMIMEDocument - ^self clientClass retrieveMIMEDocument: self! Item was removed: - ----- Method: URI>>scheme (in category 'accessing') ----- - scheme - ^scheme! Item was removed: - ----- Method: URI>>schemeSpecificPart (in category 'private') ----- - schemeSpecificPart - ^schemeSpecificPart!

1 0

The Trunk: MorphicExtras-kfr.253.mcz
by commits＠source.squeak.org 24 Feb '19

24 Feb '19

Karl Ramberg uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-kfr.253.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.253 Author: kfr Time: 24 February 2019, 2:43:46.160328 pm UUID: 4eb29a5a-3d38-4464-bb7d-3b64e2ae2c4d Ancestors: MorphicExtras-kfr.252 Create AnimatedImageMorph from array of images. Setter access for inter image delay to uniform value. =============== Diff against MorphicExtras-kfr.252 =============== Item was added: + ----- Method: AnimatedImageMorph>>fromImages: (in category 'private') ----- + fromImages: anArray + + images := anArray. + self setUniformDelay: 10. + self isOpaque: true. + self reset.! Item was added: + ----- Method: AnimatedImageMorph>>fromImages:delay: (in category 'private') ----- + fromImages: anArray delay: anInteger + + images := anArray. + self setUniformDelay: anInteger. + self isOpaque: true. + self reset.! Item was added: + ----- Method: AnimatedImageMorph>>setUniformDelay: (in category 'private') ----- + setUniformDelay: anInteger + "set delay to a uniform value for all images" + delays := Array new: images size withAll: anInteger.!

1 0

The Trunk: EToys-kfr.341.mcz
by commits＠source.squeak.org 24 Feb '19

24 Feb '19

Karl Ramberg uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-kfr.341.mcz ==================== Summary ==================== Name: EToys-kfr.341 Author: kfr Time: 24 February 2019, 2:13:12.948634 pm UUID: fcf322df-c7c0-480c-9ccb-6c54c0b99e58 Ancestors: EToys-tpr.340 Adds menu item to toggle starting and stopping the animated image morph =============== Diff against EToys-tpr.340 =============== Item was added: + ----- Method: AnimatedImageMorph>>addCustomMenuItems:hand: (in category '*Etoys-Squeakland-stepping and presenter') ----- + addCustomMenuItems: aMenu hand: aHand + super addCustomMenuItems: aMenu hand: aHand. + aMenu addUpdating: #steppingString action: #toggleStepping!

1 0

The Trunk: MorphicExtras-kfr.252.mcz
by commits＠source.squeak.org 24 Feb '19

24 Feb '19

Karl Ramberg uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-kfr.252.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.252 Author: kfr Time: 24 February 2019, 2:06:12.497784 pm UUID: 71481ac8-81b8-4a70-9a29-758a0c8bdbb5 Ancestors: MorphicExtras-pre.251 Allow SketchEditorMorph to grow extent by halo handle. But do not shrink extent since this is destructive to the painting and no recovery available. =============== Diff against MorphicExtras-pre.251 =============== Item was added: + ----- Method: SketchEditorMorph>>extent: (in category 'morphic') ----- + extent: aPoint + | form | + paintingForm ifNil: [^super extent: aPoint]. + + super extent: aPoint. + form := Form extent: self extent depth: paintingForm depth. + paintingForm displayOn: form. + paintingForm := form. + forEachHand do: [:i | i at: #changed put: true]. + rotationButton position: bounds topCenter - (6@0). + scaleButton position: bounds rightCenter - ((scaleButton width)@6). + + ! Item was added: + ----- Method: SketchEditorMorph>>setExtentFromHalo: (in category 'morphic') ----- + setExtentFromHalo: anExtent + "The user has dragged the grow box such that the receiver's extent would be anExtent. Do what's needed" + super setExtentFromHalo: ((anExtent x max: paintingForm width) @ (anExtent y max: paintingForm height)). + !

1 0

The Trunk: Kernel-eem.1214.mcz
by commits＠source.squeak.org 23 Feb '19

23 Feb '19

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1214.mcz ==================== Summary ==================== Name: Kernel-eem.1214 Author: eem Time: 22 February 2019, 4:30:01.615182 pm UUID: 1196f254-79e9-4bb1-b1af-3c413abe2fd4 Ancestors: Kernel-nice.1213 Use the Spur inst avr access primitives in FutureMaker and the mirror primitives. Fix a couple of typos. =============== Diff against Kernel-nice.1213 =============== Item was changed: ----- Method: BlockClosure>>blockCreationPC (in category 'scanning') ----- blockCreationPC + "Answer the pc for the bytecode that created the receiver." - "Answer the pc for the bytecode that created the receuver." | method | method := self method. ^method encoderClass pcOfBlockCreationBytecodeForBlockStartingAt: startpc in: method! Item was changed: ----- Method: Context>>findNextUnwindContextUpTo: (in category 'private-exceptions') ----- findNextUnwindContextUpTo: aContext "Return the next unwind marked above the receiver, returning nil if there is none. Search proceeds up to but not including aContext." | ctx | <primitive: 195> ctx := self. + [(ctx := ctx sender) == nil or: [ctx == aContext]] whileFalse: - [(ctx := ctx sender) == nil or: [ctx == aContext]] whileFalse: [ ctx isUnwindContext ifTrue: [^ctx]]. ^nil! Item was changed: ----- Method: Context>>object:instVarAt: (in category 'mirror primitives') ----- object: anObject instVarAt: anIndex "Primitive. Answer a fixed variable in an object. The numbering of the variables corresponds to the named instance variables. Fail if the index is not an Integer or is not the index of a fixed variable. Essential for the debugger. See Object documentation whatIsAPrimitive." + <primitive: 173 error: ec> + self primitiveFailed! - <primitive: 73> - "Access beyond fixed variables." - ^self object: anObject basicAt: anIndex - (self objectClass: anObject) instSize! Item was changed: ----- Method: Context>>object:instVarAt:put: (in category 'mirror primitives') ----- object: anObject instVarAt: anIndex put: aValue "Primitive. Store a value into a fixed variable in the argument anObject. The numbering of the variables corresponds to the named instance variables. Fail if the index is not an Integer or is not the index of a fixed variable. Answer the value stored as the result. Using this message violates the principle that each object has sovereign control over the storing of values into its instance variables. Essential for the debugger. See Object documentation whatIsAPrimitive." + <primitive: 174 error: ec> + self primitiveFailed! - <primitive: 74> - "Access beyond fixed fields" - ^self object: anObject basicAt: anIndex - (self objectClass: anObject) instSize put: aValue! Item was changed: ----- Method: FutureMaker>>instVarAt: (in category 'accessing') ----- instVarAt: index "Primitive. Answer a fixed variable in an object. The numbering of the variables corresponds to the named instance variables. Fail if the index is not an Integer or is not the index of a fixed variable. Essential. See Object documentation whatIsAPrimitive." + <primitive: 173 error: ec> + self primitiveFailed! - <primitive: 73> - "Access beyond fixed variables." - ^self basicAt: index - self class instSize ! Item was changed: ----- Method: FutureMaker>>instVarAt:put: (in category 'accessing') ----- instVarAt: anInteger put: anObject "Primitive. Store a value into a fixed variable in the receiver. The numbering of the variables corresponds to the named instance variables. Fail if the index is not an Integer or is not the index of a fixed variable. Answer the value stored as the result. Using this message violates the principle that each object has sovereign control over the storing of values into its instance variables. Essential. See Object documentation whatIsAPrimitive." + <primitive: 174 error: ec> + self primitiveFailed! - <primitive: 74> - "Access beyond fixed fields" - ^self basicAt: anInteger - self class instSize put: anObject!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2019