Packages December 2017

packages@lists.squeakfoundation.org

1 participants
92 discussions

The Trunk: Kernel-eem.1130.mcz
by commits＠source.squeak.org 14 Dec '17

14 Dec '17

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1130.mcz ==================== Summary ==================== Name: Kernel-eem.1130 Author: eem Time: 14 December 2017, 11:33:46.313584 am UUID: 8ed1c707-145c-4418-b5bc-4aa509bf6030 Ancestors: Kernel-eem.1129 Have Pragmas print trhe compiled methods they're in (in comments). =============== Diff against Kernel-eem.1129 =============== Item was changed: ----- Method: Pragma>>printOn: (in category 'printing') ----- printOn: aStream + aStream + nextPut: $<; + print: self message; + nextPutAll: ' "in '. + method printReferenceOn: aStream. + aStream nextPutAll: '">'! - aStream nextPut: $<. - self keyword precedence = 1 - ifTrue: [ aStream nextPutAll: self keyword ] - ifFalse: [ - self keyword keywords with: self arguments do: [ :key :arg | - aStream nextPutAll: key; space; print: arg; space ]. - aStream skip: -1 ]. - aStream nextPut: $>.!

1 0

The Trunk: Kernel-eem.1129.mcz
by commits＠source.squeak.org 14 Dec '17

14 Dec '17

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1129.mcz ==================== Summary ==================== Name: Kernel-eem.1129 Author: eem Time: 14 December 2017, 11:30:57.320228 am UUID: 862344e3-6b40-4a13-b66d-cae9fd8733e8 Ancestors: Kernel-nice.1128 storeDataOn: can use initialPC to be 64-bit and 32-bit compatible. Necessary for saving projects. =============== Diff against Kernel-nice.1128 =============== Item was changed: ----- Method: CompiledCode>>storeDataOn: (in category 'file in/out') ----- storeDataOn: aDataStream "Store myself on a DataStream. I am a mixture of objects and raw data bytes. Only use this for blocks. Normal methodDictionaries should not be put out using ReferenceStreams. Their fileOut should be attached to the beginning of the file." | byteLength lits | "No inst vars of the normal type" byteLength := self basicSize. aDataStream beginInstance: self class size: byteLength. lits := self numLiterals + 1. "counting header" 1 to: lits do: [:ii | aDataStream nextPut: (self objectAt: ii)]. + self initialPC to: byteLength do: - lits*4+1 to: byteLength do: [:ii | aDataStream byteStream nextPut: (self basicAt: ii)]. "write bytes straight through to the file"!

1 0

The Trunk: System-eem.983.mcz
by commits＠source.squeak.org 14 Dec '17

14 Dec '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.983.mcz ==================== Summary ==================== Name: System-eem.983 Author: eem Time: 14 December 2017, 11:01:48.647576 am UUID: 777c9ae4-a26b-4cde-b9d7-72873a249042 Ancestors: System-eem.982 Fix an MNU when there are no project detauls during saving. At least that's the case in my image. =============== Diff against System-eem.982 =============== Item was changed: ----- Method: Project>>storeOnServer (in category 'file in/out') ----- storeOnServer "Save to disk as an Export Segment. Then put that file on the server I came from, as a new version. Version is literal piece of file name. Mime encoded and http encoded." world setProperty: #optimumExtentFromAuthor toValue: world extent. self validateProjectNameIfOK: [:details | + details ifNotNil: [self acceptProjectDetails: details]. - self acceptProjectDetails: details. self isCurrentProject ifTrue: ["exit, then do the command" ^ self armsLengthCommand: #storeOnServerAssumingNameValid withDescription: 'Publishing' translated ]. self storeOnServerWithProgressInfo. ].!

1 0

The Trunk: Tools-eem.778.mcz
by commits＠source.squeak.org 14 Dec '17

14 Dec '17

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.778.mcz ==================== Summary ==================== Name: Tools-eem.778 Author: eem Time: 14 December 2017, 10:57:02.931453 am UUID: 264951e6-2942-46c1-a692-e2f6d2007199 Ancestors: Tools-tpr.777 Avoid an MNU in the debugger when no context is selected and one tries to do a doit in the bottom-right-hand (context) inspector. =============== Diff against Tools-tpr.777 =============== Item was changed: ----- Method: ContextVariablesInspector>>doItReceiver (in category 'code') ----- doItReceiver + ^object ifNotNil: [object receiver]! - ^object receiver!

1 0

The Trunk: Morphic-mt.1376.mcz
by commits＠source.squeak.org 14 Dec '17

14 Dec '17

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1376.mcz ==================== Summary ==================== Name: Morphic-mt.1376 Author: mt Time: 14 December 2017, 11:10:08.355531 am UUID: 5385c16f-8e09-024b-9d04-ffe04223e8aa Ancestors: Morphic-nice.1375 Fixes preference update for #drawCornerResizeHandles. =============== Diff against Morphic-nice.1375 =============== Item was changed: ----- Method: CornerGripMorph class>>drawCornerResizeHandles: (in category 'preferences') ----- drawCornerResizeHandles: aBoolean - | world | DrawCornerResizeHandles := aBoolean. + Project current restoreDisplay.! - world := self world. - world invalidRect: world bounds from: world.!

1 0

The Trunk: Collections-mt.778.mcz
by commits＠source.squeak.org 14 Dec '17

14 Dec '17

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.778.mcz ==================== Summary ==================== Name: Collections-mt.778 Author: mt Time: 14 December 2017, 11:09:04.741531 am UUID: b85b1a4a-983f-e847-932d-fa9b6ff0a24f Ancestors: Collections-nice.777 Fixes lazy initialization of byteArrayMap. I renamed "initialize" to "create" because I thought that (1) a special return value of an initialize method would be surprising and (2) the accessor for #byteArrayMap should remain concise. =============== Diff against Collections-nice.777 =============== Item was changed: ----- Method: CharacterSet>>byteArrayMap (in category 'accessing') ----- byteArrayMap "return a ByteArray mapping each ascii value to a 1 if that ascii value is in the set, and a 0 if it isn't. Intended for use by primitives only" + ^byteArrayMap ifNil: [byteArrayMap := self createByteArrayMap]! - ^byteArrayMap ifNil: [self initializeByteArrayMap]! Item was added: + ----- Method: CharacterSet>>createByteArrayMap (in category 'private') ----- + createByteArrayMap + ^ (0 to: 255) asByteArray collect: + [:i | (self includes: (Character value: i)) ifTrue: [1] ifFalse: [0]]! Item was removed: - ----- Method: CharacterSet>>initializeByteArrayMap (in category 'private') ----- - initializeByteArrayMap - byteArrayMap := (0 to: 255) asByteArray collect: - [:i | (self includes: (Character value: i)) ifTrue: [1] ifFalse: [0]]!

1 0

The Trunk: System-eem.982.mcz
by commits＠source.squeak.org 12 Dec '17

12 Dec '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.982.mcz ==================== Summary ==================== Name: System-eem.982 Author: eem Time: 12 December 2017, 9:41:56.677625 am UUID: 178a5e44-255e-4f96-b321-28c3d27f913c Ancestors: System-eem.981 Resave to eliminate inadvertent Preferences changes. I can't believe that we're still having to step around this b.s. sigh... =============== Diff against System-eem.981 =============== Item was removed: - ----- Method: Preferences class>>enablePortraitMode (in category 'standard queries') ----- - enablePortraitMode - ^ self - valueOfFlag: #enablePortraitMode - ifAbsent: [false]! Item was removed: - ----- Method: Preferences class>>enableVirtualOLPCDisplay (in category 'standard queries') ----- - enableVirtualOLPCDisplay - ^ self - valueOfFlag: #enableVirtualOLPCDisplay - ifAbsent: [false]! Item was changed: + ----- Method: Preferences class>>haloTheme (in category 'prefs - halos') ----- - ----- Method: Preferences class>>haloTheme (in category 'standard queries') ----- haloTheme ^ self valueOfFlag: #haloTheme + ifAbsent: [ #iconicHaloSpecifications ]! - ifAbsent: [#iconicHaloSpecifications]! Item was changed: ----- Method: Preferences class>>showAdvancedNavigatorButtons (in category 'standard queries') ----- showAdvancedNavigatorButtons ^ self valueOfFlag: #showAdvancedNavigatorButtons + ifAbsent: [ true ]! - ifAbsent: [false]! Item was removed: - ----- Method: Preferences class>>sugarAutoSave (in category 'standard queries') ----- - sugarAutoSave - ^ self - valueOfFlag: #sugarAutoSave - ifAbsent: [false]! Item was removed: - ----- Method: Preferences class>>vmProfilerFillInIntegral (in category 'standard queries') ----- - vmProfilerFillInIntegral - ^ self - valueOfFlag: #vmProfilerFillInIntegral - ifAbsent: [false]!

1 0

The Trunk: System-eem.981.mcz
by commits＠source.squeak.org 12 Dec '17

12 Dec '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.981.mcz ==================== Summary ==================== Name: System-eem.981 Author: eem Time: 12 December 2017, 9:35:15.69532 am UUID: 4397750d-0bd0-49ce-8cf5-380642a069a6 Ancestors: System-mt.980 Add PrimitiveOSError that allows external primitives to answer a platform-specific error code with a primtiive error. Needs a VM of at least VMMaker.oscog-eem.2293 to report errors in this way. =============== Diff against System-mt.980 =============== Item was added: + ----- Method: Object>>isPrimitiveOSError (in category '*System-Support-error handling') ----- + isPrimitiveOSError + ^false! Item was added: + ----- Method: Preferences class>>enablePortraitMode (in category 'standard queries') ----- + enablePortraitMode + ^ self + valueOfFlag: #enablePortraitMode + ifAbsent: [false]! Item was added: + ----- Method: Preferences class>>enableVirtualOLPCDisplay (in category 'standard queries') ----- + enableVirtualOLPCDisplay + ^ self + valueOfFlag: #enableVirtualOLPCDisplay + ifAbsent: [false]! Item was changed: + ----- Method: Preferences class>>haloTheme (in category 'standard queries') ----- - ----- Method: Preferences class>>haloTheme (in category 'prefs - halos') ----- haloTheme ^ self valueOfFlag: #haloTheme + ifAbsent: [#iconicHaloSpecifications]! - ifAbsent: [ #iconicHaloSpecifications ]! Item was changed: ----- Method: Preferences class>>showAdvancedNavigatorButtons (in category 'standard queries') ----- showAdvancedNavigatorButtons ^ self valueOfFlag: #showAdvancedNavigatorButtons + ifAbsent: [false]! - ifAbsent: [ true ]! Item was added: + ----- Method: Preferences class>>sugarAutoSave (in category 'standard queries') ----- + sugarAutoSave + ^ self + valueOfFlag: #sugarAutoSave + ifAbsent: [false]! Item was added: + ----- Method: Preferences class>>vmProfilerFillInIntegral (in category 'standard queries') ----- + vmProfilerFillInIntegral + ^ self + valueOfFlag: #vmProfilerFillInIntegral + ifAbsent: [false]! Item was added: + Object subclass: #PrimitiveOSError + instanceVariableNames: 'errorName errorCode' + classVariableNames: '' + poolDictionaries: '' + category: 'System-Support'! + + !PrimitiveOSError commentStamp: 'eem 12/7/2017 19:31' prior: 0! + A PrimitiveOSError is used to answer a primitive failure code that has an associated operating system/library error. + + Instance Variables + errorName: <Symbol> + errorValue: <Integer> + + errorName + - typically #'operating system error' + + errorValue + - the value of the error, a signed 64-bit value, a representation imposed by the VM; specific clients must map this error value into an unsigned value as appropriate if required! Item was added: + ----- Method: PrimitiveOSError>>errorCode (in category 'accessing') ----- + errorCode + + ^errorCode! Item was added: + ----- Method: PrimitiveOSError>>errorCode: (in category 'accessing') ----- + errorCode: anObject + + errorCode := anObject! Item was added: + ----- Method: PrimitiveOSError>>errorName (in category 'accessing') ----- + errorName + + ^errorName! Item was added: + ----- Method: PrimitiveOSError>>errorName: (in category 'accessing') ----- + errorName: anObject + + errorName := anObject! Item was added: + ----- Method: PrimitiveOSError>>isPrimitiveOSError (in category 'testing') ----- + isPrimitiveOSError + ^true! Item was changed: ----- Method: SmalltalkImage>>recreateSpecialObjectsArray (in category 'special objects') ----- recreateSpecialObjectsArray "Smalltalk recreateSpecialObjectsArray" "To external package developers: **** DO NOT OVERRIDE THIS METHOD. ***** If you are writing a plugin and need additional special object(s) for your own use, use addGCRoot() function and use own, separate special objects registry " "The Special Objects Array is an array of objects used by the Squeak virtual machine. Its contents are critical and accesses to it by the VM are unchecked, so don't even think of playing here unless you know what you are doing." | newArray | newArray := Array new: 60. + "Nil false and true get used throughout the VM" - "Nil false and true get used throughout the interpreter" newArray at: 1 put: nil. newArray at: 2 put: false. newArray at: 3 put: true. "This association holds the active process (a ProcessScheduler)" newArray at: 4 put: (self specialObjectsArray at: 4) "(self bindingOf: #Processor) but it answers an Alias". "Numerous classes below used for type checking and instantiation" newArray at: 5 put: Bitmap. newArray at: 6 put: SmallInteger. newArray at: 7 put: ByteString. newArray at: 8 put: Array. newArray at: 9 put: Smalltalk. newArray at: 10 put: BoxedFloat64. newArray at: 11 put: (self globals at: #Context). newArray at: 12 put: nil. "was BlockContext." newArray at: 13 put: Point. newArray at: 14 put: LargePositiveInteger. newArray at: 15 put: Display. newArray at: 16 put: Message. newArray at: 17 put: CompiledMethod. newArray at: 18 put: ((self specialObjectsArray at: 18) ifNil: [Semaphore new]). "low space Semaphore" newArray at: 19 put: Semaphore. newArray at: 20 put: Character. newArray at: 21 put: #doesNotUnderstand:. newArray at: 22 put: #cannotReturn:. newArray at: 23 put: nil. "This is the process signalling low space." "An array of the 32 selectors that are compiled as special bytecodes, paired alternately with the number of arguments each takes." newArray at: 24 put: #( #+ 1 #- 1 #< 1 #> 1 #<= 1 #>= 1 #= 1 #~= 1 #* 1 #/ 1 #\\ 1 #@ 1 #bitShift: 1 #// 1 #bitAnd: 1 #bitOr: 1 #at: 1 #at:put: 2 #size 0 #next 0 #nextPut: 1 #atEnd 0 #== 1 #class 0 #~~ 1 #value 0 #value: 1 #do: 1 #new 0 #new: 1 #x 0 #y 0 ). "An array of the 255 Characters in ascii order. Cog inlines table into machine code at: prim so do not regenerate it. This is nil in Spur, which has immediate Characters." newArray at: 25 put: (self specialObjectsArray at: 25). newArray at: 26 put: #mustBeBoolean. newArray at: 27 put: ByteArray. newArray at: 28 put: Process. "An array of up to 31 classes whose instances will have compact headers; an empty array in Spur" newArray at: 29 put: self compactClassesArray. newArray at: 30 put: ((self specialObjectsArray at: 30) ifNil: [Semaphore new]). "delay Semaphore" newArray at: 31 put: ((self specialObjectsArray at: 31) ifNil: [Semaphore new]). "user interrupt Semaphore" "Entries 32 - 34 unreferenced. Previously these contained prototype instances to be copied for fast initialization" newArray at: 32 put: nil. "was the prototype Float" newArray at: 33 put: nil. "was the prototype 4-byte LargePositiveInteger" newArray at: 34 put: nil. "was the prototype Point" newArray at: 35 put: #cannotInterpret:. newArray at: 36 put: nil. "was the prototype MethodContext" newArray at: 37 put: BlockClosure. newArray at: 38 put: nil. "was the prototype BlockContext" "array of objects referred to by external code" newArray at: 39 put: (self specialObjectsArray at: 39). "external semaphores" newArray at: 40 put: nil. "Reserved for Mutex in Cog VMs" newArray at: 41 put: ((self specialObjectsArray at: 41) ifNil: [LinkedList new]). "Reserved for a LinkedList instance for overlapped calls in CogMT" newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]). "finalization Semaphore" newArray at: 43 put: LargeNegativeInteger. "External objects for callout. Note: Written so that one can actually completely remove the FFI." newArray at: 44 put: (self at: #ExternalAddress ifAbsent: []). newArray at: 45 put: (self at: #ExternalStructure ifAbsent: []). newArray at: 46 put: (self at: #ExternalData ifAbsent: []). newArray at: 47 put: (self at: #ExternalFunction ifAbsent: []). newArray at: 48 put: (self at: #ExternalLibrary ifAbsent: []). newArray at: 49 put: #aboutToReturn:through:. newArray at: 50 put: #run:with:in:. "51 reserved for immutability message" newArray at: 51 put: #attemptToAssign:withIndex:. newArray at: 52 put: #(nil "nil => generic error" #'bad receiver' #'bad argument' #'bad index' #'bad number of arguments' #'inappropriate operation' #'unsupported operation' #'no modification' #'insufficient object memory' #'insufficient C memory' #'not found' #'bad method' #'internal error in named primitive machinery' #'object may move' #'resource limit exceeded' #'object is pinned' #'primitive write beyond end of object' + #'object moved' #'object not pinned' #'callback error'), + {PrimitiveOSError new errorName: #'operating system error'; yourself}. - #'object moved' #'object not pinned' #'callback error'). "53 to 55 are for Alien" newArray at: 53 put: (self at: #Alien ifAbsent: []). newArray at: 54 put: #invokeCallbackContext:. "use invokeCallback:stack:registers:jmpbuf: for old Alien callbacks." newArray at: 55 put: (self at: #UnsafeAlien ifAbsent: []). "Used to be WeakFinalizationList for WeakFinalizationList hasNewFinalization, obsoleted by ephemeron support." newArray at: 56 put: nil. "reserved for foreign callback process" newArray at: 57 put: (self specialObjectsArray at: 57 ifAbsent: []). newArray at: 58 put: #unusedBytecode. "59 reserved for Sista counter tripped message" newArray at: 59 put: #conditionalBranchCounterTrippedOn:. "60 reserved for Sista class trap message" newArray at: 60 put: #classTrapFor:. + "Now replace the virtual machine's reference in one atomic operation" - "Now replace the interpreter's reference in one atomic operation" self specialObjectsArray becomeForward: newArray! Item was changed: + (PackageInfo named: 'System') postscript: '(Smalltalk specialSelectorNames includes: #~~) ifFalse: + ["Re-create the specialObjectsArray to let the jit optimize #~~. Also add the new primitive error codes if they are not there yet." + | senders | + senders := #(#~~ #blockCopy:) gather: [ :selector | + "Recompile senders blockCopy: too, just in case." + SystemNavigation default allCallsOn: selector ]. + Smalltalk recreateSpecialObjectsArray. + VariableNode initialize. + Decompiler initialize. + senders + do: [ :methodReference | + | class | + class := methodReference actualClass. + class recompile: methodReference selector from: class ] + displayingProgress: ''Recompiling...'']. + "If PrimitiveOSError is not in the primitiveErrorTable, add it." + Smalltalk primitiveErrorTable size < 21 ifTrue: + [Smalltalk recreateSpecialObjectsArray]'! - (PackageInfo named: 'System') postscript: '| senders | - "Re-create the specialObjectsArray to let the jit optimize #~~. Also add the new primitive error codes if they are not there yet." - senders := #(#~~ #blockCopy:) gather: [ :selector | - "Recompile senders blockCopy: too, just in case." - SystemNavigation default allCallsOn: selector ]. - Smalltalk recreateSpecialObjectsArray. - VariableNode initialize. - Decompiler initialize. - senders - do: [ :methodReference | - | class | - class := methodReference actualClass. - class recompile: methodReference selector from: class ] - displayingProgress: ''Recompiling...''.'!

1 0

The Trunk: ST80-dtl.233.mcz
by commits＠source.squeak.org 10 Dec '17

10 Dec '17

David T. Lewis uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-dtl.233.mcz ==================== Summary ==================== Name: ST80-dtl.233 Author: dtl Time: 10 December 2017, 1:57:45.015948 pm UUID: b442c904-3b1e-462a-9b74-14e97e5ee2b0 Ancestors: ST80-nice.232 Move SoundService stop handling in #finalExitActions from Project to MVCProject in order to allow MorphicProject to handle differently (but also call super). =============== Diff against ST80-nice.232 =============== Item was changed: ----- Method: MVCProject>>finalExitActions: (in category 'enter') ----- finalExitActions: enteringProject super finalExitActions: enteringProject. + SoundService stop. self world unCacheWindows. Sensor flushAllButDandDEvents. ScheduledControllers := nil.!

1 0

The Trunk: Multilingual-pre.232.mcz
by commits＠source.squeak.org 07 Dec '17

07 Dec '17

Patrick Rein uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-pre.232.mcz ==================== Summary ==================== Name: Multilingual-pre.232 Author: pre Time: 7 December 2017, 12:21:07.824608 pm UUID: 8a517ab7-5c79-b84f-976c-6bfb7b07f0d8 Ancestors: Multilingual-pre.231 Adds the signaling of the NoConverterFound exception (was missing from previous commit due to porting from another image). =============== Diff against Multilingual-pre.231 =============== Item was changed: ----- Method: TextConverter class>>newForEncoding: (in category 'instance creation') ----- newForEncoding: aString | class encoding | aString ifNil: [^ ISO88591TextConverter new]. encoding := aString asLowercase. class := self allSubclasses detect: [:each | each encodingNames includes: encoding] ifNone: []. class isNil + ifTrue: [NoConverterFound signalFor: aString. ^ nil]. - ifTrue: [^ nil]. ^ class new!

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2017