Squeak-dev November 2017

squeak-dev@lists.squeakfoundation.org

38 participants
198 discussions

The Trunk: ToolBuilder-Kernel-tpr.115.mcz
by commits＠source.squeak.org 28 Nov '17

28 Nov '17

tim Rowledge uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-tpr.115.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-tpr.115 Author: tpr Time: 27 November 2017, 4:09:03.40509 pm UUID: f289467d-522d-43e7-8422-704f8fbb6cc2 Ancestors: ToolBuilder-Kernel-tpr.114 Add convenience method for saving file via UIManager =============== Diff against ToolBuilder-Kernel-tpr.114 =============== Item was added: + ----- Method: UIManager>>saveFilenameRequest:initialAnswer: (in category 'ui requests') ----- + saveFilenameRequest: queryString initialAnswer: defaultAnswer + "Open a FileSaverDialog to ask for a place and filename to use for saving a file. The initial suggestion for the filename is defaultAnswer but the user may choose any existing file or type in a new name entirely" + + ^self subclassResponsibility!

1 0

The Trunk: ToolBuilder-MVC-tpr.50.mcz
by commits＠source.squeak.org 28 Nov '17

28 Nov '17

tim Rowledge uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-tpr.50.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-tpr.50 Author: tpr Time: 27 November 2017, 4:07:53.194506 pm UUID: e349d745-4348-47a1-8ece-3c1f321463fe Ancestors: ToolBuilder-MVC-tpr.49 Add convenience method to save a file via UIMananger =============== Diff against ToolBuilder-MVC-tpr.49 =============== Item was added: + ----- Method: MVCUIManager>>saveFilenameRequest:initialAnswer: (in category 'ui requests') ----- + saveFilenameRequest: queryString initialAnswer: defaultAnswer + "Open a FileSaverDialog to ask for a place and filename to use for saving a file. The initial suggestion for the filename is defaultAnswer but the user may choose any existing file or type in a new name entirely" + "MVC has to stick with the boring way of doing it" + | result | + result := self request: queryString initialAnswer: defaultAnswer. + ^result isEmpty ifTrue: [nil] ifFalse:[result] + !

1 0

The Trunk: ToolBuilder-Morphic-tpr.201.mcz
by commits＠source.squeak.org 28 Nov '17

28 Nov '17

tim Rowledge uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-tpr.201.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-tpr.201 Author: tpr Time: 27 November 2017, 4:06:41.954459 pm UUID: 90b9cbb2-57e1-4fd0-acae-81d4b61d97a8 Ancestors: ToolBuilder-Morphic-dtl.200 Convenience method for file saving via the UIManager =============== Diff against ToolBuilder-Morphic-dtl.200 =============== Item was added: + ----- Method: MorphicUIManager>>saveFilenameRequest:initialAnswer: (in category 'ui requests') ----- + saveFilenameRequest: queryString initialAnswer: defaultAnswer + "Open a FileSaverDialog to ask for a place and filename to use for saving a file. The initial suggestion for the filename is defaultAnswer but the user may choose any existing file or type in a new name entirely" + + ^FileSaverDialog openOnInitialFilename: defaultAnswer label: queryString + !

1 0

The Trunk: Tools-tpr.777.mcz
by commits＠source.squeak.org 28 Nov '17

28 Nov '17

tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.777.mcz ==================== Summary ==================== Name: Tools-tpr.777 Author: tpr Time: 27 November 2017, 4:03:09.56613 pm UUID: 71e5c1c3-35d0-4c3d-bbe2-83174f32e145 Ancestors: Tools-dtl.776 Add a directory chooser tool. Some improvements to FileSaverDIalogs =============== Diff against Tools-dtl.776 =============== Item was added: + FileAbstractSelectionDialog subclass: #DirectoryChooserDialog + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tools-FileDialogs'! Item was added: + ----- Method: DirectoryChooserDialog>>buildWith: (in category 'toolbuilder') ----- + buildWith: builder + "assemble the spec for the chooser dialog UI" + + | windowSpec window | + windowSpec := self buildWindowWith: builder specs: { + (self frameOffsetFromTop: 0 + fromLeft: 0 + width: 1 + offsetFromBottom: self buttonHeight) -> [self buildDirectoryTreeWith: builder]. + }. + windowSpec buttons add:( builder pluggableButtonSpec new + model: self; + label: 'Accept'; + action: #acceptFileName). + windowSpec buttons add:( builder pluggableButtonSpec new + model: self; + label: 'Cancel'; + action: #cancelFileChooser). + window := builder build: windowSpec. + self changed: #selectedPath. + ^window + ! Item was added: + ----- Method: DirectoryChooserDialog>>finalChoice (in category 'ui details') ----- + finalChoice + "return the chosen directory that was saved by an accept click or nil; client must check for validity" + + ^self directory fullName! Item was added: + ----- Method: DirectoryChooserDialog>>userMessage (in category 'ui details') ----- + userMessage + "return the string to present to the user in order to explain the purpose of this dialog appearing" + + ^message ifNil:['Choose a directory name']! Item was added: + ----- Method: FileChooserDialog class>>openOnSuffixList:label: (in category 'instance creation') ----- + openOnSuffixList: patternList label: messageString + "open a modal dialog to choose a file. Start the dialog with aDirectory selected and files matching the default 'everything' pattern" + + ^self new + suffixList: patternList; + message: messageString; + getUserResponse! Item was added: + ----- Method: FileSaverDialog class>>openOnInitialFilename:label: (in category 'instance creation') ----- + openOnInitialFilename: filenameString label: labelString + "open a modal dialog to save a file. Start the dialog with the default directory selected and the suggested file name, set the user message to labelString" + + + ^self new + initialFilename: filenameString; + message: labelString; + getUserResponse + + ! Item was changed: ----- Method: FileSaverDialog>>initialFilename: (in category 'initialize-release') ----- + initialFilename: aFilenameOrNil - initialFilename: aFilename "Set the initial choice of filename to highlight. We split the potential filename to see if it includes a path and if so, use that as the chosen directory - the client can manually change that with a subsequent send of #directory: if wanted. We split the root filename to find an extension and use that as the suffix - again, the client can manually change that later" | e f p | + aFilenameOrNil ifNil:[^self]. + + p := FileDirectory dirPathFor: aFilenameOrNil. - p := FileDirectory dirPathFor: aFilename. p isEmpty ifFalse:[self directory: (FileDirectory on: p)]. + f := FileDirectory localNameFor: aFilenameOrNil. - f := FileDirectory localNameFor: aFilename. fileName := f. e := FileDirectory extensionFor: f. e isEmpty ifFalse:[self suffix: e]!

1 0

Unexpected - Matrix>>at:at:ifInvalid:
by Chris Cunningham 27 Nov '17

27 Nov '17

I expected the argument to the last par to the method to expect a block, but it expects an value (returned directly to the caller). I would have expected it to behave like at:ifAbsent: instead (which expects the block and evaluates it and returns it if not found). Guess i'll add a different set of behaviors instead: #row:col:ifAbsent: which expects a block, say. Any other ideas? As another question, should the comment for Matrix be updated to not be a complete comparison between Matrix and Array2D, which is no longer in the image? Thanks, cbc

3 3

The Inbox: Collections-cbc.769.mcz
by commits＠source.squeak.org 27 Nov '17

27 Nov '17

A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-cbc.769.mcz ==================== Summary ==================== Name: Collections-cbc.769 Author: cbc Time: 27 November 2017, 1:21:09.685285 pm UUID: 59c54629-954c-504d-87a9-cb745d5e9188 Ancestors: Collections-nice.768 Updated Matrix comment to be consistent by itself (instead of only in comparison to Array2D, which isn't in the system). Added ...ifAbsent: pairs to the ...ifInvalid: calls, to be more standard, but left the ...ifInvalid: in place (useful if you want to present the matrix is not fixed size). Added some nicer named methods like #atRow:column: to be more specific about what is called, but left old #at:at: to not inconvenience previous users. =============== Diff against Collections-nice.768 =============== Item was changed: Collection subclass: #Matrix instanceVariableNames: 'nrows ncols contents' classVariableNames: '' poolDictionaries: '' category: 'Collections-Unordered'! + !Matrix commentStamp: 'cbc 11/27/2017 13:10' prior: 0! + I represent a two-dimensional array. - !Matrix commentStamp: '<historical>' prior: 0! - I represent a two-dimensional array, rather like Array2D. - There are three main differences between me and Array2D: - (1) Array2D inherits from ArrayedCollection, but isn't one. A lot of things that should work - do not work in consequence of this. - (2) Array2D uses "at: column at: row" index order, which means that nothing you write using - it is likely to work either. I use the almost universal "at: row at: column" order, so it is - much easier to adapt code from other languages without going doolally. - (3) Array2D lets you specify the class of the underlying collection, I don't. + I use an underlying Array to hold the elements, but present a row by column access to the array. In particular, I use the almost universal "at: row at: column" order, so it is much easier to adapt code from other languages without going doolally. + Structure: nrows : a non-negative integer saying how many rows there are. ncols : a non-negative integer saying how many columns there are. contents : an Array holding the elements in row-major order. That is, for a 2x3 array + the contents are (11 12 13 21 22 23). + (show in graphical form: + 11 21 + 12 22 + 13 23 + ) - the contents are (11 12 13 21 22 23). Array2D uses column major order. + Another reason (besides speed) for always insisting on an Array is that letting it be something - You can specify the class of 'contents' when you create a new Array2D, - but Matrix always gives you an Array. - - There is a reason for this. In strongly typed languages like Haskell and Clean, - 'unboxed arrays' save you both space AND time. But in Squeak, while - WordArray and FloatArray and so on do save space, it costs time to use them. - A LOT of time. I've measured aFloatArray sum running nearly twice as slow as - anArray sum. The reason is that whenever you fetch an element from an Array, - that's all that happens, but when you fetch an element from aFloatArray, a whole - new Float gets allocated to hold the value. This takes time and churns memory. - So the paradox is that if you want fast numerical stuff, DON'T use unboxed arrays!! - - Another reason for always insisting on an Array is that letting it be something else would make things like #, and #,, rather more complicated. Always using Array is the simplest thing that could possibly work, and it works rather well. - I was trying to patch Array2D to make more things work, but just couldn't get my head - around the subscript order. That's why I made Matrix. - Element-wise matrix arithmetic works; you can freely mix matrices and numbers but don't try to mix matrices and arrays (yet). Matrix multiplication, using the symbol +* (derived from APL's +.x), works between (Matrix or Array) +* (Matrix or Array). Don't try to use a number as an argument of +*. Matrix * Number and Number * Matrix work fine, so you don't need +* with numbers. Still to come: oodles of stuff. Gaussian elimination maybe, other stuff probably not. + + original author: roak! - ! Item was changed: ----- Method: Matrix>>at:at: (in category 'accessing') ----- at: row at: column + ^self atRow: row column: column! - ^contents at: (self indexForRow: row andColumn: column)! Item was added: + ----- Method: Matrix>>at:at:ifAbsent: (in category 'accessing') ----- + at: r at: c ifAbsent: absentBlock + ^self atRow: r column: c ifAbsent: absentBlock! Item was changed: ----- Method: Matrix>>at:at:ifInvalid: (in category 'accessing') ----- at: r at: c ifInvalid: v "If r,c is a valid index for this matrix, answer the corresponding element. Otherwise, answer v." + ^self atRow: r column: c ifAbsent: [v] + "Note: the ..ifInvalid: option is useful is pretending the matrix isn't a fixed size."! - - (r between: 1 and: nrows) ifFalse: [^v]. - (c between: 1 and: ncols) ifFalse: [^v]. - ^contents at: (r-1)*ncols + c - ! Item was changed: ----- Method: Matrix>>at:at:put: (in category 'accessing') ----- at: row at: column put: value + ^self atRow: row column: column put: value! - ^contents at: (self indexForRow: row andColumn: column) put: value! Item was added: + ----- Method: Matrix>>atRow:column: (in category 'accessing') ----- + atRow: row column: column + ^contents at: (self indexForRow: row andColumn: column)! Item was added: + ----- Method: Matrix>>atRow:column:ifAbsent: (in category 'accessing') ----- + atRow: r column: c ifAbsent: absentBlock + "If r,c is a valid index for this matrix, answer the corresponding element. + Otherwise, answer absentBlock value." + + (r between: 1 and: nrows) ifFalse: [^absentBlock value]. + (c between: 1 and: ncols) ifFalse: [^absentBlock value]. + ^contents at: (r-1)*ncols + c + ! Item was added: + ----- Method: Matrix>>atRow:column:put: (in category 'accessing') ----- + atRow: row column: column put: value + ^contents at: (self indexForRow: row andColumn: column) put: value!

1 0

Unicode method returns "?"
by John-Reed Maffeo 27 Nov '17

27 Nov '17

The problem I am trying to debug occurs in the method #unescapeUnicode while parsing data from a JSON stream at a web address using the JSON package tonyg.39. I have decomposed the problem to a repeatable test case: Unicode value: (Integer readFrom: '2019' readStream base: 16) >> I expect to see a right single quote mark, but a question mark is returned. I have to tried to debug this statement, but I don't understand the code. I also get question marks when I use other decimal numbers: 2000 to: 2030 do:[ :each | Transcript show: (Unicode charFromUnicode: each)] My work around is to scan results for question marks and replace them. I get the same results in 64 and 32 bit images. Squeak5.1 latest update: #16549 Current Change Set: WorkSpace Image format 68021 (64 bit) Squeak5.0 latest update: #15113 Current Change Set: BBCR_Dev Image format 6521 (32 bit) -jrm

3 5

The Trunk: Graphics-pre.386.mcz
by commits＠source.squeak.org 27 Nov '17

27 Nov '17

Patrick Rein uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-pre.386.mcz ==================== Summary ==================== Name: Graphics-pre.386 Author: pre Time: 27 November 2017, 5:15:20.018723 pm UUID: edc4e679-010f-c24c-b74e-3fe17fbefe4d Ancestors: Graphics-nice.385 Improves comment and code of veryDeepCopy code in Color (very minor change) =============== Diff against Graphics-nice.385 =============== Item was changed: ----- Method: Color>>veryDeepCopyWith: (in category 'copying') ----- veryDeepCopyWith: deepCopier + "I am immutable in the Morphic world. Do not record me." + ^ self! - "Return self. I am immutable in the Morphic world. Do not record me."!

1 0

The Trunk: Kernel-pre.1125.mcz
by commits＠source.squeak.org 27 Nov '17

27 Nov '17

Patrick Rein uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-pre.1125.mcz ==================== Summary ==================== Name: Kernel-pre.1125 Author: pre Time: 27 November 2017, 5:13:00.494723 pm UUID: 9e2716d1-e17d-1d4e-a6db-bdab28e189c8 Ancestors: Kernel-dtl.1124 Adds a comment for deepCopy to make the consequences regarding object identity explicit. =============== Diff against Kernel-dtl.1124 =============== Item was changed: ----- Method: Object>>deepCopy (in category 'copying') ----- deepCopy + "Answer a copy of the receiver with its own copy of each instance variable. + WARNING: deepCopy does not preserve object identities in cycles in the object graph. Consider using #veryDeepCopy instead." - "Answer a copy of the receiver with its own copy of each instance - variable." | newObject class index | class := self class. (class == Object) ifTrue: [^self]. class isVariable ifTrue: [index := self basicSize. newObject := class basicNew: index. [index > 0] whileTrue: [newObject basicAt: index put: (self basicAt: index) deepCopy. index := index - 1]] ifFalse: [newObject := class basicNew]. index := class instSize. [index > 0] whileTrue: [newObject instVarAt: index put: (self instVarAt: index) deepCopy. index := index - 1]. ^newObject! Item was changed: ----- Method: Object>>veryDeepCopy (in category 'copying') ----- veryDeepCopy + "Do a complete tree copy using a dictionary. An object in the tree twice is only copied once. All references to the object in the copy of the tree will point to the new copy." - "Do a complete tree copy using a dictionary. An object in the tree twice is only copied once. All references to the object in the copy of the tree will point to the new copy." | copier new | copier := DeepCopier new: self initialDeepCopierSize. new := self veryDeepCopyWith: copier. copier mapUniClasses. copier references associationsDo: [:assoc | assoc value veryDeepFixupWith: copier]. copier fixDependents. ^ new!

1 0

One the purpose and use of Squeak's project mechanism
by Marcel Taeumel 27 Nov '17

27 Nov '17

Hi, there. During the last weeks, there has been vivid discussions about the use of Morphic's globals and Squeak's project mechanism on this list. I think that many of us use projects either for context/task management or not at all. However, Squeak's projects represent an abstraction for having multiple UI frameworks in the very same environment up and running. I think this is crucial and powerful and sets us apart from many other Smalltalk implementations. For now, we have MVC and the SqueakShell in addition to Morphic. There is room for more; the Project interface is considered extensible. :) Last year, we wrote down something in this regard: Marcel Taeumel and Robert Hirschfeld. Evolving User Interfaces From Within Self-sustaining Programming Environments: Exploring the Project Concept of Squeak/Smalltalk to Bootstrap UIs. In Proceedings of the Programming Experience 2016 (PX/16) Workshop, co-located with the European Conference on Object-oriented Programming (ECOOP), pages 43-59, Rome, Italy, July 18, 2016, ACM DL. Please find an author's copy here: http://hirschfeld.org/writings/media/TaeumelHirschfeld_2016_EvolvingUserInt… [http://hirschfeld.org/writings/media/TaeumelHirschfeld_2016_EvolvingUserInt…] The original remains at ACM DL: https://dl.acm.org/citation.cfm?id=2984386 [https://dl.acm.org/citation.cfm?id=2984386] Enjoy the reading. :-) Best, Marcel

1 0

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

Jump to page: