Squeak-dev March 2017

squeak-dev@lists.squeakfoundation.org

50 participants
281 discussions

The Trunk: Tests-eem.373.mcz
by commits＠source.squeak.org 30 Mar '17

30 Mar '17

Eliot Miranda uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-eem.373.mcz ==================== Summary ==================== Name: Tests-eem.373 Author: eem Time: 30 March 2017, 1:29:06.956254 pm UUID: baddb401-7953-4a95-ad16-0c2424edab06 Ancestors: Tests-eem.372 In the Monticello tests for kindOfSubclass, eliminate a reference to the variable subclass MethodContext in favour of the variable subclass BlockClosure, and add BoxedFloat64 and SmallFloat64 and CompiledMethod and the non-pointer variable subclasses (no ephemeronSubclass: in the base image as of yet). =============== Diff against Tests-eem.372 =============== Item was changed: ----- Method: MCClassDefinitionTest>>testKindOfSubclass (in category 'as yet unclassified') ----- testKindOfSubclass + {self mockClassA. String. ByteString. WideString. BlockClosure. WeakArray. BoxedFloat64. SmallFloat64. CompiledMethod. ByteArray. DoubleByteArray. IntegerArray. DoubleWordArray. } + do: [:c | + self assert: c asClassDefinition kindOfSubclass equals: c kindOfSubclass]! - | classes | - classes := {self mockClassA. String. MethodContext. WeakArray. Float}. - classes do: [:c | | d | - d := c asClassDefinition. - self assert: d kindOfSubclass = c kindOfSubclass. - ].!

1 0

The Trunk: System-eem.943.mcz
by commits＠source.squeak.org 30 Mar '17

30 Mar '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.943.mcz ==================== Summary ==================== Name: System-eem.943 Author: eem Time: 30 March 2017, 1:13:51.515243 pm UUID: 9668f030-a0c9-42bf-a030-8ffd7af62ed5 Ancestors: System-eem.942 Eliminate an explicit reference to MethodContext in lowSpaceThreshold and make it more accurate for 64-bits. =============== Diff against System-eem.942 =============== Item was changed: ----- Method: SmalltalkImage>>lowSpaceThreshold (in category 'memory space') ----- lowSpaceThreshold "Answer the low space threshold. When the amount of free memory (after garbage collection) falls below this limit, the system is in serious danger of completely exhausting memory and crashing. This limit should be made high enough to allow the user open a debugger to diagnose a problem or to save the image. In a stack-based VM such as Cog contexts for activations in the stack zone will have to be created as the debugger opens, requiring additional headroom." | slotsForDebugger slotsForContextsOnStackPages | slotsForDebugger := 65536. "Arbitrary guess" slotsForContextsOnStackPages := (self vmParameterAt: 42) ifNil: [0] ifNotNil: [:numStackPages| | headerSize numActivationsPerPage maxContextSize | + numActivationsPerPage := 40. "Design goal of the Cog & Stack VMs" + headerSize := 8 / self wordSize. "64-bits for Spur" + maxContextSize := thisContext class instSize + CompiledMethod fullFrameSize + headerSize. - numActivationsPerPage := 40. "Design goal of the Cog VM" - headerSize := 2. "64-bytes for Spur" - maxContextSize := MethodContext instSize + CompiledMethod fullFrameSize + headerSize. numStackPages * numActivationsPerPage * maxContextSize]. ^slotsForDebugger + slotsForContextsOnStackPages * self wordSize!

1 0

The Trunk: EToys-eem.288.mcz
by commits＠source.squeak.org 30 Mar '17

30 Mar '17

Eliot Miranda uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-eem.288.mcz ==================== Summary ==================== Name: EToys-eem.288 Author: eem Time: 30 March 2017, 1:00:57.646171 pm UUID: 34cc818f-f554-4177-b1f5-cbdde48a1882 Ancestors: EToys-eem.287 Eliminate an explicit reference to MethodContext and correct the intent, which was to look for a method activation. With closures we use a single context cass (methodCOntxt, soon to be names Context) to execute both blocks and methods. Use the more popular sExecutingBlock to determine which. =============== Diff against EToys-eem.287 =============== Item was changed: ----- Method: StandardScriptingSystem>>reportToUser: (in category '*Etoys-utilities') ----- reportToUser: aString "Make a message accessible to the user. " | trigger current baseTriggerer topTriggerer mclass sel topSelector | trigger := Player compiledMethodAt: #triggerScript:. current := thisContext. baseTriggerer := nil. topTriggerer := nil. [current notNil] whileTrue: [ topTriggerer ifNil: [ current receiver class isUniClass ifTrue: [ "Look for the top-most uniclass script in the call chain." sel := current receiver class selectorAtMethod: current method setClass: [:c | mclass := c]. mclass = current receiver class ifTrue: [ topTriggerer := current. topSelector := sel. ]. ]. ]. + (current method = trigger and: [current isExecutingBlock not]) ifTrue: [ - (current method = trigger and: [current class == MethodContext]) ifTrue: [ "Look for the bottom-most #triggerScript: and its selector." baseTriggerer := current ]. current := current sender. ]. baseTriggerer ifNotNil: [ (baseTriggerer receiver scriptInstantiationForSelector: (baseTriggerer at: 1)) resetTo: #paused ifCurrently: #ticking. ]. (topTriggerer notNil and: [topSelector notNil]) ifTrue: [ ^ self eToysError: aString, '\', topTriggerer receiver knownName, '\', topSelector. ]. + self error: aString! - self error: aString. - !

1 0

The Trunk: Tests-eem.372.mcz
by commits＠source.squeak.org 30 Mar '17

30 Mar '17

Eliot Miranda uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-eem.372.mcz ==================== Summary ==================== Name: Tests-eem.372 Author: eem Time: 30 March 2017, 12:52:24.488537 pm UUID: 601d9b7e-c9b0-4c2f-b22a-dae01b776c61 Ancestors: Tests-eem.371 Remove an explcit reference to ContextPart in the compiler tests. =============== Diff against Tests-eem.371 =============== Item was changed: ----- Method: ContextCompilationTest>>testVariablesAndOffsetsDo (in category 'tests') ----- testVariablesAndOffsetsDo "ContextCompilationTest new testVariablesAndOffsetsDo" | contextClasses | + contextClasses := thisContext class withAllSuperclasses, thisContext class allSubclasses asArray. - contextClasses := ContextPart withAllSuperclasses, ContextPart allSubclasses asArray. contextClasses do: [:class| class variablesAndOffsetsDo: [:var :offset| self assert: offset < 0. self assert: (class instVarNameForIndex: offset negated) == var]]. InstructionStream withAllSuperclasses, InstructionStream allSubclasses asArray do: [:class| (contextClasses includes: class) ifFalse: [class variablesAndOffsetsDo: [:var :offset| (InstructionStream instVarNames includes: var) ifFalse: [self assert: offset > 0. self assert: (class instVarNameForIndex: offset) == var]]]]!

1 0

The Trunk: System-eem.942.mcz
by commits＠source.squeak.org 30 Mar '17

30 Mar '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.942.mcz ==================== Summary ==================== Name: System-eem.942 Author: eem Time: 30 March 2017, 12:46:19.668474 pm UUID: fb603eb0-6114-4316-8737-dcd157a44ec9 Ancestors: System-eem.941 Eliminate an explicit reference to ContextPart and make the derivation of the class of a contexts' receiver robust in the presence of forwarders. =============== Diff against System-eem.941 =============== Item was changed: ----- Method: ImageSegment>>restoreEndianness: (in category 'fileIn') ----- restoreEndianness: endiannessHasToBeFixed "If endiannessHasToBeFixed, then fix endianness (byte order) of any objects not already fixed. Do this by discovering classes that need a startUp message sent to each instance, and sending it. I have just been brought in and converted to live objects. Find all Sets and Dictionaries in the newly created objects and rehash them. Segment is near then end of memory, since is was newly brought in (and a new object created for it). Also, collect all classes of receivers of blocks which refer to instance variables. Return them. Caller will check if they have been reshaped." | sets receiverClasses noStartUpNeeded startUps cls msg | sets := OrderedCollection new. "have to collect them, because Dictionary makes a copy, and that winds up at the end of memory and gets rehashed and makes another one." receiverClasses := IdentitySet new. noStartUpNeeded := IdentitySet new. "classes that don't have a per-instance startUp message" startUps := IdentityDictionary new. "class -> MessageSend of a startUp message" self allObjectsDo: [:object | object isInMemory ifTrue: [ (object isKindOf: HashedCollection) ifTrue: [sets add: object]. + (object isContext and: [object hasInstVarRef]) ifTrue: [ + receiverClasses add: (object objectClass: object receiver) class]. - ((object isKindOf: ContextPart) and: [object hasInstVarRef]) ifTrue: [ - receiverClasses add: object receiver class]. (noStartUpNeeded includes: object class) ifFalse: [ cls := object class. (msg := startUps at: cls ifAbsent: [nil]) ifNil: [ msg := cls startUpFrom: endiannessHasToBeFixed. "a Message, if we need to swap bytes this time" msg ifNil: [noStartUpNeeded add: cls] ifNotNil: [startUps at: cls put: msg]]. msg ifNotNil: [msg sentTo: object]]]]. self rehashDictionaries: sets. "our purpose" + ^ receiverClasses "our secondary job"! - ^ receiverClasses "our secondary job" - !

1 0

The Trunk: Kernel-eem.1075.mcz
by commits＠source.squeak.org 30 Mar '17

30 Mar '17

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1075.mcz ==================== Summary ==================== Name: Kernel-eem.1075 Author: eem Time: 29 March 2017, 2:44:46.228466 pm UUID: 31d3d682-f16d-4295-82d3-07689acf53b4 Ancestors: Kernel-eem.1074 Change senders of primitiveFailTokenFor: to send to MethodContext not ContextPart. =============== Diff against Kernel-eem.1074 =============== Item was changed: ----- Method: BlockClosure>>simulateValueWithArguments:caller: (in category 'system simulation') ----- simulateValueWithArguments: anArray caller: aContext "Simulate the valueWithArguments: primitive. Fail if anArray is not an array of the right arity." | newContext sz | newContext := (MethodContext newForMethod: outerContext method) setSender: aContext receiver: outerContext receiver method: outerContext method closure: self startpc: startpc. ((newContext objectClass: anArray) ~~ Array or: [numArgs ~= anArray size]) ifTrue: + [^MethodContext primitiveFailTokenFor: nil]. - [^ContextPart primitiveFailTokenFor: nil]. sz := self basicSize. newContext stackp: sz + numArgs. 1 to: numArgs do: [:i| newContext at: i put: (anArray at: i)]. 1 to: sz do: [:i| newContext at: i + numArgs put: (self at: i)]. ^newContext! Item was changed: ----- Method: MethodContext>>doPrimitive:method:receiver:args: (in category 'private') ----- doPrimitive: primitiveIndex method: meth receiver: receiver args: arguments "Simulate a primitive method whose index is primitiveIndex. The simulated receiver and arguments are given as arguments to this message. If successful, push result and return resuming context, else ^ {errCode, PrimitiveFailToken}. Any primitive which provokes execution needs to be intercepted and simulated to avoid execution running away." | value | "Judicious use of primitive 19 (a null primitive that doesn't do anything) prevents the debugger from entering various run-away activities such as spawning a new process, etc. Injudicious use results in the debugger not being able to debug interesting code, such as the debugger itself. hence use primitive 19 with care :-)" "SystemNavigation new browseAllSelect: [:m| m primitive = 19]" primitiveIndex = 19 ifTrue: [ToolSet debugContext: self label:'Code simulation error' contents: nil]. ((primitiveIndex between: 201 and: 222) and: [(self objectClass: receiver) includesBehavior: BlockClosure]) ifTrue: [((primitiveIndex between: 201 and: 205) "BlockClosure>>value[:value:...]" or: [primitiveIndex between: 221 and: 222]) ifTrue: "BlockClosure>>valueNoContextSwitch[:]" [^receiver simulateValueWithArguments: arguments caller: self]. primitiveIndex = 206 ifTrue: "BlockClosure>>valueWithArguments:" [^receiver simulateValueWithArguments: arguments first caller: self]]. primitiveIndex = 83 ifTrue: "afr 9/11/1998 19:50" "Object>>perform:[with:...]" [^self send: arguments first to: receiver with: arguments allButFirst super: false]. primitiveIndex = 84 ifTrue: "afr 9/11/1998 19:50 & eem 8/18/2009 17:04" "Object>>perform:withArguments:" [^self send: arguments first to: receiver with: (arguments at: 2) lookupIn: (self objectClass: receiver)]. primitiveIndex = 100 ifTrue: "eem 8/18/2009 16:57" "Object>>perform:withArguments:inSuperclass:" [^self send: arguments first to: receiver with: (arguments at: 2) lookupIn: (arguments at: 3)]. "Mutex>>primitiveEnterCriticalSection Mutex>>primitiveTestAndSetOwnershipOfCriticalSection" (primitiveIndex = 186 or: [primitiveIndex = 187]) ifTrue: [| effective | effective := Processor activeProcess effectiveProcess. "active == effective" value := primitiveIndex = 186 ifTrue: [receiver primitiveEnterCriticalSectionOnBehalfOf: effective] ifFalse: [receiver primitiveTestAndSetOwnershipOfCriticalSectionOnBehalfOf: effective]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]]. primitiveIndex = 188 ifTrue: "eem 5/27/2008 11:10 Object>>withArgs:executeMethod:" [((self objectClass: (arguments at: 1)) == Array and: [(self objectClass: (arguments at: 2)) includesBehavior: CompiledMethod]) ifFalse: + [^MethodContext primitiveFailTokenFor: #'bad argument']. - [^ContextPart primitiveFailTokenFor: #'bad argument']. (arguments at: 2) numArgs = (arguments at: 1) size ifFalse: + [^MethodContext primitiveFailTokenFor: #'bad number of arguments']. - [^ContextPart primitiveFailTokenFor: #'bad number of arguments']. (arguments at: 2) primitive > 0 ifTrue: [(arguments at: 2) isQuick ifTrue: [^self push: (receiver withArgs: (arguments at: 1) executeMethod: (arguments at: 2))]. ^self doPrimitive: (arguments at: 2) primitive method: (arguments at: 2) receiver: receiver args: (arguments at: 1)]. ^MethodContext sender: self receiver: receiver method: (arguments at: 2) arguments: (arguments at: 1)]. - "Closure primitives" - (primitiveIndex = 200 and: [self == receiver]) ifTrue: - "ContextPart>>closureCopy:copiedValues:; simulated to get startpc right" - [^self push: (BlockClosure - outerContext: receiver - startpc: pc + 2 - numArgs: arguments first - copiedValues: arguments last)]. - primitiveIndex = 118 ifTrue: "[receiver:]tryPrimitive:withArgs:; avoid recursing in the VM" [(arguments size = 3 and: [(self objectClass: arguments second) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifTrue: [^self doPrimitive: arguments second method: meth receiver: arguments first args: arguments last]. (arguments size = 2 and: [(self objectClass: arguments first) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifFalse: + [^MethodContext primitiveFailTokenFor: nil]. - [^ContextPart primitiveFailTokenFor: nil]. ^self doPrimitive: arguments first method: meth receiver: receiver args: arguments last]. value := primitiveIndex = 120 "FFI method" ifTrue: [(meth literalAt: 1) tryInvokeWithArguments: arguments] ifFalse: [primitiveIndex = 117 "named primitives" ifTrue: [self tryNamedPrimitiveIn: meth for: receiver withArgs: arguments] ifFalse: ["should use self receiver: receiver tryPrimitive: primitiveIndex withArgs: arguments but this is only in later VMs" receiver tryPrimitive: primitiveIndex withArgs: arguments]]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]! Item was changed: ----- Method: MethodContext>>send:to:with:startClass: (in category 'controlling') ----- send: selector to: rcvr with: args startClass: startClassOrNil "Simulate the action of sending a message with selector, selector, and arguments, args, to receiver. The argument, startClassOrNil, tells whether the selector should be looked up in startClassOrNil or the class of the receiver." | class meth val ctxt | class := startClassOrNil ifNil: [self objectClass: rcvr]. meth := class lookupSelector: selector. meth == nil ifTrue: [^self send: #doesNotUnderstand: to: rcvr with: (Array with: (Message selector: selector arguments: args)) startClass: class]. (args isArray and: [args size = meth numArgs]) ifFalse: + [^MethodContext primitiveFailTokenFor: nil]. - [^ContextPart primitiveFailTokenFor: nil]. val := self tryPrimitiveFor: meth receiver: rcvr args: args. ((self objectClass: val) == Array and: [val size = 2 and: [val first == PrimitiveFailToken]]) ifFalse: [^val]. (selector == #doesNotUnderstand: and: [class == ProtoObject]) ifTrue: [^self error: 'Simulated message ' , (args at: 1) selector, ' not understood']. ctxt := self activateMethod: meth withArgs: args receiver: rcvr class: class. ((self objectClass: val) == Array and: [val size = 2 and: [val first == PrimitiveFailToken and: [val last notNil and: [(ctxt method at: ctxt pc) = 129 "long store temp"]]]]) ifTrue: [ctxt at: ctxt stackPtr put: val last]. ^ctxt! Item was changed: ----- Method: Mutex>>primitiveEnterCriticalSectionOnBehalfOf: (in category 'system simulation') ----- primitiveEnterCriticalSectionOnBehalfOf: effectiveProcess "Primitive. Simulate primitiveEnterCriticalSection. The receiver must be unowned or owned by the effectiveProcess to proceed. Answer if the process is already owned by the current process." <primitive: 186> + ^MethodContext primitiveFailTokenFor: nil! - ^{ContextPart primitiveFailToken. nil}! Item was changed: ----- Method: Mutex>>primitiveTestAndSetOwnershipOfCriticalSectionOnBehalfOf: (in category 'system simulation') ----- primitiveTestAndSetOwnershipOfCriticalSectionOnBehalfOf: effectiveProcess "Primitive. Simulate primitiveEnterCriticalSection. Attempt to set the ownership of the receiver. If the receiver is unowned set its owningProcess to the effectiveProcess and answer false. If the receiver is owned by the effectiveProcess answer true. If the receiver is owned by some other process answer nil." <primitive: 187> + ^MethodContext primitiveFailTokenFor: nil! - ^{ContextPart primitiveFailToken. nil}! Item was changed: ----- Method: ProtoObject>>tryNamedPrimitive (in category 'apply primitives') ----- tryNamedPrimitive "This method is a template that the Smalltalk simulator uses to execute primitives. See Object documentation whatIsAPrimitive." <primitive:'' module:'' error: errorCode> + ^MethodContext primitiveFailTokenFor: errorCode! - ^ContextPart primitiveFailTokenFor: errorCode! Item was changed: ----- Method: ProtoObject>>tryNamedPrimitive: (in category 'apply primitives') ----- tryNamedPrimitive: arg1 "This method is a template that the Smalltalk simulator uses to execute primitives. See Object documentation whatIsAPrimitive." <primitive:'' module:'' error: errorCode> + ^MethodContext primitiveFailTokenFor: errorCode! - ^ContextPart primitiveFailTokenFor: errorCode! Item was changed: ----- Method: ProtoObject>>tryNamedPrimitive:with: (in category 'apply primitives') ----- tryNamedPrimitive: arg1 with: arg2 "This method is a template that the Smalltalk simulator uses to execute primitives. See Object documentation whatIsAPrimitive." <primitive:'' module:'' error: errorCode> + ^MethodContext primitiveFailTokenFor: errorCode! - ^ContextPart primitiveFailTokenFor: errorCode! Item was changed: ----- Method: ProtoObject>>tryNamedPrimitive:with:with: (in category 'apply primitives') ----- tryNamedPrimitive: arg1 with: arg2 with: arg3 "This method is a template that the Smalltalk simulator uses to execute primitives. See Object documentation whatIsAPrimitive." <primitive:'' module:'' error: errorCode> + ^MethodContext primitiveFailTokenFor: errorCode! - ^ContextPart primitiveFailTokenFor: errorCode! Item was changed: ----- Method: ProtoObject>>tryNamedPrimitive:with:with:with: (in category 'apply primitives') ----- tryNamedPrimitive: arg1 with: arg2 with: arg3 with: arg4 "This method is a template that the Smalltalk simulator uses to execute primitives. See Object documentation whatIsAPrimitive." <primitive:'' module:'' error: errorCode> + ^MethodContext primitiveFailTokenFor: errorCode! - ^ContextPart primitiveFailTokenFor: errorCode! Item was changed: ----- Method: ProtoObject>>tryNamedPrimitive:with:with:with:with: (in category 'apply primitives') ----- tryNamedPrimitive: arg1 with: arg2 with: arg3 with: arg4 with: arg5 "This method is a template that the Smalltalk simulator uses to execute primitives. See Object documentation whatIsAPrimitive." <primitive:'' module:'' error: errorCode> + ^MethodContext primitiveFailTokenFor: errorCode! - ^ContextPart primitiveFailTokenFor: errorCode! Item was changed: ----- Method: ProtoObject>>tryNamedPrimitive:with:with:with:with:with: (in category 'apply primitives') ----- tryNamedPrimitive: arg1 with: arg2 with: arg3 with: arg4 with: arg5 with: arg6 "This method is a template that the Smalltalk simulator uses to execute primitives. See Object documentation whatIsAPrimitive." <primitive:'' module:'' error: errorCode> + ^MethodContext primitiveFailTokenFor: errorCode! - ^ContextPart primitiveFailTokenFor: errorCode! Item was changed: ----- Method: ProtoObject>>tryNamedPrimitive:with:with:with:with:with:with: (in category 'apply primitives') ----- tryNamedPrimitive: arg1 with: arg2 with: arg3 with: arg4 with: arg5 with: arg6 with: arg7 "This method is a template that the Smalltalk simulator uses to execute primitives. See Object documentation whatIsAPrimitive." <primitive:'' module:'' error: errorCode> + ^MethodContext primitiveFailTokenFor: errorCode! - ^ContextPart primitiveFailTokenFor: errorCode! Item was changed: ----- Method: ProtoObject>>tryNamedPrimitive:with:with:with:with:with:with:with: (in category 'apply primitives') ----- tryNamedPrimitive: arg1 with: arg2 with: arg3 with: arg4 with: arg5 with: arg6 with: arg7 with: arg8 "This method is a template that the Smalltalk simulator uses to execute primitives. See Object documentation whatIsAPrimitive." <primitive:'' module:'' error: errorCode> + ^MethodContext primitiveFailTokenFor: errorCode! - ^ContextPart primitiveFailTokenFor: errorCode! Item was changed: ----- Method: ProtoObject>>tryPrimitive:withArgs: (in category 'apply primitives') ----- tryPrimitive: primIndex withArgs: argumentArray "This method is a template that the Smalltalk simulator uses to execute primitives. See Object documentation whatIsAPrimitive." <primitive: 118 error: errorCode> + ^MethodContext primitiveFailTokenFor: errorCode! - ^ContextPart primitiveFailTokenFor: errorCode!

1 0

Changes file
by Louis LaBrunda 30 Mar '17

30 Mar '17

Hi Guys, I have a Squeak program that I run headless on a Raspberry Pi. The program starts when the Raspberry boots (Raspbian Jessie Lite). The image is never saved. The same image is always run when the Raspberry boots. Do I need the changes file? It seems to grow every time the program starts. Can I stop this? Thanks in advance for any and all insight. Lou -- Louis LaBrunda Keystone Software Corp. SkypeMe callto://PhotonDemon

3 4

[Test] BackToTheFuture.morph saved from Squeak 2.5 dropped onto a desktop of a Squeak6.0a image
by H. Hirzel 30 Mar '17

30 Mar '17

Hello This is a follow up post on the thread http://forum.world.st/Dropping-a-morph-gives-me-a-funny-menu-td4939787.html You need to do FileServices unregisterFileReader: CornerGripMorph to get only one 'Load as morph' button when you drop a *.morph file onto a desktop. You then may verify this with the following test: The attached morph BackToTheFuture.morph was exported from a Squeak 2.5 image (Aug 1999, see attachment and [1]) and then dropped into a recent Squeak6.0a image (attachment). Besides a font problem which mostly causes trouble on page 3 it works well! Regards --Hannes [1] The export in the Squeak 2.5 image was done as follows 1. Bring up the 'World' menu in the 'Play with me - 4' window. 2. Choose 'debug' 3. Choose 'explore world' 4. Click on the 'BookMorph' in the 'submorphs' collection 5. Choose 'Inspect' 6. Evaluate self saveOnFile Morph saveOnFile uses a SmartRefStream http://wiki.squeak.org/squeak/614 P.S. FileServices unregisterFileReader: CornerGripMorph has not been commited to trunk yet. Probably good to do a comment on FileServices as the same time Current comment: A FileServices is xxxxxxxxx. Instance Variables

2 1

The Inbox: Graphics-cbc.372.mcz
by commits＠source.squeak.org 30 Mar '17

30 Mar '17

A new version of Graphics was added to project The Inbox: http://source.squeak.org/inbox/Graphics-cbc.372.mcz ==================== Summary ==================== Name: Graphics-cbc.372 Author: cbc Time: 28 March 2017, 5:18:09.019402 pm UUID: 7b9783b1-87c5-3549-ac32-42acd6abcb12 Ancestors: Graphics-eem.371 Added method to allow creating a rectangle based on teh center of the rectangle. =============== Diff against Graphics-eem.371 =============== Item was added: + ----- Method: Rectangle class>>exactCenter:extent: (in category 'instance creation') ----- + exactCenter: centerPoint extent: extentPoint + "Answer an instance of me whose center is centerPoint and width + by height is extentPoint. " + ^ self origin: centerPoint - (extentPoint / 2) extent: extentPoint + !

6 8

The Trunk: Graphics-cbc.372.mcz
by commits＠source.squeak.org 30 Mar '17

30 Mar '17

David T. Lewis uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-cbc.372.mcz ==================== Summary ==================== Name: Graphics-cbc.372 Author: cbc Time: 28 March 2017, 5:18:09.019402 pm UUID: 7b9783b1-87c5-3549-ac32-42acd6abcb12 Ancestors: Graphics-eem.371 Added method to allow creating a rectangle based on teh center of the rectangle. =============== Diff against Graphics-eem.371 =============== Item was added: + ----- Method: Rectangle class>>exactCenter:extent: (in category 'instance creation') ----- + exactCenter: centerPoint extent: extentPoint + "Answer an instance of me whose center is centerPoint and width + by height is extentPoint. " + ^ self origin: centerPoint - (extentPoint / 2) extent: extentPoint + !

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
29
Older →

Jump to page: