Squeak-dev January 2020

squeak-dev@lists.squeakfoundation.org

43 participants
228 discussions

The Inbox: ToolBuilder-Kernel-ct.137.mcz
by commits＠source.squeak.org 24 Jan '20

24 Jan '20

Christoph Thiede uploaded a new version of ToolBuilder-Kernel to project The Inbox: http://source.squeak.org/inbox/ToolBuilder-Kernel-ct.137.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-ct.137 Author: ct Time: 24 January 2020, 6:42:28.545574 pm UUID: 74ee7060-12a9-3c4a-a05c-4f813b672ac7 Ancestors: ToolBuilder-Kernel-mt.134 Adds further convenience methods for UIManager requests =============== Diff against ToolBuilder-Kernel-mt.134 =============== Item was added: + ----- Method: UIManager>>chooseFromOrAddTo: (in category 'ui requests') ----- + chooseFromOrAddTo: aList + + ^ self chooseFromOrAddTo: aList title: ''! Item was added: + ----- Method: UIManager>>chooseFromOrAddTo:title: (in category 'ui requests') ----- + chooseFromOrAddTo: aList title: aString + + ^ self chooseFromOrAddTo: aList lines: #() title: aString! Item was added: + ----- Method: UIManager>>multiLineRequest: (in category 'ui requests - text') ----- + multiLineRequest: queryString + + ^ self multiLineRequest: queryString initialAnswer: ''! Item was added: + ----- Method: UIManager>>multiLineRequest:centerAt:initialAnswer: (in category 'ui requests - text') ----- + multiLineRequest: queryString centerAt: aPoint initialAnswer: defaultAnswer + + ^ self multiLineRequest: queryString centerAt: aPoint initialAnswer: defaultAnswer answerHeight: 200! Item was added: + ----- Method: UIManager>>multiLineRequest:initialAnswer: (in category 'ui requests - text') ----- + multiLineRequest: queryString initialAnswer: defaultAnswer + + ^ self multiLineRequest: queryString initialAnswer: defaultAnswer answerHeight: 200!

1 0

The Inbox: ToolBuilder-Kernel-ct.136.mcz
by commits＠source.squeak.org 24 Jan '20

24 Jan '20

Christoph Thiede uploaded a new version of ToolBuilder-Kernel to project The Inbox: http://source.squeak.org/inbox/ToolBuilder-Kernel-ct.136.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-ct.136 Author: ct Time: 24 January 2020, 6:38:19.896574 pm UUID: fcf254ff-5458-1c42-9499-d460f46e1ec8 Ancestors: ToolBuilder-Kernel-mt.134 Fixes a defect in UIManager's fallback implementation of #chooseFromOrAddTo:lines:title:: If we prepend an item to aList, we need to increment linesArray. =============== Diff against ToolBuilder-Kernel-mt.134 =============== Item was changed: ----- Method: UIManager>>chooseFromOrAddTo:lines:title: (in category 'ui requests') ----- chooseFromOrAddTo: aList lines: linesArray title: aString + | index | + index := self + chooseFrom: {'new...'}, aList + lines: linesArray + 1 + title: aString. - index := self chooseFrom: {'new...'}, aList lines: linesArray title: aString. index = 0 ifTrue: [^ nil]. - index = 1 ifTrue: [^ self request: 'Please type new value' initialAnswer: '']. - ^ aList at: index - 1!

1 0

The Inbox: Kernel-ct.1295.mcz
by commits＠source.squeak.org 24 Jan '20

24 Jan '20

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-ct.1295.mcz ==================== Summary ==================== Name: Kernel-ct.1295 Author: ct Time: 24 January 2020, 5:20:51.814415 pm UUID: 18ea3b5d-ee42-2944-9d01-aa48e43207a7 Ancestors: Kernel-nice.1292 Extends BlockClosure >> #whileNil: by returning the final non-nil value. Adds #whileNil analogous to #whileTrue and #whileFalse. [Project uiManager chooseFrom: #(foo bar) values: #(Foo Bar)] whileNil. [Project uiManager chooseFrom: #(foo bar) values: #(Foo Bar)] whileNil: [self inform: 'You have to decide!'] =============== Diff against Kernel-nice.1292 =============== Item was added: + ----- Method: BlockClosure>>whileNil (in category 'controlling') ----- + whileNil + "Unlike #whileTrue/False this is not compiled inline." + | result | + [(result := self value) isNil] whileTrue. + ^ result + ! Item was changed: ----- Method: BlockClosure>>whileNil: (in category 'controlling') ----- whileNil: aBlock "Unlike #whileTrue/False: this is not compiled inline." + | result | + [(result := self value) isNil] whileTrue: [aBlock value]. + ^ result - ^ [self value isNil] whileTrue: [aBlock value] !

1 0

[VM] Issue: SqueakConsole.exe swaps yellow & blue
by Thiede, Christoph 24 Jan '20

24 Jan '20

Hi all, neither sure whether this a regression, nor whether you would consider it a bug at all. However ... My VM is 201912311458 (Win64), which should be the current 5.3 RC if I am informed correctly? When I run Squeak.exe with a fresh #19329 image, everything works fine. <http://www.hpi.de/> However, when I use SqueakConsole.exe instead with the same image file, blue and yellow buttons are reversed. That is, as I am on Windows: Squeak.exe: middleMouse -> blue; rightMouse -> yellow (expected) SqueakConsole.exe: middleMouse -> yellow; rightMouse -> blue (not expected) I suppose this behavior is set via the Squeak.ini file (3ButtonMouse), which is not used by SqueakConsole.exe. But why is this the case? However, to me, this feels inconsistent and thus inconvenient. I would like to work with both executables interchangeably depending on whether I am working in a console or win32 context. Best, Christoph

1 0

The Inbox: Morphic-ct.1621.mcz
by commits＠source.squeak.org 24 Jan '20

24 Jan '20

Christoph Thiede uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1621.mcz ==================== Summary ==================== Name: Morphic-ct.1621 Author: ct Time: 22 January 2020, 11:21:19.533972 am UUID: facc9fb6-e535-c04f-967c-5f2ae09733c6 Ancestors: Morphic-cmm.1618 Proposal: Use Ctrl + Enter to accept in every textmorph, even if acceptOnCR is disabled. Useful, for example, to answer a multiline request. =============== Diff against Morphic-cmm.1618 =============== Item was changed: ----- Method: TextEditor>>dispatchOnKeyboardEvent: (in category 'typing support') ----- dispatchOnKeyboardEvent: aKeyboardEvent "Carry out the action associated with this character, if any. Type-ahead is passed so some routines can flush or use it." | honorCommandKeys typedChar | typedChar := aKeyboardEvent keyCharacter. "Handle one-line input fields." + (typedChar == Character lf or: [typedChar == Character cr and: [morph acceptOnCR]]) - (typedChar == Character cr and: [morph acceptOnCR]) ifTrue: [^ true]. "Clear highlight for last opened parenthesis." self clearParens. "Handle line breaks and auto indent." typedChar == Character cr ifTrue: [ aKeyboardEvent controlKeyPressed ifTrue: [^ self normalCharacter: aKeyboardEvent]. aKeyboardEvent shiftPressed ifTrue: [^ self lf: aKeyboardEvent]. aKeyboardEvent commandKeyPressed ifTrue: [^ self crlf: aKeyboardEvent]. ^ self crWithIndent: aKeyboardEvent]. "Handle indent/outdent with selected text block." typedChar == Character tab ifTrue: [ aKeyboardEvent shiftPressed ifTrue: [self outdent: aKeyboardEvent. ^ true] ifFalse: [self hasMultipleLinesSelected ifTrue: [self indent: aKeyboardEvent. ^ true]]]. honorCommandKeys := Preferences cmdKeysInText. (honorCommandKeys and: [typedChar == Character enter]) ifTrue: [^ self dispatchOnEnterWith: aKeyboardEvent]. "Special keys overwrite crtl+key combinations - at least on Windows. To resolve this conflict, assume that keys other than cursor keys aren't used together with Crtl." ((self class specialShiftCmdKeys includes: aKeyboardEvent keyValue) and: [aKeyboardEvent keyValue < 27]) ifTrue: [^ aKeyboardEvent controlKeyPressed ifTrue: [self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent] ifFalse: [self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent]]. "backspace, and escape keys (ascii 8 and 27) are command keys" ((honorCommandKeys and: [aKeyboardEvent commandKeyPressed]) or: [self class specialShiftCmdKeys includes: aKeyboardEvent keyValue]) ifTrue: [ ^ aKeyboardEvent shiftPressed ifTrue: [self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent] ifFalse: [self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent]]. "the control key can be used to invoke shift-cmd shortcuts" (honorCommandKeys and: [ aKeyboardEvent controlKeyPressed ]) ifTrue: [^ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent]. "Enclose selection with brackets etc." ((self class encloseSelection and: [self hasSelection]) and: [self enclose: aKeyboardEvent]) ifTrue: [^ true]. "Automatically enclose paired characters such as brackets." (self class autoEnclose and: [self autoEncloseFor: typedChar]) ifTrue: [^ true]. "Even if no enclosing feature was used, highlight the matching bracket when closing one." (')]}' includes: typedChar) ifTrue: [self blinkPrevParen: typedChar]. self normalCharacter: aKeyboardEvent. ^ false! Item was changed: ----- Method: TextMorphForEditView>>keyStroke: (in category 'event handling') ----- keyStroke: evt | view | editView deleteBalloon. self editor model: editView model. "For evaluateSelection" view := editView. "Copy into temp for case of a self-mutating doit" + (evt keyCharacter = Character lf or: [acceptOnCR and: [evt keyCharacter = Character cr]]) - (acceptOnCR and: [evt keyCharacter = Character cr]) ifTrue: [^ self editor accept]. view hasUserEdited: false. super keyStroke: evt. view scrollSelectionIntoView. view hasUserEdited ifTrue: [ view textEdited: self contents].!

4 5

UK Smalltalk User Group meeting: Beers and Pharo 8 - 29 January 2020
by Giovanni Corriga 23 Jan '20

23 Jan '20

The next meeting of the UK Smalltalk User Group will be on Wednesday, January 29th. We'll meet at our usual venue, The City Pride ( https://www.cityprideclerkenwell.co.uk/ ), from 7pm onwards. For this month’s meeting, we’ll explore the new release 8.0 of Pharo, which was announced a few weeks ago. If you'd like to join us, you can show up at the pub. You can also sign up in advance on the meeting's Meetup page https://www.meetup.com/UKSTUG/events/cbklbrybccbdc/ . Don’t forget to bring your laptop!

1 0

Changeset: articles.1.cs
by Thiede, Christoph 22 Jan '20

22 Jan '20

Hi all, please take a look at the following changeset. It eliminates a lot of duplication for printing a string with article, for example: | title | title := self class name. aStream nextPutAll: (title first isVowel ifTrue: ['an '] ifFalse: ['a ']); nextPutAll: title. <http://www.hpi.de/> With this changeset, the example is rewritten much simpler as: aStream nextPutAll: self class name asString withArticle. (Additionally, this unification provides a possible hook, should we ever want to increase multilingual support. :)) I tried to find as many occurrences as possible (6), but even if we don't replace them all, I would like to propose to put the following three methods into Trunk (which are part of the changeset, of course): String >> article ^ self first isVowel ifTrue: ['an'] ifFalse: ['a'] String >> withArticle ^ self article , ' ' , self capitalized Symbol >> withArticle ^ self article , self capitalized Theoretically, we could also put them into the '*System-Support' category. Not sure about this. Looking forward to your opinions :-) Best, Christoph

3 3

The Inbox: Tools-ct.936.mcz
by commits＠source.squeak.org 22 Jan '20

22 Jan '20

Christoph Thiede uploaded a new version of Tools to project The Inbox: http://source.squeak.org/inbox/Tools-ct.936.mcz ==================== Summary ==================== Name: Tools-ct.936 Author: ct Time: 22 January 2020, 10:37:56.857972 am UUID: 9dd5f018-67fa-7648-af22-eca66ebbfd23 Ancestors: Tools-mt.929 Complements Morphic-ct.1620 (#assignmentsToIt). =============== Diff against Tools-mt.929 =============== Item was changed: ----- Method: StringHolder class>>shiftedYellowButtonMenuItems (in category '*Tools-yellow button menu') ----- shiftedYellowButtonMenuItems "Returns the standard yellow button menu items" | entries | entries := OrderedCollection withAll: { #-. {'explain' translated. #explain}. {'pretty print' translated. #prettyPrint}. {'pretty print with color' translated. #prettyPrintWithColor}. {'file it in (G)' translated. #fileItIn}. {'spawn (o)' translated. #spawn}. #-. {'browse it (b)' translated. #browseIt}. {'senders of it (n)' translated. #sendersOfIt}. {'implementors of it (m)' translated. #implementorsOfIt}. {'references to it (N)' translated. #referencesToIt}. + {'assignments to it' translated. #assignmentsToIt}. #-. {'selectors containing it (W)' translated. #methodNamesContainingIt}. {'method strings with it (E)' translated. #methodStringsContainingit}. {'method source with it' translated. #methodSourceContainingIt}. {'class names containing it' translated. #classNamesContainingIt}. {'class comments with it' translated. #classCommentsContainingIt}. {'change sets with it' translated. #browseChangeSetsWithSelector}. #-. {'save contents to file...' translated. #saveContentsInFile}. {'send contents to printer' translated. #sendContentsToPrinter}. {'printer setup' translated. #printerSetup}. #-. }. Smalltalk isMorphic ifFalse: [ entries add: {'special menu...' translated. #presentSpecialMenu}.]. entries add: {'more...' translated. #yellowButtonActivity}. ^ entries!

1 0

The Inbox: Morphic-ct.1620.mcz
by commits＠source.squeak.org 22 Jan '20

22 Jan '20

Christoph Thiede uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1620.mcz ==================== Summary ==================== Name: Morphic-ct.1620 Author: ct Time: 22 January 2020, 10:35:27.522972 am UUID: 7e47c692-56d2-664b-b799-046e61cc5c72 Ancestors: Morphic-cmm.1618 Implements #assignmentsToIt analogous to #referencesToIt on both PluggableTextMorph and TextEditor. Idea by Chris (cmm)! =============== Diff against Morphic-cmm.1618 =============== Item was added: + ----- Method: PluggableTextMorph>>assignmentsToIt (in category 'menu commands') ----- + assignmentsToIt + self handleEdit: [textMorph editor assignmentsToIt]! Item was added: + ----- Method: TextEditor>>assignmentsToIt (in category 'menu messages') ----- + assignmentsToIt + "Open a MessageSet with the assignments to the selected global or variable name." + + self wordSelectAndEmptyCheck: [^ self]. + self selectedInstanceVariable ifNotNil: + [:nameToClass | ^ self systemNavigation + browseAllStoresInto: nameToClass key + from: nameToClass value]. + morph flash.!

1 0

The Inbox: Morphic-ct.1619.mcz
by commits＠source.squeak.org 22 Jan '20

22 Jan '20

Christoph Thiede uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1619.mcz ==================== Summary ==================== Name: Morphic-ct.1619 Author: ct Time: 22 January 2020, 10:18:49.982972 am UUID: 7857d3bc-414b-cf4a-87bd-9d0aae05616f Ancestors: Morphic-cmm.1618 Proposal: Unify all doIt related operations in PluggableTextMorph by delegating them to the editor. This also fixes the fact that certain hooks such as #printIt:result:, #inspectIt:result:, or #exploreIt:result: were ignored when triggering the operation via the textmorph menu instead of shortcut. This is not an expected behavior, is it? =============== Diff against Morphic-cmm.1618 =============== Item was changed: ----- Method: PluggableTextMorph>>doIt (in category 'menu commands') ----- doIt + ^ self handleEdit: [textMorph editor doIt]! - ^self handleEdit: [textMorph editor evaluateSelection]! Item was changed: ----- Method: PluggableTextMorph>>exploreIt (in category 'menu commands') ----- exploreIt + ^ self handleEdit: [textMorph editor exploreIt]! - - - self handleEdit: - [textMorph editor evaluateSelectionAndDo: [:result | result explore]].! Item was changed: ----- Method: PluggableTextMorph>>inspectIt (in category 'menu commands') ----- inspectIt + ^ self handleEdit: [textMorph editor inspectIt]! - - self handleEdit: - [textMorph editor evaluateSelectionAndDo: [:result | result inspect]]! Item was changed: ----- Method: PluggableTextMorph>>printIt (in category 'menu commands') ----- printIt + ^ self handleEdit: [textMorph editor printIt]! - | oldEditor | - textMorph editor selectFrom: selectionInterval first to: selectionInterval last; - model: model. "For, eg, evaluateSelection" - textMorph handleEdit: [(oldEditor := textMorph editor) evaluateSelectionAndDo: - [:result | - self flag: #fixIntervalCache. "mt: We should find a better design for discarding unused text editors in text morphs and restoring them on demand." - selectionInterval := oldEditor markIndex to: oldEditor pointIndex -1. - textMorph installEditorToReplace: oldEditor. - textMorph handleEdit: [oldEditor afterSelectionInsertAndSelect: result printString]. - selectionInterval := oldEditor markIndex to: oldEditor pointIndex -1. - - textMorph editor selectFrom: selectionInterval first to: selectionInterval last. - self scrollSelectionIntoView]]!

2 1

← Newer
1
...
6
7
8
9
10
11
12
...
23
Older →

Jump to page: