Packages March 2018

packages@lists.squeakfoundation.org

1 participants
71 discussions

The Trunk: Network-topa.221.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

Tobias Pape uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-topa.221.mcz ==================== Summary ==================== Name: Network-topa.221 Author: topa Time: 7 March 2018, 10:47:10.905474 pm UUID: 97fe2e2e-af08-4563-be27-8eb163d1bafe Ancestors: Network-tpr.220 Slight improvement to tim's improvement =============== Diff against Network-tpr.220 =============== Item was changed: ----- Method: MailComposition>>addAttachment (in category 'actions') ----- addAttachment - | file fileName | - - self saveFields. - fileName := FileChooserDialog openOn: FileDirectory default pattern: nil label: 'Choose attachment'. - fileName ifNil: [^self]. + self saveFields. + (FileChooserDialog openOn: FileDirectory default pattern: nil label: 'Choose attachment') ifNotNil: + [:fileName | + FileStream readOnlyFileNamed: fileName do: + [:file | + file binary. + mailMessage + addAttachmentFrom: file + withName: (FileDirectory localNameFor: fileName)]. + self changed: #messageText]. ! - file := FileStream readOnlyFileNamed: fileName. - file ifNotNil: [file binary. - mailMessage addAttachmentFrom: file withName: (FileDirectory localNameFor: fileName) . - file close. - self changed: #messageText] !

1 0

The Trunk: MorphicExtras-topa.224.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

Tobias Pape uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-topa.224.mcz ==================== Summary ==================== Name: MorphicExtras-topa.224 Author: topa Time: 7 March 2018, 9:37:01.927179 pm UUID: 429c41eb-0c72-4d9c-b01a-60446039c6b9 Ancestors: MorphicExtras-tpr.223 Slight improvement to tim's improvement =============== Diff against MorphicExtras-tpr.223 =============== Item was changed: ----- Method: BookMorph>>loadImagesIntoBook (in category 'menu') ----- loadImagesIntoBook "PowerPoint stores GIF presentations as individual slides named Slide1, Slide2, etc. Load these into the book. mjg 9/99" | directory filenumber form newpage | directory :=DirectoryChooserDialog openOn: FileDirectory default label: 'Select the directory to load pages from'. + directory ifNil: [^ self]. - directory isNil ifTrue: [^nil]. "Start loading 'em up!!" filenumber := 1. [directory fileExists: 'Slide' , filenumber asString] whileTrue: [Transcript show: 'Slide' , filenumber asString; cr. Smalltalk bytesLeft < 1000000 ifTrue: ["Make some room" (self valueOfProperty: #url) isNil ifTrue: [self savePagesOnURL] ifFalse: [self saveAsNumberedURLs]]. form := Form fromFileNamed: (directory fullNameFor: 'Slide' , filenumber asString). newpage := PasteUpMorph new extent: form extent. newpage addMorph: (self world drawingClass withForm: form). self pages addLast: newpage. filenumber := filenumber + 1]. "After adding all, delete the first page." self goToPage: 1. self deletePageBasic. "Save the book" (self valueOfProperty: #url) isNil ifTrue: [self savePagesOnURL] ifFalse: [self saveAsNumberedURLs]! Item was changed: ----- Method: FancyMailComposition>>addAttachment (in category 'actions') ----- addAttachment + - | file fileName | textEditor ifNotNil: [self hasUnacceptedEdits ifTrue: [textEditor accept]]. + (FileChooserDialog openOn: FileDirectory default pattern: nil label: 'Choose attachment') ifNotNil: + [:fileName | + FileStream readOnlyFileNamed: fileName do: + [:file | + file binary. + self messageText: + ((MailMessage from: self messageText asString) + addAttachmentFrom: file withName: (FileDirectory localNameFor: fileName); + text)]]! - fileName := FileChooserDialog openOn: FileDirectory default pattern: nil label: 'Choose attachment'. - fileName ifNil: [^self]. - - file := FileStream readOnlyFileNamed: fileName. - file ifNotNil: [file binary. - self messageText: - ((MailMessage from: self messageText asString) - addAttachmentFrom: file withName: (FileDirectory localNameFor: fileName); - text). - file close]!

1 0

The Trunk: GetText-topa.47.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

Tobias Pape uploaded a new version of GetText to project The Trunk: http://source.squeak.org/trunk/GetText-topa.47.mcz ==================== Summary ==================== Name: GetText-topa.47 Author: topa Time: 7 March 2018, 9:30:49.346582 pm UUID: 987f9c81-b710-43f0-9a50-ced981112705 Ancestors: GetText-tpr.46 Slight improvement to tim's improvement =============== Diff against GetText-tpr.46 =============== Item was changed: ----- Method: LanguageEditor>>selectTranslationFileName (in category 'gui methods') ----- selectTranslationFileName "answer a file with a translation" + + ^ FileChooserDialog openOnSuffixList: { 'translation' } label: 'Select the file...' translated. + ! - | fileName | - fileName :=FileChooserDialog openOnSuffixList: { 'translation' } label: 'Select the file...' translated. - ^ fileName isNil - ifFalse: [fileName]!

1 0

The Trunk: Tools-tpr.798.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.798.mcz ==================== Summary ==================== Name: Tools-tpr.798 Author: tpr Time: 7 March 2018, 11:19:49.739206 am UUID: cf6625fc-e8fc-491a-8ec9-1d907f10e710 Ancestors: Tools-mt.797 Convert usage of nasty old StandardFileMenu to gleaming new file dialogues =============== Diff against Tools-mt.797 =============== Item was changed: ----- Method: ArchiveViewer>>extractMember (in category 'member operations') ----- extractMember "Extract the member after prompting for a filename. Answer the filename, or nil if error." + | name | - | result name | self canExtractMember ifFalse: [ ^nil ]. + name := FileSaverDialog openOn: FileDirectory default. + name ifNil: [ ^nil ]. - result := StandardFileMenu newFile. - result ifNil: [ ^nil ]. - name := (result directory fullNameFor: result name). (archive canWriteToFileNamed: name) ifFalse: [ self inform: name, ' is used by one or more members in your archive, and cannot be overwritten. Try extracting to another file name'. ^nil ]. self selectedMember extractToFileNamed: name. ^name! Item was changed: ----- Method: ArchiveViewer>>writePrependingFile (in category 'archive operations') ----- writePrependingFile | result name prependedName | self canSaveArchive ifFalse: [ ^self ]. + name := FileSaverDialog openOn: FileDirectory default initialFilename: 'archive.zip' label: 'Choose location to save archive' translated. + name ifNil: [ ^self ]. - result := (StandardFileMenu newFileMenu: FileDirectory default) - startUpWithCaption: 'Destination Zip File Name:' translated. - result ifNil: [ ^self ]. - name := result directory fullNameFor: result name. (archive canWriteToFileNamed: name) ifFalse: [ self inform: name, ' is used by one or more members in your archive, and cannot be overwritten. Try writing to another file name' translated. ^self ]. + result := FileSaverDialog openOn: FileDirectory default initialFilename: 'archive.zip' label: 'Prepended File:' translated. - result := (StandardFileMenu oldFileMenu: FileDirectory default) - startUpWithCaption: 'Prepended File:' translated. result ifNil: [ ^self ]. prependedName := result directory fullNameFor: result name. [ archive writeToFileNamed: name prependingFileNamed: prependedName ] on: Error do: [ :ex | self inform: ex description. ]. self changed: #memberList "in case CRC's and compressed sizes got set"! Item was changed: ----- Method: ChangeSorter>>fileIntoNewChangeSet (in category 'changeSet menu') ----- fileIntoNewChangeSet "Obtain a file designation from the user, and file its contents into a new change set whose name is a function of the filename. Show the new set and leave the current changeSet unaltered." + | aNewChangeSet stream fileName | - | aNewChangeSet stream | self okToChange ifFalse: [^ self]. ChangeSet promptForDefaultChangeSetDirectoryIfNecessary. + fileName := (FileChooserDialog openOn: ChangeSet defaultChangeSetDirectory) ifNil: [^nil]. + stream := FileStream oldFileNamed: fileName. + stream ifNil: [^ self]. + - stream := StandardFileMenu oldFileStreamFrom: ChangeSet defaultChangeSetDirectory. - stream - ifNil: [^ self]. aNewChangeSet := self class newChangesFromStream: stream + named: (FileDirectory localNameFor:fileName). - named: (FileDirectory localNameFor: stream name). aNewChangeSet ifNotNil: [self showChangeSet: aNewChangeSet]! Item was changed: ----- Method: FileList class>>openFileDirectly (in category 'instance creation') ----- openFileDirectly + | fileName | + (fileName :=FileChooserDialog openOn: FileDirectory default) ifNotNil: + [self openEditorOn: (FileStream readOnlyFileNamed: fileName) editString: nil]! - | aResult | - (aResult := StandardFileMenu oldFile) ifNotNil: - [self openEditorOn: (aResult directory readOnlyFileNamed: aResult name) editString: nil]!

1 0

The Trunk: Network-tpr.220.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

tim Rowledge uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-tpr.220.mcz ==================== Summary ==================== Name: Network-tpr.220 Author: tpr Time: 7 March 2018, 11:16:27.453971 am UUID: 90d9b634-e1e3-4713-bb09-82ed2cc362e6 Ancestors: Network-pre.219 Convert usage of nasty old StandardFileMenu to gleaming new file dialogues =============== Diff against Network-pre.219 =============== Item was changed: ----- Method: MailComposition>>addAttachment (in category 'actions') ----- addAttachment + | file fileName | - | file fileResult fileName | self saveFields. + fileName := FileChooserDialog openOn: FileDirectory default pattern: nil label: 'Choose attachment'. + fileName ifNil: [^self]. + file := FileStream readOnlyFileNamed: fileName. + file ifNotNil: [file binary. + mailMessage addAttachmentFrom: file withName: (FileDirectory localNameFor: fileName) . + file close. + self changed: #messageText] ! - (fileResult := StandardFileMenu oldFile) - ifNotNil: - [fileName := fileResult directory fullNameFor: fileResult name. - file := FileStream readOnlyFileNamed: fileName. - file ifNotNil: - [file binary. - mailMessage addAttachmentFrom: file withName: fileResult name. - file close. - self changed: #messageText]] !

1 0

The Trunk: MorphicExtras-tpr.223.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

tim Rowledge uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-tpr.223.mcz ==================== Summary ==================== Name: MorphicExtras-tpr.223 Author: tpr Time: 7 March 2018, 11:14:11.491809 am UUID: c324d012-9883-4ede-a149-240f51d9687c Ancestors: MorphicExtras-dtl.222 Convert usage of nasty old StandardFileMenu to gleaming new file dialogues =============== Diff against MorphicExtras-dtl.222 =============== Item was changed: ----- Method: BookMorph>>loadImagesIntoBook (in category 'menu') ----- loadImagesIntoBook "PowerPoint stores GIF presentations as individual slides named Slide1, Slide2, etc. Load these into the book. mjg 9/99" | directory filenumber form newpage | + directory :=DirectoryChooserDialog openOn: FileDirectory default label: 'Select the directory to load pages from'. - directory := ((StandardFileMenu oldFileFrom: FileDirectory default) - ifNil: [^nil]) directory. directory isNil ifTrue: [^nil]. "Start loading 'em up!!" filenumber := 1. [directory fileExists: 'Slide' , filenumber asString] whileTrue: [Transcript show: 'Slide' , filenumber asString; cr. Smalltalk bytesLeft < 1000000 ifTrue: ["Make some room" (self valueOfProperty: #url) isNil ifTrue: [self savePagesOnURL] ifFalse: [self saveAsNumberedURLs]]. form := Form fromFileNamed: (directory fullNameFor: 'Slide' , filenumber asString). newpage := PasteUpMorph new extent: form extent. newpage addMorph: (self world drawingClass withForm: form). self pages addLast: newpage. filenumber := filenumber + 1]. "After adding all, delete the first page." self goToPage: 1. self deletePageBasic. "Save the book" (self valueOfProperty: #url) isNil ifTrue: [self savePagesOnURL] ifFalse: [self saveAsNumberedURLs]! Item was changed: ----- Method: FancyMailComposition>>addAttachment (in category 'actions') ----- addAttachment + | file fileName | - | file fileResult fileName | textEditor ifNotNil: [self hasUnacceptedEdits ifTrue: [textEditor accept]]. + fileName := FileChooserDialog openOn: FileDirectory default pattern: nil label: 'Choose attachment'. + fileName ifNil: [^self]. + + file := FileStream readOnlyFileNamed: fileName. + file ifNotNil: [file binary. - (fileResult := StandardFileMenu oldFile) - ifNotNil: - [fileName := fileResult directory fullNameFor: fileResult name. - file := FileStream readOnlyFileNamed: fileName. - file ifNotNil: - [file binary. self messageText: ((MailMessage from: self messageText asString) + addAttachmentFrom: file withName: (FileDirectory localNameFor: fileName); + text). + file close]! - addAttachmentFrom: file withName: fileResult name; text). - file close]] ! Item was changed: ----- Method: FatBitsPaint>>fileOut (in category 'menu') ----- fileOut + | fileName | - | fileName result | + fileName := FileSaverDialog openOn: FileDirectory default. + fileName ifNil: [^Beeper beep]. + + Cursor normal showWhile: [self unmagnifiedForm writeOnFileNamed: fileName]! - result := StandardFileMenu newFile ifNil: [^Beeper beep]. - fileName := result directory fullNameFor: result name. - Cursor normal showWhile: - [self unmagnifiedForm writeOnFileNamed: fileName]!

1 0

The Trunk: GetText-tpr.46.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

tim Rowledge uploaded a new version of GetText to project The Trunk: http://source.squeak.org/trunk/GetText-tpr.46.mcz ==================== Summary ==================== Name: GetText-tpr.46 Author: tpr Time: 7 March 2018, 11:11:46.625662 am UUID: 8f641159-afe3-4ccb-bfc5-cd080361d30a Ancestors: GetText-mt.45 Convert usage of nasty old StandardFileMenu to gleaming new file dialogues =============== Diff against GetText-mt.45 =============== Item was changed: ----- Method: LanguageEditor>>getTextImportAFile (in category 'gui methods') ----- getTextImportAFile + | fileName | + fileName := FileChooserDialog openOnSuffixList: { 'po' } label: 'Select a File:' translated. + fileName ifNil: [^self]. + - | result | - result := (StandardFileMenu new pattern: '*.po'; - - oldFileFrom: (FileDirectory default directoryNamed: 'po')) startUpWithCaption: 'Select a File:' translated. - result - ifNil: [^ self]. self withUnboundModelDo: [:trans | Cursor wait showWhile: [GetTextImporter new import: trans + fileNamed: fileName]]! - fileNamed: (result directory fullNameFor: result name)]]! Item was changed: ----- Method: LanguageEditor>>selectTranslationFileName (in category 'gui methods') ----- selectTranslationFileName "answer a file with a translation" + | fileName | + fileName :=FileChooserDialog openOnSuffixList: { 'translation' } label: 'Select the file...' translated. + ^ fileName isNil + ifFalse: [fileName]! - | file | - file := (StandardFileMenu oldFileMenu: FileDirectory default withPattern: '*.translation') - startUpWithCaption: 'Select the file...' translated. - ^ file isNil - ifFalse: [file directory fullNameFor: file name]!

1 0

The Trunk: Kernel-ul.1157.mcz
by commits＠source.squeak.org 05 Mar '18

05 Mar '18

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1157.mcz ==================== Summary ==================== Name: Kernel-ul.1157 Author: ul Time: 5 March 2018, 8:52:06.571627 pm UUID: d0cb2a27-7e25-44de-9a35-1c498e2083d1 Ancestors: Kernel-ul.1156 Monitor changes: - Monitor is now a subclass of Mutex. - All methods implemented by Mutex have been removed from Monitor. - The ownerProcess instance variable has been removed, because Mutex has its own owner instance variable. It was not referenced from Monitor's code. - queuesMutex is now a Mutex instead of a Semaphore. - Removed the unused mutex variable. =============== Diff against Kernel-ul.1156 =============== Item was changed: + Mutex subclass: #Monitor + instanceVariableNames: 'defaultQueue queueDict queuesMutex nestingLevel' - LinkedList subclass: #Monitor - instanceVariableNames: 'ownerProcess defaultQueue queueDict queuesMutex mutex nestingLevel' classVariableNames: '' poolDictionaries: '' category: 'Kernel-Processes'! !Monitor commentStamp: 'eem 1/7/2016 11:38' prior: 0! A monitor provides process synchronization that is more high level than the one provided by a Semaphore. Similar to the classical definition of a Monitor it has the following properties: 1) At any time, only one process can execute code inside a critical section of a monitor. 2) A monitor is reentrant, which means that the active process in a monitor never gets blocked when it enters a (nested) critical section of the same monitor. For example a monitor will not block when trying the following: | m | m := Monitor new. m critical: [m critical: [#yes]] whereas a Semaphore will deadlock: | s | s := Semaphore forMutualExclusion. s critical: [s critical: [#no]] 3) Inside a critical section, a process can wait for an event that may be coupled to a certain condition. If the condition is not fulfilled, the process leaves the monitor temporarily (in order to let other processes enter) and waits until another process signals the event. Then, the original process checks the condition again (this is often necessary because the state of the monitor could have changed in the meantime) and continues if it is fulfilled. 4) The monitor is fair, which means that the process that is waiting on a signaled condition the longest gets activated first. 5) The monitor allows you to define timeouts after which a process gets activated automatically. Basic usage: Monitor>>critical: aBlock Critical section. Executes aBlock as a critical section. At any time, only one process can execute code in a critical section. NOTE: All the following synchronization operations are only valid inside the critical section of the monitor!! Monitor>>wait Unconditional waiting for the default event. The current process gets blocked and leaves the monitor, which means that the monitor allows another process to execute critical code. When the default event is signaled, the original process is resumed. Monitor>>waitWhile: aBlock Conditional waiting for the default event. The current process gets blocked and leaves the monitor only if the argument block evaluates to true. This means that another process can enter the monitor. When the default event is signaled, the original process is resumed, which means that the condition (argument block) is checked again. Only if it evaluates to false, does execution proceed. Otherwise, the process gets blocked and leaves the monitor again... Monitor>>waitUntil: aBlock Conditional waiting for the default event. See Monitor>>waitWhile: aBlock. Monitor>>signal One process waiting for the default event is woken up. Monitor>>signalAll All processes waiting for the default event are woken up. Using non-default (specific) events: Monitor>>waitFor: aSymbol Unconditional waiting for the non-default event represented by the argument symbol. Same as Monitor>>wait, but the process gets only reactivated by the specific event and not the default event. Monitor>>waitWhile: aBlock for: aSymbol Confitional waiting for the non-default event represented by the argument symbol. Same as Monitor>>waitWhile:for:, but the process gets only reactivated by the specific event and not the default event. Monitor>>waitUntil: aBlock for: aSymbol Confitional waiting for the non-default event represented by the argument symbol. See Monitor>>waitWhile:for: aBlock. Monitor>>signal: aSymbol One process waiting for the given event is woken up. If there is no process waiting for this specific event, a process waiting for the default event gets resumed. Monitor>>signalAll: aSymbol All process waiting for the given event or the default event are woken up. Monitor>>signalReallyAll All processes waiting for any events (default or specific) are woken up. Using timeouts Monitor>>waitMaxMilliseconds: anInteger Monitor>>waitFor: aSymbol maxMilliseconds: anInteger Same as Monitor>>wait (resp. Monitor>>waitFor:), but the process gets automatically woken up when the specified time has passed. Monitor>>waitWhile: aBlock maxMilliseconds: anInteger Monitor>>waitWhile: aBlock for: aSymbol maxMilliseconds: anInteger Same as Monitor>>waitWhile: (resp. Monitor>>waitWhile:for:), but the process gets automatically woken up when the specified time has passed. Monitor>>waitUntil: aBlock maxMilliseconds: anInteger Monitor>>waitUntil: aBlock for: aSymbol maxMilliseconds: anInteger Same as Monitor>>waitUntil: (resp. Monitor>>waitUntil:for:), but the process gets automatically woken up when the specified time has passed.! Item was changed: ----- Method: Monitor>>checkOwnerProcess (in category 'private') ----- checkOwnerProcess "If the receiver is not already the owner of the section raise an error." + + self primitiveTestAndSetOwnershipOfCriticalSection ifNotNil: [ :alreadyOwner | + alreadyOwner ifTrue: [ ^self ]. + self primitiveExitCriticalSection ]. + self error: 'Monitor access violation'! - (self primitiveTestAndSetOwnershipOfCriticalSection - ifNil: [false] - ifNotNil: - [:alreadyOwner| - alreadyOwner - or: [self primitiveExitCriticalSection. - false]]) ifFalse: - [self error: 'Monitor access violation']! Item was removed: - ----- Method: Monitor>>critical: (in category 'mutual exclusion') ----- - critical: aBlock - "Evaluate aBlock protected by the receiver." - <criticalSection> - ^self primitiveEnterCriticalSection - ifTrue: [aBlock value] - ifFalse: [aBlock ensure: [self primitiveExitCriticalSection]]! Item was removed: - ----- Method: Monitor>>critical:ifLocked: (in category 'mutual exclusion') ----- - critical: aBlock ifLocked: lockedBlock - "Answer the evaluation of aBlock protected by the receiver. If it is already in a critical - section on behalf of some other process answer the evaluation of lockedBlock." - <criticalSection> - ^self primitiveTestAndSetOwnershipOfCriticalSection - ifNil: [lockedBlock value] - ifNotNil: - [:alreadyOwner| - alreadyOwner - ifTrue: [aBlock value] - ifFalse: [aBlock ensure: [self primitiveExitCriticalSection]]]! Item was changed: ----- Method: Monitor>>initialize (in category 'initialize-release') ----- initialize + queuesMutex := Mutex new! - queuesMutex := Semaphore forMutualExclusion! Item was removed: - ----- Method: Monitor>>primitiveEnterCriticalSection (in category 'private-primitives') ----- - primitiveEnterCriticalSection - "Primitive. The receiver must be unowned or owned by the current process to proceed. - Answer if the process is owned by the current process. - - Copyright (c) 2016 - 3D Immersive Collaboration Consulting, LLC." - <primitive: 186> - self primitiveFailed - "In the spirit of the following" - "[owner ifNil: - [owner := Processor activeProcess. - ^false]. - owner = Processor activeProcess ifTrue: - [^true]. - self addLast: Processor activeProcess. - Processor activeProcess suspend] valueUnpreemptively"! Item was removed: - ----- Method: Monitor>>primitiveExitCriticalSection (in category 'private-primitives') ----- - primitiveExitCriticalSection - "Primitive. Set the receiver to unowned and if any processes are waiting on - the receiver then proceed the first one, indicating that the receiver is unowned. - - Copyright (c) 2016 - 3D Immersive Collaboration Consulting, LLC." - <primitive: 185> - self primitiveFailed - "In the spirit of the following" - "[owner := nil. - self isEmpty ifFalse: - [process := self removeFirst. - process resume]] valueUnpreemptively"! Item was removed: - ----- Method: Monitor>>primitiveTestAndSetOwnershipOfCriticalSection (in category 'private-primitives') ----- - primitiveTestAndSetOwnershipOfCriticalSection - "Primitive. Attempt to set the ownership of the receiver. - If the receiver is unowned set its owningProcess to the - activeProcess and answer false. If the receiver is owned - by the activeProcess answer true. If the receiver is owned - by some other process answer nil. - - Copyright (c) 2016 - 3D Immersive Collaboration Consulting, LLC." - <primitive: 187> - self primitiveFailed - "In the spirit of the following" - "[owner ifNil: - [owningProcess := Processor activeProcess. - ^false]. - owner = Processor activeProcess ifTrue: [^true]. - ^nil] valueUnpreemptively"!

1 0

The Trunk: Collections-ul.783.mcz
by commits＠source.squeak.org 05 Mar '18

05 Mar '18

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.783.mcz ==================== Summary ==================== Name: Collections-ul.783 Author: ul Time: 5 March 2018, 10:52:44.810023 pm UUID: 3cb7824b-9833-4ab9-bbac-66e36049b6ed Ancestors: Collections-ul.782 WeakIdentityKeyDictionary changes: - implemented #slowSize to be able to count of actually stored associations - overridden #compact to cut tally back based on #slowSize - compact the dictionary after removing unreferenced keys in #removeUnreferencedKeys This all will ensure that if Undeclared is empty, then #isEmpty will return true after Smalltalk cleanOutUndeclared is executed. =============== Diff against Collections-ul.782 =============== Item was added: + ----- Method: WeakIdentityDictionary>>compact (in category 'private') ----- + compact + "Reduce the size of array so that the load factor will be ~75%." + + | newCapacity | + tally := self slowSize. + newCapacity := self class goodPrimeAtLeast: tally * 4 // 3. + self growTo: newCapacity! Item was added: + ----- Method: WeakIdentityDictionary>>removeUnreferencedKeys (in category 'as yet unclassified') ----- + removeUnreferencedKeys + "Make sure tally is set to the right size by #compact." + + super removeUnreferencedKeys. + self compact! Item was added: + ----- Method: WeakIdentityDictionary>>slowSize (in category 'accessing') ----- + slowSize + "Careful!! Answer the maximum amount + of elements in the receiver, not the + exact amount" + + | count | + count := 0. + 1 to: array size do: [ :index | + (array at: index) ifNotNil: [ :object | + object == vacuum ifFalse: [ + count := count + 1 ] ] ]. + ^count!

1 0

The Trunk: Files-ul.178.mcz
by commits＠source.squeak.org 05 Mar '18

05 Mar '18

Levente Uzonyi uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-ul.178.mcz ==================== Summary ==================== Name: Files-ul.178 Author: ul Time: 5 March 2018, 10:49:06.063658 pm UUID: e612d91e-11fb-4479-b754-56fe59e06bec Ancestors: Files-tpr.177 - only check once for #badDirectoryPath in FileDirectory>>directoryContentsFor:do: =============== Diff against Files-tpr.177 =============== Item was changed: ----- Method: FileDirectory>>directoryContentsFor:do: (in category 'private') ----- directoryContentsFor: fullPath do: aBlock "Do aBlock for the files and directories in the directory with the given path. See primLookupEntryIn:index: for further details." "FileDirectory default directoryContentsFor: '' do: [ :each | Transcript show: each; cr ]" + | vmPath entryArray index | + vmPath := fullPath asVmPathName. - | f entryArray index | - f := fullPath asVmPathName. index := 1. + entryArray := (self primLookupEntryIn: vmPath index: index) ifNil: [ ^self ]. + #badDirectoryPath == entryArray ifTrue: [ + ^(InvalidDirectoryError pathName: fullPath) signal ]. + [ + aBlock value: (DirectoryEntry fromArray: entryArray directory: self) convertFromSystemName. + entryArray := (self primLookupEntryIn: vmPath index: (index := index + 1)) ifNil: [ ^self ] ] repeat! - [(entryArray := self primLookupEntryIn: f index: index) == nil] whileFalse: [ - #badDirectoryPath == entryArray ifTrue: [ - ^(InvalidDirectoryError pathName: pathName) signal]. - index := index + 1. - aBlock value: (DirectoryEntry fromArray: entryArray directory: self) convertFromSystemName]!

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