Squeak-dev August 2017

squeak-dev@lists.squeakfoundation.org

42 participants
86 discussions

The Trunk: ToolBuilder-Kernel-eem.113.mcz
by commits＠source.squeak.org 11 Aug '17

11 Aug '17

Eliot Miranda uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-eem.113.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-eem.113 Author: eem Time: 11 August 2017, 10:36:57.824967 am UUID: f594fcf4-ca8e-4fbe-a9b9-3e5abdacf467 Ancestors: ToolBuilder-Kernel-eem.112 chooseFont:for:setSelector:getSelector: should be subclassResponsibility (both MorphicUIManager and MVCUIManager implement it). =============== Diff against ToolBuilder-Kernel-eem.112 =============== Item was changed: ----- Method: UIManager>>chooseFont:for:setSelector:getSelector: (in category 'ui requests') ----- chooseFont: titleString for: aModel setSelector: setSelector getSelector: getSelector + "Open a font-chooser for the given model" + ^self subclassResponsibility! - "Open a font-chooser for the given model"!

1 0

The Trunk: ToolBuilder-Kernel-eem.112.mcz
by commits＠source.squeak.org 11 Aug '17

11 Aug '17

Eliot Miranda uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-eem.112.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-eem.112 Author: eem Time: 11 August 2017, 10:30:08.686663 am UUID: b38646b5-66a2-44ad-a70e-145a77054677 Ancestors: ToolBuilder-Kernel-nice.111 chooseFromOrAddTo:lines:title: should use self, not UIManager default, since self is already a UIManager. =============== Diff against ToolBuilder-Kernel-nice.111 =============== 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 title: aString. - index := (UIManager default chooseFrom: {'new...'}, aList lines: linesArray title: aString). index = 0 ifTrue: [^ nil]. + index = 1 ifTrue: + [^ self request: 'Please type new value' initialAnswer: '']. - index = 1 ifTrue: [ - ^ self request: 'Please type new value' initialAnswer: '']. ^ aList at: index - 1!

1 0

Squeak headless on a Raspberry Pi
by Louis LaBrunda 10 Aug '17

10 Aug '17

Hi All, I'm running squeak headless on a Raspberry Pi with -vm-display-null. Normally there is no monitor connected. Sometimes for testing I can connect a monitor. How can/should I write some text to the monitor so I can see what is going on? Thanks in advance for any and all help. Lou -- Louis LaBrunda Keystone Software Corp. SkypeMe callto://PhotonDemon

5 5

Balloon3D package in 2017
by tim Rowledge 10 Aug '17

10 Aug '17

As part of testing to see whether I’ve actually been able to build a working openGL plugin (well, the B3DAcceleratorPlugin, strictly speaking) I loaded up Balloon3D to try pushing some pixels around. *Mostly* it seems to work. I tried a bunch of examples with no apparent crashes and it looks like the B3DDemoXXXX demos do their thing ok. So far, so good. I do have this lingering memory that those demos should have a button to turn on and off the hardware acceleration and I don’t see any such right now. Oh, well it looks like the WheelMorph class>example has that but somebody named ‘BG’ made changes in 2002 to the B3DTutorialScenePresenterMorph stuff that took away an accelerator button. Sigh. Attempting to do `Wonderland new` fails when the code sends #addGuard: to the current Project. I don’t have any idea what #addGuard: was supposed to do. If I remove that I get a Wonderland and things move around a bit. If I try to get the halo for the actual wonderland morph it fails because of the lack of B3DScanner. I’m pretty sure I remember an Energizer bunny in there somewhere, but no sign now. Maybe he ran down? The Pooh graphics seems to at least begin to work but I can’t make much sense of what it ought to do. No examples! tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: NBRM: Unconditional No BRanch Multiple

1 0

UK Smalltalk User Group Meeting - Monday 21st August
by Giovanni Corriga 10 Aug '17

10 Aug '17

The next meeting of the UK Smalltalk User Group Meeting will be on Monday, 21st August. We'll meet at a new venue The City Pride ( http://www. cityprideclerkenwell.co.uk/ ) at 7pm. If you'd like to join us, you can just show up at the pub. You can also sign up in advance at the meeting's Meetup page: *https://www.meetup.com/UKSTUG/events/242432390/ <https://www.meetup.com/UKSTUG/events/242432390/> *. See you there!

1 0

The Trunk: Tests-eem.381.mcz
by commits＠source.squeak.org 09 Aug '17

09 Aug '17

Eliot Miranda uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-eem.381.mcz ==================== Summary ==================== Name: Tests-eem.381 Author: eem Time: 9 August 2017, 10:09:11.49354 am UUID: b1c7febe-4a63-4f32-895a-e2aae2e8972c Ancestors: Tests-dtl.380 No longer hard-code the typeOfClass for compiled code MCClassDefinitions. Instead trust the typeSymbol argument. Assumes Monticello-eem.673 =============== Diff against Tests-dtl.380 =============== Item was changed: ----- Method: MCClassDefinitionTest>>testKindOfSubclassForCompiledBlock (in category 'testing - class type') ----- testKindOfSubclassForCompiledBlock "CompiledCode and its subclasses are a special case." | classDef | "CompiledBlock should be like CompiledMethod, both now are subclassed from CompiledCode" + classDef := self mockClass: #CompiledBlock super: #CompiledCode. - classDef := self mockClass: #CompiledBlock super: #CompiledCode type: #bytes. self assert: #compiledMethod equals: classDef type. + self assert: CompiledBlock typeOfClass equals: classDef type! - self assert: CompiledBlock typeOfClass equals: classDef type. - ! Item was changed: ----- Method: MCClassDefinitionTest>>testKindOfSubclassForCompiledCode (in category 'testing - class type') ----- testKindOfSubclassForCompiledCode "CompiledCode and its subclasses are a special case." | classDef | "CompiledMethod is now a subclass of CompiledCode, which is also of type #compiledMethod" + classDef := self mockClass: #CompiledCode super: #ByteArray. - classDef := self mockClass: #CompiledCode super: #ByteArray type: #bytes. self assert: #compiledMethod equals: classDef type. + self assert: CompiledCode typeOfClass equals: classDef type! - self assert: CompiledCode typeOfClass equals: classDef type. - - ! Item was changed: ----- Method: MCClassDefinitionTest>>testKindOfSubclassForCompiledMethod (in category 'testing - class type') ----- testKindOfSubclassForCompiledMethod "CompiledCode and its subclasses are a special case." | classDef | + classDef := self mockClass: #CompiledMethod super: #CompiledCode. - classDef := self mockClass: #CompiledMethod super: #CompiledCode type: #bytes. self assert: #compiledMethod equals: classDef type. + self assert: CompiledMethod typeOfClass equals: classDef type! - self assert: CompiledMethod typeOfClass equals: classDef type. - ! Item was changed: ----- Method: MCClassDefinitionTest>>testKindOfSubclassForSocketAddress (in category 'testing - class type') ----- testKindOfSubclassForSocketAddress "A subclass of ByteArray that is not treated specially" | classDef | + classDef := self mockClass: #SocketAddress super: #ByteArray. - classDef := self mockClass: #SocketAddress super: #ByteArray type: #bytes. self assert: #bytes equals: classDef type. + self assert: SocketAddress typeOfClass equals: classDef type! - self assert: SocketAddress typeOfClass equals: classDef type. - - ! Item was changed: ----- Method: MCTestCase>>mockClass:super: (in category 'mocks') ----- mockClass: className super: superclassName + ^ MCClassDefinition + name: className + superclassName: superclassName + category: self mockCategoryName + instVarNames: #() + classVarNames: #() + poolDictionaryNames: #() + classInstVarNames: #() + type: ((Smalltalk classNamed: className asSymbol) + ifNil: [#normal] + ifNotNil: [:class| class typeOfClass]) + comment: (self commentForClass: className) + commentStamp: (self commentStampForClass: className)! - ^ self mockClass: className super: superclassName type: #normal - ! Item was removed: - ----- Method: MCTestCase>>mockClass:super:type: (in category 'mocks') ----- - mockClass: className super: superclassName type: typeSymbol - ^ MCClassDefinition - name: className - superclassName: superclassName - category: self mockCategoryName - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - type: typeSymbol - comment: (self commentForClass: className) - commentStamp: (self commentStampForClass: className)!

1 0

The Trunk: Monticello-eem.673.mcz
by commits＠source.squeak.org 09 Aug '17

09 Aug '17

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.673.mcz ==================== Summary ==================== Name: Monticello-eem.673 Author: eem Time: 9 August 2017, 10:07:15.978716 am UUID: 38e0acab-e610-4613-8483-63a2b9c34a12 Ancestors: Monticello-dtl.672 No longer hard-code the typeOfClass for compiled code MCClassDefinitions. Instead trust the typeSymbol argument. =============== Diff against Monticello-dtl.672 =============== Item was changed: ----- Method: MCClassDefinition>>initializeWithName:superclassName:category:instVarNames:classVarNames:poolDictionaryNames:classInstVarNames:type:comment:commentStamp: (in category 'initializing') ----- initializeWithName: nameString superclassName: superclassString category: categoryString instVarNames: ivarArray classVarNames: cvarArray poolDictionaryNames: poolArray classInstVarNames: civarArray type: typeSymbol comment: commentString commentStamp: stampStringOrNil name := nameString asSymbol. superclassName := superclassString ifNil: ['nil'] ifNotNil: [superclassString asSymbol]. category := categoryString. + type := typeSymbol. - (self isCompiledCode: name) ifTrue: [type := #compiledMethod] ifFalse: [type := typeSymbol]. comment := commentString withSqueakLineEndings. commentStamp := stampStringOrNil ifNil: [self defaultCommentStamp]. variables := OrderedCollection new. self addVariables: ivarArray ofType: MCInstanceVariableDefinition. self addVariables: cvarArray sorted ofType: MCClassVariableDefinition. self addVariables: poolArray sorted ofType: MCPoolImportDefinition. + self addVariables: civarArray ofType: MCClassInstanceVariableDefinition! - self addVariables: civarArray ofType: MCClassInstanceVariableDefinition.! Item was changed: ----- Method: MCClassDefinition>>initializeWithName:superclassName:traitComposition:classTraitComposition:category:instVarNames:classVarNames:poolDictionaryNames:classInstVarNames:type:comment:commentStamp: (in category 'initializing') ----- initializeWithName: nameString superclassName: superclassString traitComposition: traitCompositionString classTraitComposition: classTraitCompositionString category: categoryString instVarNames: ivarArray classVarNames: cvarArray poolDictionaryNames: poolArray classInstVarNames: civarArray type: typeSymbol comment: commentString commentStamp: stampStringOrNil name := nameString asSymbol. superclassName := superclassString ifNil: ['nil'] ifNotNil: [superclassString asSymbol]. traitComposition := traitCompositionString. classTraitComposition := classTraitCompositionString. category := categoryString. + type := typeSymbol. - (self isCompiledCode: name) ifTrue: [type := #compiledMethod] ifFalse: [type := typeSymbol]. comment := commentString withSqueakLineEndings. commentStamp := stampStringOrNil ifNil: [self defaultCommentStamp]. variables := OrderedCollection new. self addVariables: ivarArray ofType: MCInstanceVariableDefinition. self addVariables: cvarArray sorted ofType: MCClassVariableDefinition. self addVariables: poolArray sorted ofType: MCPoolImportDefinition. + self addVariables: civarArray ofType: MCClassInstanceVariableDefinition! - self addVariables: civarArray ofType: MCClassInstanceVariableDefinition.! Item was removed: - ----- Method: MCClassDefinition>>isCompiledCode: (in category 'initializing') ----- - isCompiledCode: className - "Classes of type #compiledMethod are treated specially. CompiledCode - and all of its subclasses, including CompiledMethod, should have this - special type." - - CompiledCode - withAllSubclassesDo: [ :cls | (className = cls name) - ifTrue: [ ^true ]]. - ^ false - !

1 0

The Trunk: Monticello-dtl.672.mcz
by commits＠source.squeak.org 09 Aug '17

09 Aug '17

David T. Lewis uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-dtl.672.mcz ==================== Summary ==================== Name: Monticello-dtl.672 Author: dtl Time: 6 August 2017, 12:25:45.326051 pm UUID: dfe33bfa-dc27-4c01-a1db-234bd7e4433c Ancestors: Monticello-eem.671 CompiledCode and its subclasses are a special case, and are identified as class type #compiledMethod rather than #bytes. An MCClassDefinition should identify this type correctly, otherwise changes to these classes may not be saved and reloaded correctly. See MCClassDefinitionTest. =============== Diff against Monticello-eem.671 =============== Item was changed: ----- Method: MCClassDefinition>>initializeWithName:superclassName:category:instVarNames:classVarNames:poolDictionaryNames:classInstVarNames:type:comment:commentStamp: (in category 'initializing') ----- initializeWithName: nameString superclassName: superclassString category: categoryString instVarNames: ivarArray classVarNames: cvarArray poolDictionaryNames: poolArray classInstVarNames: civarArray type: typeSymbol comment: commentString commentStamp: stampStringOrNil name := nameString asSymbol. superclassName := superclassString ifNil: ['nil'] ifNotNil: [superclassString asSymbol]. category := categoryString. + (self isCompiledCode: name) ifTrue: [type := #compiledMethod] ifFalse: [type := typeSymbol]. - name = #CompiledMethod ifTrue: [type := #compiledMethod] ifFalse: [type := typeSymbol]. comment := commentString withSqueakLineEndings. commentStamp := stampStringOrNil ifNil: [self defaultCommentStamp]. variables := OrderedCollection new. self addVariables: ivarArray ofType: MCInstanceVariableDefinition. self addVariables: cvarArray sorted ofType: MCClassVariableDefinition. self addVariables: poolArray sorted ofType: MCPoolImportDefinition. self addVariables: civarArray ofType: MCClassInstanceVariableDefinition.! Item was changed: ----- Method: MCClassDefinition>>initializeWithName:superclassName:traitComposition:classTraitComposition:category:instVarNames:classVarNames:poolDictionaryNames:classInstVarNames:type:comment:commentStamp: (in category 'initializing') ----- initializeWithName: nameString superclassName: superclassString traitComposition: traitCompositionString classTraitComposition: classTraitCompositionString category: categoryString instVarNames: ivarArray classVarNames: cvarArray poolDictionaryNames: poolArray classInstVarNames: civarArray type: typeSymbol comment: commentString commentStamp: stampStringOrNil name := nameString asSymbol. superclassName := superclassString ifNil: ['nil'] ifNotNil: [superclassString asSymbol]. traitComposition := traitCompositionString. classTraitComposition := classTraitCompositionString. category := categoryString. + (self isCompiledCode: name) ifTrue: [type := #compiledMethod] ifFalse: [type := typeSymbol]. - name = #CompiledMethod ifTrue: [type := #compiledMethod] ifFalse: [type := typeSymbol]. comment := commentString withSqueakLineEndings. commentStamp := stampStringOrNil ifNil: [self defaultCommentStamp]. variables := OrderedCollection new. self addVariables: ivarArray ofType: MCInstanceVariableDefinition. self addVariables: cvarArray sorted ofType: MCClassVariableDefinition. self addVariables: poolArray sorted ofType: MCPoolImportDefinition. self addVariables: civarArray ofType: MCClassInstanceVariableDefinition.! Item was added: + ----- Method: MCClassDefinition>>isCompiledCode: (in category 'initializing') ----- + isCompiledCode: className + "Classes of type #compiledMethod are treated specially. CompiledCode + and all of its subclasses, including CompiledMethod, should have this + special type." + + CompiledCode + withAllSubclassesDo: [ :cls | (className = cls name) + ifTrue: [ ^true ]]. + ^ false + !

3 4

The Inbox: Tests-eem.381.mcz
by commits＠source.squeak.org 09 Aug '17

09 Aug '17

Eliot Miranda uploaded a new version of Tests to project The Inbox: http://source.squeak.org/inbox/Tests-eem.381.mcz ==================== Summary ==================== Name: Tests-eem.381 Author: eem Time: 9 August 2017, 10:09:11.49354 am UUID: b1c7febe-4a63-4f32-895a-e2aae2e8972c Ancestors: Tests-dtl.380 No longer hard-code the typeOfClass for compiled code MCClassDefinitions. Instead trust the typeSymbol argument. Assumes Monticello-eem.673 =============== Diff against Tests-dtl.380 =============== Item was changed: ----- Method: MCClassDefinitionTest>>testKindOfSubclassForCompiledBlock (in category 'testing - class type') ----- testKindOfSubclassForCompiledBlock "CompiledCode and its subclasses are a special case." | classDef | "CompiledBlock should be like CompiledMethod, both now are subclassed from CompiledCode" + classDef := self mockClass: #CompiledBlock super: #CompiledCode. - classDef := self mockClass: #CompiledBlock super: #CompiledCode type: #bytes. self assert: #compiledMethod equals: classDef type. + self assert: CompiledBlock typeOfClass equals: classDef type! - self assert: CompiledBlock typeOfClass equals: classDef type. - ! Item was changed: ----- Method: MCClassDefinitionTest>>testKindOfSubclassForCompiledCode (in category 'testing - class type') ----- testKindOfSubclassForCompiledCode "CompiledCode and its subclasses are a special case." | classDef | "CompiledMethod is now a subclass of CompiledCode, which is also of type #compiledMethod" + classDef := self mockClass: #CompiledCode super: #ByteArray. - classDef := self mockClass: #CompiledCode super: #ByteArray type: #bytes. self assert: #compiledMethod equals: classDef type. + self assert: CompiledCode typeOfClass equals: classDef type! - self assert: CompiledCode typeOfClass equals: classDef type. - - ! Item was changed: ----- Method: MCClassDefinitionTest>>testKindOfSubclassForCompiledMethod (in category 'testing - class type') ----- testKindOfSubclassForCompiledMethod "CompiledCode and its subclasses are a special case." | classDef | + classDef := self mockClass: #CompiledMethod super: #CompiledCode. - classDef := self mockClass: #CompiledMethod super: #CompiledCode type: #bytes. self assert: #compiledMethod equals: classDef type. + self assert: CompiledMethod typeOfClass equals: classDef type! - self assert: CompiledMethod typeOfClass equals: classDef type. - ! Item was changed: ----- Method: MCClassDefinitionTest>>testKindOfSubclassForSocketAddress (in category 'testing - class type') ----- testKindOfSubclassForSocketAddress "A subclass of ByteArray that is not treated specially" | classDef | + classDef := self mockClass: #SocketAddress super: #ByteArray. - classDef := self mockClass: #SocketAddress super: #ByteArray type: #bytes. self assert: #bytes equals: classDef type. + self assert: SocketAddress typeOfClass equals: classDef type! - self assert: SocketAddress typeOfClass equals: classDef type. - - ! Item was changed: ----- Method: MCTestCase>>mockClass:super: (in category 'mocks') ----- mockClass: className super: superclassName + ^ MCClassDefinition + name: className + superclassName: superclassName + category: self mockCategoryName + instVarNames: #() + classVarNames: #() + poolDictionaryNames: #() + classInstVarNames: #() + type: ((Smalltalk classNamed: className asSymbol) + ifNil: [#normal] + ifNotNil: [:class| class typeOfClass]) + comment: (self commentForClass: className) + commentStamp: (self commentStampForClass: className)! - ^ self mockClass: className super: superclassName type: #normal - ! Item was removed: - ----- Method: MCTestCase>>mockClass:super:type: (in category 'mocks') ----- - mockClass: className super: superclassName type: typeSymbol - ^ MCClassDefinition - name: className - superclassName: superclassName - category: self mockCategoryName - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - type: typeSymbol - comment: (self commentForClass: className) - commentStamp: (self commentStampForClass: className)!

1 0

The Inbox: Monticello-eem.673.mcz
by commits＠source.squeak.org 09 Aug '17

09 Aug '17

Eliot Miranda uploaded a new version of Monticello to project The Inbox: http://source.squeak.org/inbox/Monticello-eem.673.mcz ==================== Summary ==================== Name: Monticello-eem.673 Author: eem Time: 9 August 2017, 10:07:15.978716 am UUID: 38e0acab-e610-4613-8483-63a2b9c34a12 Ancestors: Monticello-dtl.672 No longer hard-code the typeOfClass for compiled code MCClassDefinitions. Instead trust the typeSymbol argument. =============== Diff against Monticello-dtl.672 =============== Item was changed: ----- Method: MCClassDefinition>>initializeWithName:superclassName:category:instVarNames:classVarNames:poolDictionaryNames:classInstVarNames:type:comment:commentStamp: (in category 'initializing') ----- initializeWithName: nameString superclassName: superclassString category: categoryString instVarNames: ivarArray classVarNames: cvarArray poolDictionaryNames: poolArray classInstVarNames: civarArray type: typeSymbol comment: commentString commentStamp: stampStringOrNil name := nameString asSymbol. superclassName := superclassString ifNil: ['nil'] ifNotNil: [superclassString asSymbol]. category := categoryString. + type := typeSymbol. - (self isCompiledCode: name) ifTrue: [type := #compiledMethod] ifFalse: [type := typeSymbol]. comment := commentString withSqueakLineEndings. commentStamp := stampStringOrNil ifNil: [self defaultCommentStamp]. variables := OrderedCollection new. self addVariables: ivarArray ofType: MCInstanceVariableDefinition. self addVariables: cvarArray sorted ofType: MCClassVariableDefinition. self addVariables: poolArray sorted ofType: MCPoolImportDefinition. + self addVariables: civarArray ofType: MCClassInstanceVariableDefinition! - self addVariables: civarArray ofType: MCClassInstanceVariableDefinition.! Item was changed: ----- Method: MCClassDefinition>>initializeWithName:superclassName:traitComposition:classTraitComposition:category:instVarNames:classVarNames:poolDictionaryNames:classInstVarNames:type:comment:commentStamp: (in category 'initializing') ----- initializeWithName: nameString superclassName: superclassString traitComposition: traitCompositionString classTraitComposition: classTraitCompositionString category: categoryString instVarNames: ivarArray classVarNames: cvarArray poolDictionaryNames: poolArray classInstVarNames: civarArray type: typeSymbol comment: commentString commentStamp: stampStringOrNil name := nameString asSymbol. superclassName := superclassString ifNil: ['nil'] ifNotNil: [superclassString asSymbol]. traitComposition := traitCompositionString. classTraitComposition := classTraitCompositionString. category := categoryString. + type := typeSymbol. - (self isCompiledCode: name) ifTrue: [type := #compiledMethod] ifFalse: [type := typeSymbol]. comment := commentString withSqueakLineEndings. commentStamp := stampStringOrNil ifNil: [self defaultCommentStamp]. variables := OrderedCollection new. self addVariables: ivarArray ofType: MCInstanceVariableDefinition. self addVariables: cvarArray sorted ofType: MCClassVariableDefinition. self addVariables: poolArray sorted ofType: MCPoolImportDefinition. + self addVariables: civarArray ofType: MCClassInstanceVariableDefinition! - self addVariables: civarArray ofType: MCClassInstanceVariableDefinition.! Item was removed: - ----- Method: MCClassDefinition>>isCompiledCode: (in category 'initializing') ----- - isCompiledCode: className - "Classes of type #compiledMethod are treated specially. CompiledCode - and all of its subclasses, including CompiledMethod, should have this - special type." - - CompiledCode - withAllSubclassesDo: [ :cls | (className = cls name) - ifTrue: [ ^true ]]. - ^ false - !

1 0

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