Squeak-dev September 2017

squeak-dev@lists.squeakfoundation.org

30 participants
85 discussions

The Trunk: 39Deprecated-dtl.21.mcz
by commits＠source.squeak.org 20 Sep '17

20 Sep '17

David T. Lewis uploaded a new version of 39Deprecated to project The Trunk: http://source.squeak.org/trunk/39Deprecated-dtl.21.mcz ==================== Summary ==================== Name: 39Deprecated-dtl.21 Author: dtl Time: 20 September 2017, 11:20:48.035778 am UUID: 01265807-b56f-4830-84a4-5bfbdcf3f4aa Ancestors: 39Deprecated-fbs.20 Revert the last update because deprecated methods in this package should not be removed, instead the entire package may be excluded from a newer image release. =============== Diff against 39Deprecated-fbs.20 =============== Item was added: + ----- Method: SharedQueue2>>flush (in category '*39Deprecated') ----- + flush + self deprecated: 'use removeAll'. + ^self removeAll! Item was added: + ----- Method: SharedQueue2>>flushAllSuchThat: (in category '*39Deprecated') ----- + flushAllSuchThat: aBlock + self deprecated: 'use removeAllSuchThat:'. + + ^self removeAllSuchThat: aBlock!

1 0

Smalltalk Archeology
by Martin Dahl 20 Sep '17

20 Sep '17

Hi, out of interest in Smalltalk and embedded systems, I am looking for the only text mode smalltalk I know of, Digitalk methods. The best my google fu has come up with is a reference to the old forum (dating back to 2007): http://forum.world.st/Check-out-the-Smalltalk-Archeology-page-Smalltalk-80-… <http://forum.world.st/Check-out-the-Smalltalk-Archeology-page-Smalltalk-80-…> Sadly, wayback has noch archived the binaries. I was wondering whether someone from this list might still have a copy of methods, or maybe somebody knows whether there is some similar page still online? Best regards Martin

3 3

The Trunk: WebClient-Core-topa.111.mcz
by commits＠source.squeak.org 20 Sep '17

20 Sep '17

Tobias Pape uploaded a new version of WebClient-Core to project The Trunk: http://source.squeak.org/trunk/WebClient-Core-topa.111.mcz ==================== Summary ==================== Name: WebClient-Core-topa.111 Author: topa Time: 20 September 2017, 3:41:58.809609 pm UUID: 63885c9e-d2c6-4c4c-836f-067626dae312 Ancestors: WebClient-Core-topa.110 Don't try to text-decode known non-texts (This happens.. for example bitbucket sends 'application/zip; charset=utf') =============== Diff against WebClient-Core-topa.110 =============== Item was changed: ----- Method: WebMessage>>textConverterForContentType (in category 'accessing') ----- textConverterForContentType | index contentType | contentType := self contentType. contentType size < 8 ifTrue: [ ^nil ]. + (contentType beginsWithAnyOf: #('application/' 'image/' 'video/' 'audio/')) ifTrue: [^nil]. index := contentType findString: 'charset=' startingAt: 1 caseSensitive: false. index = 0 ifTrue: [ ^nil ]. ^TextConverter newForEncoding: (contentType allButFirst: index + 7) "'charset=' size - 1"!

1 0

The Trunk: EToys-tpr.306.mcz
by commits＠source.squeak.org 20 Sep '17

20 Sep '17

tim Rowledge uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tpr.306.mcz ==================== Summary ==================== Name: EToys-tpr.306 Author: tpr Time: 19 September 2017, 7:02:48.372056 pm UUID: 5091afdd-f34a-4314-953b-485a827d930e Ancestors: EToys-eem.305 Fix hint & help windows for Cipher & Crostic =============== Diff against EToys-eem.305 =============== Item was changed: ----- Method: CipherPanel>>showHelpWindow (in category 'menu') ----- showHelpWindow + ((PluggableTextMorph new setText: 'The Cipher Panel displays an encrypted message. The encryption is a simple substitution code; each letter of the alphabet has been changed to a different one. - ((StringHolder new contents: 'The Cipher Panel displays an encrypted message. The encryption is a simple substitution code; each letter of the alphabet has been changed to a different one. You can solve the cipher by clicking above any letter in the message, and typing the letter you think it should be. The Cipher Panel automatically makes the same substitution anywhere else that letter occurs in the encoded message. + If you are having trouble, you can use the command menu to ''show cipher hints''. That will display how many of each letter occurs, which is often a help in solving ciphers.' translated ) - If you are having trouble, you can use the command menu to ''show cipher hints''. That will display how many of each letter occurs, which is often a help in solving ciphers.' translated) embeddedInMorphicWindowLabeled: 'About the Cipher Panel' translated) setWindowColor: (Color r: 1.0 g: 0.6 b: 0.0); openInWorld: self world extent: 389 @ 209! Item was changed: ----- Method: CipherPanel>>showHintsWindow (in category 'menu') ----- showHintsWindow + ((PluggableTextMorph new setText: 'Most bodies of english text follow a general pattern of letter usage. The following are the most common letters, in approximate order of frequency: - ((StringHolder new contents: 'Most bodies of english text follow a general pattern of letter usage. The following are the most common letters, in approximate order of frequency: E T A O N I R S H The following are the most common digraphs: EN ER RE NT TH ON IN The message you are trying to decode has the following specific statistics:' translated , self cipherStats , ' Good luck!!' translated) embeddedInMorphicWindowLabeled: 'Some Useful Statistics' translated) setWindowColor: (Color r: 1.0 g: 0.6 b: 0.0); openInWorld: self world extent: 318 @ 326! Item was changed: ----- Method: CrosticPanel>>showHelpWindow (in category 'menu') ----- showHelpWindow + ((PluggableTextMorph new setText: 'The Crostic Panel presents an acrostic puzzle for solution. As you type in answers for the clues, the letters also get entered in the text of the hidden quote. Conversely, as you guess words in the quote, those letters will fill in missing places in your answers. In addition, the first letters of all the answers together form the author''s name and title of the work from which the quote is taken. - ((StringHolder new contents: 'The Crostic Panel presents an acrostic puzzle for solution. As you type in answers for the clues, the letters also get entered in the text of the hidden quote. Conversely, as you guess words in the quote, those letters will fill in missing places in your answers. In addition, the first letters of all the answers together form the author''s name and title of the work from which the quote is taken. If you wish to make up other acrostic puzzles, follow the obvious file format in the sampleFile method. If you wish to print an acrostic to work it on paper, then change the oldStyle method to return true, and it will properly cross-index all the cells. Have fun.' translated) embeddedInMorphicWindowLabeled: 'About the Crostic Panel' translated) setWindowColor: (Color r: 1.0 g: 0.6 b: 0.0); openInWorld: self world extent: 409 @ 207! Item was changed: ----- Method: CrosticPanel>>showHintsWindow (in category 'menu') ----- showHintsWindow | hints | (self confirm: 'As hints, you will be given the five longest answers. Do you really want to do this?' translated) ifFalse: [^ self]. hints := (answers sorted: [:x :y | x size > y size]) first: 5. + ((PluggableTextMorph new setText: 'The five longest answers are... - ((StringHolder new contents: 'The five longest answers are... ' translated , (String streamContents: [:strm | hints do: [:hint | strm cr; nextPutAll: (hint collect: [:i | quote at: i])]. strm cr; cr]) , 'Good luck!!' translated) embeddedInMorphicWindowLabeled: 'Crostic Hints' translated) setWindowColor: (Color r: 1.0 g: 0.6 b: 0.0); openInWorld: self world extent: 198 @ 154!

1 0

The Trunk: Morphic-tpr.1349.mcz
by commits＠source.squeak.org 20 Sep '17

20 Sep '17

tim Rowledge uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tpr.1349.mcz ==================== Summary ==================== Name: Morphic-tpr.1349 Author: tpr Time: 19 September 2017, 6:17:46.121858 pm UUID: 81de60d2-86b3-405d-9a20-80b41eff2ec5 Ancestors: Morphic-tpr.1348 Some small fixes for the ScorePlayer - the sliders for speed/volume/moving-through-piano-roll and the indinvidual track volume/stereo position need increasing in height in order to work. We still have a very strange problem caused by the change in selecting-from-a-list circa august 2016. When trying to choose a new instrument for a track we now use a list chooser dialog that appears to fervently keep a grip on the hand focus. To see the possible culprit, look at versions of MorphicUIManager>>#chooseFrom:lines:title: and revert back to the march 15 2010 version. =============== Diff against Morphic-tpr.1348 =============== Item was changed: ----- Method: ScorePlayerMorph>>panAndVolControlsFor: (in category 'layout') ----- panAndVolControlsFor: trackIndex | volSlider panSlider c r middleLine pianoRollColor | pianoRollColor := (Color wheel: scorePlayer score tracks size) at: trackIndex. volSlider := SimpleSliderMorph new color: color; sliderColor: pianoRollColor; + extent: 101@6; - extent: 101@2; target: scorePlayer; arguments: (Array with: trackIndex); actionSelector: #volumeForTrack:put:; minVal: 0.0; maxVal: 1.0; adjustToValue: (scorePlayer volumeForTrack: trackIndex). panSlider := SimpleSliderMorph new color: color; sliderColor: pianoRollColor; + extent: 101@6; - extent: 101@2; target: scorePlayer; arguments: (Array with: trackIndex); actionSelector: #panForTrack:put:; minVal: 0.0; maxVal: 1.0; adjustToValue: (scorePlayer panForTrack: trackIndex). c := AlignmentMorph newColumn color: color; layoutInset: 0; wrapCentering: #center; cellPositioning: #topCenter; hResizing: #spaceFill; vResizing: #shrinkWrap. middleLine := Morph new "center indicator for pan slider" color: (Color r: 0.4 g: 0.4 b: 0.4); extent: 1@(panSlider height - 4); position: panSlider center x@(panSlider top + 2). panSlider addMorphBack: middleLine. r := self makeRow. r addMorphBack: (StringMorph contents: '0'). r addMorphBack: volSlider. r addMorphBack: (StringMorph contents: '10'). c addMorphBack: r. r := self makeRow. r addMorphBack: (StringMorph contents: 'L' translated). r addMorphBack: panSlider. r addMorphBack: (StringMorph contents: 'R' translated). c addMorphBack: r. ^ c ! Item was changed: ----- Method: ScorePlayerMorph>>rateControl (in category 'layout') ----- rateControl | rateSlider middleLine r | rateSlider := SimpleSliderMorph new color: color; sliderColor: Color gray; + extent: 180@6; - extent: 180@2; target: self; actionSelector: #setLogRate:; minVal: -1.0; maxVal: 1.0; adjustToValue: 0.0. middleLine := Morph new "center indicator for pan slider" color: (Color r: 0.4 g: 0.4 b: 0.4); extent: 1@(rateSlider height - 4); position: rateSlider center x@(rateSlider top + 2). rateSlider addMorphBack: middleLine. r := self makeRow hResizing: #shrinkWrap; vResizing: #rigid; height: 24. r addMorphBack: (StringMorph contents: 'slow ' translated). r addMorphBack: rateSlider. r addMorphBack: (StringMorph contents: ' fast' translated). ^ r ! Item was changed: ----- Method: ScorePlayerMorph>>scrollControl (in category 'layout') ----- scrollControl | r | scrollSlider := SimpleSliderMorph new color: color; sliderColor: Color gray; + extent: 360@6; - extent: 360@2; target: scorePlayer; actionSelector: #positionInScore:; adjustToValue: scorePlayer positionInScore. r := self makeRow hResizing: #shrinkWrap; vResizing: #rigid; height: 24. r addMorphBack: (StringMorph contents: 'start ' translated). r addMorphBack: scrollSlider. r addMorphBack: (StringMorph contents: ' end' translated). ^ r ! Item was changed: ----- Method: ScorePlayerMorph>>trackControlsFor: (in category 'layout') ----- trackControlsFor: trackIndex | r | r := self makeRow + hResizing: #spaceFill; - hResizing: #shrinkWrap; vResizing: #shrinkWrap. r addMorphBack: (self trackNumAndMuteButtonFor: trackIndex). r addMorphBack: (Morph new extent: 10@5; color: color). "spacer" r addMorphBack: (self panAndVolControlsFor: trackIndex). ^ r ! Item was changed: ----- Method: ScorePlayerMorph>>trackNumAndMuteButtonFor: (in category 'layout') ----- trackNumAndMuteButtonFor: trackIndex | muteButton instSelector pianoRollColor r | muteButton := SimpleSwitchMorph new onColor: (Color r: 1.0 g: 0.6 b: 0.6); offColor: color; color: color; label: 'Mute' translated; target: scorePlayer; actionSelector: #mutedForTrack:put:; arguments: (Array with: trackIndex). instSelector := PopUpChoiceMorph new extent: 95@14; contentsClipped: 'oboe1'; target: self; actionSelector: #atTrack:from:selectInstrument:; getItemsSelector: #instrumentChoicesForTrack:; getItemsArgs: (Array with: trackIndex). instSelector arguments: (Array with: trackIndex with: instSelector). instrumentSelector at: trackIndex put: instSelector. "select track color using same color list as PianoRollScoreMorph" pianoRollColor := (Color wheel: scorePlayer score tracks size) at: trackIndex. r := self makeRow + hResizing: #spaceFill; - hResizing: #rigid; vResizing: #spaceFill; extent: 70@10. r addMorphBack: ((StringMorph contents: trackIndex printString font: (TextStyle default fontOfSize: 24)) color: pianoRollColor). trackIndex < 10 ifTrue: [r addMorphBack: (Morph new color: color; extent: 19@8)] "spacer" ifFalse: [r addMorphBack: (Morph new color: color; extent: 8@8)]. "spacer" r addMorphBack: (StringMorph new extent: 140@14; contentsClipped: (scorePlayer infoForTrack: trackIndex)). r addMorphBack: (Morph new color: color; extent: 8@8). "spacer" r addMorphBack: instSelector. r addMorphBack: (AlignmentMorph newRow color: color). "spacer" r addMorphBack: muteButton. ^ r ! Item was changed: ----- Method: ScorePlayerMorph>>volumeControl (in category 'layout') ----- volumeControl | volumeSlider r | volumeSlider := SimpleSliderMorph new color: color; sliderColor: Color gray; + extent: 80@6; - extent: 80@2; target: scorePlayer; actionSelector: #overallVolume:; adjustToValue: scorePlayer overallVolume. r := self makeRow hResizing: #shrinkWrap; vResizing: #rigid; height: 24. r addMorphBack: (StringMorph contents: 'soft ' translated). r addMorphBack: volumeSlider. r addMorphBack: (StringMorph contents: ' loud' translated). ^ r !

1 0

Fwd: Elevator Simulator
by Bert Freudenberg 19 Sep '17

19 Sep '17

This came in via the Squeakland contact form. Any takers? He only left the telephone number, no email. ---------------------------------------------------------------------------------------- I'm looking for a good and nice programmer to work in developing an Elevators Simulator. I will provide the elevators knowledge and some basic programming ideas while the programmer will use his/her knowledge of eToys, Squeak, Smalltalk. i will pay for the programming time and will make a donation to Squeakland for a project of my choice. I'd appreciate very much on helping me find such programmer. Best regards, Gustavo Correa (593)987212150 Quito-Ecuador

1 0

Re: [squeak-dev] How should one implement a custom window color for a custom window?
by tim Rowledge 19 Sep '17

19 Sep '17

A couple of months back Eliot asked about this and I have a few minutes to spend to maybe fix it. I notice that Model>windowColorToUse sends #customWindowColor, which is not implemented. Which would seemingly lead us to expect a debugger but I see some very… interesting code in UserInterfaceTheme where a dNU: is caught and Very Odd Things are done. Ten out of ten for creative and intriguing code, minus several million for completely obscured intent. At the least it would be nice to have an implementation *somewhere* that explains what is being done, why, and maybe even how we can move to a simpler scheme. Related things I noticed - EToys-Squeakland adds Object, StringHolder & TranscriptStream class > windowColorSpecification which seem to be in need of removal. PreferencesPanel class>windowColorSpecification is seemingly in need of the chop WindowColorRegistry, the only sender of windowColorSpecification, is in the deprecated categories, though yes, i nthe 5.1 deprecation pile so maybe is has to stay for now. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: WK: Write to Keyboard

5 18

UK Smalltalk User Group Meeting - Monday, September 25th - Fizzylogo: a Smalltalk-72 lookalike
by Giovanni Corriga 18 Sep '17

18 Sep '17

The next meeting of the UK Smalltalk User Group Meeting will be on Monday, 25th September. We'll meet at a new venue The City Pride ( http://www.cityprideclerkenwell.co.uk/ ) at 7pm. Davide Della Casa will present *Fizzylogo: a Smalltalk-72 lookalike. *An excellent excuse to revisit how early Smalltalk versions (the languages, and the environments) worked under the hood, including Smalltalk-72 and Rosetta Smalltalk. If you'd like to join us, you can just show up at the pub. You can also sign up in advance at the meeting's Meetup page: https://www.meetup.com/UKSTUG/events/243468885 . See you there!

1 0

The Inbox: Tools-cbc.766.mcz
by commits＠source.squeak.org 18 Sep '17

18 Sep '17

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-cbc.766.mcz ==================== Summary ==================== Name: Tools-cbc.766 Author: cbc Time: 15 September 2017, 1:32:51.722459 pm UUID: 7fd4bc5e-35b0-954e-91f3-a1cd65adee00 Ancestors: Tools-eem.765 For Explorers, add a menu item 'Copy value' (similar to Copy name) that copies the value of the selected item, suitable for use elsewhere. =============== Diff against Tools-eem.765 =============== Item was added: + ----- Method: ObjectExplorer>>copyValue (in category 'menus - actions') ----- + copyValue + "Copy the name of the current variable, so the user can paste it into the window below and work with is." + + Clipboard clipboardText: self currentSelection value. ! Item was changed: ----- Method: ObjectExplorer>>mainTreeListMenu: (in category 'menus') ----- mainTreeListMenu: aMenu <treeListMenu> aMenu addStayUpItemSpecial. aMenu addList: #( ('inspect (i)' inspectSelection) ('explore (I)' exploreSelection) - ('method refs to this inst var' referencesToSelection) ('methods storing into this inst var' defsOfSelection) ('objects pointing to this value' objectReferencesToSelection) ('chase pointers' chasePointersForSelection) ('explore pointers' explorePointersForSelection) - ('browse full (b)' browseFull) ('browse class' browseClass) ('browse hierarchy (h)' classHierarchy) ('browse protocol (p)' browseFullProtocol) - ('references... (r)' browseVariableReferences) ('assignments... (a)' browseVariableAssignments) ('class refs (N)' browseClassRefs) - ('copy name (c)' copyName) + ('copy value' copyValue) ('basic inspect' inspectBasic)). Smalltalk isMorphic ifTrue: [ aMenu addList: #( - ('viewer for this value (v)' viewerForValue))]. aMenu addList: #( - ('monitor changes' monitorSelection)). monitorList isEmptyOrNil ifFalse: [ aMenu addList: #( ('stop monitoring all' stopMonitoring))]. ^ aMenu!

4 3

The Trunk: Network-topa.205.mcz
by commits＠source.squeak.org 18 Sep '17

18 Sep '17

Tobias Pape uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-topa.205.mcz ==================== Summary ==================== Name: Network-topa.205 Author: topa Time: 18 September 2017, 4:38:54.251829 pm UUID: 78da25ea-86bd-42ff-8979-5d33af450b2e Ancestors: Network-pre.204 Make use of IPv6 in SocketStreams unless old networking is requested. =============== Diff against Network-pre.204 =============== Item was changed: ----- Method: SocketStream class>>openConnectionToHostNamed:port: (in category 'instance creation') ----- openConnectionToHostNamed: hostName port: portNumber + + NetNameResolver useOldNetwork + ifTrue: [ | hostIP | + hostIP := NetNameResolver addressForName: hostName timeout: 20. + hostIP ifNil: [NetworkError signal: ('Cannot resolve {1}.' format: {hostName})]. + ^self openConnectionToHost: hostIP port: portNumber] + ifFalse: [| addressInformations lastError | + addressInformations := SocketAddressInformation + forHost: hostName + service: portNumber asString + flags: 0 + addressFamily: 0 + socketType: SocketAddressInformation socketTypeStream + protocol: SocketAddressInformation protocolTCP. + addressInformations do: [:addressInformation | + [^ self on: addressInformation connect] on: NetworkError do: [:e | lastError := e]]. + ^ lastError ifNotNil: [:e | e pass]]! - | hostIP | - hostIP := NetNameResolver addressForName: hostName timeout: 20. - hostIP ifNil: [NetworkError signal: ('Cannot resolve {1}.' format: {hostName})]. - ^self openConnectionToHost: hostIP port: portNumber!

1 0

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