Squeak-dev July 2018

squeak-dev@lists.squeakfoundation.org

28 participants
119 discussions

Start a nNew thread

[Test][Squeak5.2a] Dropping a 32bit myProject.pr object file into a 64bit image
by H. Hirzel 02 Jul '18

02 Jul '18

Hello What happens if you drop the attached *.pr file (32bit) into a 64 bit image? Regards -- Hannes

2 2

The Trunk: Collections-ul.799.mcz
by commits＠source.squeak.org 02 Jul '18

02 Jul '18

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.799.mcz ==================== Summary ==================== Name: Collections-ul.799 Author: ul Time: 2 July 2018, 8:56:32.531434 pm UUID: b0bbc442-2e2b-4d95-8b44-c3d9c504eae3 Ancestors: Collections-ul.798 - use ifNil:ifNotNil: & friends instead of isNil ifTrue:, == nil ifTrue, etc =============== Diff against Collections-ul.798 =============== Item was changed: ----- Method: Collection>>detectMax: (in category 'enumerating') ----- detectMax: aBlock "Evaluate aBlock with each of the receiver's elements as the argument. Answer the element for which aBlock evaluates to the highest magnitude. If collection empty, return nil. This method might also be called elect:." | maxElement maxValue | self do: [:each | | val | + maxValue + ifNotNil: [ + (val := aBlock value: each) > maxValue + ifTrue: [ + maxElement := each. + maxValue := val ] ] + ifNil: [ + "first element" - maxValue == nil - ifFalse: [ - (val := aBlock value: each) > maxValue ifTrue: [ - maxElement := each. - maxValue := val]] - ifTrue: ["first element" maxElement := each. + maxValue := aBlock value: each ]. - maxValue := aBlock value: each]. "Note that there is no way to get the first element that works for all kinds of Collections. Must test every one."]. ^ maxElement! Item was changed: ----- Method: Collection>>detectMin: (in category 'enumerating') ----- detectMin: aBlock "Evaluate aBlock with each of the receiver's elements as the argument. Answer the element for which aBlock evaluates to the lowest number. If collection empty, return nil." | minElement minValue | self do: [:each | | val | + minValue + ifNotNil: [ + (val := aBlock value: each) < minValue + ifTrue: [ + minElement := each. + minValue := val ] ] + ifNil: [ + "first element" - minValue == nil - ifFalse: [ - (val := aBlock value: each) < minValue ifTrue: [ - minElement := each. - minValue := val]] - ifTrue: ["first element" minElement := each. + minValue := aBlock value: each ]. - minValue := aBlock value: each]. "Note that there is no way to get the first element that works for all kinds of Collections. Must test every one."]. ^ minElement! Item was changed: ----- Method: LimitingLineStreamWrapper>>next (in category 'accessing') ----- next "Provide character-based access" + position ifNil: [ ^nil ]. - position isNil ifTrue: [^nil]. position < line size ifTrue: [^line at: (position := position + 1)]. line := stream nextLine. self updatePosition. ^ Character cr! Item was changed: ----- Method: LinkedList>>removeLink:ifAbsent: (in category 'removing') ----- removeLink: aLink ifAbsent: aBlock "Remove aLink from the receiver. If it is not there, answer the result of evaluating aBlock." | tempLink | aLink == firstLink ifTrue: [firstLink := aLink nextLink. aLink == lastLink ifTrue: [lastLink := nil]] ifFalse: [tempLink := firstLink. + [tempLink ifNil: [ ^ aBlock value ]. - [tempLink == nil ifTrue: [^aBlock value]. tempLink nextLink == aLink] whileFalse: [tempLink := tempLink nextLink]. tempLink nextLink: aLink nextLink. aLink == lastLink ifTrue: [lastLink := tempLink]]. "Not nilling the link enables us to delete while iterating" "aLink nextLink: nil." ^aLink! Item was changed: ----- Method: PositionableStream>>nextWord (in category 'nonhomogeneous accessing') ----- nextWord "Answer the next two bytes from the receiver as an Integer." | high low | + high := self next ifNil: [ ^false ]. + low := self next ifNil: [ ^false ]. - high := self next. - high==nil ifTrue: [^false]. - low := self next. - low==nil ifTrue: [^false]. ^(high asInteger bitShift: 8) + low asInteger! Item was changed: ----- Method: RWBinaryOrTextStream>>next (in category 'accessing') ----- next + isBinary ifFalse: [ ^super next ]. + ^super next ifNotNil: [ :character | character asInteger ]! - | byte | - ^ isBinary - ifTrue: [byte := super next. - byte ifNil: [nil] ifNotNil: [byte asciiValue]] - ifFalse: [super next]. - ! Item was changed: ----- Method: Stream>>collect: (in category 'enumerating') ----- collect: block ^ Generator on: [:g | [self atEnd] whileFalse: [ + g yield: (self next ifNotNil: [:object | block value: object])]]! - g yield: (self next - ifNil: [nil] - ifNotNil: [:object | block value: object])]]! Item was changed: ----- Method: Stream>>readInto:startingAt:count: (in category 'accessing') ----- readInto: aCollection startingAt: startIndex count: n "Read n objects into the given collection. Return number of elements that have been read." | obj | 0 to: n - 1 do: [:i | + obj := self next ifNil: [ ^i ]. - (obj := self next) == nil ifTrue: [^i]. aCollection at: startIndex + i put: obj]. ^n! Item was changed: ----- Method: String>>correctAgainst:continuedFrom: (in category 'converting') ----- correctAgainst: wordList continuedFrom: oldCollection "Like correctAgainst:. Use when you want to correct against several lists, give nil as the first oldCollection, and nil as the last wordList." + ^self + correctAgainstEnumerator: ( + wordList ifNotNil: [ + [ :action | wordList do: action without: nil ] ]) + continuedFrom: oldCollection! - ^ wordList isNil - ifTrue: [ self correctAgainstEnumerator: nil - continuedFrom: oldCollection ] - ifFalse: [ self correctAgainstEnumerator: [ :action | wordList do: action without: nil] - continuedFrom: oldCollection ]! Item was changed: ----- Method: String>>correctAgainstDictionary:continuedFrom: (in category 'converting') ----- correctAgainstDictionary: wordDict continuedFrom: oldCollection "Like correctAgainst:continuedFrom:. Use when you want to correct against a dictionary." + ^self + correctAgainstEnumerator: ( + wordDict ifNotNil: [ + [ :action | wordDict keysDo: action ] ]) + continuedFrom: oldCollection! - ^ wordDict isNil - ifTrue: [ self correctAgainstEnumerator: nil - continuedFrom: oldCollection ] - ifFalse: [ self correctAgainstEnumerator: [ :action | wordDict keysDo: action ] - continuedFrom: oldCollection ]! Item was changed: ----- Method: String>>correctAgainstEnumerator:continuedFrom: (in category 'private') ----- correctAgainstEnumerator: wordBlock continuedFrom: oldCollection "The guts of correction, instead of a wordList, there is a block that should take another block and enumerate over some list with it." | choices results maxChoices scoreMin | scoreMin := self size // 2 min: 3. maxChoices := 10. + choices := oldCollection ifNil: [ + SortedCollection sortBlock: [ :x :y | x value > y value ] ]. + wordBlock + ifNil: [ + results := OrderedCollection new. - oldCollection isNil - ifTrue: [ choices := SortedCollection sortBlock: [ :x :y | x value > y value ] ] - ifFalse: [ choices := oldCollection ]. - wordBlock isNil - ifTrue: - [ results := OrderedCollection new. 1 to: (maxChoices min: choices size) do: [ :i | results add: (choices at: i) key ] ] + ifNotNil: [ + wordBlock + value: [ :word | + | score | + (score := self alike: word) >= scoreMin + ifTrue: [ + choices add: (Association key: word value: score). + choices size >= maxChoices + ifTrue: [ scoreMin := (choices at: maxChoices) value ] ] ]. - ifFalse: - [ wordBlock value: [ :word | | score | - (score := self alike: word) >= scoreMin ifTrue: - [ choices add: (Association key: word value: score). - (choices size >= maxChoices) ifTrue: [ scoreMin := (choices at: maxChoices) value] ] ]. results := choices ]. ^ results! Item was changed: ----- Method: String>>findTokens:escapedBy: (in category 'accessing') ----- + findTokens: delimiters escapedBy: quoteDelimiters - findTokens: delimiters escapedBy: quoteDelimiters "Answer a collection of Strings separated by the delimiters, where delimiters is a Character or collection of characters. Two delimiters in a row produce an empty string (compare this to #findTokens, which treats sequential delimiters as one). The characters in quoteDelimiters are treated as quote characters, such that any delimiter within a pair of matching quoteDelimiter characters is treated literally, rather than as a delimiter. The quoteDelimiter characters may be escaped within a quoted string. Two sequential quote characters within a quoted string are treated as a single character. This method is useful for parsing comma separated variable strings for spreadsheet import and export." | tokens rs activeEscapeCharacter ts char token delimiterChars quoteChars | + delimiterChars := (delimiters ifNil: [ '' ]) asString. + quoteChars := (quoteDelimiters ifNil: [ '' ]) asString. - delimiterChars := (delimiters isNil - ifTrue: [''] - ifFalse: [delimiters]) asString. - quoteChars := (quoteDelimiters isNil - ifTrue: [''] - ifFalse: [quoteDelimiters]) asString. tokens := OrderedCollection new. rs := ReadStream on: self. activeEscapeCharacter := nil. ts := WriteStream on: ''. + [ rs atEnd ] + whileFalse: [ + char := rs next. + activeEscapeCharacter + ifNil: [ + (quoteChars includes: char) + ifTrue: [ activeEscapeCharacter := char ] + ifFalse: [ + (delimiterChars includes: char) + ifTrue: [ + token := ts contents. - [rs atEnd] - whileFalse: [char := rs next. - activeEscapeCharacter isNil - ifTrue: [(quoteChars includes: char) - ifTrue: [activeEscapeCharacter := char] - ifFalse: [(delimiterChars includes: char) - ifTrue: [token := ts contents. tokens add: token. + ts := WriteStream on: '' ] + ifFalse: [ ts nextPut: char ] ] ] + ifNotNil: [ + char == activeEscapeCharacter + ifTrue: [ + rs peek == activeEscapeCharacter + ifTrue: [ ts nextPut: rs next ] + ifFalse: [ activeEscapeCharacter := nil ] ] + ifFalse: [ ts nextPut: char ] ] ]. - ts := WriteStream on: ''] - ifFalse: [ts nextPut: char]]] - ifFalse: [char == activeEscapeCharacter - ifTrue: [rs peek == activeEscapeCharacter - ifTrue: [ts nextPut: rs next] - ifFalse: [activeEscapeCharacter := nil]] - ifFalse: [ts nextPut: char]]]. token := ts contents. + (tokens isEmpty and: [ token isEmpty ]) + ifFalse: [ tokens add: token ]. - (tokens isEmpty and: [token isEmpty]) - ifFalse: [tokens add: token]. ^ tokens!

1 0

The Trunk: 60Deprecated-ul.23.mcz
by commits＠source.squeak.org 02 Jul '18

02 Jul '18

Levente Uzonyi uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-ul.23.mcz ==================== Summary ==================== Name: 60Deprecated-ul.23 Author: ul Time: 2 July 2018, 8:53:19.652521 pm UUID: 4dd2eb16-f124-4343-bc9d-3700e9055d7c Ancestors: 60Deprecated-eem.22 Deprecated HashedCollection's #findElementOrNil: and #fullCheck. =============== Diff against 60Deprecated-eem.22 =============== Item was added: + ----- Method: HashedCollection>>findElementOrNil: (in category '*60Deprecated-compatibility') ----- + findElementOrNil: anObject + "This method has been superseeded by #scanFor: + It is here for compatibility with external packages only." + ^self scanFor: anObject! Item was added: + ----- Method: HashedCollection>>fullCheck (in category '*60Deprecated-compatibility') ----- + fullCheck + "This is a private method, formerly implemented in Set, that is no longer required. + It is here for compatibility with external packages only." + "Keep array at least 1/4 free for decent hash behavior" + + array size * 3 < (tally * 4) ifTrue: [ self grow ]!

1 0

The Inbox: Tools-cmm.826.mcz
by commits＠source.squeak.org 02 Jul '18

02 Jul '18

Chris Muller uploaded a new version of Tools to project The Inbox: http://source.squeak.org/inbox/Tools-cmm.826.mcz ==================== Summary ==================== Name: Tools-cmm.826 Author: cmm Time: 1 July 2018, 6:35:14.376257 pm UUID: e7b1e100-7da9-48e8-b544-7a5035c0693e Ancestors: Tools-cmm.825 Command++ and Command+- hot keys for increasing/decreasing the sizes of all fonts. =============== Diff against Tools-cmm.825 =============== Item was changed: ----- Method: PasteUpMorph>>defaultDesktopCommandKeyTriplets (in category '*Tools') ----- defaultDesktopCommandKeyTriplets "Answer a list of triplets of the form <key> <receiver> <selector> [+ optional fourth element, a <description> for use in desktop-command-key-help] that will provide the default desktop command key handlers. If the selector takes an argument, that argument will be the command-key event" | noviceKeys expertKeys | noviceKeys := { { $o. ActiveWorld. #activateObjectsTool. 'Activate the "Objects Tool"'}. { $r. ActiveWorld. #restoreMorphicDisplay. 'Redraw the screen'}. { $z. self. #undoOrRedoCommand. 'Undo or redo the last undoable command'}. { $F. Project current. #toggleFlapsSuppressed. 'Toggle the display of flaps'}. { $N. self. #toggleClassicNavigatorIfAppropriate. 'Show/Hide the classic Navigator, if appropriate'}. { $M. self. #toggleShowWorldMainDockingBar. 'Show/Hide the Main Docking Bar'}. { $]. Smalltalk. #saveSession. 'Save the image.'}. }. Preferences noviceMode ifTrue:[^ noviceKeys]. expertKeys := { { $b. SystemBrowser. #defaultOpenBrowser. 'Open a new System Browser'}. { $k. StringHolder. #open. 'Open a new, blank Workspace'}. { $m. self. #putUpNewMorphMenu. 'Put up the "New Morph" menu'}. { $O. self. #findAMonticelloBrowser. 'Bring a Monticello window into focus.'}. { $t. self. #findATranscript:. 'Make a System Transcript visible'}. { $w. SystemWindow. #closeTopWindow. 'Close the topmost window'}. { Character escape. SystemWindow. #closeTopWindow. 'Close the topmost window'}. { $C. self. #findAChangeSorter:. 'Make a Change Sorter visible'}. { $L. self. #findAFileList:. 'Make a File List visible'}. { $P. self. #findAPreferencesPanel:. 'Activate the Preferences tool'}. { $R. Utilities. #browseRecentSubmissions. 'Make a Recent Submissions browser visible'}. { $W. self. #findAMessageNamesWindow:. 'Make a MessageNames tool visible'}. { $Z. ChangeList. #browseRecentLog. 'Browse recently-logged changes'}. { $\. SystemWindow. #sendTopWindowToBack. 'Send the top window to the back'}. { $_. Smalltalk. #quitPrimitive. 'Quit the image immediately.'}. + + { $-. Preferences. #decreaseFontSize. 'Increase all font sizes'}. + { $+. Preferences. #increaseFontSize. 'Decrease all font sizes'}. }. ^ noviceKeys, expertKeys !

5 7

[Presentations][Demo theme] How to activate the Demo theme.
by H. Hirzel 02 Jul '18

02 Jul '18

On 7/2/18, Tobias Pape <Das.Linux(a)gmx.de> wrote: > There's a Demo theme thing that copies your current theme and scales up the > fonts. > Also there's some dpi/auto-scaling code for the vm and the image but I have > no time finishing that… > > best regards > -Tobias Thanks for this hint how to deal with different screen sizes. I wondered how to get at the demo theme: The answer. When a pristine image is started up and the configuration screens appear - choose 'big fonts'. Then a 'Demo' theme will be added. --Hannes

1 0

FW: The Trunk: Help-Squeak-Project-tpr.55.mcz
by Edgar J. De Cleene 02 Jul '18

02 Jul '18

First link http://squeakros.org/Divagaciones/DivagacionesIndex20180628.obj.gz I setup a minimal how to retrieve this and have a textual only html of swiki inside the 5.2 .image. ------ Forwarded Message > From: "Edgar J. De Cleene" <edgardec2005(a)gmail.com> > Date: Fri, 29 Jun 2018 07:47:17 -0300 > To: "H. Hirzel" <hannes.hirzel(a)gmail.com> > Conversation: [squeak-dev] The Trunk: Help-Squeak-Project-tpr.55.mcz > Subject: Re: [squeak-dev] The Trunk: Help-Squeak-Project-tpr.55.mcz > > Not only how to have complete swiki inside or in external folders to Squeak. > Yesterday I complete the grab and processing for a final .obj.gz of only 4.5 > mb of data. > I start the server now and connect to SqueakRos Discord channel > Any wishing exchange ideas is welcome > > https://discord.gg/aVeXVkC > > > Edgar > @morplenauta > > > > On 28/06/2018, 06:00, "H. Hirzel" <hannes.hirzel(a)gmail.com> wrote: > >> P.S.3 And Edgar has another small project with potentially amazing effect >> >> >> HTMLScrollField >> >> If you are interested in taking this on we can provide you with more info. >> >> It is a project which might take between 2....20 hours depending on >> what you want to accomplish. >> >> The idea is to have a scroll field which does some basic HTML to text >> rendering. The ingredients so to say are in the image. They just need >> to be hooked together properly. >> >> And Edgar has a first implementation. ------ End of Forwarded Message

2 2

[Test][Squeak5.2][OpenCobalt] Installation : Result?
by H. Hirzel 02 Jul '18

02 Jul '18

Is it possible to install OpenCobalt into Squeak 5.2 Open Cobalt "http://opencobalt.org (Best to run this from an image in an open cobalt directory)" Installer ss project: 'TweakCore'; install: 'update'. [Installer ss project: 'TweakExtras'; install: 'update'] on: (Smalltalk at: #CUnsynchronizedModification) do: [:ex | ex resume]. Installer cobalt project: 'Tweak'; answer: 'Would you like to conserve memory at all costs?' with: true; answer: 'Password for interactive VNC connections?' with: 'cobalt'; answer: 'Would you like to add the RFBServer to the World open menu?' with: true; install: 'update' I wonder what an open cobalt directory is. --Hannes

1 0

[Squeak5.2][ProjectLoading][Documentation] ImageSegment comeFullyUpOnReload: smartRefStream
by H. Hirzel 02 Jul '18

02 Jul '18

Hello Each Object implements the message comeFullyUpOnReload that means activities which have to be done after the object has been reloaded from a file or stream. The default is to do nothing. Object comeFullyUpOnReload: smartRefStream "Normally this read-in object is exactly what we want to store. 7/26/96 tk" ^ self http://wiki.squeak.org/squeak/1280 But ImageSegment objects use a specialized method which hdoes a lot http://wiki.squeak.org/squeak/1281 ImageSegment comeFullyUpOnReload: smartRefStream The method comment of ImageSegment comeFullyUpOnReload: smartRefStream ------------------------------------------------------------------------------------------------------------- comeFullyUpOnReload: smartRefStream "fix up the objects in the segment that changed size. An object in the segment is the wrong size for the modern version of the class. Construct a fake class that is the old size. Replace the modern class with the old one in outPointers. Load the segment. Traverse the instances, making new instances by copying fields, and running conversion messages. Keep the new instances. Bulk forward become the old to the new. Let go of the fake objects and classes. After the install (below), arrayOfRoots is filled in. Globalize new classes. Caller may want to do some special install on certain objects in arrayOfRoots. May want to write the segment out to disk in its new form." ------------------------------------------------------------------------------------------------------------- Interestingly if you add returns and spaces and number we have a pretty nice description of the algorithm The same this time with returns and empty lines ------------------------------------------------------------------------------------------------------------- "fix up the objects in the segment that changed size. An object in the segment is the wrong size for the modern version of the class. 1. Construct a fake class that is the old size. 2. Replace the modern class with the old one in outPointers. 3. Load the segment. 4. Traverse the instances, making new instances by copying fields, and running conversion messages. 5. Keep the new instances. 6. Bulk forward become the old to the new. 7. Let go of the fake objects and classes. 8. After the install (below), arrayOfRoots is filled in. 9. Globalize new classes. 10. Caller may want to do some special install on certain objects in arrayOfRoots. 11. May want to write the segment out to disk in its new form." ------------------------------------------------------------------------------------------------------------- The method is difficult to understand and I assume this is where Trygve Reenskaug would say that we need a CONTEXT and an INTERACTION object..... Note: DiskProxy also implements has also a complex implementation of comeFullyUpOnReload Regards Hannes

1 0

The Inbox: System-kks.1037.mcz
by commits＠source.squeak.org 02 Jul '18

02 Jul '18

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-kks.1037.mcz ==================== Summary ==================== Name: System-kks.1037 Author: kks Time: 2 July 2018, 2:40:57.804608 pm UUID: 4fb3133d-f8f9-49aa-8c56-c423c4af0827 Ancestors: System-kfr.1036 Return empty stream if project file is not found =============== Diff against System-kfr.1036 =============== Item was changed: ----- Method: ProjectLoading class>>projectStreamFromArchive: (in category 'accessing') ----- projectStreamFromArchive: archive | ext prFiles entry unzipped | ext := FileDirectory dot, Project projectExtension. prFiles := archive members select:[:any| any fileName endsWith: ext]. prFiles isEmpty ifTrue: [ext := FileDirectory dot, 'sexp'. prFiles := archive members select:[:any| any fileName endsWith: ext]]. + prFiles isEmpty ifTrue: [^'']. - prFiles isEmpty ifTrue: ['']. entry := prFiles first. unzipped := MultiByteBinaryOrTextStream on: (ByteArray new: entry uncompressedSize). entry extractTo: unzipped. ^unzipped reset!

1 0

LittleSmalltalk and loading od 2004 .pr
by Edgar J. De Cleene 02 Jul '18

02 Jul '18

Folks: I go again to LittleSmalltalk in the quest of having some Smalltak in WebAssembly. For the forks of LittleSmalltalk which compiles without any complain and works in macOS High Sierra 10.13.5 https://github.com/kyle-github/littlesmalltalk https://github.com/suetanvil/lst3r Today I remember having some of 2004 which I attach here The project load in 3.10.2 I attach SciptableButton as do not exist in 5.2 But .pr fails to load complaint about endianess . First time I see such in years of use Mac Linux and Windows Maybe the original was saved in a G4, but today opens in 3.10.2. I remade this in 5.2 as could be a valuable thing in 5.2 Now we have Enviroments enhanced, so maybe could made a very tiny thing The Kyle implementation lets have a html view of the system in less of 3500 object and a start image of 93kb. No bad starting point ... Edgar @morplenauta

5 13