Squeak-dev June 2018

squeak-dev@lists.squeakfoundation.org

45 participants
152 discussions

The Trunk: Morphic-cbc.1452.mcz
by commits＠source.squeak.org 14 Jun '18

14 Jun '18

Chris Cunningham uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cbc.1452.mcz ==================== Summary ==================== Name: Morphic-cbc.1452 Author: cbc Time: 13 June 2018, 7:45:19.342537 pm UUID: 16e46d7e-75d2-9047-a872-6f069d65920f Ancestors: Morphic-cbc.1451 Recategorized #referencePositionInWorld (and setter) to be with related methods. Fixed #adjustAfter: to once again allow halo rotation of morphs to actually rotate around the rotationCenter (instead of center of the morph). =============== Diff against Morphic-cbc.1451 =============== Item was added: + ----- Method: Morph>>referencePositionInWorld (in category 'rotate scale and flex') ----- + referencePositionInWorld + + ^ self pointInWorld: self referencePosition + ! Item was added: + ----- Method: Morph>>referencePositionInWorld: (in category 'rotate scale and flex') ----- + referencePositionInWorld: aPoint + | localPosition | + localPosition := owner + ifNil: [aPoint] + ifNotNil: [(owner transformFrom: self world) globalPointToLocal: aPoint]. + + self referencePosition: localPosition + ! Item was changed: ----- Method: TransformationMorph>>adjustAfter: (in category 'private') ----- adjustAfter: changeBlock "Cause this morph to remain cetered where it was before, and choose appropriate smoothing, after a change of scale or rotation." | oldRefPos | oldRefPos := self referencePosition. changeBlock value. self chooseSmoothing. + self penUpWhile: [self position: self position + (oldRefPos - self referencePosition)]. - self actorStateOrNil ifNotNil:[ - self penUpWhile: [self position: self position + (oldRefPos - self referencePosition)]. - ]. self layoutChanged. owner ifNotNil: [owner invalidRect: bounds] !

1 0

Smalltalk Express ?
by tim Rowledge 13 Jun '18

13 Jun '18

Not seen this before; it caught my eye on G+ for reasons Eliot will immediately notice :-) Looks like a very basic implementation but interesting. https://store.smalltalk.express and plain 'smalltalk.express' gets an in-browser demo tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim The hardness of the butter is proportional to the softness of the bread.

3 3

CfP: 3rd Workshop on Meta-Programming Techniques and Reflection (Meta’18), Co-located with SPLASH 2018
by Guido Chari 13 Jun '18

13 Jun '18

======================================================================== Call for Papers 3rd Workshop on Meta-Programming Techniques and Reflection (Meta’18) Co-located with SPLASH 2018 November 6, 2018, Boston, USA https://2018.splashcon.org/track/meta-2018 Follow us on twitter @MetaAtSPLASH ======================================================================== The Meta’18 workshop aims to bring together researchers working on metaprogramming and reflection, as well as users building applications, language extensions, or software tools using them. The changing hardware and software landscape, and the increased heterogeneity of systems make metaprogramming once more an important research topic to handle the associate complexity. The challenges which metaprogramming faces are manifold. They start with typing of reflective programs, continue with performance and tooling, and reach into the empirical field to understand how metaprogramming is used and how it affects software maintainability. While industry accepted metaprogramming on a wide scale with Ruby, Scala, JavaScript and others, academia still needs to bring it to the same level of convenience, tooling, and understanding as for direct programming styles. Contributions to the workshop are welcome on a wide range of topics related to the design, implementation, and application of metaprogramming techniques, as well as empirical studies on typing models for such systems and languages. ### Topics of Interest The workshop is a venue for all approaches that embrace metaprogramming, from static to dynamic techniques: - reflection, meta-level architectures, staging, open language runtimes applications to middleware, frameworks, and DSLs - optimization techniques - contract systems, or typing of reflective programs - reflection and metaobject protocols to enable tooling - case studies and evaluation of such techniques, e.g., to build applications, language extensions, or tools - empirical evaluation of metaprogramming solutions - security in reflective systems and capability-based designs - meta-level architectures and reflective middleware for modern runtime platforms (e.g. IoT, cyber-physical systems, mobile/cloud/grid computing, etc) - surveys, conceptualization, and taxonomization of existing approaches In short, we invite contributions to the workshop on a wide range of topics related to design, implementation, and application of reflective APIs and meta-programming techniques, as well as empirical studies and typing for such systems and languages. ### Workshop Format and Submissions This workshop welcomes the presentation of new ideas and emerging problems as well as mature work as part of a mini-conference format. Furthermore, we plan interactive brainstorming and demonstration sessions between the formal presentations to enable an active exchange of ideas. Papers submitted by the first deadline will be considered for publication in the ACM DL, if not requested otherwise by the authors. Thus, they will be part of SPLASH workshop proceedings. For all papers, use of the SIGPLAN acmart style is mandatory: http://www.sigplan.org/Resources/Author/. Please use the provided double-column templates for Latex or Word. technical paper: max. 8 pages, excluding references position and work-in-progress paper: 1-4 pages, excluding references technology demos or a posters: 1-page abstract Demos, posters, position and work-in-progress papers can be submitted on a second, later deadline to discuss the latest results and current work, but will not be considered for publication in the ACM DL. For the submission, please use the submission system at: https://meta18.hotcrp.com/ ### Important Dates 7 Aug 2018 - Abstract Submission 17 Aug 2018 - Paper Submission (considered for ACM DL) 14 Sep 2018 - Notification 7 Sep 2018 - Demo, position or work-in-progress paper submission 30 Sep 2018 - Demo, position or work-in-progress paper notification 6 Nov 2018 - Workshop ### Organizing Committee Guido Chari, Czech Technical University Elisa Gonzalez Boix, Vrije Universiteit Brussel Stefan Marr, University of Kent ### Program Committee Anya Helene Bagge, University of Bergen, Norway Camilo Bruni, Google, Germany Walter Cazzola, Università degli Studi di Milano, Italy Pascal Costanza, imec Marcus Denker, INRIA, Lille Matthew Flatt, University of Utah, United States Diego Garbervetsky, University of Buenos Aires, Argentina Eduardo Guerra, INPE, National Institute for Space Research Pablo Inostroza, CWI, Netherlands Hidehiko Masuhara, Tokyo Institute of Technology ,Japan Tom Van Cutsem, Nokia Bell Labs, Belgium

1 0

The Trunk: Multilingual-ul.238.mcz
by commits＠source.squeak.org 13 Jun '18

13 Jun '18

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.238.mcz ==================== Summary ==================== Name: Multilingual-ul.238 Author: ul Time: 13 June 2018, 5:07:40.804457 pm UUID: 8f89eae0-1eca-48c6-a3f7-ebe13afa2dbe Ancestors: Multilingual-nice.237 Changes to various TextConverters: #nextPut:toStream: can not be used to initialize latin1Map and latin1Encodings anymore (because most implementations reference them), so - moved the current implementation of #initializeLatin1MapAndEncodings to ByteTextConverter, because only those converters understand #encode:. - TextConverter >> #initializeLatin1MapAndEncodings has become subclass responsibility - implemented #initializeLatin1MapAndEncodings in UTF* text converters - removed class-side #initialize implementations. Will add a new one to TextConverter once all subclasses can reinitialize their tables. - added class side #initializeTables which is expected to initialize the various class side tables in the correct order - postscript will reinitialize class side tables where possible (all converters except for EUCTextConverter, CNGBTextConverter, EUCJPTextConverter, EUCKRTextConverter, ShiftJISTextConverter, CompoundTextConverter, KOI8RTextConverter) - latin1Map and latin1Encodings are not initialized lazily anymore UTF16TextConverter will take endianness into account when writing the BOM. Same thing is probably missing from UTF32TextConverter too. =============== Diff against Multilingual-nice.237 =============== Item was removed: - ----- Method: ByteTextConverter class>>initialize (in category 'class initialization') ----- - initialize - - self == ByteTextConverter - ifTrue: [self allSubclassesDo: [:c | c initialize]] - ifFalse: [self - initializeDecodeTable; - initializeEncodeTable; - initializeLatin1MapAndEncodings] - ! Item was added: + ----- Method: ByteTextConverter class>>initializeLatin1MapAndEncodings (in category 'class initialization') ----- + initializeLatin1MapAndEncodings + "Initialize the latin1Map and latin1Encodings. + These variables ensure that conversions from latin1 ByteString is reasonably fast. + This implementation assumes that encodeTable is initialized." + + latin1Map := ByteArray new: 256. + latin1Encodings := Array new: 256. + 0 to: 255 do:[:i | + | latin1 encoded | + latin1 := String with: (Character value: i). + [encoded := String with: (Character value: (self new encode: latin1 first charCode))] + ifError: []. + latin1 = encoded ifTrue:[ + latin1Map at: i+1 put: 0. "no translation needed" + ] ifFalse: [ + latin1Map at: i+1 put: 1. "translation needed" + latin1Encodings at: i+1 put: encoded. + ]].! Item was added: + ----- Method: ByteTextConverter class>>initializeTables (in category 'class initialization') ----- + initializeTables + + self == ByteTextConverter ifTrue: [ ^self ]. + self + initializeDecodeTable; + initializeEncodeTable; + initializeLatin1MapAndEncodings + ! Item was changed: + ----- Method: TextConverter class>>initializeLatin1MapAndEncodings (in category 'class initialization') ----- - ----- Method: TextConverter class>>initializeLatin1MapAndEncodings (in category 'accessing') ----- initializeLatin1MapAndEncodings "Initialize the latin1Map and latin1Encodings. + These variables ensure that conversions from latin1 ByteString is reasonably fast." - These variables ensure that conversions from latin1 ByteString is reasonably fast" + self subclassResponsibility + + ! - latin1Map := ByteArray new: 256. - latin1Encodings := Array new: 256. - 0 to: 255 do:[:i | - | latin1 encoded | - latin1 := String with: (Character value: i). - [encoded := String with: (Character value: (self new encode: latin1 first charCode))] - ifError: []. - latin1 = encoded ifTrue:[ - latin1Map at: i+1 put: 0. "no translation needed" - ] ifFalse: [ - latin1Map at: i+1 put: 1. "translation needed" - latin1Encodings at: i+1 put: encoded. - ]].! Item was added: + ----- Method: TextConverter class>>initializeTables (in category 'class initialization') ----- + initializeTables + + self initializeLatin1MapAndEncodings! Item was changed: ----- Method: TextConverter class>>latin1Encodings (in category 'accessing') ----- latin1Encodings "Answer an Array mapping latin1 characters to conversion string" + ^latin1Encodings! - ^latin1Encodings ifNil: - [self initializeLatin1MapAndEncodings. - latin1Encodings]! Item was changed: ----- Method: TextConverter class>>latin1Map (in category 'accessing') ----- latin1Map "Answer a ByteArray map telling if latin1 characters needs conversion or not" + ^latin1Map! - ^latin1Map ifNil: - [self initializeLatin1MapAndEncodings. - latin1Map]! Item was added: + ----- Method: UTF16TextConverter class>>initializeLatin1MapAndEncodings (in category 'accessing') ----- + initializeLatin1MapAndEncodings + "Initialize the latin1Map and latin1Encodings. + These variables ensure that conversions from latin1 ByteString is reasonably fast." + + latin1Map := ByteArray new: 256 withAll: 1. + latin1Encodings := (0 to: 255) collect: [ :i | { 0. i } asByteArray asString ]! Item was changed: ----- Method: UTF16TextConverter>>nextPut:toStream: (in category 'conversion') ----- nextPut: aCharacter toStream: aStream | charCode | aStream isBinary ifTrue: [ ^aCharacter storeBinaryOn: aStream ]. (useByteOrderMark and: [ byteOrderMarkDone not ]) ifTrue: [ + self next16BitValue: (useLittleEndian ifTrue: [ 16rFFFE ] ifFalse: [ 16rFEFF ]) toStream: aStream. - self next16BitValue: 16rFEFF toStream: aStream. byteOrderMarkDone := true ]. (charCode := aCharacter charCode) < 256 ifTrue: [ (latin1Encodings at: charCode + 1) ifNil: [ self next16BitValue: charCode toStream: aStream ] ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ] ] ifFalse: [ charCode <= 16rFFFF ifTrue: [ self next16BitValue: charCode toStream: aStream ] ifFalse: [ | low high | charCode := charCode - 16r10000. low := charCode \\ 16r400 + 16rDC00. high := charCode // 16r400 + 16rD800. self next16BitValue: high toStream: aStream; next16BitValue: low toStream: aStream ] ]. ^aCharacter! Item was changed: ----- Method: UTF32TextConverter class>>initializeLatin1MapAndEncodings (in category 'utilities') ----- initializeLatin1MapAndEncodings "Initialize the latin1Map and latin1Encodings. + These variables ensure that conversions from latin1 ByteString is reasonably fast." - These variables ensure that conversions from latin1 ByteString is reasonably fast" + latin1Map := ByteArray new: 256 withAll: 1. + latin1Encodings := (0 to: 255) collect: [ :i | { 0. 0. 0. i } asByteArray asString ] + ! - latin1Map := (ByteArray new: 256) atAllPut: 1. - latin1Encodings := (0 to: 255) collect: [:i | (ByteArray newFrom: {0 . 0 . 0 . i}) asString]! Item was added: + ----- Method: UTF8TextConverter class>>initializeLatin1MapAndEncodings (in category 'as yet unclassified') ----- + initializeLatin1MapAndEncodings + "Initialize the latin1Map and latin1Encodings. These variables ensure that conversions from latin1 ByteString is reasonably fast." + + latin1Map := (0 to: 255) collect: [ :each | each bitShift: -7 ] as: ByteArray. + latin1Encodings := (0 to: 255) collect: [ :each | + each <= 127 + ifTrue: [ nil ] + ifFalse: [ + { 192 bitOr: (each bitShift: -6). (each bitAnd: 63) bitOr: 128 } asByteArray asString ] ]! Item was changed: + (PackageInfo named: 'Multilingual') postscript: '"Initialize the tables in all TextConverters that support it." + TextConverter allSubclassesDo: [ :each | [ each initializeTables ] ifError: [] ]'! - (PackageInfo named: 'Multilingual') postscript: 'Unicode - initializeCaseFolding; - initializeCompositionMappings'!

1 0

The Trunk: MorphicExtras-ul.240.mcz
by commits＠source.squeak.org 13 Jun '18

13 Jun '18

Levente Uzonyi uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ul.240.mcz ==================== Summary ==================== Name: MorphicExtras-ul.240 Author: ul Time: 13 June 2018, 1:27:39.374351 pm UUID: 1f754fe4-0f18-4d99-aeb5-01f6a3c095f9 Ancestors: MorphicExtras-pre.239 - set AuthorName during EPSCanvasTest to avoid nagging users about it =============== Diff against MorphicExtras-pre.239 =============== Item was added: + ----- Method: EPSCanvasTest>>performTest (in category 'private') ----- + performTest + + Utilities + useAuthorName: self className + during: [ super performTest ]!

2 1

The Trunk: Kernel-ul.1177.mcz
by commits＠source.squeak.org 13 Jun '18

13 Jun '18

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1177.mcz ==================== Summary ==================== Name: Kernel-ul.1177 Author: ul Time: 13 June 2018, 1:03:47.457054 pm UUID: dc254e2c-2779-4559-a782-f47fbcebf69a Ancestors: Kernel-ul.1176 ClassDescription changes - move compilation logic from all compile* methods to #compile:environment:classified:withStamp:notifying:logSource: - added #compileSilently:environment:classified:notifying:, which let's you specify the environment while compiling a method silently =============== Diff against Kernel-ul.1176 =============== Item was changed: ----- Method: ClassDescription>>compile:classified:withStamp:notifying:logSource: (in category 'compiling') ----- compile: text classified: category withStamp: changeStamp notifying: requestor logSource: logSource + + ^self + compile: text + environment: (CurrentEnvironment signal ifNil: [ self environment ]) + classified: category + withStamp: changeStamp - | methodAndNode selector | - methodAndNode := self - compile: text asString notifying: requestor + logSource: logSource! - trailer: (self defaultMethodTrailerIfLogSource: logSource) - ifFail: [ ^ nil ]. - selector := methodAndNode selector. - logSource ifTrue: - [ self - logMethodSource: text - forMethodWithNode: methodAndNode - inCategory: category - withStamp: changeStamp - notifying: requestor. - RecentMessages default - recordSelector: selector - forClass: methodAndNode method methodClass - inEnvironment: CurrentEnvironment signal ]. - self - addAndClassifySelector: selector - withMethod: methodAndNode method - inProtocol: category - notifying: requestor. - self instanceSide - noteCompilationOf: selector - meta: self isClassSide. - ^ selector! Item was changed: ----- Method: ClassDescription>>compile:environment:classified:withStamp:notifying:logSource: (in category 'compiling') ----- compile: text environment: anEnvironment classified: category withStamp: changeStamp notifying: requestor logSource: logSource + + | methodAndNode context methodNode selector | - | methodAndNode context methodNode | context := CompilationCue source: text class: self environment: anEnvironment requestor: requestor. methodNode := self newCompiler compile: context ifFail: [^ nil]. methodAndNode := CompiledMethodWithNode generateMethodFromNode: methodNode trailer: (self defaultMethodTrailerIfLogSource: logSource). + selector := methodAndNode selector. - logSource ifTrue: [ + self + logMethodSource: text + forMethodWithNode: methodAndNode + inCategory: category + withStamp: changeStamp + notifying: requestor. + RecentMessages default + recordSelector: selector + forClass: methodAndNode method methodClass + inEnvironment: anEnvironment ]. + self + addAndClassifySelector: selector + withMethod: methodAndNode method + inProtocol: category + notifying: requestor. + self instanceSide + noteCompilationOf: selector + meta: self isClassSide. + ^selector! - self logMethodSource: text forMethodWithNode: methodAndNode - inCategory: category withStamp: changeStamp notifying: requestor. - ]. - self addAndClassifySelector: methodAndNode selector withMethod: methodAndNode - method inProtocol: category notifying: requestor. - self instanceSide noteCompilationOf: methodAndNode selector meta: self isClassSide. - ^ methodAndNode selector! Item was changed: ----- Method: ClassDescription>>compileSilently:classified:notifying: (in category 'compiling') ----- compileSilently: code classified: category notifying: requestor "Compile the code and classify the resulting method in the given category, leaving no trail in the system log, nor in any change set, nor in the 'recent submissions' list. This should only be used when you know for sure that the compilation will succeed." + ^self + compileSilently: code + environment: (CurrentEnvironment signal ifNil: [ self environment ]) + classified: category + notifying: requestor! - ^ SystemChangeNotifier uniqueInstance - doSilently: [self compile: code classified: category withStamp: nil notifying: requestor logSource: false].! Item was added: + ----- Method: ClassDescription>>compileSilently:environment:classified:notifying: (in category 'compiling') ----- + compileSilently: code environment: anEnvironment classified: category notifying: requestor + "Compile the code and classify the resulting method in the given category, leaving no trail in the system log, nor in any change set, nor in the 'recent submissions' list. This should only be used when you know for sure that the compilation will succeed." + + ^SystemChangeNotifier uniqueInstance doSilently: [ + self + compile: code + environment: anEnvironment + classified: category + withStamp: nil + notifying: requestor + logSource: false ]!

1 0

Old morphs failing to load in 5.2
by Edgar De Cleene 13 Jun '18

13 Jun '18

http://squeakros.org/5dot2Crashes/Screen%20Shot%202018-05-27%20at%2007.56.4… Here you could see side by side n 3.10 and in Squeak5.2alpha-18019-64bit-All-in-One.app. I wish have some like this in 5.2 so all could see what is new , fixed, etc Squeak style

5 9

The Trunk: System-ul.1034.mcz
by commits＠source.squeak.org 13 Jun '18

13 Jun '18

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.1034.mcz ==================== Summary ==================== Name: System-ul.1034 Author: ul Time: 13 June 2018, 1:24:43.197886 pm UUID: b5a05a72-7c75-4bdb-95bc-b7d1b31eb83b Ancestors: System-nice.1033 - added Utilities class >> #useAuthorName:during:, which works just like #useAuthorInitials:during: but with AuthorName instead of AuthorInitials =============== Diff against System-nice.1033 =============== Item was added: + ----- Method: Utilities class>>useAuthorName:during: (in category 'identification') ----- + useAuthorName: temporaryAuthorName during: aBlock + + | originalAuthorName | + originalAuthorName := AuthorName. + [ + AuthorName := temporaryAuthorName. + aBlock value ] + ensure: [ AuthorName := originalAuthorName ] + !

1 0

The Inbox: EToys-hjh.333.mcz
by commits＠source.squeak.org 13 Jun '18

13 Jun '18

A new version of EToys was added to project The Inbox: http://source.squeak.org/inbox/EToys-hjh.333.mcz ==================== Summary ==================== Name: EToys-hjh.333 Author: hjh Time: 11 June 2018, 7:47:07.644259 am UUID: 1872ec0f-374c-4d8a-a701-f118fb19ae40 Ancestors: EToys-nice.332 Move methods Morph rotationCenter and rotationCenter: from 'Etoys-geometry' to 'geometry' =============== Diff against EToys-nice.332 =============== Item was removed: - ----- Method: Morph>>rotationCenter (in category '*Etoys-geometry') ----- - rotationCenter - "Return the rotation center of the receiver. The rotation center defines the relative offset inside the receiver's bounds for locating the reference position." - ^self valueOfProperty: #rotationCenter ifAbsent:[0.5@0.5] - ! Item was removed: - ----- Method: Morph>>rotationCenter: (in category '*Etoys-geometry') ----- - rotationCenter: aPointOrNil - "Set the new rotation center of the receiver. The rotation center defines the relative offset inside the receiver's bounds for locating the reference position." - aPointOrNil isNil - ifTrue:[self removeProperty: #rotationCenter] - ifFalse:[self setProperty: #rotationCenter toValue: aPointOrNil] - !

6 12

The Trunk: Morphic-cbc.1451.mcz
by commits＠source.squeak.org 13 Jun '18

13 Jun '18

Chris Cunningham uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cbc.1451.mcz ==================== Summary ==================== Name: Morphic-cbc.1451 Author: cbc Time: 12 June 2018, 10:20:33.204594 pm UUID: eeba2c6d-1d3b-8c4f-9798-2d5f590eb318 Ancestors: Morphic-cbc.1450 Fix so that Projects>Jump To Project submenu is readable in dark color themes (by commenting out setting of the color - default works much better). =============== Diff against Morphic-cbc.1450 =============== Item was changed: ----- Method: MorphicProject>>addItem:toMenu:selection:color:thumbnail: (in category 'utilities') ----- addItem: item toMenu: menu selection: action color: aColor thumbnail: aForm "Add menu item representing the sender to a menu" + "Removed setting the color - it wasn't working well with dark color themes." menu add: item selector: #jumpToSelection: argument: action. - menu lastItem color: aColor. aForm isNil ifFalse: [menu lastItem icon: (aForm scaledIntoFormOfSize: (Preferences tinyDisplay ifTrue: [16] ifFalse: [28]))]!

2 1

← Newer
1
...
8
9
10
11
12
13
14
15
16
Older →

Jump to page: