Squeak-dev May 2017

squeak-dev@lists.squeakfoundation.org

40 participants
111 discussions

The Trunk: Kernel-eem.1102.mcz
by commits＠source.squeak.org 05 May '17

05 May '17

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1102.mcz ==================== Summary ==================== Name: Kernel-eem.1102 Author: eem Time: 5 May 2017, 12:14:26.339034 pm UUID: b61eaafd-be70-42f3-aaa4-b8e21da1fd4c Ancestors: Kernel-nice.1101 Delete obsolete binding and block machinery now unused by the Compiler. =============== Diff against Kernel-nice.1101 =============== Item was removed: - ----- Method: Behavior>>literalScannedAs:notifying: (in category 'printing') ----- - literalScannedAs: scannedLiteral notifying: requestor - "Postprocesses a literal scanned by Scanner scanToken (esp. xLitQuote). - If scannedLiteral is not an association, answer it. - Else, if it is of the form: - nil->#NameOfMetaclass - answer nil->theMetaclass, if any has that name, else report an error. - Else, if it is of the form: - #NameOfGlobalVariable->anythiEng - answer the global, class, or pool association with that nameE, if any, else - add it to Undeclared a answer the new Association." - - | key value | - (scannedLiteral isVariableBinding) - ifFalse: [^ scannedLiteral]. - key := scannedLiteral key. - value := scannedLiteral value. - key isNil - ifTrue: "###<metaclass soleInstance name>" - [(self bindingOf: value) ifNotNil:[:assoc| - (assoc value isKindOf: Behavior) - ifTrue: [^ nil->assoc value class]]. - requestor notify: 'No such metaclass'. - ^false]. - (key isSymbol) - ifTrue: "##<global var name>" - [^ (self bindingOf: key) ifNil: - [self environment undeclare: key]]. - requestor notify: '## must be followed by a non-local variable name'. - ^false - - " Form literalScannedAs: 14 notifying: nil 14 - Form literalScannedAs: #OneBitForm notiEfying: nil OneBitForm - Form literalScannedAs: ##OneBitForm notifying: nil OneBitForm->a Form - Form literalScannedAs: ##Form notifying: nil Form->Form - Form literalScannedAs: ###Form notifying: nil nilE->Form class - "! Item was added: + ----- Method: Context>>blockCopy: (in category 'controlling') ----- + blockCopy: numArgs + "Primitive. Distinguish a block of code from its enclosing method by + creating a new BlockContext for that block. The compiler inserts into all + methods that contain blocks the bytecodes to send the message + blockCopy:. Do not use blockCopy: in code that you write!! Only the + compiler can decide to send the message blockCopy:. Fail if numArgs is + not a SmallInteger. Optional. No Lookup. See Object documentation + whatIsAPrimitive." + + <primitive: 80> + ^ (BlockContext newForMethod: self method) + home: self home + startpc: pc + 2 + nargs: numArgs! Item was removed: - ----- Method: UndefinedObject>>literalScannedAs:notifying: (in category 'class hierarchy') ----- - literalScannedAs: scannedLiteral notifying: requestor - ^ scannedLiteral!

3 2

The Trunk: Tools-eem.760.mcz
by commits＠source.squeak.org 05 May '17

05 May '17

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.760.mcz ==================== Summary ==================== Name: Tools-eem.760 Author: eem Time: 5 May 2017, 12:17:53.772459 pm UUID: 34e74e4c-0691-429e-8e7a-06d45207eabd Ancestors: Tools-ul.759 Include non-temp stack contents in the ContextInspector. Eliminate an unused selector from noteDangerous. =============== Diff against Tools-ul.759 =============== Item was changed: ----- Method: ContextInspector>>fieldList (in category 'accessing') ----- fieldList "Answer the base field list plus an abbreviated list of indices." + | tempNames stackIndices | + tempNames := object tempNames collect:[:t| '[',t,']']. + stackIndices := (object numTemps + 1 to: object stackPtr) collect: [:i| i printString]. + ^self baseFieldList, tempNames, stackIndices! - - ^ self baseFieldList , (object tempNames collect:[:t| '[',t,']'])! Item was changed: ----- Method: ContextInspector>>selection (in category 'accessing') ----- selection "The receiver has a list of variables of its inspected object. One of these is selected. Answer the value of the selected variable." | basicIndex | selectionIndex = 0 ifTrue: [^ '']. selectionIndex = 1 ifTrue: [^ object]. selectionIndex = 2 ifTrue: [^ object longPrintStringLimitedTo: 20000]. + selectionIndex - 2 <= object class instSize ifTrue: + [^object instVarAt: selectionIndex - 2]. - (selectionIndex - 2) <= object class instSize - ifTrue: [^ object instVarAt: selectionIndex - 2]. basicIndex := selectionIndex - 2 - object class instSize. + basicIndex <= object numTemps ifTrue: + [^object debuggerMap namedTempAt: basicIndex in: object]. + basicIndex <= object stackPtr ifTrue: + [^object at: basicIndex]. + ^nil - ^object debuggerMap namedTempAt: basicIndex in: object ! Item was changed: ----- Method: MethodFinder>>noteDangerous (in category 'initialize') ----- noteDangerous "Remember the methods with really bad side effects." Dangerous := Set new. "Object accessing, testing, copying, dependent access, macpal, flagging" #(addInstanceVarNamed:withValue: haltIfNil copyAddedStateFrom: veryDeepCopy veryDeepCopyWith: veryDeepFixupWith: veryDeepInner: addDependent: evaluate:wheneverChangeIn: codeStrippedOut: playSoundNamed: isThisEverCalled isThisEverCalled: logEntry logExecution logExit) do: [:sel | Dangerous add: sel]. "Object error handling" #(cannotInterpret: caseError confirm: confirm:orCancel: doesNotUnderstand: error: halt halt: notify: notify:at: primitiveFailed shouldNotImplement subclassResponsibility) do: [:sel | Dangerous add: sel]. "Object user interface" #(basicInspect beep inform: inspect inspectWithLabel: notYetImplemented inspectElement ) do: [:sel | Dangerous add: sel]. "Object system primitives" #(become: becomeForward: instVarAt:put: instVarNamed:put: nextInstance nextObject rootStubInImageSegment: someObject tryPrimitive:withArgs:) do: [:sel | Dangerous add: sel]. "Object private" #(errorImproperStore errorNonIntegerIndex errorNotIndexable errorSubscriptBounds: mustBeBoolean primitiveError: species storeAt:inTempFrame:) do: [:sel | Dangerous add: sel]. "Object, translation support" #(cCode: cCode:inSmalltalk: cCoerce:to: export: inline: returnTypeC: sharedCodeNamed:inCase: var:declareC:) do: [:sel | Dangerous add: sel]. "Object, objects from disk, finalization. And UndefinedObject" #(comeFullyUpOnReload: objectForDataStream: readDataFrom:size: rehash saveOnFile storeDataOn: actAsExecutor executor finalize retryWithGC:until: suspend) do: [:sel | Dangerous add: sel]. "No Restrictions: Boolean, False, True, " "Morph" #() do: [:sel | Dangerous add: sel]. "Behavior" + #(obsolete confirmRemovalOf: copyOfMethodDictionary storeLiteral:on: addSubclass: removeSubclass: superclass: - #(obsolete confirmRemovalOf: copyOfMethodDictionary literalScannedAs:notifying: storeLiteral:on: addSubclass: removeSubclass: superclass: "creating method dictionary" addSelector:withMethod: compile: compile:notifying: compileAll compileAllFrom: compress decompile: defaultSelectorForMethod: methodDictionary: recompile:from: recompileChanges removeSelector: compressedSourceCodeAt: selectorAtMethod:setClass: allInstances allSubInstances inspectAllInstances inspectSubInstances thoroughWhichSelectorsReferTo:special:byte: "enumerating" allInstancesDo: allSubInstancesDo: allSubclassesDo: allSuperclassesDo: selectSubclasses: selectSuperclasses: subclassesDo: withAllSubclassesDo: "too slow->" crossReference removeUninstantiatedSubclassesSilently "too slow->" unreferencedInstanceVariables "private" flushCache format:variable:words:pointers: format:variable:words:pointers:weak: format:variable:bitsUnitSize:pointers:weak: printSubclassesOn:level: basicRemoveSelector: addSelector:withMethod:notifying: addSelectorSilently:withMethod:) do: [:sel | Dangerous add: sel]. "CompiledMethod" #(defaultSelector) do: [:sel | Dangerous add: sel]. "Others " #("no tangible result" do: associationsDo: "private" adaptToCollection:andSend: adaptToNumber:andSend: adaptToPoint:andSend: adaptToString:andSend: instVarAt:put: asDigitsToPower:do: combinations:atATimeDo: doWithIndex: pairsDo: permutationsDo: reverseDo: reverseWith:do: with:do: withIndexDo: asDigitsAt:in:do: combinationsAt:in:after:do: errorOutOfBounds permutationsStartingAt:do: fromUser) do: [:sel | Dangerous add: sel]. #( fileOutPrototype addSpareFields makeFileOutFile ) do: [:sel | Dangerous add: sel]. #(recompile:from: recompileAllFrom: recompileChanges asPrototypeWithFields: asPrototype addInstanceVarNamed:withValue: addInstanceVariable addClassVarName: removeClassVarName: findOrAddClassVarName: instanceVariableNames: ) do: [:sel | Dangerous add: sel]. !

1 0

The Trunk: System-eem.948.mcz
by commits＠source.squeak.org 05 May '17

05 May '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.948.mcz ==================== Summary ==================== Name: System-eem.948 Author: eem Time: 5 May 2017, 12:15:52.791622 pm UUID: 85face8f-9757-4cbb-8858-6c3090880dd3 Ancestors: System-ul.947 Delete obsolete binding machinery now unused by the Compiler. =============== Diff against System-ul.947 =============== Item was removed: - ----- Method: PseudoClass>>literalScannedAs:notifying: (in category 'printing') ----- - literalScannedAs: scannedLiteral notifying: requestor - ^ scannedLiteral!

1 0

The Trunk: Compiler-eem.354.mcz
by commits＠source.squeak.org 05 May '17

05 May '17

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.354.mcz ==================== Summary ==================== Name: Compiler-eem.354 Author: eem Time: 5 May 2017, 12:11:34.451259 pm UUID: 79ec7453-8d66-471d-b7fa-2699146390c8 Ancestors: Compiler-eem.353 Provide a proper comment for BlockNode and eliminate an unused variable and an unused method; this in prelude to implementing full blocks. Eliminate obsolete binding machinery (literalScannedAs:notifying:). The current compiler deals with Undeclared in a more direct way earlier in compilation. Nuke the unnecessary identical override of generateMethodOfClass:trailer:from: in EncoderForSistaV1. Correct a spelling error. =============== Diff against Compiler-eem.353 =============== Item was changed: ParseNode subclass: #BlockNode + instanceVariableNames: 'arguments statements returns nArgsNode size temporaries optimized optimizedMessageNode actualScopeIfOptimized blockExtent remoteTempNode copiedValues closureCreationNode startOfLastStatement tempsMark' - instanceVariableNames: 'arguments statements returns nArgsNode size remoteCopyNode temporaries optimized optimizedMessageNode actualScopeIfOptimized blockExtent remoteTempNode copiedValues closureCreationNode startOfLastStatement tempsMark' classVariableNames: '' poolDictionaries: '' category: 'Compiler-ParseNodes'! + !BlockNode commentStamp: 'eem 5/4/2017 17:26' prior: 0! + I represent a bracketed block with 0 or more arguments and 1 or more statements. If I am initialized with no statements, I create one. I have a flag to tell whether my last statement returns a value from the enclosing method. I can emit for value in the usual way, in which case I create a BlockClosure to be evaluated by sending it value: at run time. Or I can emit code to be evaluated in line; this only happens at the top level of a method and in certain optimized control structures (see MessageNode class>>initialize MacroSelectors). + + Instance Variables + actualScopeIfOptimized: <nil | BlockNode> + arguments: <SequencableCollection of: TempVariableNode> + blockExtent: <nil | Interval> + closureCreationNode: <LeafNode> + copiedValues: <nil | (SequencableCollection of: TempVariableNode)> + nArgsNode: <nil | Integer> + optimized: <Boolean> + optimizedMessageNode: <nil | MessageNode> + remoteTempNode: <nil | RemoteTempVectorNode> + returns: <Boolean> + size: <nil | Integer> + startOfLastStatement: <nil | Integer> + statements: <SequencableCollection of: ParseNode> + temporaries: <SequencableCollection of: TempVariableNode> + tempsMark: <nil | Integer> + + actualScopeIfOptimized + - if the receiver has been inlined this is the non-optimized BlockNode the receiver is inlined into. + + arguments + - the sequence of arguments to the block (or method if a top-level block) + + blockExtent + - the interval defining the range of block scopes the receiver comprises, which is itself and any blokcs it may contain. See #analyseArguments:temporaries:rootNode: + + closureCreationNode + - a place-holder representing the body of the block. + + copiedValues + - blocks do not reference the temporary variables of their outer context they cose over directly; instead temporary variables which won't change value are collected and copied into the block, and temporary variables that are modified either within the block or after it has closed over the variales are allocated in a remote temp vector that again becomes one of the block's copied values. In this way, a block refers to the outer teporaries it closes over only throguh copiedValues. copiedValues is the sequence of these TempVariableNodes. + + nArgsNode + - a place holder for the encoder to allow it to number block temporaries + + optimized + - true if the receiver is inlined, false if a true block + + optimizedMessageNode + - the MessageNode in which the receiver is optimized, if it is optimized. + + remoteTempNode + - if any of the blocks nested into the receiver either modify a temp or access a temp that is modified after the block is created, then this temp is allocated remotely in a remote temp vector that allows the temp's location to be shared between blocks. This is the node that creates the remote temp vector. + + returns + - true if the receiver contains a method return. + + size + - the size of the block's bytecodes if it is generated by embedding its bytecodes within an enclosing CompiledMethod. + + startOfLastStatement + - the index in the source of the start of the last statement in the block. + + statements + - the sequence of statements comprising the receiver + + temporaries + - the sequence of temporaries (including the remoteTempNode if any) of block-local temporaries + + tempsMark + - the index in the source of the last block-local temporary, used to auto-insert temps declared during compilation! - !BlockNode commentStamp: '<historical>' prior: 0! - I represent a bracketed block with 0 or more arguments and 1 or more statements. If I am initialized with no statements, I create one. I have a flag to tell whether my last statement returns a value from the enclosing method. My last three fields remember data needed for code generation. I can emit for value in the usual way, in which case I create a literal method (actually a context remotely copied) to be evaluated by sending it value: at run time. Or I can emit code to be evaluated in line; this only happens at the top level of a method and in conditionals and while-loops, none of which have arguments.! Item was removed: - ----- Method: BlockNode>>closureCreationNode (in category 'accessing') ----- - closureCreationNode - closureCreationNode ifNil: - [closureCreationNode := LeafNode new - key: #closureCreationNode - code: nil]. - ^closureCreationNode! Item was removed: - ----- Method: CompilationCue>>literalScannedAs:notifying: (in category 'binding') ----- - literalScannedAs: anObject notifying: anEncoder - ^ class literalScannedAs: anObject environment: environment notifying: anEncoder! Item was changed: ----- Method: Encoder>>encodeLiteral: (in category 'encoding') ----- encodeLiteral: object - ^self name: object + key: object - key: (cue literalScannedAs: object notifying: self) class: LiteralNode type: LdLitType set: litSet! Item was removed: - ----- Method: EncoderForSistaV1>>generateMethodOfClass:trailer:from: (in category 'method encoding') ----- - generateMethodOfClass: aCompiledMethodClass trailer: trailer from: methodNode - "The receiver is the root of a parse tree. Answer an instance of aCompiledMethodClass. - The argument, trailer, is arbitrary but is typically either the reference to the source code - that is stored with every CompiledMethod, or an encoding of the method's temporary names." - - | primErrNode blkSize nLits locals literals header method stack | - primErrNode := methodNode primitiveErrorVariableName ifNotNil: - [self fixTemp: methodNode primitiveErrorVariableName]. - methodNode ensureClosureAnalysisDone. - self rootNode: methodNode. "this is for BlockNode>>sizeCodeForClosureValue:" - blkSize := (methodNode block sizeCodeForEvaluatedValue: self) - + (methodNode primitive > 0 - ifTrue: [self sizeCallPrimitive: methodNode primitive] - ifFalse: [0]) - + (primErrNode - ifNil: [0] - ifNotNil: - [primErrNode - index: methodNode arguments size + methodNode temporaries size; - sizeCodeForStore: self "The VM relies on storeIntoTemp: (129)"]). - locals := methodNode arguments, methodNode temporaries, (primErrNode ifNil: [#()] ifNotNil: [{primErrNode}]). - self noteBlockExtent: methodNode block blockExtent hasLocals: locals. - header := self computeMethodHeaderForNumArgs: methodNode arguments size - numTemps: locals size - numLits: (nLits := (literals := self allLiterals) size) - primitive: methodNode primitive. - method := trailer - createMethod: blkSize - class: aCompiledMethodClass - header: header. - 1 to: nLits do: [:lit | method literalAt: lit put: (literals at: lit)]. - self streamToMethod: method. - stack := ParseStack new init. - methodNode primitive > 0 ifTrue: - [self genCallPrimitive: methodNode primitive]. - primErrNode ifNotNil: - [primErrNode emitCodeForStore: stack encoder: self]. - stack position: method numTemps. - [methodNode block emitCodeForEvaluatedValue: stack encoder: self] - on: Error "If an attempt is made to write too much code the method will be asked" - do: [:ex| "to grow, and the grow attempt will fail in CompiledMethod class>>#new:" - ex signalerContext sender method = (CompiledMethod class>>#new:) - ifTrue: [^self error: 'Compiler code size discrepancy'] - ifFalse: [ex pass]]. - stack position ~= (method numTemps + 1) ifTrue: - [^self error: 'Compiler stack discrepancy']. - self methodStreamPosition ~= (method size - trailer size) ifTrue: - [^self error: 'Compiler code size discrepancy']. - method needsFrameSize: stack size - method numTemps. - ^method! Item was changed: ----- Method: MethodNode>>schematicTempNamesString (in category 'debugger support') ----- schematicTempNamesString "Answer the temp names for the current method node in a form that captures temp structure. The temps at each method and block scope level occur space-separated, with any indirect temps enclosed in parentheses. Each block level is enclosed in square brackets. e.g. 'method level temps (indirect temp)[block args and temps (indirect)]' This representation can be reconstituted into a blockExtentsToTempsMap by a CompiledMethod that has been copied with the schematicTempNamesString." encoder hasGeneratedMethod ifFalse: + ["create the encoder's blockExtentsToLocals map, except if the method is quick - ["create the encoder's blockExtentsToLoals map, except if the method is quick in which case it has no temps." + self generate isQuick ifTrue: - (self generate) isQuick ifTrue: [^'']]. ^encoder schematicTempNamesString!

1 0

The Inbox: Graphics-cbc.375.mcz
by commits＠source.squeak.org 05 May '17

05 May '17

Chris Cunningham uploaded a new version of Graphics to project The Inbox: http://source.squeak.org/inbox/Graphics-cbc.375.mcz ==================== Summary ==================== Name: Graphics-cbc.375 Author: cbc Time: 5 May 2017, 10:09:55.994065 am UUID: 882b31df-9e3e-234a-8591-d4b2ae912b91 Ancestors: Graphics-nice.374 Factored out remaining pieces of ExternalForm, simplifying Form methods in the process. Minimal support left there, in case you want to use ExternalForm in the future. New location of classes noted in Form comment. =============== Diff against Graphics-nice.374 =============== Item was changed: DisplayMedium subclass: #Form instanceVariableNames: 'bits width height depth offset' classVariableNames: '' poolDictionaries: '' category: 'Graphics-Display Objects'! + !Form commentStamp: 'cbc 5/5/2017 10:07' prior: 0! - !Form commentStamp: 'ls 1/4/2004 17:16' prior: 0! A rectangular array of pixels, used for holding images. All pictures, including character images are Forms. The depth of a Form is how many bits are used to specify the color at each pixel. The actual bits are held in a Bitmap, whose internal structure is different at each depth. Class Color allows you to deal with colors without knowing how they are actually encoded inside a Bitmap. The supported depths (in bits) are 1, 2, 4, 8, 16, and 32. The number of actual colors at these depths are: 2, 4, 16, 256, 32768, and 16 million. Forms are indexed starting at 0 instead of 1; thus, the top-left pixel of a Form has coordinates 0@0. Forms are combined using BitBlt. See the comment in class BitBlt. Forms that repeat many times to fill a large destination are InfiniteForms. colorAt: x@y Returns the abstract Color at this location displayAt: x@y shows this form on the screen displayOn: aMedium at: x@y shows this form in a Window, a Form, or other DisplayMedium fillColor: aColor Set all the pixels to the color. edit launch an editor to change the bits of this form. pixelValueAt: x@y The encoded color. The encoding depends on the depth. + + Note: If you want to hook up other external forms/displayScreens, please look at the (successful) Graphics-External package in http://www.squeaksource.com/Balloon3D.! - ! Item was changed: ----- Method: Form>>balancedPatternFor: (in category 'color mapping') ----- balancedPatternFor: aColor "Return the pixel word for representing the given color on the receiver" + ^aColor balancedPatternForDepth: self depth! - self hasNonStandardPalette - ifTrue:[^self bitPatternFor: aColor] - ifFalse:[^aColor balancedPatternForDepth: self depth]! Item was changed: ----- Method: Form>>bitPatternFor: (in category 'color mapping') ----- bitPatternFor: aColor "Return the pixel word for representing the given color on the receiver" + ^aColor bitPatternForDepth: self depth! - aColor isColor ifFalse:[^aColor bitPatternForDepth: self depth]. - self hasNonStandardPalette - ifTrue:[^Bitmap with: (self pixelWordFor: aColor)] - ifFalse:[^aColor bitPatternForDepth: self depth]! Item was changed: ----- Method: Form>>colormapFromARGB (in category 'color mapping') ----- colormapFromARGB "Return a ColorMap mapping from canonical ARGB space into the receiver. Note: This version is optimized for Squeak forms." | map nBits | - self hasNonStandardPalette - ifTrue:[^ColorMap mappingFromARGB: self rgbaBitMasks]. self depth <= 8 ifTrue:[ map := Color colorMapIfNeededFrom: 32 to: self depth. map size = 512 ifTrue:[nBits := 3]. map size = 4096 ifTrue:[nBits := 4]. map size = 32768 ifTrue:[nBits := 5]. ^ColorMap shifts: (Array with: 3 * nBits - 24 with: 2 * nBits - 16 with: 1 * nBits - 8 with: 0) masks: (Array with: (1 << nBits) - 1 << (24 - nBits) with: (1 << nBits) - 1 << (16 - nBits) with: (1 << nBits) - 1 << (8 - nBits) with: 0) colors: map]. self depth = 16 ifTrue:[ ^ColorMap shifts: #(-9 -6 -3 0) masks: #(16rF80000 16rF800 16rF8 0)]. self depth = 32 ifTrue:[ ^ColorMap shifts: #(0 0 0 0) masks: #(16rFF0000 16rFF00 16rFF 16rFF000000)]. self error:'Bad depth'! Item was changed: ----- Method: Form>>colormapToARGB (in category 'color mapping') ----- colormapToARGB "Return a ColorMap mapping from the receiver into canonical ARGB space." - self hasNonStandardPalette - ifTrue:[^self colormapFromARGB inverseMap]. self depth <= 8 ifTrue:[ ^ColorMap shifts: #(0 0 0 0) masks: #(16rFF0000 16rFF00 16rFF 16rFF000000) colors: (Color colorMapIfNeededFrom: self depth to: 32)]. self depth = 16 ifTrue:[ ^ColorMap shifts: #( 9 6 3 0) masks: #(16r7C00 16r3E0 16r1F 0)]. self depth = 32 ifTrue:[ ^ColorMap shifts: #(0 0 0 0) masks: #(16rFF0000 16rFF00 16rFF 16rFF000000)]. self error:'Bad depth'! Item was removed: - ----- Method: Form>>displayScreen (in category 'accessing') ----- - displayScreen - "Return the display screen the receiver is allocated on. - Forms in general are Squeak internal and not allocated on any particular display." - ^nil! Item was removed: - ----- Method: Form>>isBltAccelerated:for: (in category 'testing') ----- - isBltAccelerated: ruleInteger for: sourceForm - "Return true if the receiver can perform accelerated blts operations by itself" - ^false! Item was removed: - ----- Method: Form>>isExternalForm (in category 'testing') ----- - isExternalForm - ^false! Item was removed: - ----- Method: Form>>isFillAccelerated:for: (in category 'testing') ----- - isFillAccelerated: ruleInteger for: aColor - "Return true if the receiver can perform accelerated fill operations by itself" - ^false! Item was changed: ----- Method: Form>>pixelValueFor: (in category 'color mapping') ----- pixelValueFor: aColor "Return the pixel word for representing the given color on the receiver" + ^aColor pixelValueForDepth: self depth! - self hasNonStandardPalette - ifTrue:[^self colormapFromARGB mapPixel: (aColor pixelValueForDepth: 32)] - ifFalse:[^aColor pixelValueForDepth: self depth]! Item was changed: ----- Method: Form>>pixelWordFor: (in category 'color mapping') ----- pixelWordFor: aColor "Return the pixel word for representing the given color on the receiver" + ^aColor pixelWordForDepth: self depth! - | basicPattern | - self hasNonStandardPalette - ifFalse:[^aColor pixelWordForDepth: self depth]. - basicPattern := self pixelValueFor: aColor. - self depth = 32 - ifTrue:[^basicPattern] - ifFalse:[^aColor pixelWordFor: self depth filledWith: basicPattern]!

1 0

The Inbox: EToys-cbc.299.mcz
by commits＠source.squeak.org 05 May '17

05 May '17

Chris Cunningham uploaded a new version of EToys to project The Inbox: http://source.squeak.org/inbox/EToys-cbc.299.mcz ==================== Summary ==================== Name: EToys-cbc.299 Author: cbc Time: 5 May 2017, 9:58:32.239065 am UUID: b55b1e92-af0e-b14b-b061-78e945c7dff7 Ancestors: EToys-ul.298 Removed Etoys-Squeakland-Graphics-External. Its classes are now in http://www.squeaksource.com/Balloon3D =============== Diff against EToys-ul.298 =============== 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

please delete item on squeaksource
by Vaidotas Didžbalis 05 May '17

05 May '17

Hello, How one can delete version from squeaksource? Please delete CSV-vd.11, I saved it via MC thank you, Vaidotas

4 8

The Trunk: Network-pre.193.mcz
by commits＠source.squeak.org 05 May '17

05 May '17

Patrick Rein uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-pre.193.mcz ==================== Summary ==================== Name: Network-pre.193 Author: pre Time: 5 May 2017, 12:44:37.57778 pm UUID: e87e8e26-f5d5-1a41-a1ca-0667bbf04316 Ancestors: Network-pre.192 Adds an accessor for the messageId field as it is also part of the essential fields similar to to, from and subject =============== Diff against Network-pre.192 =============== Item was added: + ----- Method: MailMessage>>messageId (in category 'access') ----- + messageId + + ^ (self fieldNamed: 'message-id' ifAbsent: [ ^'' ]) mainValue + !

1 0

The Inbox: Multilingual-pre.227.mcz
by commits＠source.squeak.org 04 May '17

04 May '17

A new version of Multilingual was added to project The Inbox: http://source.squeak.org/inbox/Multilingual-pre.227.mcz ==================== Summary ==================== Name: Multilingual-pre.227 Author: pre Time: 4 May 2017, 6:42:28.149322 pm UUID: a165beff-8ebe-0249-b974-77f82a6cca14 Ancestors: Multilingual-pre.226 This commit reiterates the changes on the TextConverter classes: - a change in the representation of the decode table as IntegerArrays. - keeps the Latin1TextConverter around =============== Diff against Multilingual-pre.226 =============== Item was added: + ----- Method: ByteTextConverter class>>createTableFrom: (in category 'class initialization') ----- + createTableFrom: anArray + + ^ anArray asIntegerArray! Item was changed: ----- Method: CP1250TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r20AC -16r001 16r201A -16r001 16r201E 16r2026 16r2020 16r2021 -16r001 16r2030 16r0160 16r2039 16r015A 16r0164 16r017D 16r0179 -16r001 16r2018 16r2019 16r201C 16r201D 16r2022 16r2013 16r2014 -16r001 16r2122 16r0161 16r203A 16r015B 16r0165 16r017E 16r017A 16r00A0 16r02C7 16r02D8 16r0141 16r00A4 16r0104 16r00A6 16r00A7 16r00A8 16r00A9 16r015E 16r00AB 16r00AC 16r00AD 16r00AE 16r017B 16r00B0 16r00B1 16r02DB 16r0142 16r00B4 16r00B5 16r00B6 16r00B7 16r00B8 16r0105 16r015F 16r00BB 16r013D 16r02DD 16r013E 16r017C 16r0154 16r00C1 16r00C2 16r0102 16r00C4 16r0139 16r0106 16r00C7 16r010C 16r00C9 16r0118 16r00CB 16r011A 16r00CD 16r00CE 16r010E 16r0110 16r0143 16r0147 16r00D3 16r00D4 16r0150 16r00D6 16r00D7 16r0158 16r016E 16r00DA 16r0170 16r00DC 16r00DD 16r0162 16r00DF 16r0155 16r00E1 16r00E2 16r0103 16r00E4 16r013A 16r0107 16r00E7 16r010D 16r00E9 16r0119 16r00EB 16r011B 16r00ED 16r00EE 16r010F 16r0111 16r0144 16r0148 16r00F3 16r00F4 16r0151 16r00F6 16r00F7 + 16r0159 16r016F 16r00FA 16r0171 16r00FC 16r00FD 16r0163 16r02D9)).! - 16r0159 16r016F 16r00FA 16r0171 16r00FC 16r00FD 16r0163 16r02D9).! Item was changed: ----- Method: CP1251TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r0402 16r0403 16r201A 16r0453 16r201E 16r2026 16r2020 16r2021 16r20AC 16r2030 16r0409 16r2039 16r040A 16r040C 16r040B 16r040F 16r0452 16r2018 16r2019 16r201C 16r201D 16r2022 16r2013 16r2014 -16r001 16r2122 16r0459 16r203A 16r045A 16r045C 16r045B 16r045F 16r00A0 16r040E 16r045E 16r0408 16r00A4 16r0490 16r00A6 16r00A7 16r0401 16r00A9 16r0404 16r00AB 16r00AC 16r00AD 16r00AE 16r0407 16r00B0 16r00B1 16r0406 16r0456 16r0491 16r00B5 16r00B6 16r00B7 16r0451 16r2116 16r0454 16r00BB 16r0458 16r0405 16r0455 16r0457 16r0410 16r0411 16r0412 16r0413 16r0414 16r0415 16r0416 16r0417 16r0418 16r0419 16r041A 16r041B 16r041C 16r041D 16r041E 16r041F 16r0420 16r0421 16r0422 16r0423 16r0424 16r0425 16r0426 16r0427 16r0428 16r0429 16r042A 16r042B 16r042C 16r042D 16r042E 16r042F 16r0430 16r0431 16r0432 16r0433 16r0434 16r0435 16r0436 16r0437 16r0438 16r0439 16r043A 16r043B 16r043C 16r043D 16r043E 16r043F 16r0440 16r0441 16r0442 16r0443 16r0444 16r0445 16r0446 16r0447 + 16r0448 16r0449 16r044A 16r044B 16r044C 16r044D 16r044E 16r044F)).! - 16r0448 16r0449 16r044A 16r044B 16r044C 16r044D 16r044E 16r044F).! Item was changed: ----- Method: CP1252TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r20AC -16r001 16r201A 16r0192 16r201E 16r2026 16r2020 16r2021 16r02C6 16r2030 16r0160 16r2039 16r0152 -16r001 16r017D -16r001 -16r001 16r2018 16r2019 16r201C 16r201D 16r2022 16r2013 16r2014 16r02DC 16r2122 16r0161 16r203A 16r0153 -16r001 16r017E 16r0178 16r00A0 16r00A1 16r00A2 16r00A3 16r00A4 16r00A5 16r00A6 16r00A7 16r00A8 16r00A9 16r00AA 16r00AB 16r00AC 16r00AD 16r00AE 16r00AF 16r00B0 16r00B1 16r00B2 16r00B3 16r00B4 16r00B5 16r00B6 16r00B7 16r00B8 16r00B9 16r00BA 16r00BB 16r00BC 16r00BD 16r00BE 16r00BF 16r00C0 16r00C1 16r00C2 16r00C3 16r00C4 16r00C5 16r00C6 16r00C7 16r00C8 16r00C9 16r00CA 16r00CB 16r00CC 16r00CD 16r00CE 16r00CF 16r00D0 16r00D1 16r00D2 16r00D3 16r00D4 16r00D5 16r00D6 16r00D7 16r00D8 16r00D9 16r00DA 16r00DB 16r00DC 16r00DD 16r00DE 16r00DF 16r00E0 16r00E1 16r00E2 16r00E3 16r00E4 16r00E5 16r00E6 16r00E7 16r00E8 16r00E9 16r00EA 16r00EB 16r00EC 16r00ED 16r00EE 16r00EF 16r00F0 16r00F1 16r00F2 16r00F3 16r00F4 16r00F5 16r00F6 16r00F7 + 16r00F8 16r00F9 16r00FA 16r00FB 16r00FC 16r00FD 16r00FE 16r00FF)).! - 16r00F8 16r00F9 16r00FA 16r00FB 16r00FC 16r00FD 16r00FE 16r00FF).! Item was changed: ----- Method: CP1253TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r20AC -16r001 16r201A 16r0192 16r201E 16r2026 16r2020 16r2021 -16r001 16r2030 -16r001 16r2039 -16r001 -16r001 -16r001 -16r001 -16r001 16r2018 16r2019 16r201C 16r201D 16r2022 16r2013 16r2014 -16r001 16r2122 -16r001 16r203A -16r001 -16r001 -16r001 -16r001 16r00A0 16r0385 16r0386 16r00A3 16r00A4 16r00A5 16r00A6 16r00A7 16r00A8 16r00A9 -16r001 16r00AB 16r00AC 16r00AD 16r00AE 16r2015 16r00B0 16r00B1 16r00B2 16r00B3 16r0384 16r00B5 16r00B6 16r00B7 16r0388 16r0389 16r038A 16r00BB 16r038C 16r00BD 16r038E 16r038F 16r0390 16r0391 16r0392 16r0393 16r0394 16r0395 16r0396 16r0397 16r0398 16r0399 16r039A 16r039B 16r039C 16r039D 16r039E 16r039F 16r03A0 16r03A1 -16r001 16r03A3 16r03A4 16r03A5 16r03A6 16r03A7 16r03A8 16r03A9 16r03AA 16r03AB 16r03AC 16r03AD 16r03AE 16r03AF 16r03B0 16r03B1 16r03B2 16r03B3 16r03B4 16r03B5 16r03B6 16r03B7 16r03B8 16r03B9 16r03BA 16r03BB 16r03BC 16r03BD 16r03BE 16r03BF 16r03C0 16r03C1 16r03C2 16r03C3 16r03C4 16r03C5 16r03C6 16r03C7 + 16r03C8 16r03C9 16r03CA 16r03CB 16r03CC 16r03CD 16r03CE -16r001)).! - 16r03C8 16r03C9 16r03CA 16r03CB 16r03CC 16r03CD 16r03CE -16r001).! Item was changed: ----- Method: CP1254TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r20AC -16r001 16r201A 16r0192 16r201E 16r2026 16r2020 16r2021 16r02C6 16r2030 16r0160 16r2039 16r0152 -16r001 -16r001 -16r001 -16r001 16r2018 16r2019 16r201C 16r201D 16r2022 16r2013 16r2014 16r02DC 16r2122 16r0161 16r203A 16r0153 -16r001 -16r001 16r0178 16r00A0 16r00A1 16r00A2 16r00A3 16r00A4 16r00A5 16r00A6 16r00A7 16r00A8 16r00A9 16r00AA 16r00AB 16r00AC 16r00AD 16r00AE 16r00AF 16r00B0 16r00B1 16r00B2 16r00B3 16r00B4 16r00B5 16r00B6 16r00B7 16r00B8 16r00B9 16r00BA 16r00BB 16r00BC 16r00BD 16r00BE 16r00BF 16r00C0 16r00C1 16r00C2 16r00C3 16r00C4 16r00C5 16r00C6 16r00C7 16r00C8 16r00C9 16r00CA 16r00CB 16r00CC 16r00CD 16r00CE 16r00CF 16r011E 16r00D1 16r00D2 16r00D3 16r00D4 16r00D5 16r00D6 16r00D7 16r00D8 16r00D9 16r00DA 16r00DB 16r00DC 16r0130 16r015E 16r00DF 16r00E0 16r00E1 16r00E2 16r00E3 16r00E4 16r00E5 16r00E6 16r00E7 16r00E8 16r00E9 16r00EA 16r00EB 16r00EC 16r00ED 16r00EE 16r00EF 16r011F 16r00F1 16r00F2 16r00F3 16r00F4 16r00F5 16r00F6 16r00F7 + 16r00F8 16r00F9 16r00FA 16r00FB 16r00FC 16r0131 16r015F 16r00FF)).! - 16r00F8 16r00F9 16r00FA 16r00FB 16r00FC 16r0131 16r015F 16r00FF).! Item was changed: ----- Method: CP1255TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r20AC -16r001 16r201A 16r0192 16r201E 16r2026 16r2020 16r2021 16r02C6 16r2030 -16r001 16r2039 -16r001 -16r001 -16r001 -16r001 -16r001 16r2018 16r2019 16r201C 16r201D 16r2022 16r2013 16r2014 16r02DC 16r2122 -16r001 16r203A -16r001 -16r001 -16r001 -16r001 16r00A0 16r00A1 16r00A2 16r00A3 16r20AA 16r00A5 16r00A6 16r00A7 16r00A8 16r00A9 16r00D7 16r00AB 16r00AC 16r00AD 16r00AE 16r00AF 16r00B0 16r00B1 16r00B2 16r00B3 16r00B4 16r00B5 16r00B6 16r00B7 16r00B8 16r00B9 16r00F7 16r00BB 16r00BC 16r00BD 16r00BE 16r00BF 16r05B0 16r05B1 16r05B2 16r05B3 16r05B4 16r05B5 16r05B6 16r05B7 16r05B8 16r05B9 -16r001 16r05BB 16r05BC 16r05BD 16r05BE 16r05BF 16r05C0 16r05C1 16r05C2 16r05C3 16r05F0 16r05F1 16r05F2 16r05F3 16r05F4 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 16r05D0 16r05D1 16r05D2 16r05D3 16r05D4 16r05D5 16r05D6 16r05D7 16r05D8 16r05D9 16r05DA 16r05DB 16r05DC 16r05DD 16r05DE 16r05DF 16r05E0 16r05E1 16r05E2 16r05E3 16r05E4 16r05E5 16r05E6 16r05E7 + 16r05E8 16r05E9 16r05EA -16r001 -16r001 16r200E 16r200F -16r001)).! - 16r05E8 16r05E9 16r05EA -16r001 -16r001 16r200E 16r200F -16r001).! Item was changed: ----- Method: CP1256TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r20AC 16r067E 16r201A 16r0192 16r201E 16r2026 16r2020 16r2021 16r02C6 16r2030 16r0679 16r2039 16r0152 16r0686 16r0698 16r0688 16r06AF 16r2018 16r2019 16r201C 16r201D 16r2022 16r2013 16r2014 16r06A9 16r2122 16r0691 16r203A 16r0153 16r200C 16r200D 16r06BA 16r00A0 16r060C 16r00A2 16r00A3 16r00A4 16r00A5 16r00A6 16r00A7 16r00A8 16r00A9 16r06BE 16r00AB 16r00AC 16r00AD 16r00AE 16r00AF 16r00B0 16r00B1 16r00B2 16r00B3 16r00B4 16r00B5 16r00B6 16r00B7 16r00B8 16r00B9 16r061B 16r00BB 16r00BC 16r00BD 16r00BE 16r061F 16r06C1 16r0621 16r0622 16r0623 16r0624 16r0625 16r0626 16r0627 16r0628 16r0629 16r062A 16r062B 16r062C 16r062D 16r062E 16r062F 16r0630 16r0631 16r0632 16r0633 16r0634 16r0635 16r0636 16r00D7 16r0637 16r0638 16r0639 16r063A 16r0640 16r0641 16r0642 16r0643 16r00E0 16r0644 16r00E2 16r0645 16r0646 16r0647 16r0648 16r00E7 16r00E8 16r00E9 16r00EA 16r00EB 16r0649 16r064A 16r00EE 16r00EF 16r064B 16r064C 16r064D 16r064E 16r00F4 16r064F 16r0650 16r00F7 + 16r0651 16r00F9 16r0652 16r00FB 16r00FC 16r200E 16r200F 16r06D2)).! - 16r0651 16r00F9 16r0652 16r00FB 16r00FC 16r200E 16r200F 16r06D2).! Item was changed: ----- Method: CP1257TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r20AC -16r001 16r201A -16r001 16r201E 16r2026 16r2020 16r2021 -16r001 16r2030 -16r001 16r2039 -16r001 16r00A8 16r02C7 16r00B8 -16r001 16r2018 16r2019 16r201C 16r201D 16r2022 16r2013 16r2014 -16r001 16r2122 -16r001 16r203A -16r001 16r00AF 16r02DB -16r001 16r00A0 -16r001 16r00A2 16r00A3 16r00A4 -16r001 16r00A6 16r00A7 16r00D8 16r00A9 16r0156 16r00AB 16r00AC 16r00AD 16r00AE 16r00C6 16r00B0 16r00B1 16r00B2 16r00B3 16r00B4 16r00B5 16r00B6 16r00B7 16r00F8 16r00B9 16r0157 16r00BB 16r00BC 16r00BD 16r00BE 16r00E6 16r0104 16r012E 16r0100 16r0106 16r00C4 16r00C5 16r0118 16r0112 16r010C 16r00C9 16r0179 16r0116 16r0122 16r0136 16r012A 16r013B 16r0160 16r0143 16r0145 16r00D3 16r014C 16r00D5 16r00D6 16r00D7 16r0172 16r0141 16r015A 16r016A 16r00DC 16r017B 16r017D 16r00DF 16r0105 16r012F 16r0101 16r0107 16r00E4 16r00E5 16r0119 16r0113 16r010D 16r00E9 16r017A 16r0117 16r0123 16r0137 16r012B 16r013C 16r0161 16r0144 16r0146 16r00F3 16r014D 16r00F5 16r00F6 16r00F7 + 16r0173 16r0142 16r015B 16r016B 16r00FC 16r017C 16r017E 16r02D9)).! - 16r0173 16r0142 16r015B 16r016B 16r00FC 16r017C 16r017E 16r02D9).! Item was changed: ----- Method: CP1258TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r20AC -16r001 16r201A 16r0192 16r201E 16r2026 16r2020 16r2021 16r02C6 16r2030 -16r001 16r2039 16r0152 -16r001 -16r001 -16r001 -16r001 16r2018 16r2019 16r201C 16r201D 16r2022 16r2013 16r2014 16r02DC 16r2122 -16r001 16r203A 16r0153 -16r001 -16r001 16r0178 16r00A0 16r00A1 16r00A2 16r00A3 16r00A4 16r00A5 16r00A6 16r00A7 16r00A8 16r00A9 16r00AA 16r00AB 16r00AC 16r00AD 16r00AE 16r00AF 16r00B0 16r00B1 16r00B2 16r00B3 16r00B4 16r00B5 16r00B6 16r00B7 16r00B8 16r00B9 16r00BA 16r00BB 16r00BC 16r00BD 16r00BE 16r00BF 16r00C0 16r00C1 16r00C2 16r0102 16r00C4 16r00C5 16r00C6 16r00C7 16r00C8 16r00C9 16r00CA 16r00CB 16r0300 16r00CD 16r00CE 16r00CF 16r0110 16r00D1 16r0309 16r00D3 16r00D4 16r01A0 16r00D6 16r00D7 16r00D8 16r00D9 16r00DA 16r00DB 16r00DC 16r01AF 16r0303 16r00DF 16r00E0 16r00E1 16r00E2 16r0103 16r00E4 16r00E5 16r00E6 16r00E7 16r00E8 16r00E9 16r00EA 16r00EB 16r0301 16r00ED 16r00EE 16r00EF 16r0111 16r00F1 16r0323 16r00F3 16r00F4 16r01A1 16r00F6 16r00F7 + 16r00F8 16r00F9 16r00FA 16r00FB 16r00FC 16r01B0 16r20AB 16r00FF)).! - 16r00F8 16r00F9 16r00FA 16r00FB 16r00FC 16r01B0 16r20AB 16r00FF).! Item was changed: ----- Method: CP874TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r20AC -16r001 -16r001 -16r001 -16r001 16r2026 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 16r2018 16r2019 16r201C 16r201D 16r2022 16r2013 16r2014 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 16r00A0 16r0E01 16r0E02 16r0E03 16r0E04 16r0E05 16r0E06 16r0E07 16r0E08 16r0E09 16r0E0A 16r0E0B 16r0E0C 16r0E0D 16r0E0E 16r0E0F 16r0E10 16r0E11 16r0E12 16r0E13 16r0E14 16r0E15 16r0E16 16r0E17 16r0E18 16r0E19 16r0E1A 16r0E1B 16r0E1C 16r0E1D 16r0E1E 16r0E1F 16r0E20 16r0E21 16r0E22 16r0E23 16r0E24 16r0E25 16r0E26 16r0E27 16r0E28 16r0E29 16r0E2A 16r0E2B 16r0E2C 16r0E2D 16r0E2E 16r0E2F 16r0E30 16r0E31 16r0E32 16r0E33 16r0E34 16r0E35 16r0E36 16r0E37 16r0E38 16r0E39 16r0E3A -16r001 -16r001 -16r001 -16r001 16r0E3F 16r0E40 16r0E41 16r0E42 16r0E43 16r0E44 16r0E45 16r0E46 16r0E47 16r0E48 16r0E49 16r0E4A 16r0E4B 16r0E4C 16r0E4D 16r0E4E 16r0E4F 16r0E50 16r0E51 16r0E52 16r0E53 16r0E54 16r0E55 16r0E56 16r0E57 + 16r0E58 16r0E59 16r0E5A 16r0E5B -16r001 -16r001 -16r001 -16r001)).! - 16r0E58 16r0E59 16r0E5A 16r0E5B -16r001 -16r001 -16r001 -16r001).! Item was changed: ----- Method: ISO885910TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r0080 16r0081 16r0082 16r0083 16r0084 16r0085 16r0086 16r0087 16r0088 16r0089 16r008A 16r008B 16r008C 16r008D 16r008E 16r008F 16r0090 16r0091 16r0092 16r0093 16r0094 16r0095 16r0096 16r0097 16r0098 16r0099 16r009A 16r009B 16r009C 16r009D 16r009E 16r009F 16r00A0 16r0104 16r0112 16r0122 16r012A 16r0128 16r0136 16r00A7 16r013B 16r0110 16r0160 16r0166 16r017D 16r00AD 16r016A 16r014A 16r00B0 16r0105 16r0113 16r0123 16r012B 16r0129 16r0137 16r00B7 16r013C 16r0111 16r0161 16r0167 16r017E 16r2015 16r016B 16r014B 16r0100 16r00C1 16r00C2 16r00C3 16r00C4 16r00C5 16r00C6 16r012E 16r010C 16r00C9 16r0118 16r00CB 16r0116 16r00CD 16r00CE 16r00CF 16r00D0 16r0145 16r014C 16r00D3 16r00D4 16r00D5 16r00D6 16r0168 16r00D8 16r0172 16r00DA 16r00DB 16r00DC 16r00DD 16r00DE 16r00DF 16r0101 16r00E1 16r00E2 16r00E3 16r00E4 16r00E5 16r00E6 16r012F 16r010D 16r00E9 16r0119 16r00EB 16r0117 16r00ED 16r00EE 16r00EF 16r00F0 16r0146 16r014D 16r00F3 16r00F4 16r00F5 16r00F6 16r0169 + 16r00F8 16r0173 16r00FA 16r00FB 16r00FC 16r00FD 16r00FE 16r0138)).! - 16r00F8 16r0173 16r00FA 16r00FB 16r00FC 16r00FD 16r00FE 16r0138).! Item was changed: ----- Method: ISO885911TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r0080 16r0081 16r0082 16r0083 16r0084 16r0085 16r0086 16r0087 16r0088 16r0089 16r008A 16r008B 16r008C 16r008D 16r008E 16r008F 16r0090 16r0091 16r0092 16r0093 16r0094 16r0095 16r0096 16r0097 16r0098 16r0099 16r009A 16r009B 16r009C 16r009D 16r009E 16r009F 16r00A0 16r0E01 16r0E02 16r0E03 16r0E04 16r0E05 16r0E06 16r0E07 16r0E08 16r0E09 16r0E0A 16r0E0B 16r0E0C 16r0E0D 16r0E0E 16r0E0F 16r0E10 16r0E11 16r0E12 16r0E13 16r0E14 16r0E15 16r0E16 16r0E17 16r0E18 16r0E19 16r0E1A 16r0E1B 16r0E1C 16r0E1D 16r0E1E 16r0E1F 16r0E20 16r0E21 16r0E22 16r0E23 16r0E24 16r0E25 16r0E26 16r0E27 16r0E28 16r0E29 16r0E2A 16r0E2B 16r0E2C 16r0E2D 16r0E2E 16r0E2F 16r0E30 16r0E31 16r0E32 16r0E33 16r0E34 16r0E35 16r0E36 16r0E37 16r0E38 16r0E39 16r0E3A -16r001 -16r001 -16r001 -16r001 16r0E3F 16r0E40 16r0E41 16r0E42 16r0E43 16r0E44 16r0E45 16r0E46 16r0E47 16r0E48 16r0E49 16r0E4A 16r0E4B 16r0E4C 16r0E4D 16r0E4E 16r0E4F 16r0E50 16r0E51 16r0E52 16r0E53 16r0E54 16r0E55 16r0E56 16r0E57 + 16r0E58 16r0E59 16r0E5A 16r0E5B -16r001 -16r001 -16r001 -16r001)).! - 16r0E58 16r0E59 16r0E5A 16r0E5B -16r001 -16r001 -16r001 -16r001).! Item was changed: ----- Method: ISO885913TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r0080 16r0081 16r0082 16r0083 16r0084 16r0085 16r0086 16r0087 16r0088 16r0089 16r008A 16r008B 16r008C 16r008D 16r008E 16r008F 16r0090 16r0091 16r0092 16r0093 16r0094 16r0095 16r0096 16r0097 16r0098 16r0099 16r009A 16r009B 16r009C 16r009D 16r009E 16r009F 16r00A0 16r201D 16r00A2 16r00A3 16r00A4 16r201E 16r00A6 16r00A7 16r00D8 16r00A9 16r0156 16r00AB 16r00AC 16r00AD 16r00AE 16r00C6 16r00B0 16r00B1 16r00B2 16r00B3 16r201C 16r00B5 16r00B6 16r00B7 16r00F8 16r00B9 16r0157 16r00BB 16r00BC 16r00BD 16r00BE 16r00E6 16r0104 16r012E 16r0100 16r0106 16r00C4 16r00C5 16r0118 16r0112 16r010C 16r00C9 16r0179 16r0116 16r0122 16r0136 16r012A 16r013B 16r0160 16r0143 16r0145 16r00D3 16r014C 16r00D5 16r00D6 16r00D7 16r0172 16r0141 16r015A 16r016A 16r00DC 16r017B 16r017D 16r00DF 16r0105 16r012F 16r0101 16r0107 16r00E4 16r00E5 16r0119 16r0113 16r010D 16r00E9 16r017A 16r0117 16r0123 16r0137 16r012B 16r013C 16r0161 16r0144 16r0146 16r00F3 16r014D 16r00F5 16r00F6 16r00F7 + 16r0173 16r0142 16r015B 16r016B 16r00FC 16r017C 16r017E 16r2019)).! - 16r0173 16r0142 16r015B 16r016B 16r00FC 16r017C 16r017E 16r2019).! Item was changed: ----- Method: ISO885914TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r0080 16r0081 16r0082 16r0083 16r0084 16r0085 16r0086 16r0087 16r0088 16r0089 16r008A 16r008B 16r008C 16r008D 16r008E 16r008F 16r0090 16r0091 16r0092 16r0093 16r0094 16r0095 16r0096 16r0097 16r0098 16r0099 16r009A 16r009B 16r009C 16r009D 16r009E 16r009F 16r00A0 16r1E02 16r1E03 16r00A3 16r010A 16r010B 16r1E0A 16r00A7 16r1E80 16r00A9 16r1E82 16r1E0B 16r1EF2 16r00AD 16r00AE 16r0178 16r1E1E 16r1E1F 16r0120 16r0121 16r1E40 16r1E41 16r00B6 16r1E56 16r1E81 16r1E57 16r1E83 16r1E60 16r1EF3 16r1E84 16r1E85 16r1E61 16r00C0 16r00C1 16r00C2 16r00C3 16r00C4 16r00C5 16r00C6 16r00C7 16r00C8 16r00C9 16r00CA 16r00CB 16r00CC 16r00CD 16r00CE 16r00CF 16r0174 16r00D1 16r00D2 16r00D3 16r00D4 16r00D5 16r00D6 16r1E6A 16r00D8 16r00D9 16r00DA 16r00DB 16r00DC 16r00DD 16r0176 16r00DF 16r00E0 16r00E1 16r00E2 16r00E3 16r00E4 16r00E5 16r00E6 16r00E7 16r00E8 16r00E9 16r00EA 16r00EB 16r00EC 16r00ED 16r00EE 16r00EF 16r0175 16r00F1 16r00F2 16r00F3 16r00F4 16r00F5 16r00F6 16r1E6B + 16r00F8 16r00F9 16r00FA 16r00FB 16r00FC 16r00FD 16r0177 16r00FF)).! - 16r00F8 16r00F9 16r00FA 16r00FB 16r00FC 16r00FD 16r0177 16r00FF).! Item was changed: ----- Method: ISO885915TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r0080 16r0081 16r0082 16r0083 16r0084 16r0085 16r0086 16r0087 16r0088 16r0089 16r008A 16r008B 16r008C 16r008D 16r008E 16r008F 16r0090 16r0091 16r0092 16r0093 16r0094 16r0095 16r0096 16r0097 16r0098 16r0099 16r009A 16r009B 16r009C 16r009D 16r009E 16r009F 16r00A0 16r00A1 16r00A2 16r00A3 16r20AC 16r00A5 16r0160 16r00A7 16r0161 16r00A9 16r00AA 16r00AB 16r00AC 16r00AD 16r00AE 16r00AF 16r00B0 16r00B1 16r00B2 16r00B3 16r017D 16r00B5 16r00B6 16r00B7 16r017E 16r00B9 16r00BA 16r00BB 16r0152 16r0153 16r0178 16r00BF 16r00C0 16r00C1 16r00C2 16r00C3 16r00C4 16r00C5 16r00C6 16r00C7 16r00C8 16r00C9 16r00CA 16r00CB 16r00CC 16r00CD 16r00CE 16r00CF 16r00D0 16r00D1 16r00D2 16r00D3 16r00D4 16r00D5 16r00D6 16r00D7 16r00D8 16r00D9 16r00DA 16r00DB 16r00DC 16r00DD 16r00DE 16r00DF 16r00E0 16r00E1 16r00E2 16r00E3 16r00E4 16r00E5 16r00E6 16r00E7 16r00E8 16r00E9 16r00EA 16r00EB 16r00EC 16r00ED 16r00EE 16r00EF 16r00F0 16r00F1 16r00F2 16r00F3 16r00F4 16r00F5 16r00F6 16r00F7 + 16r00F8 16r00F9 16r00FA 16r00FB 16r00FC 16r00FD 16r00FE 16r00FF)).! - 16r00F8 16r00F9 16r00FA 16r00FB 16r00FC 16r00FD 16r00FE 16r00FF).! Item was changed: ----- Method: ISO885916TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r0080 16r0081 16r0082 16r0083 16r0084 16r0085 16r0086 16r0087 16r0088 16r0089 16r008A 16r008B 16r008C 16r008D 16r008E 16r008F 16r0090 16r0091 16r0092 16r0093 16r0094 16r0095 16r0096 16r0097 16r0098 16r0099 16r009A 16r009B 16r009C 16r009D 16r009E 16r009F 16r00A0 16r0104 16r0105 16r0141 16r20AC 16r201E 16r0160 16r00A7 16r0161 16r00A9 16r0218 16r00AB 16r0179 16r00AD 16r017A 16r017B 16r00B0 16r00B1 16r010C 16r0142 16r017D 16r201D 16r00B6 16r00B7 16r017E 16r010D 16r0219 16r00BB 16r0152 16r0153 16r0178 16r017C 16r00C0 16r00C1 16r00C2 16r0102 16r00C4 16r0106 16r00C6 16r00C7 16r00C8 16r00C9 16r00CA 16r00CB 16r00CC 16r00CD 16r00CE 16r00CF 16r0110 16r0143 16r00D2 16r00D3 16r00D4 16r0150 16r00D6 16r015A 16r0170 16r00D9 16r00DA 16r00DB 16r00DC 16r0118 16r021A 16r00DF 16r00E0 16r00E1 16r00E2 16r0103 16r00E4 16r0107 16r00E6 16r00E7 16r00E8 16r00E9 16r00EA 16r00EB 16r00EC 16r00ED 16r00EE 16r00EF 16r0111 16r0144 16r00F2 16r00F3 16r00F4 16r0151 16r00F6 16r015B + 16r0171 16r00F9 16r00FA 16r00FB 16r00FC 16r0119 16r021B 16r00FF)).! - 16r0171 16r00F9 16r00FA 16r00FB 16r00FC 16r0119 16r021B 16r00FF).! Item was changed: ----- Method: ISO88591TextConverter class>>encodingNames (in category 'utilities') ----- encodingNames + ^ #('latin-1' 'latin1' 'iso-8859-1' 'us-ascii') copy. - ^ #('latin-1' 'latin1' 'iso-8859-1') copy. ! Item was changed: ----- Method: ISO88591TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable + decodeTable := (0 to: 255) asIntegerArray! - decodeTable := (0 to: 255) asArray! Item was changed: ----- Method: ISO88592TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r0080 16r0081 16r0082 16r0083 16r0084 16r0085 16r0086 16r0087 16r0088 16r0089 16r008A 16r008B 16r008C 16r008D 16r008E 16r008F 16r0090 16r0091 16r0092 16r0093 16r0094 16r0095 16r0096 16r0097 16r0098 16r0099 16r009A 16r009B 16r009C 16r009D 16r009E 16r009F 16r00A0 16r0104 16r02D8 16r0141 16r00A4 16r013D 16r015A 16r00A7 16r00A8 16r0160 16r015E 16r0164 16r0179 16r00AD 16r017D 16r017B 16r00B0 16r0105 16r02DB 16r0142 16r00B4 16r013E 16r015B 16r02C7 16r00B8 16r0161 16r015F 16r0165 16r017A 16r02DD 16r017E 16r017C 16r0154 16r00C1 16r00C2 16r0102 16r00C4 16r0139 16r0106 16r00C7 16r010C 16r00C9 16r0118 16r00CB 16r011A 16r00CD 16r00CE 16r010E 16r0110 16r0143 16r0147 16r00D3 16r00D4 16r0150 16r00D6 16r00D7 16r0158 16r016E 16r00DA 16r0170 16r00DC 16r00DD 16r0162 16r00DF 16r0155 16r00E1 16r00E2 16r0103 16r00E4 16r013A 16r0107 16r00E7 16r010D 16r00E9 16r0119 16r00EB 16r011B 16r00ED 16r00EE 16r010F 16r0111 16r0144 16r0148 16r00F3 16r00F4 16r0151 16r00F6 16r00F7 + 16r0159 16r016F 16r00FA 16r0171 16r00FC 16r00FD 16r0163 16r02D9))! - 16r0159 16r016F 16r00FA 16r0171 16r00FC 16r00FD 16r0163 16r02D9).! Item was changed: ----- Method: ISO88593TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r0080 16r0081 16r0082 16r0083 16r0084 16r0085 16r0086 16r0087 16r0088 16r0089 16r008A 16r008B 16r008C 16r008D 16r008E 16r008F 16r0090 16r0091 16r0092 16r0093 16r0094 16r0095 16r0096 16r0097 16r0098 16r0099 16r009A 16r009B 16r009C 16r009D 16r009E 16r009F 16r00A0 16r0126 16r02D8 16r00A3 16r00A4 -16r001 16r0124 16r00A7 16r00A8 16r0130 16r015E 16r011E 16r0134 16r00AD -16r001 16r017B 16r00B0 16r0127 16r00B2 16r00B3 16r00B4 16r00B5 16r0125 16r00B7 16r00B8 16r0131 16r015F 16r011F 16r0135 16r00BD -16r001 16r017C 16r00C0 16r00C1 16r00C2 -16r001 16r00C4 16r010A 16r0108 16r00C7 16r00C8 16r00C9 16r00CA 16r00CB 16r00CC 16r00CD 16r00CE 16r00CF -16r001 16r00D1 16r00D2 16r00D3 16r00D4 16r0120 16r00D6 16r00D7 16r011C 16r00D9 16r00DA 16r00DB 16r00DC 16r016C 16r015C 16r00DF 16r00E0 16r00E1 16r00E2 -16r001 16r00E4 16r010B 16r0109 16r00E7 16r00E8 16r00E9 16r00EA 16r00EB 16r00EC 16r00ED 16r00EE 16r00EF -16r001 16r00F1 16r00F2 16r00F3 16r00F4 16r0121 16r00F6 16r00F7 + 16r011D 16r00F9 16r00FA 16r00FB 16r00FC 16r016D 16r015D 16r02D9)).! - 16r011D 16r00F9 16r00FA 16r00FB 16r00FC 16r016D 16r015D 16r02D9).! Item was changed: ----- Method: ISO88594TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r0080 16r0081 16r0082 16r0083 16r0084 16r0085 16r0086 16r0087 16r0088 16r0089 16r008A 16r008B 16r008C 16r008D 16r008E 16r008F 16r0090 16r0091 16r0092 16r0093 16r0094 16r0095 16r0096 16r0097 16r0098 16r0099 16r009A 16r009B 16r009C 16r009D 16r009E 16r009F 16r00A0 16r0104 16r0138 16r0156 16r00A4 16r0128 16r013B 16r00A7 16r00A8 16r0160 16r0112 16r0122 16r0166 16r00AD 16r017D 16r00AF 16r00B0 16r0105 16r02DB 16r0157 16r00B4 16r0129 16r013C 16r02C7 16r00B8 16r0161 16r0113 16r0123 16r0167 16r014A 16r017E 16r014B 16r0100 16r00C1 16r00C2 16r00C3 16r00C4 16r00C5 16r00C6 16r012E 16r010C 16r00C9 16r0118 16r00CB 16r0116 16r00CD 16r00CE 16r012A 16r0110 16r0145 16r014C 16r0136 16r00D4 16r00D5 16r00D6 16r00D7 16r00D8 16r0172 16r00DA 16r00DB 16r00DC 16r0168 16r016A 16r00DF 16r0101 16r00E1 16r00E2 16r00E3 16r00E4 16r00E5 16r00E6 16r012F 16r010D 16r00E9 16r0119 16r00EB 16r0117 16r00ED 16r00EE 16r012B 16r0111 16r0146 16r014D 16r0137 16r00F4 16r00F5 16r00F6 16r00F7 + 16r00F8 16r0173 16r00FA 16r00FB 16r00FC 16r0169 16r016B 16r02D9)).! - 16r00F8 16r0173 16r00FA 16r00FB 16r00FC 16r0169 16r016B 16r02D9).! Item was changed: ----- Method: ISO88595TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r0080 16r0081 16r0082 16r0083 16r0084 16r0085 16r0086 16r0087 16r0088 16r0089 16r008A 16r008B 16r008C 16r008D 16r008E 16r008F 16r0090 16r0091 16r0092 16r0093 16r0094 16r0095 16r0096 16r0097 16r0098 16r0099 16r009A 16r009B 16r009C 16r009D 16r009E 16r009F 16r00A0 16r0401 16r0402 16r0403 16r0404 16r0405 16r0406 16r0407 16r0408 16r0409 16r040A 16r040B 16r040C 16r00AD 16r040E 16r040F 16r0410 16r0411 16r0412 16r0413 16r0414 16r0415 16r0416 16r0417 16r0418 16r0419 16r041A 16r041B 16r041C 16r041D 16r041E 16r041F 16r0420 16r0421 16r0422 16r0423 16r0424 16r0425 16r0426 16r0427 16r0428 16r0429 16r042A 16r042B 16r042C 16r042D 16r042E 16r042F 16r0430 16r0431 16r0432 16r0433 16r0434 16r0435 16r0436 16r0437 16r0438 16r0439 16r043A 16r043B 16r043C 16r043D 16r043E 16r043F 16r0440 16r0441 16r0442 16r0443 16r0444 16r0445 16r0446 16r0447 16r0448 16r0449 16r044A 16r044B 16r044C 16r044D 16r044E 16r044F 16r2116 16r0451 16r0452 16r0453 16r0454 16r0455 16r0456 16r0457 + 16r0458 16r0459 16r045A 16r045B 16r045C 16r00A7 16r045E 16r045F)).! - 16r0458 16r0459 16r045A 16r045B 16r045C 16r00A7 16r045E 16r045F).! Item was changed: ----- Method: ISO88596TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r0080 16r0081 16r0082 16r0083 16r0084 16r0085 16r0086 16r0087 16r0088 16r0089 16r008A 16r008B 16r008C 16r008D 16r008E 16r008F 16r0090 16r0091 16r0092 16r0093 16r0094 16r0095 16r0096 16r0097 16r0098 16r0099 16r009A 16r009B 16r009C 16r009D 16r009E 16r009F 16r00A0 -16r001 -16r001 -16r001 16r00A4 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 16r060C 16r00AD -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 16r061B -16r001 -16r001 -16r001 16r061F -16r001 16r0621 16r0622 16r0623 16r0624 16r0625 16r0626 16r0627 16r0628 16r0629 16r062A 16r062B 16r062C 16r062D 16r062E 16r062F 16r0630 16r0631 16r0632 16r0633 16r0634 16r0635 16r0636 16r0637 16r0638 16r0639 16r063A -16r001 -16r001 -16r001 -16r001 -16r001 16r0640 16r0641 16r0642 16r0643 16r0644 16r0645 16r0646 16r0647 16r0648 16r0649 16r064A 16r064B 16r064C 16r064D 16r064E 16r064F 16r0650 16r0651 16r0652 -16r001 -16r001 -16r001 -16r001 -16r001 + -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001)).! - -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001).! Item was changed: ----- Method: ISO88597TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r0080 16r0081 16r0082 16r0083 16r0084 16r0085 16r0086 16r0087 16r0088 16r0089 16r008A 16r008B 16r008C 16r008D 16r008E 16r008F 16r0090 16r0091 16r0092 16r0093 16r0094 16r0095 16r0096 16r0097 16r0098 16r0099 16r009A 16r009B 16r009C 16r009D 16r009E 16r009F 16r00A0 16r2018 16r2019 16r00A3 16r20AC 16r20AF 16r00A6 16r00A7 16r00A8 16r00A9 16r037A 16r00AB 16r00AC 16r00AD -16r001 16r2015 16r00B0 16r00B1 16r00B2 16r00B3 16r0384 16r0385 16r0386 16r00B7 16r0388 16r0389 16r038A 16r00BB 16r038C 16r00BD 16r038E 16r038F 16r0390 16r0391 16r0392 16r0393 16r0394 16r0395 16r0396 16r0397 16r0398 16r0399 16r039A 16r039B 16r039C 16r039D 16r039E 16r039F 16r03A0 16r03A1 -16r001 16r03A3 16r03A4 16r03A5 16r03A6 16r03A7 16r03A8 16r03A9 16r03AA 16r03AB 16r03AC 16r03AD 16r03AE 16r03AF 16r03B0 16r03B1 16r03B2 16r03B3 16r03B4 16r03B5 16r03B6 16r03B7 16r03B8 16r03B9 16r03BA 16r03BB 16r03BC 16r03BD 16r03BE 16r03BF 16r03C0 16r03C1 16r03C2 16r03C3 16r03C4 16r03C5 16r03C6 16r03C7 + 16r03C8 16r03C9 16r03CA 16r03CB 16r03CC 16r03CD 16r03CE -16r001)).! - 16r03C8 16r03C9 16r03CA 16r03CB 16r03CC 16r03CD 16r03CE -16r001).! Item was changed: ----- Method: ISO88598TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r0080 16r0081 16r0082 16r0083 16r0084 16r0085 16r0086 16r0087 16r0088 16r0089 16r008A 16r008B 16r008C 16r008D 16r008E 16r008F 16r0090 16r0091 16r0092 16r0093 16r0094 16r0095 16r0096 16r0097 16r0098 16r0099 16r009A 16r009B 16r009C 16r009D 16r009E 16r009F 16r00A0 -16r001 16r00A2 16r00A3 16r00A4 16r00A5 16r00A6 16r00A7 16r00A8 16r00A9 16r00D7 16r00AB 16r00AC 16r00AD 16r00AE 16r00AF 16r00B0 16r00B1 16r00B2 16r00B3 16r00B4 16r00B5 16r00B6 16r00B7 16r00B8 16r00B9 16r00F7 16r00BB 16r00BC 16r00BD 16r00BE -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 16r2017 16r05D0 16r05D1 16r05D2 16r05D3 16r05D4 16r05D5 16r05D6 16r05D7 16r05D8 16r05D9 16r05DA 16r05DB 16r05DC 16r05DD 16r05DE 16r05DF 16r05E0 16r05E1 16r05E2 16r05E3 16r05E4 16r05E5 16r05E6 16r05E7 + 16r05E8 16r05E9 16r05EA -16r001 -16r001 16r200E 16r200F -16r001)).! - 16r05E8 16r05E9 16r05EA -16r001 -16r001 16r200E 16r200F -16r001).! Item was changed: ----- Method: ISO88599TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r0080 16r0081 16r0082 16r0083 16r0084 16r0085 16r0086 16r0087 16r0088 16r0089 16r008A 16r008B 16r008C 16r008D 16r008E 16r008F 16r0090 16r0091 16r0092 16r0093 16r0094 16r0095 16r0096 16r0097 16r0098 16r0099 16r009A 16r009B 16r009C 16r009D 16r009E 16r009F 16r00A0 16r00A1 16r00A2 16r00A3 16r00A4 16r00A5 16r00A6 16r00A7 16r00A8 16r00A9 16r00AA 16r00AB 16r00AC 16r00AD 16r00AE 16r00AF 16r00B0 16r00B1 16r00B2 16r00B3 16r00B4 16r00B5 16r00B6 16r00B7 16r00B8 16r00B9 16r00BA 16r00BB 16r00BC 16r00BD 16r00BE 16r00BF 16r00C0 16r00C1 16r00C2 16r00C3 16r00C4 16r00C5 16r00C6 16r00C7 16r00C8 16r00C9 16r00CA 16r00CB 16r00CC 16r00CD 16r00CE 16r00CF 16r011E 16r00D1 16r00D2 16r00D3 16r00D4 16r00D5 16r00D6 16r00D7 16r00D8 16r00D9 16r00DA 16r00DB 16r00DC 16r0130 16r015E 16r00DF 16r00E0 16r00E1 16r00E2 16r00E3 16r00E4 16r00E5 16r00E6 16r00E7 16r00E8 16r00E9 16r00EA 16r00EB 16r00EC 16r00ED 16r00EE 16r00EF 16r011F 16r00F1 16r00F2 16r00F3 16r00F4 16r00F5 16r00F6 16r00F7 + 16r00F8 16r00F9 16r00FA 16r00FB 16r00FC 16r0131 16r015F 16r00FF)).! - 16r00F8 16r00F9 16r00FA 16r00FB 16r00FC 16r0131 16r015F 16r00FF).! Item was added: + ISO88591TextConverter subclass: #Latin1TextConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! Item was added: + ISO885915TextConverter subclass: #Latin9TextConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! Item was changed: ----- Method: MacCyrillicTextConverter class>>encodingNames (in category 'utilities') ----- encodingNames + ^ #('maccyrillic' 'mac-cyrillic') copy! - ^ #('maccyrillic') copy! Item was changed: ----- Method: MacCyrillicTextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r0410 16r0411 16r0412 16r0413 16r0414 16r0415 16r0416 16r0417 16r0418 16r0419 16r041A 16r041B 16r041C 16r041D 16r041E 16r041F 16r0420 16r0421 16r0422 16r0423 16r0424 16r0425 16r0426 16r0427 16r0428 16r0429 16r042A 16r042B 16r042C 16r042D 16r042E 16r042F 16r2020 16r00B0 16r00A2 16r00A3 16r00A7 16r2022 16r00B6 16r0406 16r00AE 16r00A9 16r2122 16r0402 16r0452 16r2260 16r0403 16r0453 16r221E 16r00B1 16r2264 16r2265 16r0456 16r00B5 16r2202 16r0408 16r0404 16r0454 16r0407 16r0457 16r0409 16r0459 16r040A 16r045A 16r0458 16r0405 16r00AC 16r221A 16r0192 16r2248 16r2206 16r00AB 16r00BB 16r2026 16r00A0 16r040B 16r045B 16r040C 16r045C 16r0455 16r2013 16r2014 16r201C 16r201D 16r2018 16r2019 16r00F7 16r201E 16r040E 16r045E 16r040F 16r045F 16r2116 16r0401 16r0451 16r044F 16r0430 16r0431 16r0432 16r0433 16r0434 16r0435 16r0436 16r0437 16r0438 16r0439 16r043A 16r043B 16r043C 16r043D 16r043E 16r043F 16r0440 16r0441 16r0442 16r0443 16r0444 16r0445 16r0446 16r0447 + 16r0448 16r0449 16r044A 16r044B 16r044C 16r044D 16r044E 16r00A4)).! - 16r0448 16r0449 16r044A 16r044B 16r044C 16r044D 16r044E 16r00A4).! Item was changed: ----- Method: MacGreekTextConverter class>>encodingNames (in category 'utilities') ----- encodingNames + ^ #('macgreek' 'mac-greek') copy! - ^ #('macgreek') copy! Item was changed: ----- Method: MacGreekTextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r00C4 16r00B9 16r00B2 16r00C9 16r00B3 16r00D6 16r00DC 16r0385 16r00E0 16r00E2 16r00E4 16r0384 16r00A8 16r00E7 16r00E9 16r00E8 16r00EA 16r00EB 16r00A3 16r2122 16r00EE 16r00EF 16r2022 16r00BD 16r2030 16r00F4 16r00F6 16r00A6 16r00AD 16r00F9 16r00FB 16r00FC 16r2020 16r0393 16r0394 16r0398 16r039B 16r039E 16r03A0 16r00DF 16r00AE 16r00A9 16r03A3 16r03AA 16r00A7 16r2260 16r00B0 16r0387 16r0391 16r00B1 16r2264 16r2265 16r00A5 16r0392 16r0395 16r0396 16r0397 16r0399 16r039A 16r039C 16r03A6 16r03AB 16r03A8 16r03A9 16r03AC 16r039D 16r00AC 16r039F 16r03A1 16r2248 16r03A4 16r00AB 16r00BB 16r2026 16r00A0 16r03A5 16r03A7 16r0386 16r0388 16r0153 16r2013 16r2015 16r201C 16r201D 16r2018 16r2019 16r00F7 16r0389 16r038A 16r038C 16r038E 16r03AD 16r03AE 16r03AF 16r03CC 16r038F 16r03CD 16r03B1 16r03B2 16r03C8 16r03B4 16r03B5 16r03C6 16r03B3 16r03B7 16r03B9 16r03BE 16r03BA 16r03BB 16r03BC 16r03BD 16r03BF 16r03C0 16r03CE 16r03C1 16r03C3 16r03C4 16r03B8 16r03C9 16r03C2 + 16r03C7 16r03C5 16r03B6 16r03CA 16r03CB 16r0390 16r03B0 -16r001)).! - 16r03C7 16r03C5 16r03B6 16r03CA 16r03CB 16r0390 16r03B0 -16r001).! Item was changed: ----- Method: MacIcelandTextConverter class>>encodingNames (in category 'utilities') ----- encodingNames + ^ #('maciceland' 'mac-iceland') copy! - ^ #('maciceland') copy! Item was changed: ----- Method: MacIcelandTextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r00C4 16r00C5 16r00C7 16r00C9 16r00D1 16r00D6 16r00DC 16r00E1 16r00E0 16r00E2 16r00E4 16r00E3 16r00E5 16r00E7 16r00E9 16r00E8 16r00EA 16r00EB 16r00ED 16r00EC 16r00EE 16r00EF 16r00F1 16r00F3 16r00F2 16r00F4 16r00F6 16r00F5 16r00FA 16r00F9 16r00FB 16r00FC 16r00DD 16r00B0 16r00A2 16r00A3 16r00A7 16r2022 16r00B6 16r00DF 16r00AE 16r00A9 16r2122 16r00B4 16r00A8 16r2260 16r00C6 16r00D8 16r221E 16r00B1 16r2264 16r2265 16r00A5 16r00B5 16r2202 16r2211 16r220F 16r03C0 16r222B 16r00AA 16r00BA 16r2126 16r00E6 16r00F8 16r00BF 16r00A1 16r00AC 16r221A 16r0192 16r2248 16r2206 16r00AB 16r00BB 16r2026 16r00A0 16r00C0 16r00C3 16r00D5 16r0152 16r0153 16r2013 16r2014 16r201C 16r201D 16r2018 16r2019 16r00F7 16r25CA 16r00FF 16r0178 16r2044 16r00A4 16r00D0 16r00F0 16r00DE 16r00FE 16r00FD 16r00B7 16r201A 16r201E 16r2030 16r00C2 16r00CA 16r00C1 16r00CB 16r00C8 16r00CD 16r00CE 16r00CF 16r00CC 16r00D3 16r00D4 -16r001 16r00D2 16r00DA 16r00DB 16r00D9 16r0131 16r02C6 16r02DC + 16r00AF 16r02D8 16r02D9 16r02DA 16r00B8 16r02DD 16r02DB 16r02C7)).! - 16r00AF 16r02D8 16r02D9 16r02DA 16r00B8 16r02DD 16r02DB 16r02C7).! Item was changed: ----- Method: MacLatin2TextConverter class>>encodingNames (in category 'utilities') ----- encodingNames + ^ #('maclatin2' 'mac-latin2') copy! - ^ #('maclatin2') copy! Item was changed: ----- Method: MacLatin2TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r00C4 16r0100 16r0101 16r00C9 16r0104 16r00D6 16r00DC 16r00E1 16r0105 16r010C 16r00E4 16r010D 16r0106 16r0107 16r00E9 16r0179 16r017A 16r010E 16r00ED 16r010F 16r0112 16r0113 16r0116 16r00F3 16r0117 16r00F4 16r00F6 16r00F5 16r00FA 16r011A 16r011B 16r00FC 16r2020 16r00B0 16r0118 16r00A3 16r00A7 16r2022 16r00B6 16r00DF 16r00AE 16r00A9 16r2122 16r0119 16r00A8 16r2260 16r0123 16r012E 16r012F 16r012A 16r2264 16r2265 16r012B 16r0136 16r2202 16r2211 16r0142 16r013B 16r013C 16r013D 16r013E 16r0139 16r013A 16r0145 16r0146 16r0143 16r00AC 16r221A 16r0144 16r0147 16r2206 16r00AB 16r00BB 16r2026 16r00A0 16r0148 16r0150 16r00D5 16r0151 16r014C 16r2013 16r2014 16r201C 16r201D 16r2018 16r2019 16r00F7 16r25CA 16r014D 16r0154 16r0155 16r0158 16r2039 16r203A 16r0159 16r0156 16r0157 16r0160 16r201A 16r201E 16r0161 16r015A 16r015B 16r00C1 16r0164 16r0165 16r00CD 16r017D 16r017E 16r016A 16r00D3 16r00D4 16r016B 16r016E 16r00DA 16r016F 16r0170 16r0171 16r0172 16r0173 + 16r00DD 16r00FD 16r0137 16r017B 16r0141 16r017C 16r0122 16r02C7)).! - 16r00DD 16r00FD 16r0137 16r017B 16r0141 16r017C 16r0122 16r02C7).! Item was changed: ----- Method: MacRomanTextConverter class>>encodingNames (in category 'utilities') ----- encodingNames + ^ #('macroman' 'mac-roman') copy! - ^ #('macroman') copy! Item was changed: ----- Method: MacRomanTextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r00C4 16r00C5 16r00C7 16r00C9 16r00D1 16r00D6 16r00DC 16r00E1 16r00E0 16r00E2 16r00E4 16r00E3 16r00E5 16r00E7 16r00E9 16r00E8 16r00EA 16r00EB 16r00ED 16r00EC 16r00EE 16r00EF 16r00F1 16r00F3 16r00F2 16r00F4 16r00F6 16r00F5 16r00FA 16r00F9 16r00FB 16r00FC 16r2020 16r00B0 16r00A2 16r00A3 16r00A7 16r2022 16r00B6 16r00DF 16r00AE 16r00A9 16r2122 16r00B4 16r00A8 16r2260 16r00C6 16r00D8 16r221E 16r00B1 16r2264 16r2265 16r00A5 16r00B5 16r2202 16r2211 16r220F 16r03C0 16r222B 16r00AA 16r00BA 16r2126 16r00E6 16r00F8 16r00BF 16r00A1 16r00AC 16r221A 16r0192 16r2248 16r2206 16r00AB 16r00BB 16r2026 16r00A0 16r00C0 16r00C3 16r00D5 16r0152 16r0153 16r2013 16r2014 16r201C 16r201D 16r2018 16r2019 16r00F7 16r25CA 16r00FF 16r0178 16r2044 16r00A4 16r2039 16r203A 16rFB01 16rFB02 16r2021 16r00B7 16r201A 16r201E 16r2030 16r00C2 16r00CA 16r00C1 16r00CB 16r00C8 16r00CD 16r00CE 16r00CF 16r00CC 16r00D3 16r00D4 -16r001 16r00D2 16r00DA 16r00DB 16r00D9 16r0131 16r02C6 16r02DC + 16r00AF 16r02D8 16r02D9 16r02DA 16r00B8 16r02DD 16r02DB 16r02C7)).! - 16r00AF 16r02D8 16r02D9 16r02DA 16r00B8 16r02DD 16r02DB 16r02C7).! Item was changed: ----- Method: MacTurkishTextConverter class>>encodingNames (in category 'utilities') ----- encodingNames + ^ #('macturkish' 'mac-turkish') copy! - ^ #('macturkish') copy! Item was changed: ----- Method: MacTurkishTextConverter class>>initializeDecodeTable (in category 'class initialization') ----- initializeDecodeTable super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( - decodeTable := (decodeTable copyFrom: 1 to: 128) , #( 16r00C4 16r00C5 16r00C7 16r00C9 16r00D1 16r00D6 16r00DC 16r00E1 16r00E0 16r00E2 16r00E4 16r00E3 16r00E5 16r00E7 16r00E9 16r00E8 16r00EA 16r00EB 16r00ED 16r00EC 16r00EE 16r00EF 16r00F1 16r00F3 16r00F2 16r00F4 16r00F6 16r00F5 16r00FA 16r00F9 16r00FB 16r00FC 16r2020 16r00B0 16r00A2 16r00A3 16r00A7 16r2022 16r00B6 16r00DF 16r00AE 16r00A9 16r2122 16r00B4 16r00A8 16r2260 16r00C6 16r00D8 16r221E 16r00B1 16r2264 16r2265 16r00A5 16r00B5 16r2202 16r2211 16r220F 16r03C0 16r222B 16r00AA 16r00BA 16r2126 16r00E6 16r00F8 16r00BF 16r00A1 16r00AC 16r221A 16r0192 16r2248 16r2206 16r00AB 16r00BB 16r2026 16r00A0 16r00C0 16r00C3 16r00D5 16r0152 16r0153 16r2013 16r2014 16r201C 16r201D 16r2018 16r2019 16r00F7 16r25CA 16r00FF 16r0178 16r011E 16r011F 16r0130 16r0131 16r015E 16r015F 16r2021 16r00B7 16r201A 16r201E 16r2030 16r00C2 16r00CA 16r00C1 16r00CB 16r00C8 16r00CD 16r00CE 16r00CF 16r00CC 16r00D3 16r00D4 -16r001 16r00D2 16r00DA 16r00DB 16r00D9 -16r001 16r02C6 16r02DC + 16r00AF 16r02D8 16r02D9 16r02DA 16r00B8 16r02DD 16r02DB 16r02C7)).! - 16r00AF 16r02D8 16r02D9 16r02DA 16r00B8 16r02DD 16r02DB 16r02C7).!

1 0

The Trunk: Network-pre.192.mcz
by commits＠source.squeak.org 04 May '17

04 May '17

Patrick Rein uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-pre.192.mcz ==================== Summary ==================== Name: Network-pre.192 Author: pre Time: 4 May 2017, 6:00:28.490322 pm UUID: b6465341-6977-454c-b78f-dcef0d8e9bf5 Ancestors: Network-pre.191 Adds basic starttls capabilities to the SMTP client. Required an extension of ProtocolClient to also store the hostName. =============== Diff against Network-pre.191 =============== Item was changed: ----- Method: ProtocolClient class>>openOnHostNamed:port: (in category 'instance creation') ----- openOnHostNamed: hostName port: portNumber | serverIP | serverIP := NetNameResolver addressForName: hostName timeout: 20. + ^ (self openOnHost: serverIP port: portNumber) + hostName: hostName; + yourself - ^self openOnHost: serverIP port: portNumber ! Item was added: + ----- Method: ProtocolClient>>hostName (in category 'private') ----- + hostName + + ^ self connectionInfo at: #hostName ifAbsent: [NetNameResolver nameForAddress: self host]! Item was added: + ----- Method: ProtocolClient>>hostName: (in category 'private') ----- + hostName: aString + + ^ self connectionInfo at: #hostName put: aString! Item was changed: ----- Method: SMTPClient>>data: (in category 'private protocol') ----- data: messageData "send the data of a message" "DATA <CRLF>" - - "inform the server we are sending the message data" self sendCommand: 'DATA'. self checkResponse. "process the data one line at a time" messageData linesDo: [ :messageLine | | cookedLine | cookedLine := messageLine. (cookedLine beginsWith: '.') ifTrue: [ "lines beginning with a dot must have the dot doubled" cookedLine := '.', cookedLine ]. self sendCommand: cookedLine ]. "inform the server the entire message text has arrived" self sendCommand: '.'. self checkResponse.! Item was added: + ----- Method: SMTPClient>>starttls (in category 'private protocol') ----- + starttls + "Send HELO first" + Smalltalk at: #SqueakSSL ifAbsent:[self error: 'SqueakSSL is missing']. + + self initiateSession. + self sendCommand: 'STARTTLS'. + self checkResponse. + self determineResponseCode = 220 ifTrue: [ + stream := SqueakSSL secureSocketStream on: stream socket. + stream sslConnectTo: self hostName].!

1 0