Squeak-dev March 2018

squeak-dev@lists.squeakfoundation.org

53 participants
146 discussions

The Trunk: WebClient-Tests-topa.55.mcz
by commits＠source.squeak.org 28 Mar '18

28 Mar '18

Tobias Pape uploaded a new version of WebClient-Tests to project The Trunk: http://source.squeak.org/trunk/WebClient-Tests-topa.55.mcz ==================== Summary ==================== Name: WebClient-Tests-topa.55 Author: topa Time: 28 March 2018, 9:47:24.339011 pm UUID: af4b368e-87fd-4823-a3bd-86ef1d76eb7d Ancestors: WebClient-Tests-ul.54 test token-based Bearer/OAuth2 auth =============== Diff against WebClient-Tests-ul.54 =============== Item was changed: ----- Method: WebClientServerTest>>setUp (in category 'setup') ----- setUp server := WebServer new listenOn: self port. server passwordAt: 'user' realm: 'test' put: 'pass'. + server addToken: 'shushitsissupersecret' toRealm: 'test'.! - ! Item was added: + ----- Method: WebClientServerTest>>testBerarerAuth (in category 'tests - auth') ----- + testBerarerAuth + "Test client and server berarer auth" + + | resp reqHeader | + server addService: '/test/auth' action:[:req | + server authenticate: req realm: 'test' methods: #(bearer) do:[ + reqHeader := req headerAt: 'Authorization'. + req send200Response: 'ok'] ]. + + resp := WebClient new httpGet: self localHostUrl, '/test/auth'. + self assert: resp code = 401. + + [resp := WebClient httpGet: self localHostUrl, '/test/auth'] + on: WebAuthRequired do:[:ex| ex token: 'ihavenoideawhatiamdoing']. + self assert: resp code = 401. + + [resp := WebClient httpGet: self localHostUrl, '/test/auth'] + on: WebAuthRequired do:[:ex| ex token:'shushitsissupersecret']. + self assert: resp code = 200. + self assert: resp content = 'ok'. + self assert: (reqHeader beginsWith: 'Bearer '). + !

1 0

WebClient httpGet: 'http://freegeoip.net/json/' works on windows not linux
by Chris Cunnington 28 Mar '18

28 Mar '18

You don’t have openssl installed. ldd told you that. libcrypto.so.1.0.0 => not found libssl.so.1.0.0 => not found You are using a 32-bit vm. Clearly you don’t have the related 32-bit libcrypto installed. chris@chris-Meerkat:~$ dpkg -l | grep libssl ii libssl1.0.0:amd64 1.0.2g-1ubuntu4.10 amd64 Secure Sockets Layer toolkit - shared libraries ii libssl1.0.0:i386 1.0.2g-1ubuntu4.10 i386 Secure Sockets Layer toolkit - shared libraries Maybe you need to do this[1]: sudo dpkg --add-architecture i386; sudo apt-get update; sudo apt-get install libssl1.0.0:i386 As an aside, it’d be cool if SqueakSSL plugin had primitives to access libcrypto. As is, I think, that library is only used in relation to sockets. Chris [1] https://askubuntu.com/questions/252168/can-i-install-libssl-devi386-on-x86-…

6 26

The Trunk: System-mt.1007.mcz
by commits＠source.squeak.org 28 Mar '18

28 Mar '18

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1007.mcz ==================== Summary ==================== Name: System-mt.1007 Author: mt Time: 28 March 2018, 4:12:58.634604 pm UUID: 9616347c-6655-7746-b0f4-b5e04d9e11b6 Ancestors: System-eem.1006 Adds border-color modifier to all Squeak-based UI themes. =============== Diff against System-eem.1006 =============== Item was changed: ----- Method: SqueakTheme class>>addWindowColors: (in category 'instance creation') ----- addWindowColors: theme theme set: #titleFont for: #SystemWindow to: [Preferences windowTitleFont]; set: #borderColorModifier for: #SystemWindow to: [ [:c | c adjustBrightness: -0.3] ]; + set: #borderColorModifier for: #ScrollPane to: [ [:c | c adjustBrightness: -0.3] ]; set: #borderWidth for: #SystemWindow to: 1; set: #uniformWindowColor for: #Model to: Color veryVeryLightGray; derive: #uniformWindowColor for: #TranscriptStream from: #Model; derive: #color for: #SystemWindow from: #Model at: #uniformWindowColor; "Fall back for windows without models." set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color | color darker] ]; set: #unfocusedLabelColor for: #SystemWindow to: Color darkGray; set: #focusedLabelColor for: #SystemWindow to: Color black; set: #customWindowColor for: #Browser to: (Color r: 0.764 g: 0.9 b: 0.63); set: #customWindowColor for: #ChangeList to: (Color r: 0.719 g: 0.9 b: 0.9); set: #customWindowColor for: #ChangeSorter to: (Color r: 0.719 g: 0.9 b: 0.9); set: #customWindowColor for: #ChatNotes to: (Color r: 1.0 g: 0.7 b: 0.8); set: #customWindowColor for: #ClassCommentVersionsBrowser to: (Color r: 0.753 g: 0.677 b: 0.9); set: #customWindowColor for: #Debugger to: (Color r: 0.9 g: 0.719 b: 0.719); set: #customWindowColor for: #DualChangeSorter to: (Color r: 0.719 g: 0.9 b: 0.9); set: #customWindowColor for: #FileContentsBrowser to: (Color r: 0.7 g: 0.7 b: 0.508); set: #customWindowColor for: #FileList to: (Color r: 0.65 g: 0.65 b: 0.65); set: #customWindowColor for: #InstanceBrowser to: (Color r: 0.726 g: 0.9 b: 0.9); set: #customWindowColor for: #Lexicon to: (Color r: 0.79 g: 0.9 b: 0.79); set: #customWindowColor for: #MCTool to: (Color r: 0.65 g: 0.691 b: 0.876); set: #customWindowColor for: #MessageNames to: (Color r: 0.639 g: 0.9 b: 0.497); set: #customWindowColor for: #MessageSet to: (Color r: 0.719 g: 0.9 b: 0.9); set: #customWindowColor for: #PackagePaneBrowser to: (Color r: 0.9 g: 0.9 b: 0.63); set: #customWindowColor for: #PluggableFileList to: Color lightYellow; set: #customWindowColor for: #PreferenceBrowser to: (Color r: 0.671 g: 0.9 b: 0.9); set: #customWindowColor for: #SMLoader to: (Color r: 0.801 g: 0.801 b: 0.614); set: #customWindowColor for: #SMLoaderPlus to: (Color r: 0.801 g: 0.801 b: 0.614); set: #customWindowColor for: #SMReleaseBrowser to: (Color r: 0.801 g: 0.801 b: 0.614); set: #customWindowColor for: #ScriptingDomain to: (Color r: 0.91 g: 0.91 b: 0.91); set: #customWindowColor for: #SelectorBrowser to: (Color r: 0.45 g: 0.9 b: 0.9); set: #customWindowColor for: #StringHolder to: (Color r: 0.9 g: 0.9 b: 0.719); set: #customWindowColor for: #TestRunner to: (Color r: 0.9 g: 0.576 b: 0.09); set: #customWindowColor for: #TranscriptStream to: (Color r: 0.9 g: 0.75 b: 0.45); set: #customWindowColor for: #VersionsBrowser to: (Color r: 0.782 g: 0.677 b: 0.9).!

1 0

The Trunk: Morphic-mt.1402.mcz
by commits＠source.squeak.org 28 Mar '18

28 Mar '18

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1402.mcz ==================== Summary ==================== Name: Morphic-mt.1402 Author: mt Time: 28 March 2018, 4:10:37.386604 pm UUID: 2c70c8c0-1a1c-ca40-a286-6fd3527295d4 Ancestors: Morphic-mt.1401 Ask UI theme for border color modifier in scroll panes. =============== Diff against Morphic-mt.1401 =============== Item was changed: ----- Method: ScrollPane>>adoptPaneColor: (in category 'accessing') ----- adoptPaneColor: paneColor super adoptPaneColor: paneColor. "May not be in the hierarchy at the moment." scrollBar adoptPaneColor: paneColor. hScrollBar adoptPaneColor: paneColor. + paneColor ifNotNil: [:pc | self borderColor: ((self userInterfaceTheme borderColorModifier ifNil: [ [:c | c adjustBrightness: -0.3] ]) value: pc)].! - paneColor ifNotNil: [:c | self borderColor: (c adjustBrightness: -0.3)].!

1 0

Question on the signals/slots mechanism in Morphic Designer
by Edwin Ancaer 28 Mar '18

28 Mar '18

Hello, I struggle a bit to make my problem clear, so forgive me if I write too much text. To better understand how to build User Interfaces in an Object Oriented environment, I did some searching on the internet. I stumbled upon an article of Martin Fowler on the different GUI architectures. To help me understand what I was reding, I tried to build the UI that was used as an example. I did this with Morphic Designer, and building the UI went fine. Next, I had to write some methods, to get the UI displayed on the screen. Still no big problems. But then I needed to add some logic to use the value that was selected in a combobox widget to edit a lineEdit widget.: I connected its signal #currentIndexChanged:text: to the method #fill that initializes a textbox edtStationId with the value that was selected from the combobox.. *connecting the signal:* self connect: self ui cmbStations signal: #currentIndexChanged:text: toSelector: #fill. *the method #fill: * self ui edtStationId theText: *self ui cmbStations currentText.* This works, but it feels like cheating: I had hoped to be able to use the parameters from the signal to initialize the textfield, instead of having to reread this value explicitly with the currentText method from the comboBox. Also, I think this will only work when my fill method is defined in the same class where the comboBox is used.As I see how the interface should interact with the rest of the application, this should not be the case as it seems its better to decouple the UI from the application. Is there a way to use the parameters of the signal directly instead of going back through the comboBox to get the selected values. Hope that I was clear enough in my explications, and thanks already, Edwin Ancaer.

2 2

Suspiscious "weak" value reclaimed
by Nicolas Cellier 27 Mar '18

27 Mar '18

Hi all, while porting MatFileReader to Squeak, I encountered this questionable behaviour: I create classes on the fly for holding Matlab struct(). I want those classes to be garbage collected when no more used. If I store the classes in a WeakArray, then this should normally not work: I mean that the classes should not be reclaimed. Why? Because the metaclass points strongly to the class (via thisClass variable). And the metaclass can't be reclaimed either, because it still has an instance. That's what happens in Visualworks, classes put in a WeakArray are never reclaimed. Fortunately, there is some Ephemeron support in VW to work around this (such loop are detected by ephemerons, and strong references by some object ephemerely pointed to does not count). In Squeak, I used a WeakValueDictionary, and to my surprise, discovered that the classes were reclaimed. Is this a bug? Nicolas

4 11

The Inbox: Kernel-cbc.1164.mcz
by commits＠source.squeak.org 27 Mar '18

27 Mar '18

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-cbc.1164.mcz ==================== Summary ==================== Name: Kernel-cbc.1164 Author: cbc Time: 26 March 2018, 4:24:34.650291 pm UUID: 1db3c61f-3486-5847-bb7b-2e3409818f92 Ancestors: Kernel-cbc.1163 Removed implementation from Boolean>>xor: (made it sublcass responsibility). Chose a better method argument name for #xor: =============== Diff against Kernel-cbc.1163 =============== Item was changed: ----- Method: Boolean>>xor: (in category 'logical operations') ----- + xor: aBooleanOrBlock + "Exclusive OR. Answer true if self is not equivalent to aBooleanOrBlock. + aBooleanOrBlock is either a boolean, or evaluates to a boolean." - xor: aBoolean - "Exclusive OR. Answer true if the receiver is not equivalent to aBoolean." + ^self subclassResponsibility! - ^(self == aBoolean) not! Item was changed: ----- Method: False>>xor: (in category 'logical operations') ----- + xor: aBooleanOrBlock + "aBooleanOrBlock is either a boolean, or an object who's #value returns a boolean (usually a block)." + ^aBooleanOrBlock value ifTrue: [ true ] ifFalse: [ false ]! - xor: aBoolean - "aBoolean is either a boolean, or an object who's #value returns a boolean (usually a block)." - ^aBoolean value ifTrue: [ true ] ifFalse: [ false ]! Item was changed: ----- Method: True>>xor: (in category 'logical operations') ----- + xor: aBooleanOrBlock + "aBooleanOrBlock is either a boolean, or an object who's #value returns a boolean (usually a block)." + ^aBooleanOrBlock value ifTrue: [ false ] ifFalse: [ true ]! - xor: aBoolean - "aBoolean is either a boolean, or an object who's #value returns a boolean (usually a block)." - ^aBoolean value ifTrue: [ false ] ifFalse: [ true ]!

3 2

The Trunk: Kernel-eem.1164.mcz
by commits＠source.squeak.org 27 Mar '18

27 Mar '18

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1164.mcz ==================== Summary ==================== Name: Kernel-eem.1164 Author: eem Time: 27 March 2018, 11:44:42.020383 am UUID: 1e50cd13-d194-479f-877a-eac64559142b Ancestors: Kernel-cbc.1163 The selector of a method should never be found (unless it occurs as a literal or in a pragma) irrespective of thorough search. =============== Diff against Kernel-cbc.1163 =============== Item was changed: ----- Method: CompiledCode>>refersTo:bytecodeScanner:thorough: (in category 'literals') ----- refersTo: literal bytecodeScanner: scanBlockOrNil thorough: thorough "Answer if the receiver refers to the literal. If the scan block is non-nil, then use it to find the literal in bytecode. If thorough is true, dive down into literal arrays and method properties to locate references to the literal there-in." + 2 to: (self isCompiledBlock + ifTrue: [self numLiterals] "exclude outerCode or methodClass" + ifFalse: [self numLiterals - 1]) "exclude selector/properties and methodClass" - 2 to: ((self isCompiledBlock or: [thorough]) - ifTrue: [self numLiterals] "exclude outerCode or methodClass" - ifFalse: [self numLiterals - 1]) "exclude selector/properties and methodClass" do: [:i| | lit | lit := self objectAt: i. (literal == lit or: [literal literalEqual: lit]) ifTrue: [^true]. "== for Float bindingOf: #NaN since NaN ~= NaN" lit isCompiledCode ifTrue: [(lit refersTo: literal bytecodeScanner: scanBlockOrNil thorough: thorough) ifTrue: [^true]] ifFalse: [thorough ifTrue: [lit isVariableBinding ifTrue: [literal == lit key ifTrue: [^true]] ifFalse: [(lit isArray and: [(lit hasLiteral: literal) or: [literal isVariableBinding and: [literal key isSymbol and: [lit hasLiteral: literal key]]]]) ifTrue: [^true]]]]]. scanBlockOrNil ifNotNil: [(self scanFor: scanBlockOrNil) ifTrue: [^true]]. ^false!

1 0

The Trunk: KernelTests-eem.339.mcz
by commits＠source.squeak.org 27 Mar '18

27 Mar '18

Eliot Miranda uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-eem.339.mcz ==================== Summary ==================== Name: KernelTests-eem.339 Author: eem Time: 27 March 2018, 11:42:08.383576 am UUID: 8c45b1d4-42d5-405e-888d-9fc6a5418e2c Ancestors: KernelTests-eem.338 comment that last stipulation =============== Diff against KernelTests-eem.338 =============== Item was changed: ----- Method: LiteralRefLocatorTest>>testThoroughFindLiteralsInBytecode (in category 'tests') ----- testThoroughFindLiteralsInBytecode "Create a method referencing integers, characters, special selectors and nil, true & false. Compile it and check that the objects are found." | literals problem primary secondary | literals := #(-1 0 1 $0 $1 1.0 #[1 2 3 4] 'one' #one nil true false NaN). problem := Float bindingOf: #NaN. primary := CompiledCode classPool at: #PrimaryBytecodeSetEncoderClass. secondary := CompiledCode classPool at: #SecondaryBytecodeSetEncoderClass. { primary. secondary } do: [:encoderClass| | method | #(('' '') ('^[' ']')) do: "And the locators should work whether in a block or not" [:pFixes| "NaN's binding should still be found even though (Float bindingOf: #NaN) ~= (Float bindingOf: #NaN)" method := (Parser new encoderClass: encoderClass; parse: 'foo ', pFixes first, '^NaN', pFixes last class: Float) generate: CompiledMethodTrailer empty. [:literal| self assert: (method refersTo: literal primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) thorough: false). self assert: (method refersTo: literal primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) thorough: true). + "The selector of a method should never be found (unless it occurs as a literal or in a pragma)" self deny: (method refersTo: method selector primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) thorough: false). self deny: (method refersTo: method selector primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) thorough: true)] value: problem. "All the literals should be found in a thorough search, but not otherwise" method := (Parser new encoderClass: encoderClass; parse: 'foo ', pFixes first, '^', literals storeString, pFixes last class: Float) generate: CompiledMethodTrailer empty. literals, {problem. problem key} do: [:literal| self deny: (method refersTo: literal primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) thorough: false). self assert: (method refersTo: literal primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) thorough: true)]]. "Likewise if in a pragma" method := (Parser new encoderClass: encoderClass; parse: 'foo <pragma: ', literals storeString, ' with: ', problem key storeString, '>' class: Float) generate: CompiledMethodTrailer empty. literals, {problem. problem key} do: [:literal| self deny: (method refersTo: literal primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) thorough: false). self assert: (method refersTo: literal primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) thorough: true)]]!

1 0

The Trunk: KernelTests-eem.338.mcz
by commits＠source.squeak.org 27 Mar '18

27 Mar '18

Eliot Miranda uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-eem.338.mcz ==================== Summary ==================== Name: KernelTests-eem.338 Author: eem Time: 27 March 2018, 11:39:37.221317 am UUID: 70d48127-ccfe-4108-9e9e-4db931a396c4 Ancestors: KernelTests-cbc.337 The selector of a method should not be found when looking for literals irrespective of thorough search. Make the LiteralRefLocatorTest reflect this. =============== Diff against KernelTests-cbc.337 =============== Item was changed: ----- Method: LiteralRefLocatorTest>>testThoroughFindLiteralsInBytecode (in category 'tests') ----- testThoroughFindLiteralsInBytecode "Create a method referencing integers, characters, special selectors and nil, true & false. Compile it and check that the objects are found." | literals problem primary secondary | literals := #(-1 0 1 $0 $1 1.0 #[1 2 3 4] 'one' #one nil true false NaN). problem := Float bindingOf: #NaN. primary := CompiledCode classPool at: #PrimaryBytecodeSetEncoderClass. secondary := CompiledCode classPool at: #SecondaryBytecodeSetEncoderClass. { primary. secondary } do: [:encoderClass| | method | #(('' '') ('^[' ']')) do: "And the locators should work whether in a block or not" [:pFixes| "NaN's binding should still be found even though (Float bindingOf: #NaN) ~= (Float bindingOf: #NaN)" method := (Parser new encoderClass: encoderClass; parse: 'foo ', pFixes first, '^NaN', pFixes last class: Float) generate: CompiledMethodTrailer empty. [:literal| self assert: (method refersTo: literal primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) thorough: false). self assert: (method refersTo: literal primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) + thorough: true). + self deny: (method + refersTo: method selector + primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) + secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) + thorough: false). + self deny: (method + refersTo: method selector + primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) + secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) thorough: true)] value: problem. "All the literals should be found in a thorough search, but not otherwise" method := (Parser new encoderClass: encoderClass; parse: 'foo ', pFixes first, '^', literals storeString, pFixes last class: Float) generate: CompiledMethodTrailer empty. literals, {problem. problem key} do: [:literal| self deny: (method refersTo: literal primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) thorough: false). self assert: (method refersTo: literal primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) thorough: true)]]. "Likewise if in a pragma" method := (Parser new encoderClass: encoderClass; parse: 'foo <pragma: ', literals storeString, ' with: ', problem key storeString, '>' class: Float) generate: CompiledMethodTrailer empty. literals, {problem. problem key} do: [:literal| self deny: (method refersTo: literal primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) thorough: false). self assert: (method refersTo: literal primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) thorough: true)]]!

1 0

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

Jump to page: