Squeak-dev July 2018

squeak-dev@lists.squeakfoundation.org

28 participants
119 discussions

The Trunk: WebClient-Core-ul.116.mcz
by commits＠source.squeak.org 07 Jul '18

07 Jul '18

Levente Uzonyi uploaded a new version of WebClient-Core to project The Trunk: http://source.squeak.org/trunk/WebClient-Core-ul.116.mcz ==================== Summary ==================== Name: WebClient-Core-ul.116 Author: ul Time: 6 July 2018, 11:40:06.899387 pm UUID: dadb7f92-0eba-43cc-9462-1d19bd874a51 Ancestors: WebClient-Core-ul.115 Handle quoted-string valued parameter for charsets in WebMessage >> textConverterForContentType. Also, don't raise an error when the specified encoding has no matching converter. This fixes a failing SqueakSSL test. =============== Diff against WebClient-Core-ul.115 =============== Item was changed: ----- Method: WebMessage>>textConverterForContentType (in category 'accessing') ----- textConverterForContentType | index contentType | contentType := self contentType. contentType size < 8 ifTrue: [ ^nil ]. index := contentType findString: 'charset=' startingAt: 1 caseSensitive: false. index = 0 ifTrue: [ ^nil ]. + contentType := contentType allButFirst: index + 7. "'charset=' size - 1". + (contentType beginsWith: '"') ifTrue: [ + "quoted content-type parameter. see rfc2068 section 3.7" + contentType := contentType + copyFrom: 2 + to: (contentType indexOf: $" startingAt: 2) ]. + ^[ TextConverter newForEncoding: contentType ] + on: NoConverterFound + do: [ nil ]! - ^TextConverter newForEncoding: (contentType allButFirst: index + 7) "'charset=' size - 1"!

1 0

The Trunk: MorphicExtras-bf.241.mcz
by commits＠source.squeak.org 06 Jul '18

06 Jul '18

Bert Freudenberg uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-bf.241.mcz ==================== Summary ==================== Name: MorphicExtras-bf.241 Author: bf Time: 6 July 2018, 12:50:51.907705 pm UUID: 9fa635ce-e870-48d6-bc03-7fe4a95af05a Ancestors: MorphicExtras-ul.240 FrameRateMorph: ensure at least one pixel is drawn per frame to not get bogus numbers =============== Diff against MorphicExtras-ul.240 =============== Item was changed: ----- Method: FrameRateMorph>>step (in category 'stepping and presenter') ----- step "Compute and display (every half second or so) the current framerate" | now mSecs mSecsPerFrame framesPerSec newContents | framesSinceLastDisplay := framesSinceLastDisplay + 1. now := Time millisecondClockValue. mSecs := now - lastDisplayTime. (mSecs > 500 or: [mSecs < 0 "clock wrap-around"]) ifTrue: [mSecsPerFrame := mSecs // framesSinceLastDisplay. framesPerSec := (framesSinceLastDisplay * 1000) // mSecs. newContents := mSecsPerFrame printString, ' mSecs (', framesPerSec printString, ' frame', (framesPerSec = 1 ifTrue: [''] ifFalse: ['s']), '/sec)'. self contents: newContents. lastDisplayTime := now. + framesSinceLastDisplay := 0] + ifFalse: + ["Ensure at least one pixel is drawn per frame" + Preferences higherPerformance ifTrue: [self invalidRect: (self position extent: 1@1)]]! - framesSinceLastDisplay := 0]!

1 0

Class Text : category 'emphasis' - method #allBold BUT NO #allItalics?
by H. Hirzel 06 Jul '18

06 Jul '18

Hello there is a method #allBold in class Text allBold "Force this whole text to be bold." string size = 0 ifTrue: [^self]. self makeBoldFrom: 1 to: string size but no method allItalics That would be something like allItalics string size = 0 ifTrue: [^self]. self addAttribute: TextEmphasis italic from: 1 to: string size. Should this be added? Regards Hannes

2 1

Was my instagram hacked?
by kellygirardi 06 Jul '18

06 Jul '18

So instagram logged me out on its own and i try to log back in and it said it was the wrong password. But I know its the right password. My account is still up so it wasnt deleted. I cant change the password because the email isnt working. And i sometimes got reported for spam, so is that it?? -- Sent from: http://forum.world.st/Squeak-Dev-f45488.html

1 0

[5.2a] styled text in a class comment spawns endless subscript out-of-bounds
by Tim Johnson 06 Jul '18

06 Jul '18

Hi, A class with styled text in its class comment, when a user mouses around in the text, can eventually trigger endless subscript out-of-bounds windows to pop up, requiring Cmd-. and 'close all windows like this'. (The styled text may have entered the class comment from a user pasting Shout-styled text from a method into the class comment.) I have run into this one before but never pinpointed a cause. This has probably been broken for some time. I have updated my image to #18134 and it still has the problem. It may be related to a class with styled text being exported from one image and imported into another. Maybe this would be a good one for a Mantis report. How to reproduce: 1. File-in the .cs as attached*. 2. In a system browser, click on the class, then click on the [?] button to view class comment. 3. Notice the styled text in the comment. 4. Click around the comment pane a bit. 5. Eventually, see "Error: subscript is out of bounds: 71" appear over and over until you interrupt. * this .cs is a slimmed-down and hand-edited version of a real file-out of a real class which was exhibiting this problem. In preparing the .cs for this mailing, I've shortened the class name by three characters. If you notice the "style[(1 35 18 20 3),f1,,b," doesn't match, this may be why. .cs file and stack follow. Thanks, Tim ByteString(Object)>>error: ByteString(Object)>>errorSubscriptBounds: ByteString(Object)>>at: ByteString>>at: CharacterBlockScanner(CharacterScanner)>>basicScanByteCharactersFrom:to:in:rightX: CharacterBlockScanner(CharacterScanner)>>primScanCharactersFrom:to:in:rightX:stopConditions:kern: CharacterBlockScanner(CharacterScanner)>>scanByteCharactersFrom:to:in:rightX: StrikeFont(AbstractFont)>>scanByteCharactersFrom:to:in:with:rightX: ByteString>>scanCharactersFrom:to:with:rightX:font: CharacterBlockScanner(CharacterScanner)>>scanCharactersFrom:to:in:rightX: CharacterBlockScanner>>characterBlockAtPoint:index:in: NewParagraph>>characterBlockForIndex: SmalltalkEditor(TextEditor)>>markIndex:pointIndex: SmalltalkEditor(Editor)>>selectInvisiblyFrom:to: SmalltalkEditor(TextEditor)>>selectFrom:to: SmalltalkEditor(Editor)>>selectInterval: PluggableTextMorphPlus(PluggableTextMorph)>>mouseEnter: PluggableTextMorphPlus(Morph)>>handleMouseEnter: MouseMoveEvent(MouseEvent)>>sentTo: MouseMoveEvent>>sentTo: PluggableTextMorphPlus(Morph)>>handleEvent: [] in MouseOverHandler>>processMouseOver: Array(SequenceableCollection)>>reverseDo: MouseOverHandler>>processMouseOver: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [] in MorphicProject>>spawnNewProcess [] in BlockClosure>>newProcess

9 37

The Trunk: System-eem.1037.mcz
by commits＠source.squeak.org 05 Jul '18

05 Jul '18

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1037.mcz ==================== Summary ==================== Name: System-eem.1037 Author: eem Time: 5 July 2018, 9:20:54.634348 am UUID: 7566d273-8d3d-413a-946c-e023e404bb26 Ancestors: System-kfr.1036 Remove bogus trailing cr in diff display in change list. =============== Diff against System-kfr.1036 =============== Item was changed: ----- Method: TextDiffBuilder>>buildDisplayPatch (in category 'creating patches') ----- buildDisplayPatch + | stream result | - | stream | stream := AttributedTextStream new. "Lazy initialize the text attributes cache." NormalTextAttributes ifNil: [NormalTextAttributes := self userInterfaceTheme normalTextAttributes ifNil: [{TextEmphasis normal}]]. InsertTextAttributes ifNil: [InsertTextAttributes := self userInterfaceTheme insertTextAttributes ifNil: [{TextColor red}]]. RemoveTextAttributes ifNil: [RemoveTextAttributes := self userInterfaceTheme removeTextAttributes ifNil: [{TextEmphasis struckOut. TextColor blue}]]. self patchSequenceDoIfMatch: [ :string | self print: string withAttributes: NormalTextAttributes on: stream ] ifInsert: [ :string | self print: string withAttributes: InsertTextAttributes on: stream ] ifRemove: [ :string | self print: string withAttributes: RemoveTextAttributes on: stream ]. + result := stream contents. + (result notEmpty + and: [result last = Character cr + and: [(self lastIsCR: xLines) not + and: [(self lastIsCR: yLines) not]]]) ifTrue: + [result := result allButLast]. + ^result! - ^stream contents! Item was added: + ----- Method: TextDiffBuilder>>lastIsCR: (in category 'private') ----- + lastIsCR: linesArray + | last | + ^linesArray notEmpty + and: [(last := linesArray last string) notEmpty + and: [last last = Character cr or: [last endsWith: String crlf]]]!

1 0

voice control of the Squeak IDE
by Craig Latta 05 Jul '18

05 Jul '18

Hi all-- As part of the Caffeine VR system, I'm working on voice recognition. When wearing a VR headset without AR cameras, it's useful to control the system by voice, without having to look at a physical keyboard. I'm using the Web Speech API[1] on Chrome, which has a good recognizer that requires no training. I've adapted the natural language state machine framework from Quoth[2] to work with the A-Frame[3] VR support I've written for Caffeine[4]. So far, I've implemented phrases for moving and rotating the camera, like... - "Move forward 10." - "Move up 15." - "Rotate left 45." - "Go home." ...and phrases for controlling the Squeak IDE, like... - "Open a browser." - "Browse implementors of at colon put colon." - "Close window." - "Find a class." - "New method." - "Start typing." - "Accept." - "Evaluate three plus four." What would you expect a speech-capable Squeak IDE to understand? thanks, -C [1] https://developer.mozilla.org/en-US/docs/Web/API/Web_Speech_API [2] http://netjam.org/quoth [3] https://aframe.io [4] https://caffeine.js.org/a-frame -- Craig Latta Black Page Digital Amsterdam :: San Francisco craig(a)blackpagedigital.com +31 6 2757 7177 (SMS ok) + 1 415 287 3547 (no SMS)

3 2

The Inbox: Tools-tcj.827.mcz
by commits＠source.squeak.org 03 Jul '18

03 Jul '18

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-tcj.827.mcz ==================== Summary ==================== Name: Tools-tcj.827 Author: tcj Time: 3 July 2018, 1:26:17.691671 pm UUID: 1faf6a9f-6246-4b95-a3aa-13b113afd08b Ancestors: Tools-cmm.826 Revert the change to File Contents Browser introduced in Tools-eem.660 which broke version browsing in the File Contents Browser. "Browse versions" now works again to browse versions of a given selector while browsing through a changeset. =============== Diff against Tools-cmm.826 =============== Item was changed: ----- Method: FileContentsBrowser>>browseVersions (in category 'other') ----- browseVersions + "Create and schedule a message set browser on all versions of the + currently selected message selector." + | class selector | + (selector := self selectedMessageName) ifNotNil: + [class := self selectedClassOrMetaClass. + (class exists and: [class realClass includesSelector: selector]) ifTrue: + [VersionsBrowser + browseVersionsOf: (class realClass compiledMethodAt: selector) + class: class realClass theNonMetaClass + meta: class realClass isMeta + category: self selectedMessageCategoryName + selector: selector]]! - "Create and schedule a message set browser on all versions of the currently selected message selector." - (ToolSet - browseVersionsOf: self selectedClassOrMetaClass - selector: self selectedMessageName) ifNil: [self changed: #flash]! 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" - 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]. - 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. 'Decrease all font sizes'}. + { $+. Preferences. #increaseFontSize. 'Increase all font sizes'}. - { $-. Preferences. #decreaseFontSize. 'Increase all font sizes'}. - { $+. Preferences. #increaseFontSize. 'Decrease all font sizes'}. }. ^ noviceKeys, expertKeys !

2 1

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

03 Jul '18

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.826.mcz ==================== Summary ==================== Name: Tools-cmm.826 Author: cmm Time: 3 July 2018, 2:02:25.535893 pm UUID: 223aa5cd-11a3-4ece-9f8d-06c82d9859a8 Ancestors: Tools-cmm.825 Restore Command+- (minus) and Command+Shift++ (plus) hot keys to decrease / increase all font sizes at the desktop level. =============== 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" - 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]. - 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. 'Decrease all font sizes'}. + { $+. Preferences. #increaseFontSize. 'Increase all font sizes'}. }. ^ noviceKeys, expertKeys !

1 0

[Test][Squeak5.2a] 2 times saving a project, re-loading it, changing the background (GradientFill)
by H. Hirzel 03 Jul '18

03 Jul '18

Hello I created a simple test project (attached, 32 bit, Squeak5.2alpha update: #18116) and saved it. Then I dropped the saved project onto the top project of the same image. Changed the background gradient fill and re-saved it. Dropped it again. The result is attached. 3 identical projects, just different gradient fill of the world background. The screen shot shows MorphicProject allInstances explore I wonder why all the oop string of all the 3 world PasteUpMorph objects are the same. Regards Hannes

2 3

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