Squeak-dev September 2017

squeak-dev@lists.squeakfoundation.org

30 participants
85 discussions

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

18 Sep '17

Tobias Pape uploaded a new version of WebClient-Core to project The Trunk: http://source.squeak.org/trunk/WebClient-Core-topa.110.mcz ==================== Summary ==================== Name: WebClient-Core-topa.110 Author: topa Time: 18 September 2017, 4:35:29.15331 pm UUID: 943ee269-4662-4ae7-ad63-2e5b9fce11b1 Ancestors: WebClient-Core-topa.109 fix handling of IPv6 literals in urls =============== Diff against WebClient-Core-topa.109 =============== Item was changed: ----- Method: WebClient>>proxyConnect (in category 'initialize') ----- proxyConnect "Send a proxy CONNECT request to connect to a remote host via the chosen proxy server" | uri request repeatAuth response | + uri := self serverUrlName,':', self serverPort. - uri := self serverName,':', self serverPort. request := self newRequest. request method: 'CONNECT'. request rawUrl: uri. [repeatAuth := false. "The proxy response may use Connection: Close; reconnect when that happens" self isConnected ifFalse:[ stream := SocketStream openConnectionToHostNamed: lastServer port: lastPort. stream timeout: timeout. ]. debugLog ifNotNil:[ request writeOn: debugLog. debugLog flush. ]. "Don't use 'self writeRequestOn:' since this will insert both cookies as well as modify the url target when a proxy is present" request writeOn: stream. stream flush. response := request newResponse readFrom: stream. debugLog ifNotNil:[ response writeOn: debugLog. debugLog flush. ]. "Handle authentication if needed" (self allowAuth and:[response code = 407]) ifTrue:[ "Eat up the content of the previous response" response content. repeatAuth := self authenticate: request from: response. ]. repeatAuth] whileTrue. ^response! Item was changed: ----- Method: WebClient>>sendRequest:contentBlock: (in category 'sending') ----- sendRequest: request contentBlock: contentBlock "Send an http request" | response repeatRedirect repeatAuth | "XXXX: Fixme. Pre-authenticate the request if we have valid auth credentials" redirections := Dictionary new. ["The outer loop handles redirections" repeatRedirect := false. "Always update the host header due to redirect" request headerAt: 'Host' put: server. ["The inner loop handles authentication" repeatAuth := false. "Connect can fail if SSL proxy CONNECT is involved" self connect ifNotNil:[:resp| ^resp]. "Write the request to the debugLog if present" debugLog ifNotNil:[self writeRequest: request on: debugLog]. "Send the request itself" self writeRequest: request on: stream. contentBlock value: stream. response := request newResponse readFrom: stream. response url: (scheme, '://', server, request rawUrl). debugLog ifNotNil:[ response writeOn: debugLog. debugLog flush. ]. response setCookiesDo:[:cookie| + self acceptCookie: cookie host: self serverUrlName path: request url. - self acceptCookie: cookie host: self serverName path: request url. ]. accessLog ifNotNil:[ WebUtils logRequest: request response: response on: accessLog ]. "Handle authentication if needed" (self allowAuth and:[response code = 401 or:[response code = 407]]) ifTrue:[ "Eat up the content of the previous response" response content. repeatAuth := self authenticate: request from: response. ]. repeatAuth] whileTrue. "Flush previous authState. XXXX: Fixme. authState must be preserved for pre-authentication of requests." self flushAuthState. "Handle redirect if needed" (self allowRedirect and:[response isRedirect]) ifTrue:[ "Eat up the content of the previous response" response content. repeatRedirect := self redirect: request from: response. ]. repeatRedirect] whileTrue:[ "When redirecting, remove authentication headers" request removeHeader: 'Authorization'. request removeHeader: 'Proxy-Authorization'. ]. "If the response is not a success, eat up its content" (response isSuccess or:[response isInformational]) ifFalse:[response content]. ^response! Item was changed: ----- Method: WebClient>>serverName (in category 'accessing') ----- serverName "Returns the name part of the server:port description" + + | serverUrlName | + serverUrlName := self serverUrlName. + ^ (serverUrlName includes: $[) + ifTrue: [serverUrlName copyFrom: 2 to: serverUrlName size - 1] + ifFalse: [serverUrlName]! - - ^server copyUpTo: $:! Item was changed: ----- Method: WebClient>>serverPort (in category 'accessing') ----- serverPort "Returns the port of the server:port description" + (self server copyAfterLast: $:) + ifNotEmpty:[:portString| + portString isAllDigits + ifTrue: [^ portString asInteger]]. + ^ self defaultPort! - ^(server copyAfter: $:) - ifEmpty:[self defaultPort] - ifNotEmpty:[:portString| portString asInteger]. - ! Item was added: + ----- Method: WebClient>>serverUrlName (in category 'accessing') ----- + serverUrlName + "Returns the name part of the server:port description in the way it would appear in an Url" + + ^ (self server includes: $[) + ifTrue: [self server copyUpThrough: $] ] + ifFalse: [self server copyUpToLast: $:]!

1 0

The Trunk: WebClient-Tests-topa.53.mcz
by commits＠source.squeak.org 18 Sep '17

18 Sep '17

Tobias Pape uploaded a new version of WebClient-Tests to project The Trunk: http://source.squeak.org/trunk/WebClient-Tests-topa.53.mcz ==================== Summary ==================== Name: WebClient-Tests-topa.53 Author: topa Time: 18 September 2017, 4:32:34.123823 pm UUID: fdd9459a-c066-490b-8c51-253a3dbaecfa Ancestors: WebClient-Tests-topa.52 Test for server/port name handling =============== Diff against WebClient-Tests-topa.52 =============== Item was added: + ----- Method: WebClientServerTest>>testServerNameAndPort (in category 'tests - misc') ----- + testServerNameAndPort + + | c| + c := WebClient new. + + c server: 'www.google.com'. + self assert: 'www.google.com' equals: c serverName. + self assert: 'www.google.com' equals: c serverUrlName. + self assert: 80 equals: c serverPort. + + c server: 'www.google.com:443'. + self assert: 'www.google.com' equals: c serverName. + self assert: 'www.google.com' equals: c serverUrlName. + self assert: 443 equals: c serverPort. + + c server: '127.0.0.1'. + self assert: '127.0.0.1' equals: c serverName. + self assert: '127.0.0.1' equals: c serverUrlName. + self assert: 80 equals: c serverPort. + + c server: '127.0.0.1:443'. + self assert: '127.0.0.1' equals: c serverName. + self assert: '127.0.0.1' equals: c serverUrlName. + self assert: 443 equals: c serverPort. + + + c server: '[2a00:1450:400e:800::2004]'. + self assert: '2a00:1450:400e:800::2004' equals: c serverName. + self assert: '[2a00:1450:400e:800::2004]' equals: c serverUrlName. + self assert: 80 equals: c serverPort. + + c server: '[2a00:1450:400e:800::2004]:443'. + self assert: '2a00:1450:400e:800::2004' equals: c serverName. + self assert: '[2a00:1450:400e:800::2004]' equals: c serverUrlName. + self assert: 443 equals: c serverPort.!

1 0

The Trunk: Tests-mt.383.mcz
by commits＠source.squeak.org 18 Sep '17

18 Sep '17

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-mt.383.mcz ==================== Summary ==================== Name: Tests-mt.383 Author: mt Time: 18 September 2017, 11:43:21.93578 am UUID: a6f43f48-58a8-774e-8ad4-3b102f1fda9d Ancestors: Tests-mt.382 Adds and fixes tests considering that current UI themes do not have to be registered such as in test code. =============== Diff against Tests-mt.382 =============== Item was changed: ----- Method: UserInterfaceThemeTest>>test27ScopeIntegrity (in category 'tests') ----- test27ScopeIntegrity "If application code manages to use Object >> #userInterfaceTheme without invoking the DNU dispatch directly afterwards, the theme's scope might get inconsistent. Even though this should usually never happen, check for it to be sure." | issues | issues := OrderedCollection new. UserInterfaceTheme allThemes do: [:uit | (uit instVarNamed: #scope) isEmpty ifFalse: [issues add: uit]]. + UserInterfaceTheme current in: [:uit | + (UserInterfaceTheme allThemes includes: uit) + ifFalse: [(uit instVarNamed: #scope) isEmpty ifFalse: [issues add: uit]]]. self assert: issues isEmpty description: 'Some user interface themes have an inconsistent scope state, which can interfere with GC.'.! Item was added: + ----- Method: UserInterfaceThemeTest>>test28DanglingTheme (in category 'tests') ----- + test28DanglingTheme + + self + assert: (UserInterfaceTheme allThemes includes: UserInterfaceTheme current) + description: 'The current user interface theme is not registered.'.!

1 0

The Trunk: Tests-mt.382.mcz
by commits＠source.squeak.org 18 Sep '17

18 Sep '17

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-mt.382.mcz ==================== Summary ==================== Name: Tests-mt.382 Author: mt Time: 18 September 2017, 9:24:02.443429 am UUID: e9db6354-5602-3d4a-b944-ad65501bad8d Ancestors: Tests-eem.381 Adds a test to verify the integrity of the environment's user interface themes wrt. scope. =============== Diff against Tests-eem.381 =============== Item was added: + ----- Method: UserInterfaceThemeTest>>test27ScopeIntegrity (in category 'tests') ----- + test27ScopeIntegrity + "If application code manages to use Object >> #userInterfaceTheme without invoking the DNU dispatch directly afterwards, the theme's scope might get inconsistent. Even though this should usually never happen, check for it to be sure." + + | issues | + issues := OrderedCollection new. + UserInterfaceTheme allThemes do: [:uit | + (uit instVarNamed: #scope) isEmpty ifFalse: [issues add: uit]]. + self assert: issues isEmpty description: 'Some user interface themes have an inconsistent scope state, which can interfere with GC.'.!

1 0

Re: [squeak-dev] ASN1 encoding of UTF8
by Jakob Reschke 18 Sep '17

18 Sep '17

I just did a quick search on the web and it seems like ASN.1 has a UTF8String type (with tag 12) that just contains the sequence of bytes of the UTF-8-encoded string. Can you use that? See also this question on stackoverflow: https://stackoverflow.com/q/28929809 In Squeak, you can convert between UTF-8-encoded byte strings and decoded (Squeak-encoded) character strings with the help of UTF8TextConverter. Have a look at its class-side methods. Also, there are conversion methods in String, IIRC. Try to filter its instance-side methods by "utf8". Does this answer your question or are you in search of something else? Kind regards, Jakob Am 18.09.2017 03:49 schrieb "Alan Pinch" <alan.c.pinch(a)gmail.com>: > I am trying to map utf8 into an ASN1 encoding, where the UTF8 is > specified to perhaps extend past one byte in value. I am also interested > in retaining this UTF8 characters in squeak to interoperate well. What > would be my best approach to this, mapping to/from these bytes on a stream? > > Alan > > >

2 1

The Trunk: Tests-mt.382.mcz
by commits＠source.squeak.org 18 Sep '17

18 Sep '17

1 0

The Trunk: Tools-dtl.768.mcz
by commits＠source.squeak.org 17 Sep '17

17 Sep '17

David T. Lewis uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-dtl.768.mcz ==================== Summary ==================== Name: Tools-dtl.768 Author: dtl Time: 16 September 2017, 9:40:44.948741 pm UUID: a6a1ba7b-4614-46de-974b-41ced829733d Ancestors: Tools-dtl.767 Fix comments =============== Diff against Tools-dtl.767 =============== Item was changed: ----- Method: ObjectExplorer>>copyName (in category 'menus - actions') ----- copyName + "Copy the name of the current variable, so the user can paste it into the window below and work with it." - "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 key. ! Item was changed: ----- Method: ObjectExplorer>>copyValue (in category 'menus - actions') ----- copyValue + "Copy a description of the value of the current variable, so the user can paste it into the window below and work with it." - "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 asStringOrText. !

1 0

The Trunk: Tools-dtl.767.mcz
by commits＠source.squeak.org 17 Sep '17

17 Sep '17

David T. Lewis uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-dtl.767.mcz ==================== Summary ==================== Name: Tools-dtl.767 Author: dtl Time: 16 September 2017, 8:52:24.336542 pm UUID: a4cda952-0952-4ecf-a895-0fa604787356 Ancestors: Tools-cbc.766 For ObjectExplorer>>copyValue, use #asStringOrText to ensure that the value can be copied to the clipboard. =============== Diff against Tools-cbc.766 =============== Item was changed: ----- 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 asStringOrText. ! - Clipboard clipboardText: self currentSelection value. !

1 0

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

17 Sep '17

David T. Lewis uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/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!

1 0

The Inbox: MorphicExtras-hjh.202.mcz
by commits＠source.squeak.org 16 Sep '17

16 Sep '17

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-hjh.202.mcz ==================== Summary ==================== Name: MorphicExtras-hjh.202 Author: hjh Time: 24 January 2017, 9:18:04.266965 pm UUID: 790dbeec-ba66-4070-b51f-a0225aef4a9f Ancestors: MorphicExtras-cmm.201 Maintain aspect ratio in thumbnail display of imported graphic =============== Diff against MorphicExtras-cmm.201 =============== Item was changed: ----- Method: GraphicalDictionaryMenu>>initializeFor:fromDictionary: (in category 'initialization') ----- initializeFor: aTarget fromDictionary: aDictionary "Initialize me for a target and a dictionary." | anIndex aButton | self baseDictionary: aDictionary. target := aTarget. coexistWithOriginal := true. self extent: 210 @ 210. self clipSubmorphs: true. self layoutPolicy: ProportionalLayout new. aButton := (IconicButton new) borderWidth: 0; labelGraphic: (ScriptingSystem formAtKey: 'TinyMenu'); color: Color transparent; actWhen: #buttonDown; actionSelector: #showMenu; target: self; setBalloonText: 'menu'. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (-50 @ 6 extent: aButton extent)). aButton := (SimpleButtonMorph new) target: self; borderColor: Color black; label: 'Prev'; actionSelector: #downArrowHit; actWhen: #whilePressed; setBalloonText: 'show previous picture'; yourself. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (-24 @ 4 extent: aButton extent)). aButton := (SimpleButtonMorph new) target: self; borderColor: Color black; label: 'Next'; actionSelector: #upArrowHit; actWhen: #whilePressed; setBalloonText: 'show next pictutre'. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (24 @ 4 extent: aButton extent)). self addMorph: ((UpdatingStringMorph new) contents: ' '; target: self; putSelector: #renameGraphicTo:; getSelector: #truncatedNameOfGraphic; useStringFormat; setBalloonText: 'The name of the current graphic'; yourself) fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 1 @ 0) offsets: (10 @ 40 corner: -10 @ 60)). self addMorph: ((Morph new) extent: 100 @ 4; color: Color black) fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 1 @ 0) offsets: (0 @ 60 corner: 0 @ 64)). formDisplayMorph := (Thumbnail new) extent: 100 @ 100; useInterpolation: true; maxWidth: 3000 minHeight: 100; yourself. + formDisplayMorph layoutFrame: + (LayoutFrame fractions: (0 @ 0 extent: 0@0) + offsets: (8 @ 72 corner: 108 @ 172)). + self addMorph: formDisplayMorph. - self addMorph: formDisplayMorph - fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 0@0) - offsets: (8 @ 72 corner: 108 @ 172)). self minimumExtent: 116@180. target ifNotNil: [(anIndex := formChoices indexOf: target form ifAbsent: []) ifNotNil: [currentIndex := anIndex]]. self updateThumbnail!

3 7

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