Squeak-dev December 2016

squeak-dev@lists.squeakfoundation.org

39 participants
137 discussions

The Trunk: Tools-ul.742.mcz
by commits＠source.squeak.org 25 Dec '16

25 Dec '16

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.742.mcz ==================== Summary ==================== Name: Tools-ul.742 Author: ul Time: 25 December 2016, 11:06:07.791123 pm UUID: 5824e7da-a2e2-49e6-b445-bbf97bdaff56 Ancestors: Tools-nice.741 Simplified and removed the duplicate selector from the results of StringHolder >> #withSelectorAndMessagesIn:evaluate:. =============== Diff against Tools-nice.741 =============== Item was changed: ----- Method: StringHolder>>withSelectorAndMessagesIn:evaluate: (in category '*Tools') ----- withSelectorAndMessagesIn: aCompiledMethod evaluate: aBlock "Allow the user to choose one selector, chosen from the currently selected message's selector, as well as those of all messages sent by it, and evaluate aBlock on behalf of chosen selector. If there is only one possible choice, simply make it; if there are multiple choices, put up a menu, and evaluate aBlock on behalf of the the chosen selector, doing nothing if the user declines to choose any" + | selectorOrNil messages | + selectorOrNil := aCompiledMethod selector. + messages := SystemNavigation thoroughSenders + ifTrue: [ + | litGetter | + litGetter := [:set :l| + (l isSymbol and: [l size > 0 and: [l first isLowercase]]) ifTrue: + [set add: l]. + l isArray ifTrue: + [l inject: set into: litGetter]. + set]. + aCompiledMethod allLiterals, + (aCompiledMethod pragmas collect: [:pragma| pragma keyword]) + inject: aCompiledMethod messages into: litGetter] + ifFalse: [aCompiledMethod messages]. + messages remove: selectorOrNil ifAbsent: [ "do nothing" ]. + messages ifEmpty: [ "If only one item, there is no choice" + ^selectorOrNil ifNotNil: [ aBlock value: selectorOrNil ] ]. - | selectorOrNil litGetter messages | - selectorOrNil := aCompiledMethod selector. - messages := SystemNavigation thoroughSenders - ifTrue: - [litGetter := [:set :l| - (l isSymbol and: [l size > 0 and: [l first isLowercase]]) ifTrue: - [set add: l]. - l isArray ifTrue: - [l inject: set into: litGetter copy]. - set]. - aCompiledMethod allLiterals - , (aCompiledMethod pragmas collect: [:pragma| pragma keyword]) - inject: aCompiledMethod messages into: litGetter copy] - ifFalse: [aCompiledMethod messages]. - (messages isEmpty "if no messages, use only selector" - or: [messages size = 1 and: [messages includes: selectorOrNil]]) ifTrue: - [^selectorOrNil ifNotNil: [aBlock value: selectorOrNil]]. "If only one item, there is no choice" - self systemNavigation showMenuOf: messages withFirstItem: selectorOrNil ifChosenDo: aBlock!

1 0

CameraPlugin on mac
by Bob Arning 25 Dec '16

25 Dec '16

The CameraPlugin works fine in Etoys 5.0, but I could not get the code (CameraInterface & WebCamMorph) to show anything in Squeak 5.1. When it took the raw CameraPlugin from Etoys and used it in Squeak 5.1 instead of the CameraPlugin.bundle, video started appearing. Sometime I guess old code (2011) is better than new (2016). ;-)

3 5

Broken: squeak-smalltalk/squeak-app#318 (master - 87356bd)
by Travis CI 25 Dec '16

25 Dec '16

Build Update for squeak-smalltalk/squeak-app ------------------------------------- Build: #318 Status: Broken Duration: 17 minutes and 52 seconds Commit: 87356bd (master) Author: Fabio Niephaus Message: Exclude SqueakSSLTest View the changeset: https://github.com/squeak-smalltalk/squeak-app/compare/867efa13c3594f99e9ed… View the full build log and details: https://travis-ci.org/squeak-smalltalk/squeak-app/builds/186655518 -- You can configure recipients for build notifications in your .travis.yml file. See https://docs.travis-ci.com/user/notifications

1 0

Broken: squeak-smalltalk/squeak-app#318 (master - 87356bd)
by Travis CI 25 Dec '16

25 Dec '16

1 0

Broken: squeak-smalltalk/squeak-app#318 (master - 87356bd)
by Travis CI 25 Dec '16

25 Dec '16

1 0

The Trunk: Collections-ul.730.mcz
by commits＠source.squeak.org 25 Dec '16

25 Dec '16

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.730.mcz ==================== Summary ==================== Name: Collections-ul.730 Author: ul Time: 25 December 2016, 4:19:28.820055 pm UUID: 960b46c2-39af-42c0-8855-92413ba0dbda Ancestors: Collections-ul.729, Collections-cmm.729 - merge =============== Diff against Collections-ul.729 =============== Item was added: + ----- Method: Symbol>>selector (in category 'accessing') ----- + selector + ^ self!

1 0

The Trunk: Collections-ul.729.mcz
by commits＠source.squeak.org 25 Dec '16

25 Dec '16

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.729.mcz ==================== Summary ==================== Name: Collections-ul.729 Author: ul Time: 25 December 2016, 4:16:33.349302 pm UUID: dedb0ac7-ea11-42b9-8a91-2839a52866c7 Ancestors: Collections-nice.728 - minor OrderedCollection optimizations =============== Diff against Collections-nice.728 =============== Item was changed: ----- Method: OrderedCollection>>asArray (in category 'converting') ----- asArray "Overriden for speed" + | result size | + result := Array new: (size := self size). - | result | - result := Array new: self size. result replaceFrom: 1 + to: size - to: result size with: array startingAt: firstIndex. ^result! Item was changed: ----- Method: OrderedCollection>>makeRoomAtFirst (in category 'private') ----- makeRoomAtFirst "Make some empty slots at the front of the array. If we have more than 50% free space, then just move the elements, so that the first 50% of the slots are free, otherwise add new free slots to the front by growing. Precondition: firstIndex = 1" + | tally newFirstIndex newLastIndex capacity | - | tally newFirstIndex newLastIndex | tally := self size. + capacity := array size. + tally * 2 >= capacity ifTrue: [ ^self growAtFirst ]. + tally = 0 ifTrue: [ ^self resetTo: capacity + 1 ]. + newFirstIndex := capacity // 2 + 1. - tally * 2 >= array size ifTrue: [ ^self growAtFirst ]. - tally = 0 ifTrue: [ ^self resetTo: array size + 1 ]. - newFirstIndex := array size // 2 + 1. newLastIndex := newFirstIndex - firstIndex + lastIndex. 0 to: tally - 1 do: [ :offset | array at: newLastIndex - offset put: (array at: lastIndex - offset) ]. array from: firstIndex to: newFirstIndex - 1 put: nil. firstIndex := newFirstIndex. lastIndex := newLastIndex! Item was added: + ----- Method: OrderedCollection>>replace: (in category 'enumerating') ----- + replace: aBlock + "Evaluate aBlock with each of my elements as the argument. Collect the resulting values into myself. + Override superclass in order to work on the internal array directly." + + firstIndex to: lastIndex do: [ :index | + array at: index put: (aBlock value: (array at: index)) ]! Item was changed: ----- Method: OrderedCollection>>with:collect: (in category 'enumerating') ----- with: otherCollection collect: twoArgBlock "Collect and return the result of evaluating twoArgBlock with corresponding elements from this collection and otherCollection." + + | result offset size | + (size := self size) = otherCollection size ifFalse: [ self error: 'otherCollection must be the same size' ]. + result := self species new: size. + offset := 1 - firstIndex. + firstIndex to: lastIndex do: [ :index | + result addLast: ( + twoArgBlock + value: (array at: index) + value: (otherCollection at: index + offset)) ]. + ^result! - | result | - otherCollection size = self size ifFalse: [self error: 'otherCollection must be the same size']. - result := self species new: self size. - 1 to: self size do: - [:index | result addLast: (twoArgBlock value: (self at: index) - value: (otherCollection at: index))]. - ^ result! Item was changed: ----- Method: OrderedCollection>>withIndexCollect: (in category 'enumerating') ----- withIndexCollect: elementAndIndexBlock "Just like with:collect: except that the iteration index supplies the second argument to the block. Override superclass in order to use addLast:, not at:put:." + | newCollection offset | - | newCollection | newCollection := self species new: self size. + offset := 1 - firstIndex. firstIndex to: lastIndex do: [:index | newCollection addLast: (elementAndIndexBlock value: (array at: index) + value: index + offset) ]. - value: index - firstIndex + 1)]. ^ newCollection!

1 0

The Trunk: Tools-eem.738.mcz
by commits＠source.squeak.org 25 Dec '16

25 Dec '16

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.738.mcz ==================== Summary ==================== Name: Tools-eem.738 Author: eem Time: 20 December 2016, 2:15:33.753612 pm UUID: 71a932b5-137d-49ba-8db9-9bb8e074b37e Ancestors: Tools-cmm.737 Fix regression in RecentMessages due to Tools-eem.736. Use MethodReference comparison instead of funky string comparison. =============== Diff against Tools-cmm.737 =============== Item was changed: ----- Method: RecentMessageSet>>updateListsAndCodeIn: (in category 'update') ----- updateListsAndCodeIn: aWindow + self canDiscardEdits ifFalse: [^self]. + RecentMessages default isEmpty ifTrue: [^self]. + (messageList isEmpty + or: [RecentMessages default mostRecent = messageList first]) + ifTrue: [self updateCodePaneIfNeeded] + ifFalse: [self reformulateList]! - | recentFromUtilities | - self canDiscardEdits ifFalse: [ ^ self ]. - RecentMessages default isEmpty ifTrue: [ ^ self ]. - recentFromUtilities := RecentMessages default mostRecent asString , ' '. - (messageList isEmpty or: [ messageList first asStringOrText asString beginsWith: recentFromUtilities ]) - ifTrue: [ self updateCodePaneIfNeeded ] - ifFalse: [ self reformulateList ]!

3 2

The Trunk: Tools-nice.741.mcz
by commits＠source.squeak.org 25 Dec '16

25 Dec '16

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.741.mcz ==================== Summary ==================== Name: Tools-nice.741 Author: nice Time: 25 December 2016, 3:13:35.841637 pm UUID: 7c93c98f-3f12-44f0-bb60-f9b19d91a3c9 Ancestors: Tools-bf.740 Salvage MessageTrace by using asString rather than stringVersion, because stringVersion might be uninitialized =============== Diff against Tools-bf.740 =============== Item was changed: ----- Method: MessageTrace>>filterFrom: (in category 'filtering') ----- filterFrom: aBlock "Filter the receiver's list down to only those items that satisfy aBlock, which takes a class an a selector as its arguments." | newList newAutoSelectStrings newMessageSelections oldList | oldList := Dictionary new. messageList do: [ : each | oldList at: each put: each ]. newList := messageList class new. newAutoSelectStrings := autoSelectStrings class new. newMessageSelections := messageSelections class new. messageList withIndexDo: [ : each : index | (self class parse: each toClassAndSelector: aBlock) ifTrue: [ newList add: each. newAutoSelectStrings add: (autoSelectStrings at: index). newMessageSelections add: (messageSelections at: index) ] ]. (self setFilteredList: newList) ifTrue: [ autoSelectStrings := newAutoSelectStrings. messageList do: + [ : each | each stringVersion: (oldList at: each) asString ] ]! - [ : each | each stringVersion: (oldList at: each) stringVersion ] ]! Item was changed: ----- Method: MessageTrace>>indentEverything (in category 'indenting') ----- indentEverything + messageList do: [ :each | each stringVersion: (self indentionPrefixOfSize: 1), each asString ] - messageList do: [ :each | each stringVersion: (self indentionPrefixOfSize: 1), each stringVersion ] ! Item was changed: ----- Method: MessageTrace>>indentionLevelAt: (in category 'private accessing') ----- indentionLevelAt: msgListIndex + ^ self indentionsIn: (messageList at: msgListIndex) asString! - ^ self indentionsIn: (messageList at: msgListIndex) stringVersion!

1 0

Let more ar out of the balloon!
by Kirk Fraser 25 Dec '16

25 Dec '16

Downloading the latest Squeak i noticed a fragment of documentation saying there are lots of options to start Squeak on command line and view help to see them. Help provided nothing obvious, leaving all those options unused. So that provided an occasion to again shout for grounding the balloon, from its long past lofty ascend over the ivory towers of other software research by the power of hot air or hype. Perhaps you white cat petting experts should try starting over as beginners for a while to understand what new programmers really want instead of announcing rich new features then letting the programmer guess at how to use them. >From my observation, I would guess there is a huge demand for Artificial Intelligence especially integrating conceptual objects with high speed GPU trained neural nets of varying depth capable of making a self driving car and other robots see. But all I've heard of in Smalltalk is an old Digitalk Goodies floppy with a neural net that trains way too slow in Smalltalk and suggestions to try FFI. So in this case the balloon is still under moat water, instead of above the ivory towers. Developers interested in attracting more beginners to Smalltalk should build things beginner's appreciate and remove things they don't like the automatic double entry of the closing bracket and parenthesis. Squeak developers should also consider what application developers want' I've read most applications are written in Visual Basic. Squeak has some ability to drag and drop partially built objects to simplify applications but there seems to be a certain crisp precision or quality missing. Again the documentation may hook you up to something but the link then says a browser is not installed so you can't do X Y or Z. Ok, but how does one install a browser or even find the kind that Squeak accepts? I would love to use a browser that allows me to override certain commands of webpage authors who make it impossible to copy a text without manually typing it all in. The reason I downloaded a new Squeak is to put it on a new used computer I had to buy to run Fusion 360 which would not run on my other 6 computers. And there I see another problem similar to the problem with Microsoft Word developers - overdevelopment at the expense of simplicity. A CAD program should allow a user to toss in all kinds of objects, circles, likes, and other shapes into the sandbox then move them around, hook them together, and add precise measurements as needed then proceed on to the other steps of surfacing, engineering the strains, and automatically shaving excess material to make a design perfect for 3D printing and converting to G-codes to do it. Is Smalltalk up to that? Yes as much as Fortran or Cobol I suppose but is it ready and available to use? Nope. Yesterday I met a customer in the computer store who has a Ph.D. in EE so i asked a question and immediately he backed away saying that's outside his expertise instead of offering the slightest hint and a step to explore for a solution. I wondered where is the scientist in this Ph.D.? Some people get so niched by their specialty they are useless for everything else. That brings me to the compiler package. I have been working on my own language I call Ruletalk and the parser is done, needing only its VM to finish. I thought maybe I would get some ideas from Squeak's compiler but it is so complicated I failed to immediately see any parallels with what I have been building. So perhaps it is time to redevelop Squeak with a view toward actually serving beginners who want to solve problems instead of going for a ride on a balloon whose technology has fallen behind what the ivory towers are teaching and industry is demanding these days. Kirk Fraser

2 1

← Newer
1
2
3
4
5
6
7
...
14
Older →

Jump to page: