Squeak-dev August 2018

squeak-dev@lists.squeakfoundation.org

41 participants
83 discussions

The Inbox: EToys-cbc.293.mcz
by commits＠source.squeak.org 16 Oct '18

16 Oct '18

A new version of EToys was added to project The Inbox: http://source.squeak.org/inbox/EToys-cbc.293.mcz ==================== Summary ==================== Name: EToys-cbc.293 Author: cbc Time: 17 April 2017, 9:44:25.306187 am UUID: 7f27f8f3-1ad3-9d4b-a359-1b085c98e5c2 Ancestors: EToys-nice.292 Moved ExternalForm test from FFI package here - since the ExternalForm is now in this package. Also, fixed test. =============== Diff against EToys-nice.292 =============== Item was added: + TestCase subclass: #EtoysExternalFormTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Tests'! Item was added: + ----- Method: EtoysExternalFormTest>>testBlitToAndFromExternalForm (in category 'as yet unclassified') ----- + testBlitToAndFromExternalForm + "Ensure that we can blit to/from all 4 permutatations of Form and ExternalForm." + | source external1 external2 destination | + source := Cursor wait asCursorForm asFormOfDepth: 32. + destination := Form extent: source extent depth: 32. + external1 := ExternalForm extent: source extent depth: 32. + external2 := ExternalForm extent: source extent depth: 32. + self shouldnt: [source bits = destination bits]. + source displayOn: external1. + external1 displayOn: external2. + external2 displayOn: destination. + self should: [source bits = destination bits].!

5 18

[Help][Extending the system][Squeak5.2] Are the four entries there still relevant for 5.2?
by H. Hirzel 07 Sep '18

07 Sep '18

Hello There are four entries in the help system [1] Squeak -> The Project -> Extending the system Are they still relevant. Or what else should go there instead? For example it would be nice to have the install script for NuScratch [2] Regards Hannes [1] OCompletion "Provides source code completion as you type" (Installer ss project: 'OCompletion') install: 'Ocompletion'. (Smalltalk at: #ECToolSet) register. (Smalltalk at: #ToolSet) default: (Smalltalk at: #ECToolSet). Omnibrowser "Including Refactoring engine" (Installer ss project: 'MetacelloRepository') install: 'ConfigurationOfOmniBrowser'. ((Smalltalk at: #ConfigurationOfOmniBrowser) project perform: #lastVersion) load: #( Dev ). Pier CMS "Pier CMS: http://www.piercms.com" (Installer ss project: 'MetacelloRepository') install: 'ConfigurationOfPier2'. (Smalltalk at: #ConfigurationOfPier2) load. (Installer lukas project: 'pier2') install: 'Pier-Blog'. (Installer lukas project: 'pier2') install: 'Pier-Book'. (Installer lukas project: 'pier2addons') install: 'Pier-Setup'. (Smalltalk at: #PRDistribution) new register. Open Cobalt --------------------------------------- [2] http://wiki.squeak.org/squeak/6604 Scratch is a visual programming language and online community targeted primarily at children [Wikipedia]. It started with a first implementation in Squeak Smalltalk, then it was reimplemented in Flash (ActionScript) and now in JavaScript (more about Scratch see here). The Smalltalk based implementation has been maintained and improved and is available under the Name 'NuScratch' to be loaded as an application into a Squeak base system.

3 8

Browser menu interface to refactorings
by Eliot Miranda 06 Sep '18

06 Sep '18

Hi All, I'm finally adding refactoring support to the standard Squeak browser. I wonder if anyone knows of refactoring submenu code suitable for the browser I could start from. I'm looking at Pharo's Nautilus integration as one model but wondered if there's anything closer. _,,,^..^,,,_ best, Eliot

15 39

Survey: what do you do with Squeak, what do you *want* to do?
by tim Rowledge 05 Sep '18

05 Sep '18

At the latest board meeting we got to discussing the relative quietness of the squeak list(s) recently. We were wondering what you folks out there are doing with Squeak, what you'd like to be able to use it for, the things that you think would be important to improve it for wider use and so on. Please, whether you're a frequent user or an occasional look-at-the-list type, take a moment to let us know your opinions. What do you use Squeak for? If you don't use Squeak, why not? If you used Squeak in the past and don't now, what pulled you away? What does Squeak lack that you think might make you use it for 'regular' development? What things are too hard or annoying to do? What would you like to be able to use Squeak for? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim C for sinking, java for drinking, Smalltalk for thinking

30 49

Debugging FFI Calls
by Eliot Miranda 03 Sep '18

03 Sep '18

Hi All, the latest VMs support a new facility which catches and reports exceptions during FFI calls as primitive failures. That means that if you have the relevant support code loaded (described below) and depending on dialect, you write your FFI interface method to contain an error code, or you're using the UnifiedFFI which uses invokeWithArguments:, then any exception that occurs during the FFI call will be caught and reported to use with the error code bound to an instance of ExceptionInFFICall, which contains a platform-specific error code and the pc at which it occurred. To use this facility you'll need to download a VM built yesterday or later (it should be derived from VMMaker.oscog-eem.2435 or later), or build your own from the tip of the Cog branch in opensmalltalk/vm. You'll then need to update the image code to install ExceptionInFFICall appropriately: in Pharo6 load SLICE 22367 in Squeak load the latest FFI code from source.squeak.org/FFI and update your image from trunk in Cuis, you'll need to adapt these changes to Cuis (sorry!!) There are two command-line flags to override the default behavior. [-]-failonffiexception causes the handling to be applied to all FFI calls, so if a method doesn't contain an error, you'll just see a primitive failure, and if ExceptionInFFICall is not installed you'll see only an error number in the call's error code. [-]-nofailonffiexception ignores exceptions during FFI calls, hence defaulting to the old behavior of crashing the VM (which may be useful if one is using a low-level debugger to debug the VM and/or external code). HTH _,,,^..^,,,_ best, Eliot

2 1

Dynabook and flipped classroom
by Hilaire 02 Sep '18

02 Sep '18

Hi, On Dynabook and flipped classroom: http://blog.drgeo.eu/post/2018/Flipped-classroom Please share any opinion. Hilaire -- Dr. Geo http://drgeo.eu

4 7

The Inbox: Collections-cmm.805.mcz
by commits＠source.squeak.org 01 Sep '18

01 Sep '18

Chris Muller uploaded a new version of Collections to project The Inbox: http://source.squeak.org/inbox/Collections-cmm.805.mcz ==================== Summary ==================== Name: Collections-cmm.805 Author: cmm Time: 31 August 2018, 5:57:40.555042 pm UUID: 7c024534-7188-47c5-b5e8-41e6dccf91ea Ancestors: Collections-eem.804 Goes with Morphic-cmm.1461 to provide access to TextIndent attributes from the alignment menu. =============== Diff against Collections-eem.804 =============== Item was added: + ----- Method: Text>>indentationAmountAt: (in category 'attributes') ----- + indentationAmountAt: anInterval + anInterval do: + [ : position | self + attributesAt: position + do: [ : attr | attr isTextIndent ifTrue: [ ^ attr amount ] ] ]. + ^ 0! Item was changed: ----- Method: TextAlignment>>dominates: (in category 'testing') ----- dominates: other + "Alignment dominates other alignments or indentations." + ^ other isTextAlignment or: [ other isTextIndent ]! - "There can be only one..." - ^self class == other class! Item was added: + ----- Method: TextAlignment>>isTextAlignment (in category 'testing') ----- + isTextAlignment + ^ true! Item was added: + ----- Method: TextAttribute>>isTextAlignment (in category 'testing') ----- + isTextAlignment + ^ false! Item was added: + ----- Method: TextAttribute>>isTextIndent (in category 'testing') ----- + isTextIndent + ^ false! Item was changed: ----- Method: TextIndent>>dominates: (in category 'condensing') ----- + dominates: aTextAttribute + "Indentation should replace any existing alignment or indentation." + ^ aTextAttribute isTextIndent + or: [ aTextAttribute isTextAlignment ]! - dominates: anAttribute - ^(self class == anAttribute class)! Item was added: + ----- Method: TextIndent>>isTextIndent (in category 'testing') ----- + isTextIndent + ^ true!

1 0

The Inbox: Morphic-cmm.1461.mcz
by commits＠source.squeak.org 01 Sep '18

01 Sep '18

Chris Muller uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-cmm.1461.mcz ==================== Summary ==================== Name: Morphic-cmm.1461 Author: cmm Time: 31 August 2018, 5:43:21.798326 pm UUID: 6dc60589-e0cb-48b5-b7ef-45d11b88aca1 Ancestors: Morphic-kfr.1460 Provide access to the TextIndent attribute on the alignment menu. =============== Diff against Morphic-kfr.1460 =============== Item was changed: ----- Method: TextEditor>>changeAlignment (in category 'menu messages') ----- changeAlignment + | options reply | + options := self existingIndentation + caseOf: + {[0]-> [ #('leftFlush' 'indented' 'centered' 'justified' 'rightFlush') ]. + [1] -> [ #('leftFlush' 'indented more' 'centered' 'justified' 'rightFlush') ]} + otherwise: [ #('leftFlush' 'indented less' 'indented more' 'centered' 'justified' 'rightFlush') ]. + reply := UIManager default chooseFrom: options values: options. + reply ifNil: [ ^ self ]. - | aList reply | - aList := #(leftFlush centered justified rightFlush). - reply := UIManager default chooseFrom: aList values: aList. - reply ifNil:[^self]. self setAlignment: reply. paragraph composeAll. self recomputeSelection. ^ true! Item was added: + ----- Method: TextEditor>>existingIndentation (in category 'private') ----- + existingIndentation + ^ paragraph text indentationAmountAt: (self encompassLine: self selectionInterval)! Item was changed: ----- Method: TextEditor>>setAlignment: (in category 'menu messages') ----- + setAlignment: selectionString + | attr interval | + attr := selectionString + caseOf: + { [ 'indented' ] -> [ TextIndent amount: 1 ]. + [ 'indented more' ] -> [ TextIndent amount: self existingIndentation+1 ]. + [ 'indented less' ] -> [ TextIndent amount: (self existingIndentation-1 max: 0) ]} + otherwise: + [ TextAlignment perform: selectionString asSymbol ]. - setAlignment: aSymbol - | attr interval | - attr := TextAlignment perform: aSymbol. interval := self encompassLine: self selectionInterval. + paragraph - paragraph replaceFrom: interval first to: interval last with: ((paragraph text copyFrom: interval first to: interval last) addAttribute: attr)!

2 1

The Inbox: Kernel-cmm.1190.mcz
by commits＠source.squeak.org 31 Aug '18

31 Aug '18

Chris Muller uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/Kernel-cmm.1190.mcz ==================== Summary ==================== Name: Kernel-cmm.1190 Author: cmm Time: 29 August 2018, 9:20:01.027647 pm UUID: b5a78e5d-c7fe-4e5d-9673-ee6208534ae1 Ancestors: Kernel-eem.1189 - Remove unnecessary string literals from ClassBuilder>>#reservedNames. - Fix and simplify ClassBuilder>>#validateInstvars:from:forSuper:. ClassBuilder>>#validateClassvars:from:forSuper: may benefit from a similar change. =============== Diff against Kernel-eem.1189 =============== Item was changed: ----- Method: ClassBuilder>>reservedNames (in category 'private') ----- reservedNames "Return a list of names that must not be used for variables" + ^#(self super thisContext #true #false #nil)! - ^#('self' 'super' 'thisContext' 'true' 'false' 'nil' - self super thisContext #true #false #nil).! Item was changed: ----- Method: ClassBuilder>>validateInstvars:from:forSuper: (in category 'validation') ----- + validateInstvars: instVarArray from: oldClass forSuper: newSuper - validateInstvars: instVarArray from: oldClass forSuper: newSuper "Check if any of the instVars of oldClass conflict with the new superclass" + | usedNames | - | instVars usedNames temp | - instVarArray isEmpty ifTrue:[^true]. "Okay" - newSuper allowsSubInstVars ifFalse: [ - self error: newSuper printString, ' does not allow subclass inst vars. See allowsSubInstVars.'. ^ false]. - - "Validate the inst var names" usedNames := instVarArray asSet. + oldClass ifNotNil: [ oldClass withAllSubclassesDo: [ : each | each == oldClass ifFalse: [usedNames addAll: each instVarNames] ] ]. + "Anything to possibly conflict?" + usedNames isEmpty ifTrue: [ ^ true ]. + newSuper allowsSubInstVars ifFalse: + [ self error: newSuper printString , ' does not allow subclass inst vars. See allowsSubInstVars.'. + ^ false ]. + instVarArray asSet size = instVarArray size ifFalse: + [ self error: instVarArray asBag sortedCounts first value, ' is multply defined.'. + ^ false ]. + (usedNames intersection: self reservedNames) ifNotEmpty: + [ : reservedWords | self error: reservedWords anyOne , ' is a reserved name'. + ^ false ]. + newSuper ifNotNil: + [ | offendingVars | + "If any variable names in subclasses conflict names in the new superclass, report the offending class and instVar name." + newSuper withAllSuperclasses + detect: [ : each | (offendingVars := each instVarNames intersection: usedNames) notEmpty ] + ifFound: + [ : offendingSuperclass | + DuplicateVariableError new + superclass: offendingSuperclass ; + variable: offendingVars anyOne ; + signal: offendingVars anyOne , ' is already defined in ' , offendingSuperclass name ] + ifNone: [ "no name conflicts" ] ]. + ^ true! - usedNames size = instVarArray size - ifFalse:[ instVarArray do:[:var| - usedNames remove: var ifAbsent:[temp := var]]. - self error: temp,' is multiply defined'. ^false]. - (usedNames includesAnyOf: self reservedNames) - ifTrue:[ self reservedNames do:[:var| - (usedNames includes: var) ifTrue:[temp := var]]. - self error: temp,' is a reserved name'. ^false]. - - newSuper == nil ifFalse:[ - usedNames := newSuper allInstVarNames asSet. - instVarArray do:[:iv| - (usedNames includes: iv) ifTrue:[ - newSuper withAllSuperclassesDo:[:cl| - (cl instVarNames includes: iv) ifTrue:[temp := cl]]. - (DuplicateVariableError new) - superclass: temp; - variable: iv; - signal: iv,' is already defined in ', temp name]]]. - oldClass == nil ifFalse:[ - usedNames := Set new: 20. - oldClass allSubclassesDo:[:cl| usedNames addAll: cl instVarNames]. - instVars := instVarArray. - newSuper == nil ifFalse:[instVars := instVars, newSuper allInstVarNames]. - instVars do:[:iv| - (usedNames includes: iv) ifTrue:[ - (DuplicateVariableError new) - superclass: oldClass; - variable: iv; - signal: iv,' is already defined in a subclass of ', temp name]]]. - ^true!

4 3

livecoding VueJS with Caffeine
by Craig Latta 31 Aug '18

31 Aug '18

Hi all-- Here's a "hello world" picture of livecoding Vue.js with Caffeine. I use a self-contained third-party Vue component compiled live from the web, with no offline build step. https://thiscontext.com/2018/08/30/livecoding-vuejs-with-caffeine -C -- Craig Latta Black Page Digital Amsterdam :: San Francisco craig(a)blackpagedigital.com +31 6 2757 7177 (SMS ok) + 1 415 287 3547 (no SMS)

2 1

← Newer
1
2
3
4
5
6
7
8
9
Older →