Packages January 2017

packages@lists.squeakfoundation.org

1 participants
14 discussions

The Trunk: Morphic-tfel.1317.mcz
by commits＠source.squeak.org 18 Jan '17

18 Jan '17

Tim Felgentreff uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tfel.1317.mcz ==================== Summary ==================== Name: Morphic-tfel.1317 Author: tfel Time: 18 January 2017, 10:03:40.884167 am UUID: 8a50cc7e-f401-4381-a1ce-97d0423370b1 Ancestors: Morphic-bp.1316 add Ctrl +, Ctrl -, and Ctrl = (as in Emacs) for quick font size changes =============== Diff against Morphic-bp.1316 =============== Item was changed: ----- Method: PasteUpMorph>>filterEvent:for: (in category 'events-processing') ----- filterEvent: aKeyboardEvent for: anObject "Provide keyboard shortcuts." + - "Delegate keyboard shortcuts to my docking bars." self submorphsDo: [:ea | ea isDockingBar ifTrue: [ ea filterEvent: aKeyboardEvent for: anObject. "No support for converting events here!!" aKeyboardEvent wasIgnored ifTrue: [^ aKeyboardEvent "early out"]]]. aKeyboardEvent isKeystroke ifFalse: [^ aKeyboardEvent]. aKeyboardEvent commandKeyPressed ifTrue: [ aKeyboardEvent keyCharacter caseOf: { [$R] -> [Utilities browseRecentSubmissions]. [$L] -> [self findAFileList: aKeyboardEvent]. [$O] -> [self findAMonticelloBrowser]. [$P] -> [self findAPreferencesPanel: aKeyboardEvent]. "[$Z] -> [ChangeList browseRecentLog]." [$]] -> [Smalltalk snapshot: true andQuit: false]. } otherwise: [^ aKeyboardEvent "no hit"]. ^ aKeyboardEvent ignore "hit!!"]. + aKeyboardEvent controlKeyPressed ifTrue: [ + aKeyboardEvent keyCharacter caseOf: { + [$+] -> [Preferences increaseFontSize]. + [$-] -> [Preferences decreaseFontSize]. + [$=] -> [Preferences restoreDefaultFonts]. + } otherwise: [^ aKeyboardEvent "no hit"]. + ^ aKeyboardEvent ignore "hit!!"]. - ^ aKeyboardEvent "no hit"!

1 0

The Trunk: ToolBuilder-Morphic-topa.190.mcz
by commits＠source.squeak.org 17 Jan '17

17 Jan '17

Tobias Pape uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-topa.190.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-topa.190 Author: topa Time: 17 January 2017, 5:57:56.691276 pm UUID: 9b5813db-ef4d-4ef5-ba76-aa5473e98231 Ancestors: ToolBuilder-Morphic-nice.189 re-use settings for multi- and single-selection lists in toolbuilder =============== Diff against ToolBuilder-Morphic-nice.189 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableList: (in category 'widgets required') ----- buildPluggableList: aSpec | widget listClass getIndex setIndex | aSpec getSelected ifNil:[ listClass := self listClass. getIndex := aSpec getIndex. setIndex := aSpec setIndex. ] ifNotNil:[ listClass := self listByItemClass. getIndex := aSpec getSelected. setIndex := aSpec setSelected. ]. widget := listClass on: aSpec model list: aSpec list selected: getIndex changeSelected: setIndex menu: aSpec menu keystroke: aSpec keyPress. self register: widget id: aSpec name. + widget + dragItemSelector: aSpec dragItem; + dropItemSelector: aSpec dropItem; + wantsDropSelector: aSpec dropAccept; + dragStartedSelector: aSpec dragStarted. + + self setListPropertiesFor: widget spec: aSpec. - "Override default scroll bar policies if needed. Widget will use preference values otherwise." - aSpec hScrollBarPolicy ifNotNil: [:policy | - policy caseOf: { - [#always] -> [widget alwaysShowHScrollBar]. - [#never] -> [widget hideHScrollBarIndefinitely]. - [#whenNeeded] -> [widget showHScrollBarOnlyWhenNeeded]. } ]. - aSpec vScrollBarPolicy ifNotNil: [:policy | - policy caseOf: { - [#always] -> [widget alwaysShowVScrollBar]. - [#never] -> [widget hideVScrollBarIndefinitely]. - [#whenNeeded] -> [widget showVScrollBarOnlyWhenNeeded]. } ]. - - widget getListElementSelector: aSpec listItem. - widget getListSizeSelector: aSpec listSize. - widget getIconSelector: aSpec icon. - widget getHelpSelector: aSpec helpItem. - widget doubleClickSelector: aSpec doubleClick. - - widget dragItemSelector: aSpec dragItem. - widget dropItemSelector: aSpec dropItem. - widget wantsDropSelector: aSpec dropAccept. - widget dragStartedSelector: aSpec dragStarted. - - widget autoDeselect: aSpec autoDeselect. - widget keystrokePreviewSelector: aSpec keystrokePreview. - - aSpec filterableList ifNotNil: [:b | widget filterableList: b]. - aSpec clearFilterAutomatically ifNotNil: [:b | widget clearFilterAutomatically: b]. - - aSpec color ifNotNil: [:c | widget color: c]. - self buildHelpFor: widget spec: aSpec. - - self setFrame: aSpec frame in: widget. - self setLayoutHintsFor: widget spec: aSpec. - - parent ifNotNil:[self add: widget to: parent]. - panes ifNotNil:[ - aSpec list ifNotNil:[panes add: aSpec list]. - ]. ^widget! Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableMultiSelectionList: (in category 'widgets optional') ----- buildPluggableMultiSelectionList: aSpec | widget listClass | aSpec getSelected ifNotNil:[^self error:'There is no PluggableListMorphOfManyByItem']. listClass := self multiSelectListClass. widget := listClass on: aSpec model list: aSpec list primarySelection: aSpec getIndex changePrimarySelection: aSpec setIndex listSelection: aSpec getSelectionList changeListSelection: aSpec setSelectionList menu: aSpec menu. - self register: widget id: aSpec name. widget keystrokeActionSelector: aSpec keyPress. + self register: widget id: aSpec name. + self setListPropertiesFor: widget spec: aSpec. - widget getListElementSelector: aSpec listItem. - widget getListSizeSelector: aSpec listSize. - self buildHelpFor: widget spec: aSpec. - self setFrame: aSpec frame in: widget. - self setLayoutHintsFor: widget spec: aSpec. - parent ifNotNil:[self add: widget to: parent]. - panes ifNotNil:[ - aSpec list ifNotNil:[panes add: aSpec list]. - ]. ^widget! Item was added: + ----- Method: MorphicToolBuilder>>setListPropertiesFor:spec: (in category 'private') ----- + setListPropertiesFor: widget spec: aSpec + + "Override default scroll bar policies if needed. Widget will use preference values otherwise." + aSpec hScrollBarPolicy ifNotNil: [:policy | + policy caseOf: { + [#always] -> [widget alwaysShowHScrollBar]. + [#never] -> [widget hideHScrollBarIndefinitely]. + [#whenNeeded] -> [widget showHScrollBarOnlyWhenNeeded]. } ]. + aSpec vScrollBarPolicy ifNotNil: [:policy | + policy caseOf: { + [#always] -> [widget alwaysShowVScrollBar]. + [#never] -> [widget hideVScrollBarIndefinitely]. + [#whenNeeded] -> [widget showVScrollBarOnlyWhenNeeded]. } ]. + + widget + getListElementSelector: aSpec listItem; + getListSizeSelector: aSpec listSize; + getIconSelector: aSpec icon; + getHelpSelector: aSpec helpItem; + doubleClickSelector: aSpec doubleClick. + + widget + autoDeselect: aSpec autoDeselect; + keystrokePreviewSelector: aSpec keystrokePreview. + + aSpec filterableList ifNotNil: [:b | widget filterableList: b]. + aSpec clearFilterAutomatically ifNotNil: [:b | widget clearFilterAutomatically: b]. + + aSpec color ifNotNil: [:c | widget color: c]. + self buildHelpFor: widget spec: aSpec. + + self setFrame: aSpec frame in: widget. + self setLayoutHintsFor: widget spec: aSpec. + + parent ifNotNil:[self add: widget to: parent]. + (panes notNil and: [aSpec list notNil]) ifTrue: [panes add: aSpec list]. + !

1 0

The Trunk: WebClient-Tests-jr.49.mcz
by commits＠source.squeak.org 03 Jan '17

03 Jan '17

Tobias Pape uploaded a new version of WebClient-Tests to project The Trunk: http://source.squeak.org/trunk/WebClient-Tests-jr.49.mcz ==================== Summary ==================== Name: WebClient-Tests-jr.49 Author: jr Time: 3 January 2017, 2:02:24.562318 pm UUID: 69152681-25b5-e84a-9c59-c68167eaff09 Ancestors: WebClient-Tests-topa.48 add test for chunk stream reading =============== Diff against WebClient-Tests-topa.48 =============== Item was added: + ----- Method: WebClientServerTest>>testChunkedLoopbackWithStream (in category 'tests - chunked') ----- + testChunkedLoopbackWithStream + "Test HTTP loopback streaming using chunked transfer-encoding" + + | queue response stream | + queue := SharedQueue new. + server addService: '/recv' action:[:req | + + "The /recv service establishes the write-end for the server. + In a real environment we would access protect the request + and also pass a token to be used to link the incoming /send + request from the client." + + req sendResponse: 200 chunked:[:writeEnd| + | chunk | + "There is no reason to wait for the client to send a request, + the protocol is entirely freestyle. Send something just because + we can" + writeEnd nextChunkPut: 'Initial response'. + "And from here on echo any incoming data" + [chunk := queue next. + chunk == nil] whileFalse:[writeEnd nextChunkPut: chunk]. + "And some final data" + writeEnd nextChunkPut: 'Final response'. + ]. + ] methods: #('GET'). "only allow GET requests" + + server addService: '/send' action:[:req | + + "The /send service establishes the read-end for the server. + Simply read the chunks as they come in and stick them in + our loopback queue to send them back to the client." + + | chunk | + [chunk := req nextChunk. + chunk == nil] whileFalse:[queue nextPut: chunk]. + queue nextPut: nil. "end conversation" + req send200Response: 'ok'. + ] methods: #('POST'). "only allow POST requests" + + "Establish the server response stream" + response := WebClient new httpGet: self localHostUrl, '/recv'. + self assert: response code = 200. + self assert: (response headerAt: 'Transfer-Encoding') = 'chunked'. + stream := response contentStream. + self assert: (stream next: 'Initial response' size) equals: 'Initial response'. + + "Establish the client request stream" + WebClient + httpPostChunked: self localHostUrl, '/send' + content:[:request| + "We've set up both ends, try our loopback server" + request nextChunkPut: 'Hello World'. + self assert: (stream next: 'Hello World' size) equals: 'Hello World'. + request nextChunkPut: 'The answer is 42'. + self assert: (stream next: 'The answer is 42' size) equals: 'The answer is 42'. + ] type: nil. + + self assert: (stream next: 'Final response' size) equals: 'Final response'. + !

1 0

The Trunk: WebClient-Core-jr.104.mcz
by commits＠source.squeak.org 03 Jan '17

03 Jan '17

Tobias Pape uploaded a new version of WebClient-Core to project The Trunk: http://source.squeak.org/trunk/WebClient-Core-jr.104.mcz ==================== Summary ==================== Name: WebClient-Core-jr.104 Author: jr Time: 3 January 2017, 2:00:53.087318 pm UUID: d1ea9e44-934e-db44-9617-a57b408678fe Ancestors: WebClient-Core-ul.103 fix: bogus chunked stream data if a later chunk is smaller than a previous one also do not fetch the next chunk until its contents is requested =============== Diff against WebClient-Core-ul.103 =============== Item was changed: ----- Method: WebChunkedStream>>next: (in category 'accessing') ----- next: anInteger "Answer the next anInteger elements of my collection. overriden for simplicity" + [(position + anInteger > readLimit) and:[chunkSize ~= 0]] - [(position + anInteger >= readLimit) and:[chunkSize ~= 0]] whileTrue:[self nextChunk]. ^super next: anInteger ! Item was changed: ----- Method: WebChunkedStream>>nextChunk (in category 'accessing') ----- nextChunk "Answer the next chunk from a message using chunked transfer encoding." | chunk | chunkSize = 0 ifTrue:[^'']. "read last chunk" chunkSize := Integer readFrom: (sourceStream upToAll: String crlf) asString base: 16. chunkSize = 0 ifFalse:[chunk := sourceStream next: chunkSize]. sourceStream skip: 2. "CrLf" (chunkSize + readLimit - position) <= collection size ifTrue:[ collection replaceFrom: 1 to: (readLimit-position) with: collection startingAt: position+1. readLimit := readLimit - position. position := 0. collection replaceFrom: readLimit+1 to: readLimit + chunkSize with: chunk startingAt: 1. readLimit := readLimit + chunkSize. ] ifFalse:[ + position < readLimit + ifTrue: [collection := (collection copyFrom: position + 1 to: readLimit), chunk] + ifFalse: [collection := chunk]. + position := 0. + readLimit := collection size. - collection := collection, chunk. - readLimit := readLimit + chunkSize. ]. ^chunk !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2017