Squeak-dev August 2015

squeak-dev@lists.squeakfoundation.org

50 participants
218 discussions

The Trunk: Services-Base-mt.57.mcz
by commits＠source.squeak.org 27 Aug '15

27 Aug '15

Marcel Taeumel uploaded a new version of Services-Base to project The Trunk: http://source.squeak.org/trunk/Services-Base-mt.57.mcz ==================== Summary ==================== Name: Services-Base-mt.57 Author: mt Time: 27 August 2015, 10:54:56.806 am UUID: 6ba0b05d-5eb6-4244-9fbd-8595dacbc6aa Ancestors: Services-Base-eem.56 Some adjustments for cleaned-up preferences interface. =============== Diff against Services-Base-eem.56 =============== Item was removed: - ----- Method: ServicePreferences class>>compileAccessMethodForPreference: (in category 'accessing') ----- - compileAccessMethodForPreference: aPreference - "do nothing"! Item was added: + ----- Method: ServicePreferences class>>compileAccessorForPreference: (in category 'accessing') ----- + compileAccessorForPreference: aPreference + "do nothing"!

1 0

The Trunk: Tests-mt.328.mcz
by commits＠source.squeak.org 27 Aug '15

27 Aug '15

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-mt.328.mcz ==================== Summary ==================== Name: Tests-mt.328 Author: mt Time: 27 August 2015, 10:54:02.079 am UUID: 2b490fe8-250d-2e48-84c2-41d50b1ae410 Ancestors: Tests-eem.327 New tests for preferences. =============== Diff against Tests-eem.327 =============== Item was changed: SystemOrganization addCategory: #'Tests-Bugs'! SystemOrganization addCategory: #'Tests-Compiler'! SystemOrganization addCategory: #'Tests-Dependencies'! SystemOrganization addCategory: #'Tests-Digital Signatures'! SystemOrganization addCategory: #'Tests-Environments'! SystemOrganization addCategory: #'Tests-Exceptions'! SystemOrganization addCategory: #'Tests-FilePackage'! SystemOrganization addCategory: #'Tests-Files'! SystemOrganization addCategory: #'Tests-Finalization'! SystemOrganization addCategory: #'Tests-Hex'! SystemOrganization addCategory: #'Tests-Installer-Core'! SystemOrganization addCategory: #'Tests-Localization'! SystemOrganization addCategory: #'Tests-Monticello'! SystemOrganization addCategory: #'Tests-Monticello-Mocks'! SystemOrganization addCategory: #'Tests-Monticello-Utils'! SystemOrganization addCategory: #'Tests-Object Events'! SystemOrganization addCategory: #'Tests-ObjectsAsMethods'! SystemOrganization addCategory: #'Tests-PrimCallController'! SystemOrganization addCategory: #'Tests-Release'! SystemOrganization addCategory: #'Tests-System-Object Storage'! SystemOrganization addCategory: #'Tests-System-Support'! SystemOrganization addCategory: #'Tests-Utilities'! SystemOrganization addCategory: #'Tests-VM'! SystemOrganization addCategory: #'Tests-System-Digital Signatures'! + SystemOrganization addCategory: #'Tests-System-Preferences'! Item was added: + TestCase subclass: #PreferencesTest + instanceVariableNames: 'sut' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-System-Preferences'! Item was added: + ----- Method: PreferencesTest>>setUp (in category 'running') ----- + setUp + + super setUp. + sut := PreferencesTestPreferences.! Item was added: + ----- Method: PreferencesTest>>tearDown (in category 'running') ----- + tearDown + + sut allPreferences do: [:pref | sut removePreference: pref id]. + sut class organization removeEmptyCategories. + + super tearDown.! Item was added: + ----- Method: PreferencesTest>>test01Empty (in category 'tests') ----- + test01Empty + + self assert: sut dictionaryOfPreferences isEmpty.! Item was added: + ----- Method: PreferencesTest>>test02AddSetRemovePreference (in category 'tests') ----- + test02AddSetRemovePreference + + self assert: (sut valueOfPreference: #foo ifAbsent: []) isNil. + self assert: (sut respondsTo: #foo) not. "auto-generated accessor" + + sut addPreference: #foo category: #bar default: false. + self assert: (sut valueOfPreference: #foo ifAbsent: []) = false. + self assert: (sut perform: #foo) = false. + + sut setPreference: #foo toValue: true. + self assert: (sut valueOfPreference: #foo ifAbsent: []) = true. + self assert: (sut perform: #foo) = true. + + sut removePreference: #foo. + self assert: (sut valueOfPreference: #foo ifAbsent: []) isNil. + self assert: (sut respondsTo: #foo) not.! Item was added: + ----- Method: PreferencesTest>>test03Type (in category 'tests') ----- + test03Type + + sut addPreference: #foo default: true. + self assert: (sut preferenceAt: #foo) type == #Boolean. + + sut addPreference: #foo default: 123. + self assert: (sut preferenceAt: #foo) type == #Number. + + sut addPreference: #foo default: 'Hello, World'. + self assert: (sut preferenceAt: #foo) type == #String. + + sut addPreference: #foo default: Color red. + self assert: (sut preferenceAt: #foo) type == #Color. + + sut addPreference: #foo default: 1@5. + self assert: (sut preferenceAt: #foo) type == #Object. + ! Item was added: + ----- Method: PreferencesTest>>test04TypeNoUpdate (in category 'tests') ----- + test04TypeNoUpdate + + sut addPreference: #foo default: true. + sut setPreference: #foo toValue: 123. + + self assert: (sut preferenceAt: #foo) type == #Boolean.! Item was added: + ----- Method: PreferencesTest>>test05AutoAdd (in category 'tests') ----- + test05AutoAdd + + | pref | + self assert: (sut valueOfPreference: #foo ifAbsent: []) isNil. + pref := sut setPreference: #foo toValue: 123. + + self assert: pref preferenceValue = 123.! Item was added: + ----- Method: PreferencesTest>>test06Flags (in category 'tests') ----- + test06Flags + "Flags are boolean preferences." + + self assert: (sut valueOfFlag: #isHappy) == false. "Not known but false for default." + + sut setFlag: #isHappy toValue: true. + self assert: (sut valueOfFlag: #isHappy) == true. + self assert: (sut perform: #isHappy) == true. + + sut disable: #useIt. + self assert: (sut valueOfFlag: #useIt) == false. + self assert: (sut perform: #useIt) == false. + + sut enable: #useIt. + self assert: (sut valueOfFlag: #useIt) == true. + self assert: (sut perform: #useIt) == true. + + sut toggle: #useIt. + self assert: (sut valueOfFlag: #useIt) == false. ! Item was added: + ----- Method: PreferencesTest>>test07UnknownPreference (in category 'tests') ----- + test07UnknownPreference + + self assert: (sut valueOfPreference: #notKnown) isNil. + self assert: (sut valueOfPreference: #notKnown ifAbsent: [#default]) = #default.! Item was added: + ----- Method: PreferencesTest>>test08DNUFallback (in category 'tests') ----- + test08DNUFallback + + sut setPreference: #foo toValue: 123. + sut class removeSelectorSilently: #foo. + + self assert: (sut perform: #foo) = 123. + self assert: (sut perform: #unknownSelector) isNil.! Item was added: + ----- Method: PreferencesTest>>test09AddSetRemovePragmaPreference (in category 'tests') ----- + test09AddSetRemovePragmaPreference + + | id pref | + id := PreferencesTestExample name, '>>', #textPref. + pref := sut addPragmaPreference: (PreferencesTestExample class >> #textPref) pragmas first. + + self assert: id equals: pref id. + self assert: (sut preferenceAt: pref id) == pref. + + "Reset the preference explicitely." + PreferencesTestExample textPref: ''. + self assert: '' equals: PreferencesTestExample textPref. + + sut setPreference: pref id toValue: 'foo'. + self assert: 'foo' equals: (sut valueOfPreference: pref id). + self assert: 'foo' equals: PreferencesTestExample textPref. + + sut removePreference: pref id. + self assert: (sut preferenceAt: pref id ifAbsent: []) isNil.! Item was added: + ----- Method: PreferencesTest>>test10Unclassified (in category 'tests') ----- + test10Unclassified + + | pref | + pref := sut addPreference: #foobar default: 123. + self assert: sut unclassifiedCategory equals: pref categoryList first.! Item was added: + ----- Method: PreferencesTest>>test11CategoryList (in category 'tests') ----- + test11CategoryList + + sut addPreference: #foo category: #blubb default: 123. + self assert: #(blubb) equals: (sut categoryListOfPreference: #foo). ! Item was added: + ----- Method: PreferencesTest>>test12HardCodedPreference (in category 'tests') ----- + test12HardCodedPreference + + self assert: (sut respondsTo: #someStaticFoo) not. + sut compileAccessorForPreferenceNamed: #someStaticFoo value: 42. + self assert: 42 equals: (sut perform: #someStaticFoo). + self assert: (sut valueOfPreference: #someStaticFoo ifAbsent: []) isNil. + + "Hard-coded preferences have their value only in the source code. We must leave them in the same package." + self deny: ((sut class organization categoryOfElement: #someStaticFoo) beginsWith: '*'). + + sut class removeSelectorSilently: #someStaticFoo.! Item was added: + Object subclass: #PreferencesTestExample + instanceVariableNames: '' + classVariableNames: 'BooleanPref ColorPref NumericPref TextPref' + poolDictionaries: '' + category: 'Tests-System-Preferences'! + + !PreferencesTestExample commentStamp: 'ar 3/3/2009 22:40' prior: 0! + This class provides an example for how to use preference pragmas.! Item was added: + ----- Method: PreferencesTestExample class>>booleanPref (in category 'preferences') ----- + booleanPref + <preference: 'Boolean Preference Example' + category: 'Examples' + description: 'A simple example for a boolean preference (see PreferenceExample>>booleanPref)' + type: #Boolean> + ^BooleanPref! Item was added: + ----- Method: PreferencesTestExample class>>booleanPref: (in category 'preferences') ----- + booleanPref: aBool + BooleanPref := aBool. + self inform: 'The new preference value is: ', aBool asString.! Item was added: + ----- Method: PreferencesTestExample class>>colorPref (in category 'preferences') ----- + colorPref + <preference: 'Color Preference Example' + category: 'Examples' + description: 'A simple example for a color preference (see PreferenceExample>>colorPref)' + type: #Color> + ^ColorPref! Item was added: + ----- Method: PreferencesTestExample class>>colorPref: (in category 'preferences') ----- + colorPref: aColor + ColorPref := aColor. + self inform: 'The new preference value is: ', aColor asString.! Item was added: + ----- Method: PreferencesTestExample class>>initialize (in category 'preferences') ----- + initialize "PreferenceExample initialize" + "Initialize the default values and register preferences" + TextPref := 'Hello World'. + NumericPref := 1234. + BooleanPref := true. + ColorPref := Color green.! Item was added: + ----- Method: PreferencesTestExample class>>numericPref (in category 'preferences') ----- + numericPref + <preference: 'Numeric Preference Example' + category: 'Examples' + description: 'A simple example for a numeric preference (see PreferenceExample>>numericPref)' + type: #Number> + ^NumericPref! Item was added: + ----- Method: PreferencesTestExample class>>numericPref: (in category 'preferences') ----- + numericPref: aNumber + NumericPref := aNumber. + self inform: 'The new preference value is: ', aNumber asString.! Item was added: + ----- Method: PreferencesTestExample class>>textPref (in category 'preferences') ----- + textPref + <preference: 'Textual Preference Example' + category: 'Examples' + description: 'A simple example for a textual preference (see PreferenceExample>>textPref)' + type: #String> + ^TextPref! Item was added: + ----- Method: PreferencesTestExample class>>textPref: (in category 'preferences') ----- + textPref: aString + TextPref := aString.! Item was added: + Preferences subclass: #PreferencesTestPreferences + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-System-Preferences'!

1 0

[OT][ANN] Some new music composed in muO
by Stéphane Rollandin 27 Aug '15

27 Aug '15

Hello, Hopefully it is not inappropriate for me to announce here three new music pieces entirely composed in Squeak with muO, synthesized on-the-fly via Squeak MIDI output by VST plug-ins hosted in Cantabile, all from these last weeks: http://www.zogotounga.net/zik/Suspension%20of%20Belief.ogg http://www.zogotounga.net/zik/Busy%20Claude%20is%20late%20again.ogg http://www.zogotounga.net/zik/Flying%20Bugs.ogg Stef

3 2

Daily Commit Log
by commits＠source.squeak.org 26 Aug '15

26 Aug '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-August/008905.html Name: Kernel-ul.946 Ancestors: Kernel-mt.945 Set literal limit to 32767. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008906.html Name: Kernel-eem.947 Ancestors: Kernel-ul.946 Provide an accessor for Compiledmethod's max num literals. Recategorize the frame size accessors under accessing to join it. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008907.html Name: Compiler-eem.307 Ancestors: Compiler-ul.306 Make the literal limit in the compiler a funciton of both the bytecode set and CompiledMethod's implementation limit. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008908.html Name: Tests-eem.327 Ancestors: Tests-ul.326 Revise the maxLiterals test given the bytecode set specific facilities in Encoder and CompiledMethod. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008909.html Name: Kernel-eem.948 Ancestors: Kernel-eem.947 Implement Ephemeron class creation, e.g. Association ephemeronSubclass: #Ephemeron instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Collections-Weak' =============================================

1 0

Missing menu entry to inspect instance class
by karl ramberg 26 Aug '15

26 Aug '15

Hi, There is no menu item to inspect or explore the class of the inspected instance. Many constants hide in class variables and are harder to get to when there are no menu short cuts. Karl

2 2

Problems downloading
by karl ramberg 26 Aug '15

26 Aug '15

http://ftp.squeak.org/5.0/Squeak5.0-15113.zip Download fails at 3.6MB :-( Is it just me or a general error? Karl

2 1

Menus in the PointerFinder are broken
by Eliot Miranda 26 Aug '15

26 Aug '15

Hi Tobias, the new menu scheme (as of March this year?) isn't working for PointerFinder. Only StringHolder understands #menu:for:shifted: but it is sent from PointerFinder>>menu:shifted: and PointerFinder inherits from Model. _,,,^..^,,,_ best, Eliot

2 1

SqueakSSL + SAN certificates
by Levente Uzonyi 26 Aug '15

26 Aug '15

Hi All, I've implemented support for reading the domain names from the certificate's SAN extension[1] in SqueakSSL. The image side code is in the Inbox[2]. It is backwards compatible -- everything works as before without the VM changes. I've also uploaded the modified files[3][4] for the unix platform, and a diff[5] (which somehow doesn't include the changes of the .h file). The VM support code for other platforms are to be done. These changes fix the failing SqueakSSL test in the Trunk, so I suggest including the .mcz file in the 4.6 release. Levente [1] https://en.wikipedia.org/wiki/SubjectAltName [2] http://lists.squeakfoundation.org/pipermail/squeak-dev/2015-May/184581.html [3] http://leves.web.elte.hu/squeak/SqueakSSL/SqueakSSL.h [4] http://leves.web.elte.hu/squeak/SqueakSSL/sqUnixOpenSSL.c [5] http://leves.web.elte.hu/squeak/SqueakSSL/diff.txt

3 11

The Trunk: Kernel-eem.948.mcz
by commits＠source.squeak.org 26 Aug '15

26 Aug '15

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.948.mcz ==================== Summary ==================== Name: Kernel-eem.948 Author: eem Time: 25 August 2015, 4:45:37.484 pm UUID: 45d1146b-9349-4519-9108-af1e414c58dc Ancestors: Kernel-eem.947 Implement Ephemeron class creation, e.g. Association ephemeronSubclass: #Ephemeron instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Collections-Weak' =============== Diff against Kernel-eem.947 =============== Item was added: + ----- Method: Class>>ephemeronSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category 'subclass creation') ----- + ephemeronSubclass: t instanceVariableNames: f classVariableNames: d poolDictionaries: s category: cat + "This is the standard initialization message for creating a new class as a + subclass of an existing class (the receiver) in which the subclass is to + have ephemeron semantics, i.e. where the object will be queued for + finalization when the key (first) inst var is not reachable other than through + the other fields of ephemerons with unreachable keys." + ^ClassBuilder new + superclass: self + ephemeronSubclass: t + instanceVariableNames: f + classVariableNames: d + poolDictionaries: s + category: cat! Item was added: + ----- Method: ClassBuilder>>superclass:ephemeronSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category 'public') ----- + superclass: aClass + ephemeronSubclass: t instanceVariableNames: f + classVariableNames: d poolDictionaries: s category: cat + "This is the standard initialization message for creating a new class as a + subclass of an existing class (the receiver) in which the subclass is to + have ephemeron semantics, i.e. where the object will be queued for + finalization when the key (first) inst var is not reachable other than through + the other fields of ephemerons with unreachable keys." + | env | + aClass isPointers ifFalse: + [^self error: 'cannot make a pointer subclass of a class with non-pointer fields']. + aClass instSize + (f subStrings: ' \' withCRs) size < 2 ifTrue: + [^self error: 'cannot make an ephemeron class with less than two named instance varaibles']. + env := CurrentEnvironment signal ifNil: [aClass environment]. + ^self + name: t + inEnvironment: env + subclassOf: aClass + type: #ephemeron + instanceVariableNames: f + classVariableNames: d + poolDictionaries: s + category: cat!

1 0

Daily Commit Log
by commits＠source.squeak.org 26 Aug '15

26 Aug '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-August/008871.html Name: Tests-ul.325 Ancestors: Tests-topa.324 Increased maxLiterals in CompilerTest's #testMaxLiterals and #testMaxLiteralsWithClassReferenceInClosure to make them pass again. In theory Spur supports literals up to 65535, but I think the compiler will have to be changed to be able to use that many. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008872.html Name: Tests-ul.326 Ancestors: Tests-ul.325 PointTest's #testNormal and #testTheta seem to get decompiled correctly. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008873.html Name: Collections-ul.644 Ancestors: Collections-ul.643 Extracted and enhanced Bitset from WideCharacterSet. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008874.html Name: CollectionsTests-ul.247 Ancestors: CollectionsTests-ul.246 Added BitSetTest. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008875.html Name: Collections-ul.645 Ancestors: Collections-ul.644 Use the extracted Bitset in WideCharacterSet: - decreased chunk size from 65536 to 256. This should give a purpose to use a dictionary instread of an array for map, because its size will have a chance to be larger than 64. - byteArrayMap is always initialized, so there's no need to use the method to reference it, nor to check if it's initialized - moved #remove: behavior to #remove:ifAbsent:, just like it's done by most collections. Kept the existing behavior of #remove: to not signal an error when the character is not in the collection. - use #atAllPut: to clear the byteArrayMap in #removeAll, because it should be faster than allocating a new instance - improved #size's performance - migrate instances on-the-fly - migrate any unmigrated instaces during the postscript - removed the unused methods ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008876.html Name: Collections-ul.646 Ancestors: Collections-ul.645 - removed migration code from WideCharacterSet ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008877.html Name: Tools-eem.631 Ancestors: Tools-ul.630 Remove the become[Un]Compact messages from MethodFinder as these are going away. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008878.html Name: System-eem.758 Ancestors: System-ul.757 Reimplement the post-load enumeration of loaded objects to use the revised primitive available in the VMMaker.oscog-eem.1441 /3427 VMs that becomes the loaded segment into an Array of the loaded objects. Hence endMarker disappears and allObjectsDo: is trivially implemented as do: sent to the segment. This change requires users to upgrade their VMs but as the alternative is crashes in ImageSegment loads this is acceptable. AFAIA this fixes ImageSegments in Spur but they clearly need pounding on. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008879.html Name: SMBase-eem.134 Ancestors: SMBase-bf.133 Reimplement the post-load enumeration of loaded objects to use the revised primitive available in the VMMaker.oscog-eem.1441 /3427 VMs that becomes the loaded segment into an Array of the loaded objects. Hence endMarker disappears and allObjectsDo: is trivially implemented as do: sent to the segment. This change requires users to upgrade their VMs but as the alternative is crashes in ImageSegment loads this is acceptable. AFAIA this fixes ImageSegments in Spur but they clearly need pounding on. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008880.html Name: KernelTests-eem.297 Ancestors: KernelTests-ul.296 Remove the compact class index tests from LargeNegativeInteger as the compact class code is going away. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008881.html Name: Kernel-eem.944 Ancestors: Kernel-ul.943 Nuke the compact class support in Kernel and the ClassBuilder. Spur has a regular 64-bit object header format with no special cases. Fix CompiledMethod>>at:ifAbsent: to work with the initialPC to endPC range and run the ifAbsent: block for indices outside this range. Categorize isCompiledMethodClass correctly. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008882.html Name: Collections-ul.647 Ancestors: Collections-ul.646 - in Spur we can speed up Character >> #sameAs: by using #== ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008883.html Name: Regex-Core-ul.40 Ancestors: Regex-Core-ul.39 RxsPredicate: - added \t \n escapes for tab and lf - unified all single character predicates as #beCharacter: - postscript reinitializes the dictionary RxMatchOptimizer: - removed lookarounds, because they were never used, just collected - all collections get initialized lazily - CharacterSet are used for storing characters - IdentitySets are used where unique objects are stored (e.g. symbols) - use #== and #~~ for character comparison (Spur-specific change) RxMatcher: - reuse previous markerPositions - use String >> #new:streamContents: where possible - use #== and #~~ for character comparison (Spur-specific change) - quick returns in #tryMatch General: - renamed RxmLookahaed to RxmLookahead - in RxmPredicate >> #matchAgainst: use the fact that aMatcher is providing a ReadStream of characters, so nil means end of stream - reimplemented RxmSubstring ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008884.html Name: Regex-Tests-Core-ul.1 Ancestors: - tests from Pharo =============================================

4 5

← Newer
1
...
5
6
7
8
9
10
11
...
22
Older →

Jump to page: