Packages March 2018

packages@lists.squeakfoundation.org

1 participants
71 discussions

The Trunk: KernelTests-cbc.337.mcz
by commits＠source.squeak.org 26 Mar '18

26 Mar '18

Chris Cunningham uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-cbc.337.mcz ==================== Summary ==================== Name: KernelTests-cbc.337 Author: cbc Time: 26 March 2018, 11:16:17.932291 am UUID: 412bf5e8-a7c6-334f-9353-153edac45fd9 Ancestors: KernelTests-cbc.336 Correct expected xor: failure to be any type of error, not a specific one. =============== Diff against KernelTests-cbc.336 =============== Item was changed: ----- Method: FalseTest>>testXor (in category 'tests') ----- testXor self assert: (false xor: true) = true. self assert: (false xor: false) = false. self assert: (false xor: [true]) = true. self assert: (false xor: [false]) = false. + "Verify that boolean with non-boolean raise errors." + self should: [false xor: [1]] raise: Error. + self should: [false xor: 1] raise: Error.! - self should: [false xor: [1]] raise: NonBooleanReceiver.! Item was changed: ----- Method: TrueTest>>testXor (in category 'testing') ----- testXor self assert: (true xor: true) = false. self assert: (true xor: false) = true. self assert: (true xor: [true]) = false. self assert: (true xor: [false]) = true. + "Verify that boolean with non-boolean raise errors." + self should: [true xor: [1]] raise: Error. + self should: [true xor: 1] raise: Error.! - self should: [true xor: [1]] raise: NonBooleanReceiver.!

1 0

The Trunk: Monticello-mt.680.mcz
by commits＠source.squeak.org 26 Mar '18

26 Mar '18

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.680.mcz ==================== Summary ==================== Name: Monticello-mt.680 Author: mt Time: 26 March 2018, 8:40:04.07367 am UUID: f25dda73-849e-4343-83df-398625815819 Ancestors: Monticello-ul.679 Minor improvement of security/privacy in Monticello's HTTP repositories. =============== Diff against Monticello-ul.679 =============== Item was changed: SystemOrganization addCategory: #'Monticello-Base'! SystemOrganization addCategory: #'Monticello-Chunk Format'! + SystemOrganization addCategory: #'Monticello-Environments'! SystemOrganization addCategory: #'Monticello-Loading'! SystemOrganization addCategory: #'Monticello-Merging'! SystemOrganization addCategory: #'Monticello-Modeling'! SystemOrganization addCategory: #'Monticello-Patching'! SystemOrganization addCategory: #'Monticello-Repositories'! SystemOrganization addCategory: #'Monticello-Storing'! SystemOrganization addCategory: #'Monticello-UI'! SystemOrganization addCategory: #'Monticello-Versioning'! - SystemOrganization addCategory: #'Monticello-Environments'! Item was added: + ----- Method: MCHttpRepository>>creationTemplate (in category 'accessing') ----- + creationTemplate + ^ self asCreationTemplate! Item was added: + ----- Method: MCHttpRepository>>creationTemplate: (in category 'accessing') ----- + creationTemplate: aString + creationTemplate := nil.! Item was changed: + (PackageInfo named: 'Monticello') postscript: 'MCHttpRepository allSubInstancesDo: [:ea | ea creationTemplate: nil].'! - (PackageInfo named: 'Monticello') postscript: '"Woops somehow missed renaming the #browseMcMethodHistory service." - MCHttpRepository initialize.'!

1 0

The Trunk: KernelTests-cbc.336.mcz
by commits＠source.squeak.org 25 Mar '18

25 Mar '18

Chris Cunningham uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-cbc.336.mcz ==================== Summary ==================== Name: KernelTests-cbc.336 Author: cbc Time: 25 March 2018, 1:51:33.345291 pm UUID: 6e6b91ac-d706-8f4d-bd60-1057109994cb Ancestors: KernelTests-eem.335 Test that new xor: takes blocks - but only those that result in booleans. Others raise errors. =============== Diff against KernelTests-eem.335 =============== Item was changed: ----- Method: FalseTest>>testXor (in category 'tests') ----- testXor self assert: (false xor: true) = true. self assert: (false xor: false) = false. + self assert: (false xor: [true]) = true. + self assert: (false xor: [false]) = false. + self should: [false xor: [1]] raise: NonBooleanReceiver.! - - self - should: [(false xor: [false]) - ifTrue: ["This should never be true, do not signal an Error and let the test fail"] - ifFalse: [self error: 'OK, this should be false, raise an Error']] - raise: Error - description: 'a Block argument is not allowed. If it were, answer would be false'.! Item was changed: ----- Method: TrueTest>>testXor (in category 'testing') ----- testXor self assert: (true xor: true) = false. self assert: (true xor: false) = true. + self assert: (true xor: [true]) = false. + self assert: (true xor: [false]) = true. + self should: [true xor: [1]] raise: NonBooleanReceiver.! - - self - should: [(true xor: [true]) - ifTrue: ["This should never be true, do not signal an Error and let the test fail"] - ifFalse: [self error: 'OK, this should be false, raise an Error']] - raise: Error - description: 'a Block argument is not allowed. If it were, answer would be false'.!

1 0

The Trunk: Kernel-cbc.1163.mcz
by commits＠source.squeak.org 25 Mar '18

25 Mar '18

Chris Cunningham uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cbc.1163.mcz ==================== Summary ==================== Name: Kernel-cbc.1163 Author: cbc Time: 21 March 2018, 9:09:20.773568 pm UUID: 45d9dad8-7c81-034e-b578-b9ccd291cab6 Ancestors: Kernel-dtl.1162, Kernel-fn.1152 Update #xor: to work with argument being a block as well. =============== Diff against Kernel-dtl.1162 =============== Item was added: + ----- Method: Boolean>>xor: (in category 'logical operations') ----- + xor: aBoolean + "Exclusive OR. Answer true if the receiver is not equivalent to aBoolean." + + ^(self == aBoolean) not! Item was changed: ----- Method: False>>xor: (in category 'logical operations') ----- xor: aBoolean + "aBoolean is either a boolean, or an object who's #value returns a boolean (usually a block)." + ^aBoolean value ifTrue: [ true ] ifFalse: [ false ]! - "Posted by Eliot Miranda to squeak-dev on 3/24/2009" - - ^aBoolean! Item was changed: ----- Method: True>>xor: (in category 'logical operations') ----- xor: aBoolean + "aBoolean is either a boolean, or an object who's #value returns a boolean (usually a block)." + ^aBoolean value ifTrue: [ false ] ifFalse: [ true ]! - "Posted by Eliot Miranda to squeak-dev on 3/24/2009" - - ^aBoolean not!

1 0

The Trunk: Kernel-fn.1152.mcz
by commits＠source.squeak.org 25 Mar '18

25 Mar '18

Chris Cunningham uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-fn.1152.mcz ==================== Summary ==================== Name: Kernel-fn.1152 Author: fn Time: 10 February 2018, 5:39:43.015522 pm UUID: 3f388945-f981-4f1e-830e-a296f4d45a2a Ancestors: Kernel-fn.1151 Move to "logical operations". =============== Diff against Kernel-fn.1151 =============== Item was added: + ----- Method: Boolean>>xor: (in category 'logical operations') ----- + xor: aBoolean + "Exclusive OR. Answer true if the receiver is not equivalent to aBoolean." + + ^(self == aBoolean) not!

1 0

The Trunk: Kernel-fn.1151.mcz
by commits＠source.squeak.org 25 Mar '18

25 Mar '18

Chris Cunningham uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-fn.1151.mcz ==================== Summary ==================== Name: Kernel-fn.1151 Author: fn Time: 9 February 2018, 12:32:25.516883 pm UUID: 9fb7df4b-6bf4-4af8-9c75-7496c2f0b517 Ancestors: Kernel-tonyg.1150 For consistency: allow blocks to be passed into #xor: (see #or: and #and:). =============== Diff against Kernel-tonyg.1150 =============== Item was changed: ----- Method: False>>xor: (in category 'logical operations') ----- + xor: alternativeBlock - xor: aBoolean "Posted by Eliot Miranda to squeak-dev on 3/24/2009" + ^alternativeBlock value! - ^aBoolean! Item was changed: ----- Method: True>>xor: (in category 'logical operations') ----- + xor: alternativeBlock - xor: aBoolean "Posted by Eliot Miranda to squeak-dev on 3/24/2009" + ^alternativeBlock value not! - ^aBoolean not!

1 0

The Trunk: ToolBuilder-Morphic-tpr.208.mcz
by commits＠source.squeak.org 23 Mar '18

23 Mar '18

tim Rowledge uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-tpr.208.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-tpr.208 Author: tpr Time: 22 March 2018, 5:11:45.931652 pm UUID: f88f9d36-8005-46ef-96e8-1dadd3301370 Ancestors: ToolBuilder-Morphic-tpr.207 Correct a couple of FileChooserDialog example comments to actually work =============== Diff against ToolBuilder-Morphic-tpr.207 =============== Item was changed: ----- Method: FileChooserDialog class>>openOn:suffixList:label: (in category 'instance creation') ----- openOn: aDirectory suffixList: patternList label: labelString "Open a modal dialog to choose a file. Start the dialog with aDirectory selected and files matching the file name suffixes in patternList. Set the user message to labelString." + "FileChooserDialog openOn: FileDirectory default suffixList: { 'changes' . 'image' } label: 'Do something with the selected files' " - "FileChooserDialog openOn: FileDirectory default suffixList: { '*.changes' . '*image' } label: 'Do something with the selected files' " ^self new directory: aDirectory; suffixList: patternList; message: labelString; getUserResponse! Item was changed: ----- Method: FileChooserDialog class>>openOnSuffixList:label: (in category 'instance creation') ----- openOnSuffixList: patternList label: labelString "Open a modal dialog to choose a file. Start the dialog with a default directory selected and with files matching the file name suffixes in patternList. Set the user message to labelString." + "FileChooserDialog openOnSuffixList: { 'changes' . 'image' } label: 'Do something with the selected files' " - "FileChooserDialog openOnSuffixList: { '*.changes' . '*image' } label: 'Do something with the selected files' " ^self openOn: nil suffixList: patternList label: labelString !

1 0

The Trunk: EToys-tpr.322.mcz
by commits＠source.squeak.org 23 Mar '18

23 Mar '18

tim Rowledge uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tpr.322.mcz ==================== Summary ==================== Name: EToys-tpr.322 Author: tpr Time: 22 March 2018, 5:06:55.965192 pm UUID: b4b7d324-3922-4202-bf26-bb9e9bb17879 Ancestors: EToys-tpr.321, EToys-topa.321 Change CrosticPanel & FileInput to use the new file dialogues instead of the nasty old StandardFileMenu. Moved to trunk since no complaints of problems were made wrt the inbox version =============== Diff against EToys-topa.321 =============== Item was changed: ----- Method: CrosticPanel>>openFile (in category 'menu') ----- openFile + | fileName crostic file | + + fileName := FileChooserDialog openOn: FileDirectory default suffixList: { 'crostic' } label: 'Select a Crostic file...' translated. + fileName ifNil: [^nil]. + + file := FileStream readOnlyFileNamed: fileName. - | stdFileMenuResult crostic file | - stdFileMenuResult := (StandardFileMenu new pattern: '*.crostic'; - oldFileFrom: FileDirectory default) startUpWithCaption: 'Select a Crostic File...' translated. - stdFileMenuResult - ifNil: [^ nil]. - file := stdFileMenuResult directory readOnlyFileNamed: stdFileMenuResult name. crostic := CrosticPanel newFromFile: file. file close. (self isClean or: [self confirm: 'Is it OK to discard this crostic?' translated]) ifTrue: [self world addMorphFront: (crostic position: self position). self delete] ifFalse: [self world addMorphFront: crostic]! Item was changed: ----- Method: FileInput>>browse (in category 'accessing') ----- browse + | fileName | + fileName := (FileChooserDialog openOn: self directory) ifNil: [^nil]. - | file | - file := (StandardFileMenu oldFileFrom: self directory) ifNil: [^nil]. - file directory isNil ifTrue: [^ nil]. + textMorph setText: fileName; - textMorph setText: (file directory pathName, FileDirectory slash, file name); hasUnacceptedEdits: true; accept! Item was changed: ----- Method: StackMorph>>addCardsFromAFile (in category 'background') ----- addCardsFromAFile "Using the current background, create new cards by reading in data from a fileThe data are in each record are expected to be tab-delimited, and to occur in the same order as the instance variables of the current-background's cards " + | fileName | + fileName := FileChooserDialog openOn: FileDirectory default. + fileName ifNil:[^Beeper beep]. + FileStream oldFileNamed: fileName do:[:fs| + self addCardsFromFile: fs].! - | aFileStream | - (aFileStream := FileList2 modalFileSelector) ifNil: [^ Beeper beep]. - self addCardsFromString: aFileStream contentsOfEntireFile. - aFileStream close! Item was changed: ----- Method: SugarNavigatorBar>>loadASexp (in category 'button actions') ----- loadASexp + | fileName siss sexp | + fileName := FileChooserDialog openOnSuffixList: {'sexp'} label: nil. + fileName ifNil: [^ self]. + FileStream + oldFileNamed: fileName + do: [:file | + file binary. + siss := file contents. + sexp := [(DataStream on: (file reset; yourself)) next] + on: Error + do: [:e | (Smalltalk at: #MSExpParser) + parse: siss + with: #ksexp]]. + sexp sissReadObjectsAsEtoysProject submorphs do: #openInWorld! - | file siss sexp | - file := FileList2 modalFileSelectorForSuffixes: #('sexp'). - file ifNil: [^ self]. - file binary. - siss := file contents. - sexp := [(DataStream on: (file reset; yourself)) next] on: Error do: [:e | - (Smalltalk at: #MSExpParser) parse: siss with: #ksexp]. - sexp sissReadObjectsAsEtoysProject submorphs do: #openInWorld. - !

1 0

The Trunk: Monticello-ul.679.mcz
by commits＠source.squeak.org 22 Mar '18

22 Mar '18

Levente Uzonyi uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ul.679.mcz ==================== Summary ==================== Name: Monticello-ul.679 Author: ul Time: 22 March 2018, 7:32:51.372118 pm UUID: 7f5a3bf7-0cda-4200-b035-d9ce789f19d5 Ancestors: Monticello-ul.678 - enable #useSharedWebClientInstance by default when WebClient is present =============== Diff against Monticello-ul.678 =============== Item was changed: ----- Method: MCHttpRepository class>>useSharedWebClientInstance (in category 'preferences') ----- useSharedWebClientInstance <preference: 'Use shared WebClient instance' category: 'Monticello' description: 'When true, use a shared WebClient instance to speed up downloads from MCHttpRepositories. Requires WebClient to be present.' type: #Boolean> + ^UseSharedWebClientInstance ifNil: [ Smalltalk hasClassNamed: #WebClient ]! - ^UseSharedWebClientInstance ifNil: [ false ]!

1 0

The Trunk: Monticello-ul.678.mcz
by commits＠source.squeak.org 22 Mar '18

22 Mar '18

Levente Uzonyi uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ul.678.mcz ==================== Summary ==================== Name: Monticello-ul.678 Author: ul Time: 19 March 2018, 1:03:18.137853 am UUID: 4d47635e-aa48-43cc-99bb-b8d2f1a5a51f Ancestors: Monticello-cmm.677 Store and reuse a shared WebClient instance for each MCHttpRepository. This makes it possible to speed up downloads by reusing TCP connections. Disabled by default. Enable it by evaluating [MCHttpRepository useSharedWebClientInstance: true] =============== Diff against Monticello-cmm.677 =============== Item was changed: MCFileBasedRepository subclass: #MCHttpRepository + instanceVariableNames: 'location user password readerCache indexed webClient' + classVariableNames: 'UseSharedWebClientInstance' - instanceVariableNames: 'location user password readerCache indexed' - classVariableNames: '' poolDictionaries: '' category: 'Monticello-Repositories'! Item was added: + ----- Method: MCHttpRepository class>>useSharedWebClientInstance (in category 'preferences') ----- + useSharedWebClientInstance + + <preference: 'Use shared WebClient instance' + category: 'Monticello' + description: 'When true, use a shared WebClient instance to speed up downloads from MCHttpRepositories. Requires WebClient to be present.' + type: #Boolean> + ^UseSharedWebClientInstance ifNil: [ false ]! Item was added: + ----- Method: MCHttpRepository class>>useSharedWebClientInstance: (in category 'preferences') ----- + useSharedWebClientInstance: aBoolean + + UseSharedWebClientInstance := aBoolean! Item was changed: ----- Method: MCHttpRepository>>allFileNames (in category 'overriding') ----- allFileNames + | index | + index := self displayProgress: 'Updating ', self description during: [ + self httpGet: self locationWithTrailingSlash, '?C=M;O=D' arguments: nil ]. + ^index ifNotNil: [ self parseFileNamesFromStream: index ]! - self displayProgress: 'Updating ', self description during:[ - index := HTTPSocket httpGet: self locationWithTrailingSlash, '?C=M;O=D' args: nil user: self user passwd: self password. - ]. - index isString ifTrue: [NetworkError signal: 'Could not access ', location]. - ^ self parseFileNamesFromStream: index ! Item was added: + ----- Method: MCHttpRepository>>httpGet:arguments: (in category 'private') ----- + httpGet: url arguments: arguments + + | progress urlString client response result | + self class useSharedWebClientInstance ifFalse: [ + ^HTTPSocket httpGet: url args: arguments user: self user passwd: self password ]. + progress := [ :total :amount | + HTTPProgress new + total: total; + amount: amount; + signal: 'Downloading...' ]. + urlString := arguments + ifNil: [ url ] + ifNotNil: [ + | queryString | + queryString := (Smalltalk classNamed: #WebUtils) encodeUrlEncodedForm: arguments. + (url includes: $?) + ifTrue: [ url, '&', queryString ] + ifFalse: [ url, '?', queryString ] ]. + "Acquire webClient by atomically storing it in the client variable and setting its value to nil." + client := webClient. + webClient := nil. + client ifNil: [ client := (Smalltalk classNamed: #WebClient) new ]. + response := client + username: self user; + password: self password; + httpGet: urlString do: [ :request | + request + headerAt: 'Authorization' put: 'Basic ', (self user, ':', self password) base64Encoded; + headerAt: 'Connection' put: 'Keep-Alive'; + headerAt: 'Accept' put: '*/*' ]. + result := (response code between: 200 and: 299) + ifFalse: [ + response content. "Make sure content is read." + nil ] + ifTrue: [ (RWBinaryOrTextStream with: (response contentWithProgress: progress)) reset ]. + "Save the WebClient instance for reuse, but only if there is no client cached." + webClient + ifNil: [ webClient := client ] + ifNotNil: [ client close ]. + ^result ifNil: [ + NetworkError signal: 'Could not access ', location. + nil ]! Item was changed: ----- Method: MCHttpRepository>>readStreamForFileNamed:do: (in category 'private') ----- readStreamForFileNamed: aString do: aBlock + | contents | + contents := self displayProgress: 'Downloading ', aString during: [ + self httpGet: (self urlForFileNamed: aString) arguments: nil ]. + ^contents ifNotNil: [ aBlock value: contents ]! - self displayProgress: 'Downloading ', aString during:[ - contents := HTTPSocket httpGet: (self urlForFileNamed: aString) args: nil user: self user passwd: self password. - ]. - ^ contents isString ifFalse: [aBlock value: contents]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2018