Squeak-dev April 2017

squeak-dev@lists.squeakfoundation.org

48 participants
221 discussions

The Trunk: KernelTests-ul.328.mcz
by commits＠source.squeak.org 25 Apr '17

25 Apr '17

Levente Uzonyi uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ul.328.mcz ==================== Summary ==================== Name: KernelTests-ul.328 Author: ul Time: 25 April 2017, 6:40:43.285455 pm UUID: f80023f1-7ae7-443e-a43f-d0ca5d867f2d Ancestors: KernelTests-eem.327 - removed #testClone, since #clone had been deprecated =============== Diff against KernelTests-eem.327 =============== Item was removed: - ----- Method: UndefinedObjectTest>>testClone (in category 'tests - copying') ----- - testClone - - self assert: ( nil clone = nil).!

1 0

The Trunk: Kernel-ul.1099.mcz
by commits＠source.squeak.org 25 Apr '17

25 Apr '17

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1099.mcz ==================== Summary ==================== Name: Kernel-ul.1099 Author: ul Time: 25 April 2017, 6:40:04.569495 pm UUID: d06b7b82-b7b0-4896-ab30-7a5f85de7427 Ancestors: Kernel-ul.1098 - deprecated Object >> #clone - removed #clone from subclasses =============== Diff against Kernel-ul.1098 =============== Item was removed: - ----- Method: Boolean>>clone (in category 'copying') ----- - clone - "Receiver has two concrete subclasses, True and False. - Only one instance of each should be made, so return self."! Item was removed: - ----- Method: Object>>clone (in category 'copying') ----- - clone - "Answer a shallow copy of the receiver." - <primitive: 148 error: ec> - | class newObject | - ec == #'insufficient object memory' ifFalse: - [^self primitiveFailed]. - "If the primitive fails due to insufficient memory, instantiate via basicNew: to invoke - the garbage collector before retrying, and use copyFrom: to copy state." - newObject := (class := self class) isVariable - ifTrue: - [class isCompiledMethodClass - ifTrue: - [class newMethod: self basicSize - self initialPC + 1 header: self header] - ifFalse: - [class basicNew: self basicSize]] - ifFalse: - [class basicNew]. - ^newObject copyFrom: self! Item was removed: - ----- Method: SmallFloat64>>clone (in category 'copying') ----- - clone - "Answer the receiver, because SmallFloat64s are unique." - ^self! Item was removed: - ----- Method: SmallInteger>>clone (in category 'copying') ----- - clone - "Answer the receiver, because SmallIntegers are unique." - ^self! Item was removed: - ----- Method: UndefinedObject>>clone (in category 'copying') ----- - clone - "Only one instance of UndefinedObject should ever be made, so answer - with self."!

1 0

The Trunk: 60Deprecated-ul.4.mcz
by commits＠source.squeak.org 25 Apr '17

25 Apr '17

Levente Uzonyi uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-ul.4.mcz ==================== Summary ==================== Name: 60Deprecated-ul.4 Author: ul Time: 25 April 2017, 6:39:25.185216 pm UUID: a8e17d3d-f574-4b75-b464-7ec87ffcd62d Ancestors: 60Deprecated-tfel.3 - deprecated Object >> #clone =============== Diff against 60Deprecated-tfel.3 =============== Item was added: + ----- Method: Object>>clone (in category '*60Deprecated-copying') ----- + clone + "Answer a shallow copy of the receiver." + + self deprecated: 'Use #shallowCopy'. + ^self shallowCopy!

1 0

The Trunk: Multilingual-pre.225.mcz
by commits＠source.squeak.org 25 Apr '17

25 Apr '17

Patrick Rein uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-pre.225.mcz ==================== Summary ==================== Name: Multilingual-pre.225 Author: pre Time: 25 April 2017, 2:37:50.28766 pm UUID: 3b353e70-b2e8-2d46-bb26-2f159e6b9276 Ancestors: Multilingual-ul.224 Removes the unnecessary initializers for TextConverters again =============== Diff against Multilingual-ul.224 =============== Item was changed: ----- Method: ByteTextConverter class>>initialize (in category 'class initialization') ----- initialize + self == ByteTextConverter + ifTrue: [self allSubclassesDo: [:c | c initialize]] + ifFalse: [self + initializeDecodeTable; + initializeEncodeTable; + initializeLatin1MapAndEncodings] - self ~~ ByteTextConverter ifTrue: "This method exists for subclass use" - [self initializeDecodeTable; initializeEncodeTable; initializeLatin1MapAndEncodings] ! Item was removed: - ----- Method: CP1250TextConverter class>>initialize (in category 'class initialization') ----- - initialize - - super initialize! Item was removed: - ----- Method: CP1252TextConverter class>>initialize (in category 'class initialization') ----- - initialize - - super initialize! Item was removed: - ----- Method: CP1253TextConverter class>>initialize (in category 'class initialization') ----- - initialize - - super initialize! Item was removed: - ----- Method: CP1256TextConverter class>>initialize (in category 'class initialization') ----- - initialize - - super initialize! Item was removed: - ----- Method: ISO88592TextConverter class>>initialize (in category 'class initialization') ----- - initialize - - super initialize! Item was removed: - ----- Method: ISO88597TextConverter class>>initialize (in category 'class initialization') ----- - initialize - - super initialize! Item was removed: - ----- Method: Latin1TextConverter class>>initialize (in category 'class initialization') ----- - initialize - - super initialize! Item was removed: - ----- Method: Latin9TextConverter class>>initialize (in category 'as yet unclassified') ----- - initialize - - self initializeDecodeTable; initializeEncodeTable; initializeLatin1MapAndEncodings! Item was removed: - ----- Method: MacRomanTextConverter class>>initialize (in category 'class initialization') ----- - initialize - - super initialize!

1 0

StarSqueak repository?
by H. Hirzel 25 Apr '17

25 Apr '17

Hello On 4/24/17, Levente Uzonyi <leves(a)caesar.elte.hu> wrote: > StarSqueak? Probably removed during the 3.9 "cleanup". You might find it > on squeaksource.com if you're lucky. Else, you'll have to extract it from > 3.8. > > Levente I had a look at http://www.squeaksource.com which claims to have it in project http://www.squeaksource.com/uss but I did not find it. Nor in http://www.hpi.uni-potsdam.de/hirschfeld/squeaksource or http://www.squeaksource.com/Ladrillos I found the following StarSqueak-uss in my private repository. (Attached) --------------------------------------------------------- Name: StarSqueak-uss Author: avi Time: 25 September 2004, 12:01:18 pm UUID: d86cedcf-0ed9-11d9-9fe8-000a95db7844 Ancestors: Initial import into UnstableSqueak. Based on Squeak 3.8a-6229. -------------------------------------------------------- I wonder if there is a newer version. However the one attached works fine so far. See screen shot with StarSqueakAntColony new openInWorld (choose 'start' from the red halo menu) Do I understand correctly that Kedama is the Etoys scriptable version of StarSqueak? --Hannes

1 1

- Heisen Tests?
by Chris Cunningham 25 Apr '17

25 Apr '17

These four tests (in ClassVarScopeTest) all came up as failed tests. When I click on them, it doesn't tell me where they failed. On a second run though, one of the showed a failure (i.e., debug screen). Abandoning that and trying again, no issues. [image: Inline image 1] Very weird. -cbc

2 1

The Inbox: EToys-cbc.296.mcz
by commits＠source.squeak.org 25 Apr '17

25 Apr '17

A new version of EToys was added to project The Inbox: http://source.squeak.org/inbox/EToys-cbc.296.mcz ==================== Summary ==================== Name: EToys-cbc.296 Author: cbc Time: 24 April 2017, 10:57:41.788173 pm UUID: 2c3776dc-61d6-40bb-a34a-fdb9fa107ddf Ancestors: EToys-ul.295, EToys-cbc.294 Merge with latest. Also, additional removal of ExternalForm/ExternalScreen forks in Form methods. That is, simplified Form methods where possible to not include any tests for ExternalForm/ExternalScreen, and instead let polymorphism take care of most of those issues. =============== Diff against EToys-ul.295 =============== Item was changed: SystemOrganization addCategory: #'Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-CustomEvents'! SystemOrganization addCategory: #'Etoys-Experimental'! SystemOrganization addCategory: #'Etoys-Outliner'! SystemOrganization addCategory: #'Etoys-Protocols'! SystemOrganization addCategory: #'Etoys-Protocols-Type Vocabularies'! SystemOrganization addCategory: #'Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Squeakland-BroomMorphs-Base'! SystemOrganization addCategory: #'Etoys-Squeakland-BroomMorphs-Connectors'! SystemOrganization addCategory: #'Etoys-Squeakland-EToys-Kedama'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Calendar'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Debugger'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Help'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Input'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-SpeechBubbles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Tile Scriptors'! - SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-External'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Text'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Intersection'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Simplification'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Triangulation'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-AdditionalMorphs'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Charts'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Postscript Filters'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-WebCam'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Basic'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Books'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Components'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Demo'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Experimental'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games-Chess'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-GeeMail'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Mentoring'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Navigators'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PartsBin'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PDA'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Windows'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Worlds'! SystemOrganization addCategory: #'Etoys-Squeakland-Multilingual-Languages'! SystemOrganization addCategory: #'Etoys-Squeakland-Multilingual-TextConversion'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Formatter'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Forms'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser Entities'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Tokenizer'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-MIME'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-TelNet WordNet'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-UI'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-Url'! SystemOrganization addCategory: #'Etoys-Squeakland-Protocols-Type Vocabularies'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Interface'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Ogg'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Scores'! SystemOrganization addCategory: #'Etoys-Squeakland-ST80-Morphic'! SystemOrganization addCategory: #'Etoys-Squeakland-SUnit'! SystemOrganization addCategory: #'Etoys-Squeakland-Sugar'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Clipboard-Extended'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Compiler'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Exceptions Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Changes'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Explorer'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Process Browser'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ObjectVectors'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTreeTransformer'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTree-AttributeDefinition'! SystemOrganization addCategory: #'Etoys-Stacks'! SystemOrganization addCategory: #'Etoys-StarSqueak'! SystemOrganization addCategory: #'Etoys-Support'! SystemOrganization addCategory: #'Etoys-Tests'! SystemOrganization addCategory: #'Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-SISS-Serialization'! SystemOrganization addCategory: #'Etoys-OLPC-Display'! SystemOrganization addCategory: #'Etoys-ReleaseBuilder'! SystemOrganization addCategory: #'Etoys-UserInterfaceTheme'! Item was removed: - Form subclass: #ExternalForm - instanceVariableNames: 'display argbMap' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-Graphics-External'! - - !ExternalForm commentStamp: '<historical>' prior: 0! - An ExternalForm is just like any other form. It's only difference is that it is allocated on a specific display and can be used for accelerated blts on the particular display. - - Upon shutdown of the system ExternalForms will be deallocated from the display and be kept in their internalized form.! Item was removed: - ----- Method: ExternalForm>>colormapFromARGB (in category 'accessing') ----- - colormapFromARGB - "Return a ColorMap mapping from canonical ARGB pixel values into the receiver" - ^argbMap ifNil:[argbMap := ColorMap mappingFromARGB: self rgbaBitMasks].! Item was removed: - ----- Method: ExternalForm>>colormapFromARGB: (in category 'accessing') ----- - colormapFromARGB: aMap - "Set the ColorMap mapping from canonical ARGB pixel values into the receiver" - argbMap := aMap! Item was removed: - ----- Method: ExternalForm>>destroy (in category 'initialize-release') ----- - destroy - "Destroy the receiver" - display ifNotNil:[display destroyForm: self]! Item was removed: - ----- Method: ExternalForm>>displayScreen (in category 'accessing') ----- - displayScreen - "Return the display screen the receiver is allocated on." - ^display! Item was removed: - ----- Method: ExternalForm>>getExternalHandle (in category 'private') ----- - getExternalHandle - "Private. Return the virtual handle used to represent the receiver" - ^bits! Item was removed: - ----- Method: ExternalForm>>hasNonStandardPalette (in category 'testing') ----- - hasNonStandardPalette - "Quite possible." - ^display notNil or:[argbMap notNil]! Item was removed: - ----- Method: ExternalForm>>isExternalForm (in category 'testing') ----- - isExternalForm - "I am an external form but only as long as I'm allocated on a display" - ^display notNil! Item was removed: - ----- Method: ExternalForm>>rgbaBitMasks (in category 'accessing') ----- - rgbaBitMasks - "Return the masks for specifying the R,G,B, and A components in the receiver" - display - ifNil:[^super rgbaBitMasks] - ifNotNil:[^display rgbaBitMasksOfForm: self]! Item was removed: - ----- Method: ExternalForm>>setExternalHandle:on: (in category 'private') ----- - setExternalHandle: aHandle on: aDisplay - "Initialize the receiver from the given external handle" - display := aDisplay. - bits := aHandle.! Item was removed: - ----- Method: ExternalForm>>shutDown (in category 'initialize-release') ----- - shutDown - "System is going down. Internalize my bits and be finished." - | copy | - copy := Form extent: self extent depth: self depth. - self displayOn: copy. - copy hibernate. "compact bits of copy" - self destroy. "Release my external handle" - bits := copy bits. "Now compressed" - display := nil. "No longer allocated" - argbMap := nil. "No longer external"! Item was removed: - WeakKeyDictionary subclass: #ExternalFormRegistry - instanceVariableNames: 'lockFlag' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-Graphics-External'! - - !ExternalFormRegistry commentStamp: '<historical>' prior: 0! - The ExternalFormRegistry needs to be synchronized with rendering to prevent forms from being destroyed during rendering. Only at certain points (that is after a rendering cycle is completed) the texture registry may be cleaned up.! Item was removed: - ----- Method: ExternalFormRegistry>>finalizeValues (in category 'finalization') ----- - finalizeValues - "This message is sent when an element has gone away." - lockFlag == true ifTrue:[^self]. - self forceFinalization.! Item was removed: - ----- Method: ExternalFormRegistry>>forceFinalization (in category 'finalization') ----- - forceFinalization - self associationsDo:[:assoc| - assoc key isNil ifTrue:[assoc value destroy]. - ]. - super finalizeValues.! Item was removed: - ----- Method: ExternalFormRegistry>>lock (in category 'accessing') ----- - lock - lockFlag := true! Item was removed: - ----- Method: ExternalFormRegistry>>unlock (in category 'accessing') ----- - unlock - lockFlag := false.! Item was removed: - DisplayScreen subclass: #ExternalScreen - instanceVariableNames: 'argbMap allocatedForms' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-Graphics-External'! - - !ExternalScreen commentStamp: '<historical>' prior: 0! - I represent a DisplayScreen that is not part of the Squeak universe. Subclasses must implement the appropriate primitives for creating, destroying and allocating the appropriate external objects. - - Note: It is assumed that all external display surfaces are accessible by FXBlt, meaning that any support code must register the surfaces with the surface plugin. This requires that the support code will have a way of accessing the bits of the surface. Although this can be terribly expensive (such as on X where a roundtrip to the server might be required or for an OpenGL display where glReadPixels usually is slow as hell) the appropriate methods should be implemented. This allows for a gradual transition to less expensive model (such as implementing an X11Canvas supporting the drawing primitives of X) and is therefore the preferred solution. - - In the eventual case that it's known that BitBlt/FXBlt will *never* be used in conjunction with a particular drawing surface, the support code should return a handle that is a) not a SmallInteger (these are used by the surface plugin) and b) not of the 'bitsSize' of a Form. One possible representation for such a handle would be a ByteArray of a non-integral word size (e.g., a ByteArray of size 5,6, or 7). In this case, all attempts to use FXBlt with the drawing surface will simply fail. - ! Item was removed: - ----- Method: ExternalScreen>>allocateForm: (in category 'form support') ----- - allocateForm: extentPoint - "Allocate a new form which is similar to the receiver and can be used for accelerated blts" - | formHandle displayForm | - formHandle := self primAllocateForm: self depth width: extentPoint x height: extentPoint y. - formHandle = nil ifTrue:[^super allocateForm: extentPoint]. - displayForm := (ExternalForm extent: extentPoint depth: self depth bits: nil) - setExternalHandle: formHandle on: self. - allocatedForms at: displayForm put: displayForm executor. - ^displayForm! Item was removed: - ----- Method: ExternalScreen>>colormapFromARGB (in category 'accessing') ----- - colormapFromARGB - "Return a ColorMap mapping from canonical ARGB pixel values into the receiver" - ^argbMap ifNil:[argbMap := ColorMap mappingFromARGB: self rgbaBitMasks].! Item was removed: - ----- Method: ExternalScreen>>copyBits:from:at:clippingBox:rule:fillColor:map: (in category 'blitting support') ----- - copyBits: sourceRect from: sourceForm at: destOrigin clippingBox: clipRect rule: rule fillColor: hf map: map - "Attempt to accelerate blts to the receiver" - | r | - ((self isBltAccelerated: rule for: sourceForm) and:[map == nil and:[hf == nil]]) ifTrue:[ - "Try an accelerated blt" - r := (destOrigin extent: sourceRect extent) intersect: (clipRect intersect: clippingBox). - r area <= 0 ifTrue:[^self]. - (self primBltFast: bits from: sourceForm getExternalHandle - at: r origin from: sourceRect origin - extent: r extent) ifNotNil:[^self]. - ]. - ^super copyBits: sourceRect from: sourceForm at: destOrigin clippingBox: clipRect rule: rule fillColor: hf map: map! Item was removed: - ----- Method: ExternalScreen>>destroy (in category 'initialize-release') ----- - destroy - "Destroy the receiver" - allocatedForms ifNotNil:[ - allocatedForms lock. "Make sure we don't get interrupted" - allocatedForms forceFinalization. "Clean up all lost references" - allocatedForms keys do:[:stillValid| stillValid shutDown]. - "All remaining references are simply destroyed" - allocatedForms associationsDo:[:assoc| assoc key: nil]. - allocatedForms forceFinalization. "destroy all others" - allocatedForms := nil. - ]. - bits ifNotNil:[self primDestroyDisplaySurface: bits]. - bits := nil.! Item was removed: - ----- Method: ExternalScreen>>destroyForm: (in category 'form support') ----- - destroyForm: anExternalForm - "Destroy the given external form" - self primDestroyForm: anExternalForm getExternalHandle. - anExternalForm setExternalHandle: nil on: nil. - allocatedForms removeKey: anExternalForm ifAbsent:[].! Item was removed: - ----- Method: ExternalScreen>>displayOn:at:clippingBox:rule:fillColor: (in category 'blitting support') ----- - displayOn: destForm at: destOrigin clippingBox: clipRect rule: rule fillColor: hf - "Attempt to accelerate blts to aDisplayMedium" - | sourceRect | - ((self isBltAccelerated: rule for: destForm) and:[hf = nil]) ifTrue:[ - "Try an accelerated blt" - sourceRect := (clipRect translateBy: destOrigin negated) intersect: clippingBox. - (self primBltFast: bits to: destForm getExternalHandle - at: 0@0 from: sourceRect origin - extent: sourceRect extent) ifNotNil:[^self]]. - destForm copyBits: self boundingBox - from: self - at: destOrigin + self offset - clippingBox: clipRect - rule: rule - fillColor: hf - map: (self colormapIfNeededFor: destForm). - ! Item was removed: - ----- Method: ExternalScreen>>fill:rule:fillColor: (in category 'blitting support') ----- - fill: aRectangle rule: anInteger fillColor: aColor - "Replace a rectangular area of the receiver with the pattern described by aForm - according to the rule anInteger." - | rect | - (self isFillAccelerated: anInteger for: aColor) ifTrue:[ - rect := aRectangle intersect: clippingBox. - (self primFill: bits - color: (self pixelWordFor: aColor) - x: rect left - y: rect top - w: rect width - h: rect height) ifNotNil:[^self]]. - ^super fill: aRectangle rule: anInteger fillColor: aColor! Item was removed: - ----- Method: ExternalScreen>>finish (in category 'initialize-release') ----- - finish - "Flush the receiver" - self primFinish: bits. - "Now is the time to do some cleanup" - allocatedForms unlock. - allocatedForms finalizeValues.! Item was removed: - ----- Method: ExternalScreen>>flush (in category 'initialize-release') ----- - flush - "Flush the receiver" - self primFlush: bits.! Item was removed: - ----- Method: ExternalScreen>>hasNonStandardPalette (in category 'testing') ----- - hasNonStandardPalette - "Quite possible." - ^true! Item was removed: - ----- Method: ExternalScreen>>isBltAccelerated:for: (in category 'blitting support') ----- - isBltAccelerated: ruleInteger for: aForm - "Return true if the receiver can perform accelerated blt operations by itself. - It is assumed that blts of forms allocated on the receiverusing Form>>over - may be accelerated. - Although some hardware may allow source-key blts (that is, Form>>paint or similar) - this is usually questionable and the additional effort for allocating and - maintaining the OS form doesn't quite seem worth the effort." - ^aForm displayScreen == self and:[ruleInteger = Form over]! Item was removed: - ----- Method: ExternalScreen>>isExternalForm (in category 'testing') ----- - isExternalForm - "Sorta. Kinda." - ^true! Item was removed: - ----- Method: ExternalScreen>>isFillAccelerated:for: (in category 'blitting support') ----- - isFillAccelerated: ruleInteger for: aColor - "Return true if the receiver can perform accelerated fill operations by itself. - It is assumed that the hardware can accelerate plain color fill operations." - ^ruleInteger = Form over and:[aColor isColor]! Item was removed: - ----- Method: ExternalScreen>>primAllocateForm:width:height: (in category 'primitives-forms') ----- - primAllocateForm: d width: w height: h - "Primitive. Allocate a form with the given parameters" - ^nil! Item was removed: - ----- Method: ExternalScreen>>primBltFast:from:at:from:extent: (in category 'primitives-display') ----- - primBltFast: displayHandle from: sourceHandle at: destOrigin from: sourceOrigin extent: extent - "Primitive. Perform a fast blt operation. Return the receiver if successful." - ^nil! Item was removed: - ----- Method: ExternalScreen>>primBltFast:to:at:from:extent: (in category 'primitives-display') ----- - primBltFast: displayHandle to: dstHandle at: destOrigin from: sourceOrigin extent: extent - "Primitive. Perform a fast blt operation. Return the receiver if successful." - ^nil! Item was removed: - ----- Method: ExternalScreen>>primCreateDisplaySurface:width:height: (in category 'primitives-display') ----- - primCreateDisplaySurface: d width: w height: h - "Primitive. Create a new external display surface. Return the handle used to identify the receiver. Fail if the surface cannot be created." - ^nil! Item was removed: - ----- Method: ExternalScreen>>primDestroyDisplaySurface: (in category 'primitives-display') ----- - primDestroyDisplaySurface: aHandle - "Primitive. Destroy the display surface associated with the given handle." - ^nil! Item was removed: - ----- Method: ExternalScreen>>primDestroyForm: (in category 'primitives-forms') ----- - primDestroyForm: aHandle - "Primitive. Destroy the form associated with the given handle." - ^nil! Item was removed: - ----- Method: ExternalScreen>>primDisplay:colorMasksInto: (in category 'primitives-display') ----- - primDisplay: aHandle colorMasksInto: anArray - "Primitive. Store the bit masks for each color into the given array." - ^nil! Item was removed: - ----- Method: ExternalScreen>>primFill:color:x:y:w:h: (in category 'primitives-display') ----- - primFill: handle color: pixelWord x: x y: y w: w h: h - "Primitive. Perform an accelerated fill operation on the receiver." - ^nil! Item was removed: - ----- Method: ExternalScreen>>primFinish: (in category 'primitives-display') ----- - primFinish: aHandle - "Primitive. Finish all rendering operations on the receiver. - Do not return before all rendering operations have taken effect." - ^nil! Item was removed: - ----- Method: ExternalScreen>>primFlush: (in category 'primitives-display') ----- - primFlush: aHandle - "Primitive. If any rendering operations are pending, force them to be executed. - Do not wait until they have taken effect." - ^nil! Item was removed: - ----- Method: ExternalScreen>>primForm:colorMasksInto: (in category 'primitives-forms') ----- - primForm: aHandle colorMasksInto: anArray - "Primitive. Store the bit masks for each color into the given array." - ^nil! Item was removed: - ----- Method: ExternalScreen>>release (in category 'initialize-release') ----- - release - "I am no longer Display. Release any resources if necessary" - self destroy! Item was removed: - ----- Method: ExternalScreen>>rgbaBitMasks (in category 'accessing') ----- - rgbaBitMasks - "Return the masks for specifying the R,G,B, and A components in the receiver" - | rgbaBitMasks | - rgbaBitMasks := Array new: 4. - self primDisplay: bits colorMasksInto: rgbaBitMasks. - ^rgbaBitMasks! Item was removed: - ----- Method: ExternalScreen>>rgbaBitMasksOfForm: (in category 'form support') ----- - rgbaBitMasksOfForm: anExternalForm - | rgbaBitMasks | - rgbaBitMasks := Array new: 4. - self primForm: anExternalForm getExternalHandle colorMasksInto: rgbaBitMasks. - ^rgbaBitMasks! Item was removed: - ----- Method: ExternalScreen>>setExtent:depth: (in category 'private') ----- - setExtent: aPoint depth: bitsPerPixel - "Create a 3D accelerated display screen" - | screen | - (bits isInteger and:[depth == bitsPerPixel and: [aPoint = self extent and: - [self supportsDisplayDepth: bitsPerPixel]]]) ifFalse: [ - bits ifNotNil:[self primDestroyDisplaySurface: bits]. - bits := nil. "Free up old bitmap in case space is low" - DisplayChangeSignature := (DisplayChangeSignature ifNil: [0]) + 1. - (self supportsDisplayDepth: bitsPerPixel) - ifTrue:[depth := bitsPerPixel] - ifFalse:["Search for a suitable depth" - depth := self findAnyDisplayDepthIfNone:[nil]]. - depth == nil ifFalse:[ - bits := self primCreateDisplaySurface: depth - width: aPoint x height: aPoint y]. - "Bail out if surface could not be created" - (bits == nil) ifTrue:[ - screen := DisplayScreen extent: aPoint depth: bitsPerPixel. - self == Display ifTrue:[ - Display := screen. - Display beDisplay]. - ^screen]. - width := aPoint x. - height := aPoint y. - ]. - clippingBox := super boundingBox. - allocatedForms ifNil:[ - allocatedForms := ExternalFormRegistry new. - WeakArray addWeakDependent: allocatedForms]. - ! Item was removed: - ----- Method: ExternalScreen>>shutDown (in category 'initialize-release') ----- - shutDown - "Minimize Display memory saved in image" - self destroy. - width := 240. - height := 120. - bits := Bitmap new: self bitsSize.! Item was removed: - ----- Method: ExternalScreen>>supportsDisplayDepth: (in category 'primitives-display') ----- - supportsDisplayDepth: pixelDepth - "Return true if this pixel depth is supported on the current host platform." - ^false!

1 0

Camp Smalltalk Vancouver Island: Sept.9/10, Qualicum Beach BC
by tim Rowledge 25 Apr '17

25 Apr '17

We’re running an event up here where I live in the Fall that I suspect will interest at least a few Squeakers and other Smalltalkers, so I thought it might be nice to consider adding a Camp on the side. The event is currently called the “Mid Island Tech Living Summit” or sometimes “Mid Island Tech Expo”. The idea is to a) bring out the local tech population b) attract some newcomers to the area, bringing skills and work with them. It turns out that there is a fairly large group of people around here that work at home doing tech work around the world. There is a social group based around the old railway station with over 200 members, several makerspaces and so on. Everywhere I go I seem to bump into people that work at home and think they’re the only ones in the region. So part of the idea is to get everyone out and meeting and maybe even realising that by working together they have collective skills to do that dream project. The other part of the idea is to introduce non-local geeks to the possibility of moving out of expensive, busy, noisy places and up here to a world where you don’t spend 3 hours each day in traffic, breathing crap, spending $3000/month on a tiny apartment and sending the kids to school in body armour because of the rampaging murder-suicide whackjobs. Despite being very much a small town area we have very excellent internet access (I have gigabit fibre to my server room for USD50/month, for example) and local technology services for electronics, machining, admin & legal, and all that support cloud you need. And houses that are actually affordable. And a healthcare system that doesn’t bankrupt you. And beaches and scuba diving and mountains and skiing and hiking trails (watch out for bears, cougars, and wolves etc) and… well, it’s nice. Geeks with young families should really look into it. Thus my thought that some on this list might be interested in attending and making a Camp of it. When we held the last Camp in Naniamo in ’14 everyone seemed to have a really good time and believe me, Qualicum is a much nice place to be than Nan. The expo will be putting on some pretty serious food, plus talks on what is here, how to move here, and a beach party. Seems like a good excuse for us to get together! More formal publicity will be online soon. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: JSP: Jump on Sexy Programmer

1 0

- unable to open 'objects' morph from world menu - vmParameterAt:put: failure
by Chris Cunningham 24 Apr '17

24 Apr '17

Hello, I am using a new 64bit vm on Windows (Stack Spur Apr 12 2017) with a mostly up to date trunk image (last update: #17172), and when trying to open the Objects morph (to pull in objects for Morphic), I get an error in KedemaMorph: calcTurtlesCount turtleCount := 0. turtlesDict do: [:a | turtleCount := turtleCount + a size]. Smalltalk vmParameterAt: 5 put: ((turtleCount * 3) min: 16000 max: 4000). Smalltalk vmParameterAt: 6 put: ((turtleCount * 6) min: 32000 max: 8000). The vmParamterAt: 5 put: xxxx (4000 in my case), gets a primitive failure. Thanks, cbc

5 12

The Trunk: EToys-ul.295.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ul.295.mcz ==================== Summary ==================== Name: EToys-ul.295 Author: ul Time: 24 April 2017, 7:10:16.712957 pm UUID: c7efa44d-562c-4e3a-82c9-aa6c5e17645c Ancestors: EToys-ul.294 KedamaMorph changes: - turtlesToDisplay is a Set instead of an Array (instances are migrated by the postscript) - turtleCount is counted lazily by #turtleCount - therefore #calcTurtlesCount is gone; senders set turtleCount to nil instead - #delete can not blow up anymore, because the keys of the dictionary are copied before mass deletion =============== Diff against EToys-ul.294 =============== Item was changed: ----- Method: KedamaMorph>>addToTurtleDisplayList: (in category 'setup') ----- addToTurtleDisplayList: p - | a | (p isKindOf: KedamaExamplerPlayer) ifFalse: [^ self]. + turtlesToDisplay add: p! - a := turtlesToDisplay copyWithout: p. - turtlesToDisplay := a copyWith: p. - ! Item was removed: - ----- Method: KedamaMorph>>calcTurtlesCount (in category 'turtles') ----- - calcTurtlesCount - - turtleCount := turtlesDict detectSum: [ :each | each size ]! Item was changed: ----- Method: KedamaMorph>>clearAll (in category 'setup') ----- clearAll "Reset this StarSqueak world. All patch variables are cleared, all turtles are removed, and all demons are turned off." patchVarDisplayForm := Form extent: dimensions depth: 32. self initializePatch. self recreateMagnifiedDisplayForm. self initializeTurtlesDict. + turtleCount := nil. - turtleCount := 0. lastTurtleID := 0. self color: Color black. ! Item was changed: ----- Method: KedamaMorph>>delete (in category 'deleting') ----- delete - | c | super delete. + turtlesDict keys do: [:key | + self deleteAllTurtlesOfExampler: key. + key costume ifNotNil: [ :costume | + costume renderedMorph delete ] ]. + defaultPatch ifNotNil: [ defaultPatch delete ] - turtlesDict keysDo: [:k | - self deleteAllTurtlesOfExampler: k. - c := k costume. - c ifNotNil: [c renderedMorph delete]. - ]. - - defaultPatch ifNotNil: [defaultPatch delete]. ! Item was changed: ----- Method: KedamaMorph>>deleteAllTurtlesOfExampler: (in category 'turtles') ----- deleteAllTurtlesOfExampler: examplerPlayer turtlesDict removeKey: examplerPlayer ifAbsent: []. self removeFromTurtleDisplayList: examplerPlayer. + turtleCount := nil - self calcTurtlesCount. ! Item was changed: ----- Method: KedamaMorph>>deleteTurtleID:of: (in category 'turtles') ----- deleteTurtleID: who of: examplerPlayer "Delete the given turtle from this world." | array | array := examplerPlayer turtles. array ifNil: [^ self]. turtlesDictSemaphore critical: [ array deleteTurtleID: who. ]. + turtleCount := nil. - self calcTurtlesCount. examplerPlayer costume renderedMorph privateTurtleCount: array size. "examplerPlayer allOpenViewers do: [:v | v resetWhoIfNecessary]." ! Item was changed: ----- Method: KedamaMorph>>initializeTurtlesDict (in category 'initialization') ----- initializeTurtlesDict turtlesDict := IdentityDictionary new. + turtlesToDisplay := Set new. - turtlesToDisplay := Array new. ! Item was changed: ----- Method: KedamaMorph>>makeReplicatedTurtles:examplerPlayer:color:ofPrototype:randomize: (in category 'turtles') ----- makeReplicatedTurtles: count examplerPlayer: tp color: c ofPrototype: prototype randomize: randomizeFlag | array inst | array := tp turtles. inst := prototype ifNil: [self makePrototypeOfExampler: tp color: c]. turtlesDictSemaphore critical: [ array addTurtlesCount: count ofPrototype: inst for: self randomize: randomizeFlag. ]. + turtleCount := nil. - self calcTurtlesCount. self changed. ! Item was changed: ----- Method: KedamaMorph>>makeTurtles:examplerPlayer:color:ofPrototype:turtles:randomize: (in category 'turtles') ----- makeTurtles: count examplerPlayer: tp color: c ofPrototype: prototype turtles: turtles randomize: randomizeFlag | array inst | array := tp turtles. (turtlesDict includesKey: tp) ifFalse: [ self addToTurtleDisplayList: tp. turtlesDict at: tp put: (array := turtles). ]. inst := prototype ifNil: [self makePrototypeOfExampler: tp color: c]. turtlesDictSemaphore critical: [array setTurtlesCount: count prototype: inst for: self randomize: randomizeFlag]. + turtleCount := nil. - self calcTurtlesCount. self changed. ! Item was changed: ----- Method: KedamaMorph>>makeTurtlesAtPositionsIn:examplerPlayer:ofPrototype: (in category 'turtles') ----- makeTurtlesAtPositionsIn: positionAndColorArray examplerPlayer: tp ofPrototype: prototype | array inst | array := tp turtles. inst := prototype ifNil: [self makePrototypeOfExampler: tp]. turtlesDictSemaphore critical: [array addTurtlesCount: positionAndColorArray first size ofPrototype: inst for: self positionAndColorArray: positionAndColorArray]. + turtleCount := nil. - self calcTurtlesCount. self changed. ! Item was changed: ----- Method: KedamaMorph>>removeAllFromTurtleDisplayList (in category 'drawing') ----- removeAllFromTurtleDisplayList + turtlesToDisplay removeAll - turtlesToDisplay := #(). ! Item was changed: ----- Method: KedamaMorph>>removeFromTurtleDisplayList: (in category 'turtles') ----- removeFromTurtleDisplayList: examplerPlayer + turtlesToDisplay remove: examplerPlayer ifAbsent: nil - turtlesToDisplay := turtlesToDisplay copyWithout: examplerPlayer. ! Item was changed: ----- Method: KedamaMorph>>setTurtlesCount:examplerPlayer:color: (in category 'turtles') ----- setTurtlesCount: count examplerPlayer: tp color: cPixel | prototype | prototype := self makePrototypeOfExampler: tp color: cPixel. turtlesDictSemaphore critical: [(tp turtles) setTurtlesCount: count prototype: prototype for: self randomize: true]. + turtleCount := nil - self calcTurtlesCount. ! Item was changed: ----- Method: KedamaMorph>>turtleCount (in category 'etoys') ----- turtleCount + ^turtleCount ifNil: [ + turtleCount := turtlesDict detectSum: [ :each | each size ] ] - ^ turtleCount. ! Item was changed: + (PackageInfo named: 'EToys') postscript: 'KedamaMorph allInstancesDo: [ :each | + (each instVarNamed: #turtlesToDisplay) ifNotNil: [ :turtlesToDisplay | + turtlesToDisplay class == Array ifTrue: [ + each instVarNamed: #turtlesToDisplay put: turtlesToDisplay asSet ] ] ]'! - (PackageInfo named: 'EToys') postscript: '"Remove an obsolete class that somehow got into the system" - (Smalltalk environment includesKey: #KedamaTurtleVectorPlayer) ifTrue: [ - Smalltalk environment removeKey: #KedamaTurtleVectorPlayer. - SystemOrganization removeMissingClasses]. - - "Clear weak message sends to remove modal windows from worlds that are closing." - (WeakMessageSend allInstances select: [:wm | - (wm receiver isKindOf: PasteUpMorph) and: [wm selector = #removeModalWindow]]) - do: [:wm | wm receiver: nil].'!

1 0

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

Jump to page: