Squeak-dev October 2013

squeak-dev@lists.squeakfoundation.org

35 participants
262 discussions

Re: [squeak-dev] The Trunk: Kernel-cmm.816.mcz
by David T. Lewis 26 Oct '13

26 Oct '13

On Sat, Oct 26, 2013 at 07:55:20PM +0000, commits(a)source.squeak.org wrote: > Chris Muller uploaded a new version of Kernel to project The Trunk: > http://source.squeak.org/trunk/Kernel-cmm.816.mcz > > ==================== Summary ==================== > > Name: Kernel-cmm.816 > Author: cmm > Time: 26 October 2013, 2:55:06.697 pm > UUID: 62af959d-4b3e-4b4c-8c4e-aa7f1465e8de > Ancestors: Kernel-ul.815 > > Remove valueWithAllPossibleArguments: because it has not proven a general necessity.. > Good call, thanks Chris. Dave

1 0

The Trunk: Kernel-cmm.816.mcz
by commits＠source.squeak.org 26 Oct '13

26 Oct '13

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.816.mcz ==================== Summary ==================== Name: Kernel-cmm.816 Author: cmm Time: 26 October 2013, 2:55:06.697 pm UUID: 62af959d-4b3e-4b4c-8c4e-aa7f1465e8de Ancestors: Kernel-ul.815 Remove valueWithAllPossibleArguments: because it has not proven a general necessity.. =============== Diff against Kernel-ul.815 =============== Item was removed: - ----- Method: BlockClosure>>valueWithAllPossibleArguments: (in category 'evaluating') ----- - valueWithAllPossibleArguments: anArray - "Same as valueWithPossibleArgs: except when the receiver takes just one-argument, and more than one argument is specified by anArray, then pass all of anArray as THE argument to the receiver block - This is used to allow a large, variable number of arguments to be passed." - ^numArgs = 0 - ifTrue: [self value] - ifFalse: - [self valueWithArguments: - (numArgs = anArray size - ifTrue: [anArray] - ifFalse: - [numArgs > anArray size - ifTrue: [anArray, (Array new: numArgs - anArray size)] - ifFalse: - [numArgs = 1 - ifTrue: [Array with: anArray] - ifFalse: [anArray copyFrom: 1 to: numArgs]]])]!

1 0

The Trunk: KernelTests-cmm.255.mcz
by commits＠source.squeak.org 26 Oct '13

26 Oct '13

Chris Muller uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-cmm.255.mcz ==================== Summary ==================== Name: KernelTests-cmm.255 Author: cmm Time: 26 October 2013, 2:21:32.464 pm UUID: dce2aefc-6d3f-4a55-bed7-19d90393828e Ancestors: KernelTests-cmm.254 Consider valueWithAllPossibleArguments: special enough to inline, so it and its test are removed. =============== Diff against KernelTests-cmm.254 =============== Item was removed: - ----- Method: BlockContextTest>>testValueWithAllPossibleArgs (in category 'tests - evaluating') ----- - testValueWithAllPossibleArgs - | block blockWithArg blockWith2Arg | - - block := [1]. - blockWithArg := [:arg | arg]. - blockWith2Arg := [:arg1 :arg2 | {arg1. arg2}]. - - self assert: (block valueWithAllPossibleArguments: #()) = 1. - self assert: (block valueWithAllPossibleArguments: #(1)) = 1. - - self assert: (blockWithArg valueWithAllPossibleArguments: #()) = nil. - self assert: (blockWithArg valueWithAllPossibleArguments: #(1)) = 1. - self assert: (blockWithArg valueWithAllPossibleArguments: #(1 2)) = #(1 2). - - self assert: (blockWith2Arg valueWithAllPossibleArguments: #()) = {nil .nil}. - self assert: (blockWith2Arg valueWithAllPossibleArguments: #(1)) = {1 . nil}. - self assert: (blockWith2Arg valueWithAllPossibleArguments: #(1 2)) = #(1 2). - self assert: (blockWith2Arg valueWithAllPossibleArguments: #(1 2 3)) = #(1 2). - - - !

1 0

The Trunk: System-cmm.610.mcz
by commits＠source.squeak.org 26 Oct '13

26 Oct '13

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.610.mcz ==================== Summary ==================== Name: System-cmm.610 Author: cmm Time: 26 October 2013, 2:17:09.114 pm UUID: a27149c5-0fd6-4bef-a34a-57db707aec83 Ancestors: System-dtl.609 Consider valueWithAllPossibleArguments: special enough to inline, for now. =============== Diff against System-dtl.609 =============== Item was changed: ----- Method: SmalltalkImage>>do: (in category 'command line') ----- do: aBlock + [ [ (aBlock numArgs = 1 and: [ self arguments size > 1 ]) + ifTrue: [ aBlock value: self arguments ] + ifFalse: [ aBlock valueWithEnoughArguments: self arguments ] ] - [ [ aBlock valueWithAllPossibleArguments: self arguments ] on: ProgressInitiationException do: [ : pie | "Don't want to log this notification." pie defaultAction ] ] on: Notification , Warning do: [ : noti | StandardFileStream stdout nextPutAll: DateAndTime now asString ; space ; nextPutAll: noti description ; cr. noti resume ] on: SyntaxErrorNotification do: [ : err | StandardFileStream stdout nextPutAll: err errorCode ; cr. self haltOrQuit ] on: Error do: [ : err | err printVerboseOn: StandardFileStream stderr. self haltOrQuit. err isResumable ifTrue: [ err resume ] ]!

1 0

Re: [squeak-dev] The Trunk: System-cmm.608.mcz
by Chris Muller 26 Oct '13

26 Oct '13

Hi, as you can see, this is why I want to have #valueWithAllPossibleArguments: available. We can move it to the System package if it is not common enough for Kernel. What's being addressed and documented is the surprisingly voluminous amount of code (encapsulated in #do:) needed to properly run squeak when passing in a "document" URL as the first argument. The contents of those documents can now, optionally, surround their code in Smalltalk do: [ :arg1 :arg2 :etc | "the document script can access arg1, arg2 nicely" ] to get easy-access to the arguments, and also handling the exceptions that need to be handled. On Fri, Oct 25, 2013 at 3:38 PM, <commits(a)source.squeak.org> wrote: > Chris Muller uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-cmm.608.mcz > > ==================== Summary ==================== > > Name: System-cmm.608 > Author: cmm > Time: 25 October 2013, 3:38:27.908 pm > UUID: c3198c63-1008-493a-8e6b-b63886ab70cf > Ancestors: System-ul.607 > > Convenience method for passing .st scripts as arguments to image. In the .st script, use Smalltalk do: [ :arg1 :arg2 :etc | ] to start servers, #doAndQuit: [ :args | ... ] for batch jobs, and #do:snapshot:andQuit: for jobs that "build" new images (e.g., for testing and/or deployment). Arguments from the command-line are passed as arguments to the block. > > In all cases, Notifications and Errors are logged to stdout and stderr, respectively. > > =============== Diff against System-ul.607 =============== > > Item was added: > + ----- Method: SmalltalkImage>>do: (in category 'command line') ----- > + do: aBlock > + [ [ aBlock valueWithAllPossibleArguments: self arguments ] > + on: ProgressInitiationException > + do: > + [ : pie | "Don't want to log this notification." > + pie defaultAction ] ] > + on: Notification , Warning > + do: > + [ : noti | StandardFileStream stdout > + nextPutAll: DateAndTime now asString ; > + space ; > + nextPutAll: noti description ; > + cr. > + noti resume ] > + on: SyntaxErrorNotification > + do: > + [ : err | StandardFileStream stdout > + nextPutAll: err errorCode ; > + cr. > + self haltOrQuit ] > + on: Error > + do: > + [ : err | err printVerboseOn: StandardFileStream stderr. > + self haltOrQuit. > + err isResumable ifTrue: [ err resume ] ]! > > Item was added: > + ----- Method: SmalltalkImage>>do:snapshotAs:andQuit: (in category 'command line') ----- > + do: aBlock snapshotAs: imageName andQuit: shouldQuit > + self do: aBlock. > + imageName > + ifNil: > + [ shouldQuit ifTrue: > + [ self > + snapshot: false > + andQuit: shouldQuit ] ] > + ifNotNil: > + [ | correctName | > + correctName := (imageName endsWith: '.image') > + ifTrue: [ imageName ] > + ifFalse: [ imageName , '.image' ]. > + (FileDirectory default fullNameFor: correctName) = self imageName > + ifTrue: > + [ self > + snapshot: true > + andQuit: shouldQuit ] > + ifFalse: > + [ self saveAs: imageName. > + "Avoid instant-quit when relaunching by resaving." > + shouldQuit ifTrue: > + [ self > + snapshot: true > + andQuit: shouldQuit ] ] ]! > > Item was added: > + ----- Method: SmalltalkImage>>doAndQuit: (in category 'command line') ----- > + doAndQuit: aBlock > + self > + do: aBlock > + snapshotAs: nil > + andQuit: true! > > Item was added: > + ----- Method: SmalltalkImage>>haltOrQuit (in category 'command line') ----- > + haltOrQuit > + Smalltalk isHeadless > + ifTrue: > + [ self > + snapshot: false > + andQuit: true ] > + ifFalse: [ self halt ]! > >

2 2

Daily Commit Log
by commits＠source.squeak.org 26 Oct '13

26 Oct '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-October/006554.ht… Name: Tests-cmm.258 Ancestors: Tests-cmm.257 - RecentMessagesTest updated for recent updates. - Support the notion that deletion of a message is worth keeping in RecentMessages. In the future I'd like to see the ability to browse versions on removed methods so they can be restored right from there. - #recordSelector:forClass:inEnvironment: is basically a private method. No senders of it ever consume its return value. If there is no requirement for it to return anything, it shouldn't. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006555.ht… Name: Graphics-ul.275 Ancestors: Graphics-nice.274 Speed up reading of large png images: - avoid unnecessary allocations in #processNextChunk, by collecting the data from the IDAT chunks into a WriteStream - reuse the existing ByteArray if the next chunk has the same size as the previous in #processNextChunk - reuse the contents of the idatChunkStream in #processNonInterlaced and #processInterlaced - speed up #copyPixelsRGB: a bit by using a ByteArray as the bits for the Form, just like in #copyPixelsRGBA:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006556.ht… Name: System-cmm.606 Ancestors: System-dtl.605 - Correct initialization of RecentMessages in case a new instance is ever made (and for the test cases). - Fix revertMostRecent. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006557.ht… Name: System-ul.607 Ancestors: System-cmm.606 ChangeRecord >> #fileIn: must use the environment to look up the methodClass. RecentMessages >> #revertMostRecent must pass the environment to the changeRecord, otherwise it can't be filed in. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006558.ht… Name: KernelTests-cmm.254 Ancestors: KernelTests-nice.253 Test for valueWithAllPossibleArguments:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006559.ht… Name: Kernel-cmm.812 Ancestors: Kernel-nice.811 Printing utilities for Blocks which include the source code of the block, and Errors which include the description and stack-trace. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006560.ht… Name: Kernel-cmm.813 Ancestors: Kernel-cmm.812 - When printing stack traces, the line-end preferences should be set externally. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006561.ht… Name: Kernel-cmm.814 Ancestors: Kernel-cmm.813 Added BlockClosure>>#valueWithAllPossibleArguments: to support passing a variable number of arguments to the image from the command-line. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006562.ht… Name: System-cmm.608 Ancestors: System-ul.607 Convenience method for passing .st scripts as arguments to image. In the .st script, use Smalltalk do: [ :arg1 :arg2 :etc | ] to start servers, #doAndQuit: [ :args | ... ] for batch jobs, and #do:snapshot:andQuit: for jobs that "build" new images (e.g., for testing and/or deployment). Arguments from the command-line are passed as arguments to the block. In all cases, Notifications and Errors are logged to stdout and stderr, respectively. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006563.ht… Name: Collections-ul.542 Ancestors: Collections-cmm.541 Make Dictionary >> #includesKey: more lightweight. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006564.ht… Name: Kernel-ul.815 Ancestors: Kernel-ul.812, Kernel-cmm.814 - merged Kernel-ul.812, Kernel-cmm.814 - removed MethodDictionary >> #includesKey:, because it's bogus ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006565.ht… Name: System-dtl.609 Ancestors: System-cmm.608 As reported on the pharo list, there are no senders of DeepCopier>>isItTimeToCheckVariables. The method comment is from 1999. The value of NextVariableCheckTime was last updated in 2001. There are no senders in Squeak 3.2. This method is well past its expiration date, so get rid of it. =============================================

1 0

The Trunk: System-dtl.609.mcz
by commits＠source.squeak.org 26 Oct '13

26 Oct '13

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.609.mcz ==================== Summary ==================== Name: System-dtl.609 Author: dtl Time: 25 October 2013, 6:58:38.544 pm UUID: fbe5d078-bc29-40f3-aed6-6e3fee445c27 Ancestors: System-cmm.608 As reported on the pharo list, there are no senders of DeepCopier>>isItTimeToCheckVariables. The method comment is from 1999. The value of NextVariableCheckTime was last updated in 2001. There are no senders in Squeak 3.2. This method is well past its expiration date, so get rid of it. =============== Diff against System-cmm.608 =============== Item was changed: Object subclass: #DeepCopier instanceVariableNames: 'references uniClasses newUniClasses' + classVariableNames: '' - classVariableNames: 'NextVariableCheckTime' poolDictionaries: '' category: 'System-Object Storage'! !DeepCopier commentStamp: 'tk 3/4/2003 19:39' prior: 0! DeepCopier does a veryDeepCopy. It is a complete tree copy using a dictionary. Any object that is in the tree twice is only copied once. All references to the object in the copy of the tree will point to the new copy. See Object|veryDeepCopy which calls (self veryDeepCopyWith: aDeepCopier). The dictionary of objects that have been seen, holds the correspondance (uniClass -> new uniClass). When a tree of morphs points at a morph outside of itself, that morph should not be copied. Use our own kind of weak pointers for the 'potentially outside' morphs. Default is that any new class will have all of its fields deeply copied. If a field needs to be weakly copied, define veryDeepInner: and veryDeepFixupWith:. veryDeepInner: has the loop that actually copies the fields. If a class defines its own copy of veryDeepInner: (to leave some fields out), then veryDeepFixupWith: will be called on that object at the end. veryDeepInner: can compute an alternate object to put in a field. (Object veryDeepCopyWith: discovers which superclasses did not define veryDeepInner:, and very deeply copies the variables defined in those classes). To decide if a class needs veryDeepInner: and veryDeepFixupWith:, ask this about an instance: If I duplicate this object, does that mean that I also want to make duplicates of the things it holds onto? If yes, (i.e. a Paragraph does want a new copy of its Text) then do nothing. If no, (i.e. an undo command does not want to copy the objects it acts upon), then define veryDeepInner: and veryDeepFixupWith:. Here is an analysis for the specific case of a morph being held by another morph. Does field X contain a morph (or a Player whose costume is a morph)? If not, no action needed. Is the morph in field X already a submorph of the object? Is it down lower in the submorph tree? If so, no action needed. Could the morph in field X every appear on the screen (be a submorph of some other morph)? If not, no action needed. If it could, you must write the methods veryDeepFixupWith: and veryDeepInner:, and in them, refrain from sending veryDeepCopyWith: to the contents of field X. newUniClasses = true in the normal case. Every duplicated Player gets a new class. When false, all duplicates will be siblings (sister instances) of existing players. ----- Things Ted is still considering ----- Rule: If a morph stores a uniClass class (Player 57) as an object in a field, the new uniClass will not be stored there. Each uniClass instance does have a new class created for it. (fix this by putting the old class in references and allow lookup? Wrong if encounter it before seeing an instance?) Rule: If object A has object C in a field, and A says (^ C) for the copy, but object B has A in a normal field and it gets deepCopied, and A in encountered first, then there will be two copies of C. (just be aware of it) Dependents are now fixed up. Suppose a model has a dependent view. In the DependentFields dictionary, model -> (view ...). If only the model is copied, no dependents are created (no one knows about the new model). If only the view is copied, it is inserted into DependentFields on the right side. model -> (view copiedView ...). If both are copied, the new model has the new view as its dependent. If additional things depend on a model that is copied, the caller must add them to its dependents. ! Item was removed: - ----- Method: DeepCopier>>intervalForChecks (in category 'like fullCopy') ----- - intervalForChecks - "set delay interval for checking for new instance variables to 10 minutes. hg 11/23/1999" - - ^600 - ! Item was removed: - ----- Method: DeepCopier>>isItTimeToCheckVariables (in category 'like fullCopy') ----- - isItTimeToCheckVariables - - | now isIt | - NextVariableCheckTime ifNil: [ - NextVariableCheckTime := Time totalSeconds. - ^ true]. - now := Time totalSeconds. - isIt := NextVariableCheckTime < now. - isIt ifTrue: ["update time for next check" - NextVariableCheckTime := now + self intervalForChecks]. - ^isIt - !

1 0

use of pointsTo: for includesSelector:
by Eliot Miranda 26 Oct '13

26 Oct '13

Hi All, I just got a little burned. I was searching through an Array of symbols and integers (it is the PrimitiveTable from the VM), wanting to filter-out methods with a with a certain pragma. The code looks like: anArray doWithIndex: [:entry :index| (self whichClassIncludesSelector: entry) ifNotNil: [:c| | m | m := c >> entry. (m pragmaAt: #option:) ifNotNil: [:pragma| (initializationOptions at: (pragma arguments first) ifAbsent: [true]) ifFalse: [anArray at: index put: 0]]]] the error was a keyNotFound error for c >> entry. Turns out entry was the integer 306, a code for a quick primitive that returns some inst var. The question is why did (self whichClassIncludesSelector: entry) evaluate to other than nil given that 306 is /not/ a selector in any of the classes from self on up. Well, it's MethodDictionary's use of pointsTo: that is at fault: MethodDictionary>>includesKey: aSymbol "This override assumes that pointsTo is a fast primitive" aSymbol ifNil: [^ false]. ^ self pointsTo: aSymbol ProtoObject>>pointsTo: anObject "This method returns true if self contains a pointer to anObject, and returns false otherwise" <primitive: 132> 1 to: self class instSize do: [:i | (self instVarAt: i) == anObject ifTrue: [^ true]]. 1 to: self basicSize do: [:i | (self basicAt: i) == anObject ifTrue: [^ true]]. ^ false Turns out that 306 was the tally of one of the method dictionaries along self's superclass chain. This seems to be to be completely bogus. Do we really need crude performance hacks like this any more? -- best, Eliot

5 4

The Trunk: Kernel-ul.815.mcz
by commits＠source.squeak.org 26 Oct '13

26 Oct '13

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.815.mcz ==================== Summary ==================== Name: Kernel-ul.815 Author: ul Time: 26 October 2013, 12:37:22.693 am UUID: fed1469b-c755-4e2d-a37f-5dd00b5d08a3 Ancestors: Kernel-ul.812, Kernel-cmm.814 - merged Kernel-ul.812, Kernel-cmm.814 - removed MethodDictionary >> #includesKey:, because it's bogus =============== Diff against Kernel-ul.812 =============== Item was changed: ----- Method: BlockClosure>>fullPrintOn: (in category 'printing') ----- + fullPrintOn: aStream + aStream + print: self ; + cr. + self printSourceOn: aStream! - fullPrintOn: aStream - aStream print: self; cr. - (self decompile ifNil: ['--source missing--']) printOn: aStream indent: 0! Item was added: + ----- Method: BlockClosure>>printSourceOn: (in category 'printing') ----- + printSourceOn: aStream + self decompile + ifNil: [ aStream nextPutall: '--source missing--' ] + ifNotNil: + [ : parseNode | parseNode statements anyOne + printOn: aStream + indent: 0 ]! Item was added: + ----- Method: BlockClosure>>sourceString (in category 'printing') ----- + sourceString + ^ String streamContents: [ : stream | self printSourceOn: stream ]! Item was changed: + ----- Method: BlockClosure>>valueOtherwise: (in category 'evaluating') ----- - ----- Method: BlockClosure>>valueOtherwise: (in category 'events-support') ----- valueOtherwise: aBlock "Send the message and answer the return value" ^self value! Item was added: + ----- Method: BlockClosure>>valueWithAllPossibleArguments: (in category 'evaluating') ----- + valueWithAllPossibleArguments: anArray + "Same as valueWithPossibleArgs: except when the receiver takes just one-argument, and more than one argument is specified by anArray, then pass all of anArray as THE argument to the receiver block + This is used to allow a large, variable number of arguments to be passed." + ^numArgs = 0 + ifTrue: [self value] + ifFalse: + [self valueWithArguments: + (numArgs = anArray size + ifTrue: [anArray] + ifFalse: + [numArgs > anArray size + ifTrue: [anArray, (Array new: numArgs - anArray size)] + ifFalse: + [numArgs = 1 + ifTrue: [Array with: anArray] + ifFalse: [anArray copyFrom: 1 to: numArgs]]])]! Item was changed: + ----- Method: BlockClosure>>valueWithArguments:otherwise: (in category 'evaluating') ----- - ----- Method: BlockClosure>>valueWithArguments:otherwise: (in category 'events-support') ----- valueWithArguments: anArray otherwise: aBlock ^ self valueWithArguments: anArray! Item was changed: + ----- Method: BlockClosure>>valueWithEnoughArguments: (in category 'evaluating') ----- - ----- Method: BlockClosure>>valueWithEnoughArguments: (in category 'events-support') ----- valueWithEnoughArguments: anArray "call me with enough arguments from anArray" | args | (anArray size == self numArgs) ifTrue: [ ^self valueWithArguments: anArray ]. args := Array new: self numArgs. args replaceFrom: 1 to: (anArray size min: args size) with: anArray startingAt: 1. ^ self valueWithArguments: args! Item was added: + ----- Method: Error>>printVerboseOn: (in category 'printing') ----- + printVerboseOn: aStream + aStream + setToEnd ; + nextPutAll: 'vvvvvvvvvvvvvvvvvv ' , self description , ' vvvvvvvvvvvvvvvvvv' ; + cr ; + nextPutAll: 'The time is ', DateAndTime now asString ; + cr. + "Allow applications to optionally print extra details without overriding a base package." + (self respondsTo: #printDetailsOn:) ifTrue: [ self printDetailsOn: aStream ]. + aStream + nextPutAll: self signalerContext longStack ; + cr ; + nextPutAll: '^^^^^^^^^^^^^^^^^^ ' , self description , ' ^^^^^^^^^^^^^^^^^^' ; + cr! Item was removed: - ----- Method: MethodDictionary>>includesKey: (in category 'accessing') ----- - includesKey: aSymbol - "This override assumes that instVarsInclude: uses a fast primitive" - - aSymbol ifNil: [^ false]. - ^ self instVarsInclude: aSymbol!

1 0

The Trunk: Collections-ul.542.mcz
by commits＠source.squeak.org 26 Oct '13

26 Oct '13

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.542.mcz ==================== Summary ==================== Name: Collections-ul.542 Author: ul Time: 26 October 2013, 12:22:26.493 am UUID: e52fefbe-fb04-46f4-a956-f7bbcb5c8965 Ancestors: Collections-cmm.541 Make Dictionary >> #includesKey: more lightweight. =============== Diff against Collections-cmm.541 =============== Item was changed: ----- Method: Dictionary>>includesKey: (in category 'testing') ----- includesKey: key "Answer whether the receiver has a key equal to the argument, key." + ^(array at: (self scanFor: key)) ~~ nil "We could use #notNil here, but ProtoObject doesn't understand it."! - self at: key ifAbsent: [^false]. - ^true!

1 0

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

Jump to page: