Packages October 2019

packages@lists.squeakfoundation.org

1 participants
132 discussions

The Trunk: ShoutTests-ct.32.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

Levente Uzonyi uploaded a new version of ShoutTests to project The Trunk: http://source.squeak.org/trunk/ShoutTests-ct.32.mcz ==================== Summary ==================== Name: ShoutTests-ct.32 Author: ct Time: 2 October 2019, 2:11:16.386339 pm UUID: bfb233d2-c00e-be47-bdee-f59d3a0687e6 Ancestors: ShoutTests-ct.31 Refines and extends #testContextDependentStyling Thanks to Levente! =============== Diff against ShoutTests-ct.31 =============== Item was changed: ----- Method: SHParserST80Test>>testContextDependentStyling (in category 'tests') ----- testContextDependentStyling | context contextSource dependentSource parser ranges types | contextSource := '[:t1| |t2| [:t3| |t4| thisContext copy] value: 7] value: 6'. context := Compiler evaluate: contextSource. + dependentSource := 'foo t1.t2.t3.t4'. - dependentSource := 't1.t2.t3.t4'. parser := SHParserST80 new. + parser parseAMethod: true. ranges := parser rangesIn: dependentSource classOrMetaClass: nil workspace: nil environment: nil context: context. types := ranges collect: #type as: Array. self + assert: #(patternUnary blockArg statementSeparator blockTempVar statementSeparator blockArg statementSeparator blockTempVar) - assert: #(methodArg statementSeparator tempVar statementSeparator methodArg statementSeparator tempVar) equals: types.!

1 0

The Trunk: ShoutTests-ct.31.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

Levente Uzonyi uploaded a new version of ShoutTests to project The Trunk: http://source.squeak.org/trunk/ShoutTests-ct.31.mcz ==================== Summary ==================== Name: ShoutTests-ct.31 Author: ct Time: 28 September 2019, 11:54:07.31477 pm UUID: 2f971ebd-b9c3-6c44-9257-acb9d275aa7c Ancestors: ShoutTests-ul.29 Regression test for bug fixed in ShoutCore-ct.73 =============== Diff against ShoutTests-ul.29 =============== Item was added: + ----- Method: SHParserST80Test>>testContextDependentStyling (in category 'tests') ----- + testContextDependentStyling + + | context contextSource dependentSource parser ranges types | + contextSource := '[:t1| |t2| [:t3| |t4| thisContext copy] value: 7] value: 6'. + context := Compiler evaluate: contextSource. + dependentSource := 't1.t2.t3.t4'. + + parser := SHParserST80 new. + ranges := parser rangesIn: dependentSource classOrMetaClass: nil workspace: nil environment: nil context: context. + types := ranges collect: #type as: Array. + self + assert: #(methodArg statementSeparator tempVar statementSeparator methodArg statementSeparator tempVar) + equals: types.!

1 0

The Trunk: System-ct.1103.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1103.mcz ==================== Summary ==================== Name: System-ct.1103 Author: ct Time: 1 October 2019, 3:21:50.387339 pm UUID: 1db6d7e7-6766-5749-82f2-75d7b94b1c5c Ancestors: System-mt.1102 Update calls to deprecated ChangeSorter methods and clean up a method =============== Diff against System-mt.1102 =============== Item was changed: ----- Method: ChangeSet class>>removeEmptyUnnamedChangeSets (in category 'enumerating') ----- removeEmptyUnnamedChangeSets "Remove all change sets that are empty, whose names start with Unnamed, and which are not nailed down by belonging to a Project." + "ChangeSet removeEmptyUnnamedChangeSets" - "ChangeSorter removeEmptyUnnamedChangeSets" | toGo | + toGo := (self changeSetsNamedSuchThat: [:csName | csName beginsWith: 'Unnamed']) + select: [:cs | cs isEmpty and: [cs okayToRemoveInforming: false]] + thenDo: [:cs | self removeChangeSet: cs]. - (toGo := (self changeSetsNamedSuchThat: [:csName | csName beginsWith: 'Unnamed']) - select: [:cs | cs isEmpty and: [cs okayToRemoveInforming: false]]) - do: [:cs | self removeChangeSet: cs]. self inform: toGo size printString, ' change set(s) removed.'! Item was changed: ----- Method: Utilities class>>initializeCommonRequestStrings (in category 'common requests') ----- initializeCommonRequestStrings "Initialize the common request strings, a directly-editable list of expressions that can be evaluated from the 'do...' menu." CommonRequestStrings := StringHolder new contents: 'Utilities emergencyCollapse. Utilities closeAllDebuggers. RecentMessages default revertMostRecent. - MCFileBasedRepository flushAllCaches - Sensor keyboard. ParagraphEditor abandonChangeText. Cursor normal show. - CommandHistory resetAllHistory. Project allInstancesDo: [:p | p displayDepth: 16]. ScriptingSystem inspectFormDictionary. Form fromUser bitEdit. Display border: (0@0 extent: 640@480) width: 2. - Undeclared inspect. Undeclared removeUnreferencedKeys; inspect. Transcript clear. Utilities grabScreenAndSaveOnDisk. FrameRateMorph new openInHand. - Utilities reconstructTextWindowsFromFileNamed: ''TW''. Utilities storeTextWindowContentsToFileNamed: ''TW''. + ChangeSet removeEmptyUnnamedChangeSets. + ChangesOrganizer reorderChangeSets. - ChangeSorter removeEmptyUnnamedChangeSets. - ChangeSorter reorderChangeSets. - ActiveWorld installVectorVocabulary. ActiveWorld abandonVocabularyPreference.' "Utilities initializeCommonRequestStrings"!

1 0

The Trunk: System-mt.1109.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1109.mcz ==================== Summary ==================== Name: System-mt.1109 Author: mt Time: 2 October 2019, 9:39:24.726936 am UUID: 056452c3-b740-2d44-97be-2083d34cf00b Ancestors: System-mt.1108, System-ct.1103 Merges System-ct.1103 =============== Diff against System-mt.1108 =============== Item was changed: ----- Method: ChangeSet class>>removeEmptyUnnamedChangeSets (in category 'enumerating') ----- removeEmptyUnnamedChangeSets "Remove all change sets that are empty, whose names start with Unnamed, and which are not nailed down by belonging to a Project." + "ChangeSet removeEmptyUnnamedChangeSets" - "ChangeSorter removeEmptyUnnamedChangeSets" | toGo | + toGo := (self changeSetsNamedSuchThat: [:csName | csName beginsWith: 'Unnamed']) + select: [:cs | cs isEmpty and: [cs okayToRemoveInforming: false]] + thenDo: [:cs | self removeChangeSet: cs]. - (toGo := (self changeSetsNamedSuchThat: [:csName | csName beginsWith: 'Unnamed']) - select: [:cs | cs isEmpty and: [cs okayToRemoveInforming: false]]) - do: [:cs | self removeChangeSet: cs]. self inform: toGo size printString, ' change set(s) removed.'! Item was changed: ----- Method: Utilities class>>initializeCommonRequestStrings (in category 'common requests') ----- initializeCommonRequestStrings "Initialize the common request strings, a directly-editable list of expressions that can be evaluated from the 'do...' menu." CommonRequestStrings := StringHolder new contents: 'Utilities emergencyCollapse. Utilities closeAllDebuggers. RecentMessages default revertMostRecent. - MCFileBasedRepository flushAllCaches - Sensor keyboard. ParagraphEditor abandonChangeText. Cursor normal show. - CommandHistory resetAllHistory. Project allInstancesDo: [:p | p displayDepth: 16]. ScriptingSystem inspectFormDictionary. Form fromUser bitEdit. Display border: (0@0 extent: 640@480) width: 2. - Undeclared inspect. Undeclared removeUnreferencedKeys; inspect. Transcript clear. Utilities grabScreenAndSaveOnDisk. FrameRateMorph new openInHand. - Utilities reconstructTextWindowsFromFileNamed: ''TW''. Utilities storeTextWindowContentsToFileNamed: ''TW''. + ChangeSet removeEmptyUnnamedChangeSets. + ChangesOrganizer reorderChangeSets. - ChangeSorter removeEmptyUnnamedChangeSets. - ChangeSorter reorderChangeSets. - ActiveWorld installVectorVocabulary. ActiveWorld abandonVocabularyPreference.' "Utilities initializeCommonRequestStrings"!

1 0

The Trunk: Tests-ct.419.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ct.419.mcz ==================== Summary ==================== Name: Tests-ct.419 Author: ct Time: 1 October 2019, 4:28:42.992339 pm UUID: 63e06a89-0e97-2148-9c0c-79494748ca43 Ancestors: Tests-ul.418 Add regression test for a bug in SystemNavigation>>#allImplementorsOf:localTo: (a fix is coming soon) =============== Diff against Tests-ul.418 =============== Item was added: + ----- Method: SystemNavigationTest>>testAllImplementorsOfLocalTo (in category 'tests') ----- + testAllImplementorsOfLocalTo + | result | + result := sysNav allImplementorsOf: #yourself localTo: Morph. + self assert: [result size = 1]. + self assert: [result includes: (MethodReference class: Object selector: #yourself)].!

1 0

The Trunk: System-ct.1107.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1107.mcz ==================== Summary ==================== Name: System-ct.1107 Author: ct Time: 1 October 2019, 4:30:20.065339 pm UUID: de49d2b3-27eb-6d48-8afa-2a93b8b0ed51 Ancestors: System-mt.1102 Fixes bug in #allImplementorsOf:localTo: concerning duplicates, revealed in Tests-ct.419 == text below is ignored === Ancestors: System-mt.1102 System-mt.1102: Adds a simple, yet convenient, way to scale icons for demo/hi-dpi mode. A no-scale takes about 150 nanoseconds on my machine, which should be okay --- performance-wise --- for existing tools. Maybe we can improve the code a little bit more for the default scale. Note that one could also use icons with s higher resolution, which would then be down-scaled to the reference extent... A ChangeSet class>>removeEmptyChangeSets M ChangeSet class>>removeEmptyUnnamedChangeSets M MethodReference M Preferences class>>changeFontSize: M Preferences class>>setDefaultFonts: M Preferences class>>useFormsInPaintBox A Project>>interruptSystem: M Project>>previewImageForm D Project>>setViewSize: A Project>>transcript A Project>>userDelete A Project>>viewSize: M SmalltalkImage>>handleUserInterrupt M SystemNavigation>>allImplementorsOf:localTo: A ToolSet class>>browseMethod: M Utilities class>>initializeCommonRequestStrings =============== Diff against System-mt.1102 =============== Item was changed: ----- Method: SystemNavigation>>allImplementorsOf:localTo: (in category 'query') ----- allImplementorsOf: aSelector localTo: aClass "Answer a sorted collection of all the methods that are named aSelector in, above, or below the given class." | result | + result := Set new. - result := OrderedCollection new. { aClass theNonMetaClass. aClass theMetaClass } do: [ :baseClass | baseClass withAllSuperAndSubclassesDoGently: [ :class | (class includesSelector: aSelector) ifTrue: [ result add: (MethodReference class: class selector: aSelector) ] ] ]. + ^result sorted! - ^result sort!

1 0

The Trunk: System-mt.1108.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1108.mcz ==================== Summary ==================== Name: System-mt.1108 Author: mt Time: 2 October 2019, 9:32:00.730936 am UUID: 39de5334-f54e-4440-a28b-06efad556bb6 Ancestors: System-ct.1107 Fixes and revises System-ct.1107. =============== Diff against System-mt.1102 =============== Item was changed: ----- Method: SystemNavigation>>allImplementorsOf:localTo: (in category 'query') ----- allImplementorsOf: aSelector localTo: aClass "Answer a sorted collection of all the methods that are named aSelector in, above, or below the given class." | result | result := OrderedCollection new. + aClass theNonMetaClass withAllSuperAndSubclassesDoGently: [:class | + (class includesSelector: aSelector) ifTrue: [ + result add: (MethodReference class: class selector: aSelector) ]. + (class class includesSelector: aSelector) ifTrue: [ + result add: (MethodReference class: class class selector: aSelector) ] ]. - { aClass theNonMetaClass. aClass theMetaClass } do: [ :baseClass | - baseClass withAllSuperAndSubclassesDoGently: [ :class | - (class includesSelector: aSelector) ifTrue: [ - result add: (MethodReference class: class selector: aSelector) ] ] ]. ^result sort!

1 0

The Trunk: Kernel-nice.1270.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1270.mcz ==================== Summary ==================== Name: Kernel-nice.1270 Author: nice Time: 1 October 2019, 9:22:39.460936 pm UUID: 05ae7bbb-2517-4c6e-a9c0-db89b42742e5 Ancestors: Kernel-mt.1269 In SmallFloat64>>#truncated fallback, don't bother with Infinities and NaN, since all SmallFloat64 are finite, nor with Float fractionPart, since all non-integer Float value fits in SmallInteger in a 64bits image, and thus are already handled by the primitive. It's legitimate to inject such implementation specific knowledge into this implementation specific class. Also revise BoxedFloat64>>#truncated, mostly with comments. Dividing by SmallInteger maxVal + 1 / 2 would lead to an infinite loop in a 64bits image, fortunately this branch is unreachable then. Each time I read it, I have the shadow of a doubt ;) =============== Diff against Kernel-mt.1269 =============== Item was changed: ----- Method: BoxedFloat64>>truncated (in category 'truncation and round off') ----- truncated "Answer with a SmallInteger equal to the value of the receiver without its fractional part. The primitive fails if the truncated value cannot be represented as a SmallInteger. In that case, the code below will compute a LargeInteger truncated value. Essential. See Object documentation whatIsAPrimitive. " <primitive: 51> self isFinite ifFalse: [self error: 'Cannot truncate this number']. + self abs < 4.503599627370496e15 + "Float maxExactInteger/2 = (1.0 timesTwoPower: Float precision - 1)" + "Every Float bigger than or equal to that has ulp >= 1, thus no fractionPart" - - self abs < 2.0e16 ifTrue: ["Fastest way when it may not be an integer" + "This branch is unreachable in 64 bits image" | di df q r | di := 1 + (SmallInteger maxVal bitShift: -1). df := di asFloat. q := self quo: df. r := self - (q asFloat * df). ^q * di + r truncated] + ifFalse: [^ self asTrueFraction. "Extract all bits of the significand and shift if necessary"] - ifFalse: [^ self asTrueFraction. "Extract all bits of the mantissa and shift if necess"] ! Item was changed: ----- Method: SmallFloat64>>truncated (in category 'truncation and round off') ----- truncated "Answer with a SmallInteger equal to the value of the receiver without its fractional part. The primitive fails if the truncated value cannot be represented as a SmallInteger. In that case, the code below will compute a LargeInteger truncated value. Essential. See Object documentation whatIsAPrimitive. " <primitive: 551> + "Since SmallInteger maxVal highBit >= Float precision, in 64bits image/VM, + every Float with ulp < 1 - that is which may have a fractionPart - fits in a SmallInteger. + Thus only care of Float with ulp >= 1 which have Integer value." + ^ self asTrueFraction - self isFinite ifFalse: [self error: 'Cannot truncate this number']. - - self abs < 2.0e16 - ifTrue: ["Fastest way when it may not be an integer" - | di df q r | - di := 1 + (SmallInteger maxVal bitShift: -1). - df := di asFloat. - q := self quo: df. - r := self - (q asFloat * df). - ^q * di + r truncated] - ifFalse: [^ self asTrueFraction. "Extract all bits of the mantissa and shift if necess"] - !

1 0

The Trunk: Tools-mt.897.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.897.mcz ==================== Summary ==================== Name: Tools-mt.897 Author: mt Time: 1 October 2019, 3:31:51.626118 pm UUID: 8929b94e-60de-a34e-b620-554025bf28e3 Ancestors: Tools-mt.896 Fixes another tool-update bug. =============== Diff against Tools-mt.896 =============== Item was changed: ----- Method: Browser>>compileMessage:notifying: (in category 'code pane') ----- compileMessage: aText notifying: aController "Compile the code that was accepted by the user, placing the compiled method into an appropriate message category. Return true if the compilation succeeded, else false." | fallBackCategoryName originalSelectorName result fallBackMethodName | self selectedMessageCategoryName = ClassOrganizer allCategory ifTrue: [ "User tried to save a method while the ALL category was selected" fallBackCategoryName := selectedMessageCategoryName. fallBackMethodName := selectedMessageName. editSelection == #newMessage ifTrue: [ "Select the 'as yet unclassified' category" selectedMessageCategoryName := nil. (result := self defineMessageFrom: aText notifying: aController) ifNil: ["Compilation failure: reselect the original category & method" selectedMessageCategoryName := fallBackCategoryName. selectedMessageName := fallBackMethodName] ifNotNil: [self setSelector: result]] ifFalse: [originalSelectorName := self selectedMessageName. self setOriginalCategoryIndexForCurrentMethod. selectedMessageName := fallBackMethodName := originalSelectorName. (result := self defineMessageFrom: aText notifying: aController) ifNotNil: [self setSelector: result] ifNil: [ "Compilation failure: reselect the original category & method" selectedMessageCategoryName := fallBackCategoryName. selectedMessageName := fallBackMethodName. ^ result notNil]]. self changed: #messageCategoryList. + self changed: #messageList. ^ result notNil] ifFalse: [ "User tried to save a method while the ALL category was NOT selected" ^ (self defineMessageFrom: aText notifying: aController) notNil]! Item was changed: ----- Method: Browser>>defineMessageFrom:notifying: (in category 'message functions') ----- defineMessageFrom: aString notifying: aController "Compile the expressions in aString. Notify aController if a syntax error occurs. Install the compiled method in the selected class classified under the currently selected message category name. Answer the selector obtained if compilation succeeds, nil otherwise." | selectedMessageName selector category oldMessageList selectedClassOrMetaClass | selectedMessageName := self selectedMessageName. oldMessageList := self messageList. selectedClassOrMetaClass := self selectedClassOrMetaClass. contents := nil. selector := (selectedClassOrMetaClass newParser parseSelector: aString). (self metaClassIndicated and: [(selectedClassOrMetaClass includesSelector: selector) not and: [Metaclass isScarySelector: selector]]) ifTrue: ["A frist-time definition overlaps the protocol of Metaclasses" (self confirm: ((selector , ' is used in the existing class system. Overriding it could cause serious problems. Is this really what you want to do?') asText makeBoldFrom: 1 to: selector size)) ifFalse: [^nil]]. category := selectedMessageName ifNil: [ self selectedMessageCategoryName ] ifNotNil: [ (selectedClassOrMetaClass >> selectedMessageName) methodReference ifNotNil: [ : ref | ref category ]]. selector := selectedClassOrMetaClass compile: aString classified: category notifying: aController. selector == nil ifTrue: [^ nil]. contents := aString copy. + self changed: #messageList. "Because we have code-dependent list formatting by now such as #isDeprecated." selector ~~ selectedMessageName ifTrue: [category = ClassOrganizer nullCategory ifTrue: [self changed: #classSelectionChanged. self changed: #classList. self messageCategoryListIndex: 1]. self setClassOrganizer. "In case organization not cached" (oldMessageList includes: selector) ifFalse: [self changed: #messageList]. self messageListIndex: (self messageList indexOf: selector)]. ^ selector!

1 0

The Trunk: MorphicExtras-ul.266.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

Levente Uzonyi uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ul.266.mcz ==================== Summary ==================== Name: MorphicExtras-ul.266 Author: ul Time: 1 October 2019, 12:52:37.116899 pm UUID: 8e1fa37a-7f02-4792-b0c0-fe14c74b2400 Ancestors: MorphicExtras-mt.265 - use #ofSize: instead of #new:withAll: to create OrderedCollections with a predefined size filled up with nils =============== Diff against MorphicExtras-mt.265 =============== Item was changed: ----- Method: ScrollingToolHolder>>buildAPrototypeFor: (in category 'initialize-release') ----- buildAPrototypeFor: aPaintBoxMorph pickupButtons := (aPaintBoxMorph submorphNamed: 'stamps') submorphs select: [:e | e externalName = 'pickup:']. stampButtons := (aPaintBoxMorph submorphNamed: 'stamps') submorphs select: [:e | e externalName = 'stamp:']. + stamps := OrderedCollection ofSize: 3. + thumbnailPics := OrderedCollection ofSize: 3. - stamps := OrderedCollection new: 3 withAll: nil. - thumbnailPics := OrderedCollection new: 3 withAll: nil. start := 3.!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2019