Squeak-dev August 2018

squeak-dev@lists.squeakfoundation.org

41 participants
83 discussions

Re: [squeak-dev] [Esug-list] Smalltalk Security Landscape - survey for ESUG 2018
by Tobias Pape 14 Aug '18

14 Aug '18

Dear Jerry, I'm cc-ing squeak-dev, as we might as well have a lot of insight for you there. > On 13.08.2018, at 19:49, Jerry Kott <jkott(a)image-ware.com> wrote: > > Dear Smalltalkers and friends, > > I am planning to have a presentation titled ‘Smalltalk Security Landscape’ at this year’s ESUG conference. In my presentation I hope to increase cybersecurity awareness within the Smalltalk community and help shape the evolution of the language and its ecosystem. > > I have put together a survey to help me research the topic. I ask for your kind help to get a picture of where Smalltalk stands in the area of cybersecurity. The survey is completely anonymous, and should take less than 15 minutes to complete. I appreciate your time and participation. > I'd like to make you aware that you missed Squeak altogether in Question 8: Cincom Smalltalk (VisualWorks or Object Studio) Pharo GemStone/S VA Smalltalk Other Smalltalk dialect (e.g., Amber, Dolphin, VST, ...) Also, it is not possible to specify _what_ other dialect is used, so you miss Cuis, SOM, GNU Smalltalk and all the like. Please, if possible correct this. Best regards -Tobias > If you are in a management role, I would like your help by forwarding this to your team members to help reach the broad Smalltalk community. > > Here is a link: https://www.surveymonkey.com/r/esug2018 > > Thank you for your help, and hope to see you in Cagliari! > > Jerry Kott > This message has been digitally signed. > PGP Fingerprint: > A9181736DD2F1B6CC7CF9E51AC8514F48C0979A5 > > > > _______________________________________________ > Esug-list mailing list > Esug-list(a)lists.esug.org > http://lists.esug.org/mailman/listinfo/esug-list_lists.esug.org

3 2

Re: [squeak-dev] Finishing 5.2 (was Re: Project for 'after 5.2 release')
by Fabio Niephaus 14 Aug '18

14 Aug '18

On Sun, 12 Aug 2018 at 1:45 pm, <patrick.rein(a)hpi.uni-potsdam.de> wrote: > Hi Edgar, > > I have opened up the 5.2 alpha (18167, 64bit, Windows 10) and noticed a > few things we might want to fix before the release: > - Without adjusting the window size after opening the image the following > happens: When starting the UI configuration assistant the list of themes > and visual settings options is too long. It moves into the "Previous" and > "Next" buttons Marcel and I are aware of that problem, but have yet not found a proper fix. The root problem is that the window size is incorrect. Our CI infrastructure does not have a real display and the virtual one appears to be too small for the dimensions needed to make the UI work correctly. Another fix would be to make the UI 800x600 compatible, not sure if that's an option. Fabio > - Test failures: > - BrowserTest>>#testAlphabetizeMessageCategories > - BrowserTest>>#testMessageCategoryList > - I have found an issue in the MailSender infrastructure. It is a proper > fault with some methods missing from the class. As I have done the changes > previously, I have a fix ready. Should I commit it? > > Bests > Patrick > > >I think 5.2 is stable now. > >I using as base for things I working on. > >Could have a system on Linux box , use the share directory as link in Mac > >and open from Mac and save changes. > >So the .image works from Linux or from Mac remote on same network. > >I check all bugs reports of 5.0 to now in Mantis for if still relevant. > >Test on Linux gives only one red . > >Wish change status to beta, close any new thing and only acept fixes. > >And all Chris said and more could be 5.3 plan. > > > >Edgar > >@morplenauta > > > > > > > >On 23/07/2018, 23:24, "David T. Lewis" <lewis(a)mail.msen.com> wrote: > > > >> On Mon, Jul 23, 2018 at 06:54:55PM -0700, Chris Cunningham wrote: > >> Just > >> noticing the number of things that at least one person has flagged for > >> > >> 'after 5.2': > >> > >> * ProvideAnswerNotification and UIManager ( > >> > >> > http://forum.world.st/ProvideAnswerNotification-and-UIManager-td5081488.html > >> > >> ) > >> * Making ServerDirectory example work ( > >> > >> > http://forum.world.st/ServerDirectory-example-login-is-dead-td5061704.html > ) > >> > >> * Fixing DateAndTimeLeapTest>>#testAsSeconds ( > >> > >> > http://forum.world.st/template/NamlServlet.jtp?macro=search_page&node=12947… > >> query=Some+failing+tests+in+Squeak5.2alpha&n=1294792 > >> ) > >> * Making EToys and > >> Morphic separation clearer ( > >> > >> > http://forum.world.st/The-Inbox-Morphic-hjh-1453-mcz-td5079588.html#a5079826 > >> > >> ) > >> * Make EToys unloadable ( > >> > >> > http://forum.world.st/The-Inbox-EToys-hjh-333-mcz-td5079273.html#a5079454 > ) > >> > >> * EToysProject ( > >> > >> > http://forum.world.st/MorphicProject-subclass-EtoysProject-td4974975i60.htm… > >> 5078814 > >> ) > >> * HelpBrowser fixes for Text ( > >> > >> > http://forum.world.st/Improving-SqueakToolsHelp-class-gt-gt-fontSizeSummary… > >> veals-problems-in-Text-amp-styles-td5081938.html > >> ) > >> > >> Thanks, > >> cbc > > > >That > >> is a good thing :-) The items in this list are things that are likely > >to > >> introduce instability to trunk if we start working on them right now, so > >it is > >> better to wait for the release before pushing changes into the trunk > >for > >> these issues. > > > >Let's focus on getting the 5.2 release done, including giving > >> Edgar our full > >support to close any issues that are critical to the release. > >> Once that is > >done, we can address the issues that are flagged for follow > >> up. > > > >Dave > > > > > > > >

6 10

Re: [squeak-dev] Finishing 5.2 (was Re: Project for 'after 5.2 release')
by Edgar J. De Cleene 12 Aug '18

12 Aug '18

Ok I working on 32 bit FunSqueak and also found issues I send tomorrow to list. Added yours. But freezing 5.2 only means focus in fix bugs On 12/08/2018, 08:26, "patrick.rein(a)hpi.uni-potsdam.de" <patrick.rein(a)hpi.uni-potsdam.de> wrote: > Hi Edgar, I have opened up the 5.2 alpha (18167, 64bit, Windows 10) and > noticed a few things we might want to fix before the release: - Without > adjusting the window size after opening the image the following happens: When > starting the UI configuration assistant the list of themes and visual settings > options is too long. It moves into the "Previous" and "Next" buttons - Test > failures: - BrowserTest>>#testAlphabetizeMessageCategories - > BrowserTest>>#testMessageCategoryList - I have found an issue in the > MailSender infrastructure. It is a proper fault with some methods missing from > the class. As I have done the changes previously, I have a fix ready. Should I > commit it? Bests Patrick

1 0

Project for 'after 5.2 release'
by Chris Cunningham 12 Aug '18

12 Aug '18

Just noticing the number of things that at least one person has flagged for 'after 5.2': * ProvideAnswerNotification and UIManager ( http://forum.world.st/ProvideAnswerNotification-and-UIManager-td5081488.html ) * Making ServerDirectory example work ( http://forum.world.st/ServerDirectory-example-login-is-dead-td5061704.html ) * Fixing DateAndTimeLeapTest>>#testAsSeconds ( http://forum.world.st/template/NamlServlet.jtp?macro=search_page&node=12947… ) * Making EToys and Morphic separation clearer ( http://forum.world.st/The-Inbox-Morphic-hjh-1453-mcz-td5079588.html#a5079826 ) * Make EToys unloadable ( http://forum.world.st/The-Inbox-EToys-hjh-333-mcz-td5079273.html#a5079454 ) * EToysProject ( http://forum.world.st/MorphicProject-subclass-EtoysProject-td4974975i60.htm… ) * HelpBrowser fixes for Text ( http://forum.world.st/Improving-SqueakToolsHelp-class-gt-gt-fontSizeSummary… ) Thanks, cbc

9 15

Dynabook and interest based learning
by Hilaire 11 Aug '18

11 Aug '18

How can Dynabook and interest based learning can be related? http://blog.drgeo.eu/post/2018/Interest-based-learning Hilaire -- Dr. Geo http://drgeo.eu

1 0

'' asUnHtml on Squeak v5.1 or Squeak trunk
by Vaidotas Didžbalis 10 Aug '18

10 Aug '18

Hello, '' asUnHtml gives 'È' on Squeak v5.1 or Squeak trunk. Is it proper result? Version 4.4 gives space in this case. Thank you, Vaidotas

2 1

Dynabook and group learning
by Hilaire 09 Aug '18

09 Aug '18

Some though on Dynabook and learning in group. http://blog.drgeo.eu/post/2018/Learning-in-group -- Dr. Geo http://drgeo.eu

1 0

The Trunk: MorphicExtras-kfr.245.mcz
by commits＠source.squeak.org 09 Aug '18

09 Aug '18

Karl Ramberg uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-kfr.245.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.245 Author: kfr Time: 9 August 2018, 11:12:32.522421 am UUID: 3e41fb75-0b24-f74d-b50f-c0c87ab6c9e5 Ancestors: MorphicExtras-kfr.244 PianoRollNoteMorph need to send owner changed to redraw the PianoRollScoreMorph a couple of places =============== Diff against MorphicExtras-kfr.244 =============== Item was changed: ----- Method: PianoRollNoteMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt hitLoc := evt cursorPoint. editMode := nil. owner submorphsDo: [:m | (m isKindOf: PianoRollNoteMorph) ifTrue: [m deselect]]. selected := true. + self changed. + owner changed. - self changed. owner selection: (Array with: trackIndex with: indexInTrack with: indexInTrack). self playSound! Item was changed: ----- Method: PianoRollNoteMorph>>selectNotes: (in category 'selecting') ----- selectNotes: evt | lastMorph oldEnd saveOwner | + saveOwner := owner. (owner autoScrollForX: evt cursorPoint x) ifTrue: ["If scroll talkes place I will be deleted and my x-pos will become invalid." owner := saveOwner. bounds := bounds withLeft: (owner xForTime: self noteInScore time)]. oldEnd := owner selection last. (owner notesInRect: (evt cursorPoint x @ owner top corner: owner bottomRight)) do: [:m | m trackIndex = trackIndex ifTrue: [m deselect]]. + self select. + lastMorph := self. - self select. lastMorph := self. (owner notesInRect: (self left @ owner top corner: evt cursorPoint x @ owner bottom)) do: [:m | m trackIndex = trackIndex ifTrue: [m select. lastMorph := m]]. owner selection: (Array with: trackIndex with: indexInTrack with: lastMorph indexInTrack). lastMorph indexInTrack ~= oldEnd ifTrue: ["Play last note as selection grows or shrinks" + owner ifNotNil: [lastMorph playSound]]. + owner changed. - owner ifNotNil: [lastMorph playSound]] !

1 0

The Trunk: Tools-cmm.828.mcz
by commits＠source.squeak.org 07 Aug '18

07 Aug '18

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.828.mcz ==================== Summary ==================== Name: Tools-cmm.828 Author: cmm Time: 7 August 2018, 2:56:45.632855 pm UUID: 1d4afbdd-781f-42dc-a648-b5e3211eba78 Ancestors: Tools-eem.827 MessageTrace fixes: - preserve indentation after using "filter message list..." when #useUnifiedMessageLabels is set. - fixed a window title bug on implementors to keep the original output of that trace command. - fixed the "lost anchor" bug of the senders command. =============== Diff against Tools-eem.827 =============== Item was added: + ----- Method: MessageSet>>indentionPrefixOfSize: (in category 'indenting') ----- + indentionPrefixOfSize: levelInteger + + | answer | + answer := String new: levelInteger * self indentionSize. + answer atAllPut: $ . "space" + ^answer + ! Item was added: + ----- Method: MessageSet>>indentionSize (in category 'indenting') ----- + indentionSize + + ^2 "that is, 2 spaces.." + ! Item was added: + ----- Method: MessageSet>>indentionsIn: (in category 'indenting') ----- + indentionsIn: aString + + aString + withIndexDo: + [ :eachChar :index | + eachChar = $ "space" ifFalse: [ ^(index-1) / self indentionSize ] ]. + ^0 + ! Item was changed: ----- Method: MessageSet>>initializeMessageList: (in category 'private') ----- initializeMessageList: anArray "Initialize my messageList from the given list of MethodReference or string objects. NB: special handling for uniclasses. Do /not/ replace the elements of anArray if they are already MethodReferences, so as to allow users to construct richer systems, such as differencers between existing and edited versions of code." messageList := OrderedCollection new. + anArray do: + [:each | each isMethodReference - anArray do: [:each | - each isMethodReference ifTrue: [messageList addLast: each] + ifFalse: + [ MessageSet + parse: each + toClassAndSelector: + [ : class : sel | class ifNotNil: [ messageList addLast: (MethodReference class: class selector: sel) ] ] ] ]. - ifFalse: [MessageSet parse: each toClassAndSelector: [ :class :sel | - class ifNotNil: [ - messageList addLast: ( - MethodReference - class: class - selector: sel)] ]]]. "Unify labels if wanted." + self class useUnifiedMessageLabels ifTrue: + [ messageList withIndexDo: + [ : each : index | | cls | - self class useUnifiedMessageLabels ifTrue: [ - messageList do: [:each | | cls | cls := each actualClass. each stringVersion: + (self indentionPrefixOfSize: (self indentionsIn: each stringVersion)) + , (cls - (cls ifNil: [each asString] ifNotNil: [cls isUniClass ifTrue: [cls typicalInstanceName, ' ', each selector] + ifFalse: + [ cls name , ' ' , each selector , ' {' + , ((cls organization categoryOfElement: each selector) ifNil: ['']) , '}' + , ' {', cls category, '}' ] ]) ] ]. - ifFalse: [cls name , ' ' , each selector , ' {' , - ((cls organization categoryOfElement: each selector) ifNil: ['']) , '}' , - ' {', cls category, '}']])]]. messageListIndex := messageList isEmpty ifTrue: [0] ifFalse: [1]. + contents := String empty! - contents := ''! Item was changed: ----- Method: MessageTrace>>addChildMessages:autoSelectString: (in category 'building') ----- addChildMessages: methodReferences autoSelectString: aString | currentIndentionLevel addables selectables selectableString newAnchor | selectableString := aString keywords ifEmpty: [ String empty ] ifNotEmptyDo: [ : keywords | keywords first ]. [ (messageListIndex between: 1 and: autoSelectStrings size) ] + whileFalse: [ autoSelectStrings add: selectableString ]. - whileFalse: - [ autoSelectStrings add: selectableString ]. - autoSelectStrings - at: messageListIndex - put: selectableString. currentIndentionLevel := self currentIndentionLevel. "Don't add mulitple copies of the same method, if a method is already in the list we will merely select it." addables := methodReferences reject: [ : each | messageList includes: each ]. addables do: [ : each | each stringVersion: (self indentionPrefixOfSize: currentIndentionLevel + 1) , each asStringOrText. messageList add: each afterIndex: self messageListIndex. autoSelectStrings add: nil afterIndex: self messageListIndex. messageSelections add: false afterIndex: self messageListIndex ]. selectables := addables copy addAll: (methodReferences select: [ : each | messageList includes: each ]) ; yourself. self deselectAll. anchorIndex := nil. selectables do: [ : each | self messageAt: (newAnchor := messageList indexOf: each) beSelected: true. anchorIndex ifNil: [ anchorIndex := newAnchor ] ]. self changed: #messageList. "Select the first child method." self messageListIndex: (selectables size > 0 ifTrue: [ messageList indexOf: selectables last ] ifFalse: [ messageList ifEmpty: [ 0 ] ifNotEmpty: [ 1 ] ])! Item was changed: ----- Method: MessageTrace>>addParentMessages:autoSelectString: (in category 'building') ----- addParentMessages: methodReferences autoSelectString: aString | currentIndentionLevel addables selectables | addables := methodReferences reject: [ : each | messageList includes: each ]. selectables := addables copy addAll: (methodReferences select: [ : each | messageList includes: each ]) ; yourself. currentIndentionLevel := self currentIndentionLevel. (currentIndentionLevel = 0 and: [ addables notEmpty ]) ifTrue: [ self indentEverything. currentIndentionLevel := 1 ]. addables do: [ : each | each stringVersion: (self indentionPrefixOfSize: currentIndentionLevel - 1) , each asStringOrText. messageList add: each afterIndex: self messageListIndex - 1. autoSelectStrings add: aString afterIndex: self messageListIndex - 1. messageSelections add: false afterIndex: self messageListIndex - 1 ]. self deselectAll. selectables do: [ : each | | messageIndex | messageIndex := messageList indexOf: each. self messageAt: messageIndex beSelected: true. autoSelectStrings at: messageIndex put: aString ]. self changed: #messageList. + anchorIndex := messageListIndex. selectables size > 0 ifTrue: [ self messageListIndex: (messageList indexOf: selectables first) ]! Item was removed: - ----- Method: MessageTrace>>indentionPrefixOfSize: (in category 'indenting') ----- - indentionPrefixOfSize: levelInteger - - | answer | - answer := String new: levelInteger * self indentionSize. - answer atAllPut: $ . "space" - ^answer - ! Item was removed: - ----- Method: MessageTrace>>indentionSize (in category 'indenting') ----- - indentionSize - - ^2 "that is, 2 spaces.." - ! Item was removed: - ----- Method: MessageTrace>>indentionsIn: (in category 'indenting') ----- - indentionsIn: aString - - aString - withIndexDo: - [ :eachChar :index | - eachChar = $ "space" ifFalse: [ ^(index-1) / self indentionSize ] ]. - ^0 - !

1 0

Dynabook and learning by doing
by Hilaire 07 Aug '18

07 Aug '18

How could Dynabook and learning by doing could be related? http://blog.drgeo.eu/post/2018/Learning-by-doing Hilaire -- Dr. Geo http://drgeo.eu

1 0

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