Packages July 2016

packages@lists.squeakfoundation.org

1 participants
141 discussions

The Trunk: 51Deprecated-mt.32.mcz
by commits＠source.squeak.org 13 Jul '16

13 Jul '16

Marcel Taeumel uploaded a new version of 51Deprecated to project The Trunk: http://source.squeak.org/trunk/51Deprecated-mt.32.mcz ==================== Summary ==================== Name: 51Deprecated-mt.32 Author: mt Time: 13 July 2016, 11:57:37.183252 am UUID: 7be81836-e59d-8945-a4ba-5a43c8e55b62 Ancestors: 51Deprecated-mt.31 Deprecate old drop handler for image streams. There is a new one in #defaultImageHandler. Still unused because we have more flexible file services for that. =============== Diff against 51Deprecated-mt.31 =============== Item was added: + ----- Method: ExternalDropHandler class>>registerStandardExternalDropHandlers (in category '*51Deprecated') ----- + registerStandardExternalDropHandlers + "ExternalDropHandler registerStandardExternalDropHandlers" + + self registeredHandlers add: ( + ExternalDropHandler + type: 'image/' + extension: nil + action: [:stream :pasteUp :event | + pasteUp addMorph: (World drawingClass withForm: (Form fromBinaryStream: stream binary)) centeredNear: event position])!

1 0

The Trunk: System-mt.837.mcz
by commits＠source.squeak.org 13 Jul '16

13 Jul '16

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.837.mcz ==================== Summary ==================== Name: System-mt.837 Author: mt Time: 13 July 2016, 11:54:51.034252 am UUID: 2f906c4c-c55b-614b-af91-73b8444b0be0 Ancestors: System-eem.836 When dropping image files into Squeak, use the file services instead of a single drop handler. Then the user can, for example, directly set the image as project background instead of creating a SketchMorph with it. =============== Diff against System-eem.836 =============== Item was changed: ----- Method: ExternalDropHandler class>>cleanUp (in category 'class initialization') ----- cleanUp "Reset and reinstall the drop handlers" + self initialize.! - self resetRegisteredHandlers. - self registerStandardExternalDropHandlers.! Item was changed: ----- Method: ExternalDropHandler class>>initialize (in category 'class initialization') ----- initialize "ExternalDropHandler initialize" self resetRegisteredHandlers. self + "registerHandler: self defaultImageHandler;" "we have file services for images" - registerHandler: self defaultImageHandler; registerHandler: self defaultGZipHandler; registerHandler: self defaultProjectHandler! Item was removed: - ----- Method: ExternalDropHandler class>>registerStandardExternalDropHandlers (in category 'class initialization') ----- - registerStandardExternalDropHandlers - "ExternalDropHandler registerStandardExternalDropHandlers" - - self registeredHandlers add: ( - ExternalDropHandler - type: 'image/' - extension: nil - action: [:stream :pasteUp :event | - pasteUp addMorph: (World drawingClass withForm: (Form fromBinaryStream: stream binary)) centeredNear: event position])!

1 0

The Trunk: Morphic-mt.1190.mcz
by commits＠source.squeak.org 13 Jul '16

13 Jul '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1190.mcz ==================== Summary ==================== Name: Morphic-mt.1190 Author: mt Time: 13 July 2016, 11:52:56.625252 am UUID: 9858df29-ea18-0b49-bd51-4d23707bf2f7 Ancestors: Morphic-eem.1189 Propagate the current project background for new projects created from within the current one. =============== Diff against Morphic-eem.1189 =============== Item was changed: ----- Method: MorphicProject>>initialize (in category 'initialize') ----- initialize "Initialize a new Morphic Project" super initialize. world := PasteUpMorph newWorldForProject: self. + world fillStyle: (Project current isMorphic ifTrue: [Project current world fillStyle] ifFalse: [self class defaultFill]). - world color: self class defaultFill. Locale switchToID: CurrentProject localeID. Preferences useVectorVocabulary ifTrue: [world installVectorVocabulary]!

1 0

The Trunk: Graphics-mt.352.mcz
by commits＠source.squeak.org 13 Jul '16

13 Jul '16

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.352.mcz ==================== Summary ==================== Name: Graphics-mt.352 Author: mt Time: 13 July 2016, 11:49:58.442252 am UUID: 0095e815-99ca-bf48-ab99-3770d376d079 Ancestors: Graphics-mt.351 Show the current ressource imports after adding another one via file service. =============== Diff against Graphics-mt.351 =============== Item was added: + ----- Method: Form class>>importImageAndShowImports: (in category 'file list services') ----- + importImageAndShowImports: fullName + + self importImage: fullName. + Imports default explore.! Item was changed: ----- Method: Form class>>serviceImageImports (in category 'file list services') ----- serviceImageImports "Answer a service for reading a graphic into ImageImports" ^ SimpleServiceEntry provider: self label: 'read graphic into ImageImports' + selector: #importImageAndShowImports: - selector: #importImage: description: 'Load a graphic, placing it in the ImageImports repository.' buttonLabel: 'import'!

1 0

The Trunk: ToolBuilder-Morphic-topa.168.mcz
by commits＠source.squeak.org 12 Jul '16

12 Jul '16

Tobias Pape uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-topa.168.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-topa.168 Author: topa Time: 12 July 2016, 12:32:32.896626 am UUID: 7db062cb-f3e1-4434-b620-d63e88b34c81 Ancestors: ToolBuilder-Morphic-mt.167 Look up Font by point size if request is in points =============== Diff against ToolBuilder-Morphic-mt.167 =============== Item was changed: ----- Method: PluggableCheckBoxMorph>>installButton (in category 'installing') ----- installButton | aButton aLabel | aButton := UpdatingThreePhaseButtonMorph checkBox target: self model; actionSelector: self actionSelector; getSelector: self valueSelector; yourself. aLabel := (StringMorph contents: self label translated font: (StrikeFont familyName: TextStyle defaultFont familyName + pointSize: TextStyle defaultFont pointSize - 1)). - size: TextStyle defaultFont pointSize - 1)). self addMorph: (self horizontalPanel addMorphBack: aButton; addMorphBack: aLabel; yourself).! Item was changed: ----- Method: PluggableDropDownListMorph>>installDropDownList (in category 'drawing') ----- installDropDownList | aButton aLabel | aButton := PluggableButtonMorph on: self model getState: nil action: nil. aLabel := (StringMorph contents: self model currentRemoteVatId translated font: (StrikeFont familyName: TextStyle defaultFont familyName + pointSize: TextStyle defaultFont pointSize - 1)). - size: TextStyle defaultFont pointSize - 1)). self addMorph: (self horizontalPanel addMorphBack: aLabel; addMorphBack: aButton; yourself).!

1 0

The Trunk: PreferenceBrowser-topa.61.mcz
by commits＠source.squeak.org 12 Jul '16

12 Jul '16

Tobias Pape uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-topa.61.mcz ==================== Summary ==================== Name: PreferenceBrowser-topa.61 Author: topa Time: 12 July 2016, 12:23:57.27535 am UUID: 14cc130e-5a14-404a-8be8-3e08091395a9 Ancestors: PreferenceBrowser-pre.60 Look up Font by point size if request is in points =============== Diff against PreferenceBrowser-pre.60 =============== Item was changed: ----- Method: PBBooleanPreferenceView>>enabledButton (in category 'user interface') ----- enabledButton | aButton aLabel | aButton := UpdatingThreePhaseButtonMorph checkBox target: self preference; actionSelector: #togglePreferenceValue; getSelector: #preferenceValue; yourself. aLabel := (StringMorph contents: 'enabled' translated font: (StrikeFont familyName: TextStyle defaultFont familyName + pointSize: TextStyle defaultFont pointSize - 1)). - size: TextStyle defaultFont pointSize - 1)). ^self horizontalPanel addMorphBack: aButton; addMorphBack: aLabel; yourself.! Item was changed: ----- Method: PBBooleanPreferenceView>>localToProjectButton (in category 'user interface') ----- localToProjectButton | aButton aLabel | aButton := UpdatingThreePhaseButtonMorph checkBox target: self preference; actionSelector: #toggleProjectLocalness; getSelector: #localToProject; yourself. aLabel := (StringMorph contents: 'local' translated font: (StrikeFont familyName: TextStyle defaultFont familyName + pointSize: TextStyle defaultFont pointSize - 1)). - size: TextStyle defaultFont pointSize - 1)). ^self horizontalPanel addMorphBack: aButton; addMorphBack: aLabel; yourself.!

1 0

The Trunk: EToys-topa.138.mcz
by commits＠source.squeak.org 12 Jul '16

12 Jul '16

Tobias Pape uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-topa.138.mcz ==================== Summary ==================== Name: EToys-topa.138 Author: topa Time: 12 July 2016, 12:05:41.656363 am UUID: 20c4c7a2-acb3-4a37-a66c-15e2f17fa329 Ancestors: EToys-pre.137 Fix spurious point in literal array =============== Diff against EToys-pre.137 =============== Item was changed: ----- Method: Morph>>abstractAModel (in category '*Etoys-card in a stack') ----- abstractAModel "Find data-containing fields in me. Make a new class, whose instance variables are named for my fields, and whose values are the values I am showing. Use a CardPlayer for now. Force the user to name the fields. Make slots for text, Number Watchers, SketchMorphs, and ImageMorphs." | unnamed ans player twoListsOfMorphs holdsSepData docks oldPlayer instVarNames | (oldPlayer := self player) ifNotNil: [oldPlayer belongsToUniClass ifTrue: ["Player" oldPlayer class instVarNames notEmpty ifTrue: [self inform: 'I already have a regular Player, so I can''t have a CardPlayer'. ^true]]]. twoListsOfMorphs := StackMorph discoverSlots: self. holdsSepData := twoListsOfMorphs first. instVarNames := ''. holdsSepData do: [:ea | | iVarName | iVarName := Scanner wellFormedInstanceVariableNameFrom: ea knownName. iVarName = ea knownName ifFalse: [ea name: iVarName]. instVarNames := instVarNames , iVarName , ' ']. unnamed := twoListsOfMorphs second. "have default names" instVarNames isEmpty ifTrue: [self inform: 'No named fields were found. Please get a halo on each field and give it a name. Labels or non-data fields should be named "shared xxx".'. ^false]. unnamed notEmpty ifTrue: [ans := (UIManager default chooseFrom: #( + 'All other fields are non-data fields' + 'Stop. Let me give a name to some more fields' - 'All other fields are non-data fields'. - 'Stop. Let me give a name to some more fields'. ) title: 'Data fields are ' , instVarNames printString , ('\Some fields are not named. Are they labels or non-data fields?' , '\Please get a halo on each data field and give it a name.') withCRs) = 1. ans ifFalse: [^false]]. unnamed withIndexDo: [:mm :ind | mm setName: 'shared label ' , ind printString]. "Make a Player with instVarNames. Make me be the costume" player := CardPlayer instanceOfUniqueClassWithInstVarString: instVarNames andClassInstVarString: ''. self player: player. player costume: self. "Fill in the instance values. Make docks first." docks := OrderedCollection new. holdsSepData do: [:morph | morph setProperty: #shared toValue: true. "in case it is deeply embedded" morph setProperty: #holdsSeparateDataForEachInstance toValue: true. player class compileInstVarAccessorsFor: morph knownName. morph isSyntaxMorph ifTrue: [morph setTarget: player]. "hookup the UpdatingString!!" docks addAll: morph variableDocks]. player class newVariableDocks: docks. docks do: [:dd | dd storeMorphDataInInstance: player]. "oldPlayer class mdict do: [:assoc | move to player]. move methods to new class?" "oldPlayer become: player." ^true "success"!

1 0

The Trunk: Kernel-topa.1033.mcz
by commits＠source.squeak.org 11 Jul '16

11 Jul '16

Tobias Pape uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-topa.1033.mcz ==================== Summary ==================== Name: Kernel-topa.1033 Author: topa Time: 11 July 2016, 10:17:45.427905 am UUID: 5d65d061-4973-4968-a0a2-533b9dc334ef Ancestors: Kernel-eem.1032 Collect perform with 5 args. =============== Diff against Kernel-eem.1032 =============== Item was added: + ----- Method: Object>>perform:with:with:with:with:with: (in category 'message handling') ----- + perform: aSymbol with: firstObject with: secondObject with: thirdObject with: fourthObject with: fifthObject + "Send the selector, aSymbol, to the receiver with the given arguments. + Fail if the number of arguments expected by the selector is not five. + Primitive. Optional. See Object documentation whatIsAPrimitive." + + <primitive: 83> + ^ self perform: aSymbol + withArguments: (Array with: firstObject with: secondObject with: thirdObject with: fourthObject with: fifthObject)!

1 0

The Trunk: CollectionsTests-topa.266.mcz
by commits＠source.squeak.org 10 Jul '16

10 Jul '16

Tobias Pape uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-topa.266.mcz ==================== Summary ==================== Name: CollectionsTests-topa.266 Author: topa Time: 10 July 2016, 9:15:50.348455 pm UUID: 802d5712-f7aa-488e-9af5-dccaf7a3f7c8 Ancestors: CollectionsTests-topa.265 Fix class comment =============== Diff against CollectionsTests-topa.265 =============== Item was changed: TestCase subclass: #Ascii85ConverterTest instanceVariableNames: 'decoded encoded' classVariableNames: '' poolDictionaries: '' category: 'CollectionsTests-Streams'! + !Ascii85ConverterTest commentStamp: 'topa 7/10/2016 21:04' prior: 0! + This is the unit test for the class Ascii85Converter.! - !Ascii85ConverterTest commentStamp: '<historical>' prior: 0! - This is the unit test for the class Base64MimeConverter. Unit tests are a good way to exercise the functionality of your system in a repeatable and automatic manner. They are therefore recommended if you plan to release anything. For more information, see: - - http://www.c2.com/cgi/wiki?UnitTest - - http://minnow.cc.gatech.edu/squeak/1547 - - the sunit class category!

1 0

The Trunk: Collections-topa.701.mcz
by commits＠source.squeak.org 10 Jul '16

10 Jul '16

Tobias Pape uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-topa.701.mcz ==================== Summary ==================== Name: Collections-topa.701 Author: topa Time: 10 July 2016, 9:00:58.083099 pm UUID: 5ae1b44b-94ef-4657-a76e-387509401f08 Ancestors: Collections-eem.700 Add an Ascii85 converter akin to Base64MimeConverter =============== Diff against Collections-eem.700 =============== Item was added: + Object subclass: #Ascii85Converter + instanceVariableNames: 'dataStream stringStream number85 tupleSize binary' + classVariableNames: '' + poolDictionaries: '' + category: 'Collections-Streams'! + + !Ascii85Converter commentStamp: 'topa 7/10/2016 20:57' prior: 0! + I convert between binary data and an Ascii85 text representation of PostScript and PDF fame. + I am a little bit more efficient (~25% overhead) than Base64 (~30% overhead). + + Instance Variables + binary: <Boolean> - Tells whether to decode to binary data or characters + dataStream: <PositionableStream> - The data stream to decode to or encode from (Typically does not contain Ascii85) + stringStream: <PositionableStream> - The text stream to decode from or encode to (Always contains Ascii85) + number85: <Integer> - Decoder state, accumulated read number in base85 + tupleSize: <SmallInteger> - Number of bytes read into number85 already + + 'Hello, World' ascii85Encoded. + + '<~87cURD]htuF_+us~>' ascii85Decoded. + ! Item was added: + ----- Method: Ascii85Converter class>>decode:as: (in category 'convenience') ----- + decode: aStringOrStream as: contentsClass + + ^ contentsClass streamContents: + [:out | self decode: aStringOrStream to: out]! Item was added: + ----- Method: Ascii85Converter class>>decode:to: (in category 'convenience') ----- + decode: aStringOrStream to: outStream + + ^ (self stringStream: aStringOrStream readStream dataStream: outStream) + decode! Item was added: + ----- Method: Ascii85Converter class>>decodeToBytes: (in category 'convenience') ----- + decodeToBytes: aStringOrStream + " Analogous to Base64MimeConverter>>#mimeDecodeToBytes:" + | expectedSize | + expectedSize := aStringOrStream size * 4 // 5. + ^ (ByteArray new: expectedSize streamContents: + [:stream | + (self stringStream: aStringOrStream readStream dataStream: stream) + decodeToByteArray]) readStream! Item was added: + ----- Method: Ascii85Converter class>>decodeToChars: (in category 'convenience') ----- + decodeToChars: aStringOrStream + " Analogous to Base64MimeConverter>>#mimeDecodeToChars:" + | expectedSize | + expectedSize := aStringOrStream size * 4 // 5. + ^ (String new: expectedSize streamContents: + [:stream | self decode: aStringOrStream to: stream]) readStream! Item was added: + ----- Method: Ascii85Converter class>>encode: (in category 'convenience') ----- + encode: aCollectionOrStream + + ^ String streamContents: + [:out | self encode: aCollectionOrStream to: out]! Item was added: + ----- Method: Ascii85Converter class>>encode:to: (in category 'convenience') ----- + encode: aCollectionOrStream to: outStream + + ^ (self stringStream: outStream dataStream: aCollectionOrStream readStream) + encode! Item was added: + ----- Method: Ascii85Converter class>>stringStream:dataStream: (in category 'instance creation') ----- + stringStream: aStream dataStream: anotherStream + + ^ self new + stringStream: aStream; + dataStream: anotherStream; + yourself! Item was added: + ----- Method: Ascii85Converter>>ascii (in category 'accessing') ----- + ascii + + binary := false.! Item was added: + ----- Method: Ascii85Converter>>binary (in category 'accessing') ----- + binary + + binary := true.! Item was added: + ----- Method: Ascii85Converter>>dataStream (in category 'accessing') ----- + dataStream + + ^dataStream! Item was added: + ----- Method: Ascii85Converter>>dataStream: (in category 'accessing') ----- + dataStream: anObject + + dataStream := anObject.! Item was added: + ----- Method: Ascii85Converter>>decode (in category 'conversion') ----- + decode + + self readBOD ifFalse: [^ self dataStream]. + + [self stringStream atEnd] whileFalse: [ + self stringStream skipSeparators. + self readEOD ifTrue: [^ self endDecode]. "<--- End of data" + + self decodeChar: self stringStream next ifFail: [^ self dataStream]]. + "actually, should not reach, but our failure condition is returning the stream, anyway" + ^ self dataStream! Item was added: + ----- Method: Ascii85Converter>>decodeChar:ifFail: (in category 'conversion') ----- + decodeChar: char ifFail: failBlock + + char = $z ifTrue: [^ self decodeZIfFail: failBlock]. + + (char between: $!! and: $u) ifFalse: [^ failBlock value]. + + self incrementTupleSize. + self incrementNumber85: char asInteger - 33 * (self pow85 at: self tupleSize). + self tupleSize = 5 ifTrue: + [self isBinary + ifTrue: [self writeBytes255: self number85 atMax: 4] + ifFalse: [self writeChars255: self number85 atMax: 4]. + self resetDecoderState]! Item was added: + ----- Method: Ascii85Converter>>decodeToByteArray (in category 'conversion') ----- + decodeToByteArray + + self binary. + ^ self decode! Item was added: + ----- Method: Ascii85Converter>>decodeZIfFail: (in category 'conversion') ----- + decodeZIfFail: failBlock + + self tupleSize ~= 0 ifTrue: [^ failBlock value]. + self dataStream next: 4 put: (self isBinary ifTrue: [0] ifFalse: [Character null]). + ! Item was added: + ----- Method: Ascii85Converter>>encode (in category 'conversion') ----- + encode + + | lineLength | + + lineLength := 0. + self stringStream nextPutAll: '<~'. + [self dataStream atEnd] whileFalse: [ + | raw data out | + lineLength >= 74 ifTrue: [self stringStream cr. lineLength := 0]. + out := 5. + raw := (self dataStream next: 4) asByteArray. + raw size < 4 ifTrue: + [out := raw size + 1. + raw := raw, (self padOfSize: 4 - raw size)]. + data := raw unsignedLongAt: 1 bigEndian: true. + data = 0 + ifTrue: [self stringStream nextPut: $z. lineLength := lineLength + 1] + ifFalse: [self write85: data atMax: out. lineLength := lineLength + out]]. + self stringStream nextPutAll: '~>'. + ^ self stringStream + ! Item was added: + ----- Method: Ascii85Converter>>endDecode (in category 'private') ----- + endDecode + + self tupleSize > 0 ifTrue: + [self incrementNumber85: (self pow85 at: self tupleSize). + self isBinary + ifTrue: [self writeBytes255: self number85 atMax: self tupleSize - 1] + ifFalse: [self writeChars255: self number85 atMax: self tupleSize - 1]]. + ^ self dataStream! Item was added: + ----- Method: Ascii85Converter>>incrementNumber85: (in category 'private') ----- + incrementNumber85: aNumber + + number85 := number85 + aNumber. + + ! Item was added: + ----- Method: Ascii85Converter>>incrementTupleSize (in category 'private') ----- + incrementTupleSize + + tupleSize := tupleSize + 1. + ! Item was added: + ----- Method: Ascii85Converter>>initialize (in category 'initialize-release') ----- + initialize + + super initialize. + self ascii. + self resetDecoderState.! Item was added: + ----- Method: Ascii85Converter>>isBinary (in category 'testing') ----- + isBinary + + ^ binary! Item was added: + ----- Method: Ascii85Converter>>number85 (in category 'accessing') ----- + number85 + + ^ number85! Item was added: + ----- Method: Ascii85Converter>>padOfSize: (in category 'private') ----- + padOfSize: aNumber + + aNumber = 1 ifTrue: [^ #(0)]. + aNumber = 2 ifTrue: [^ #(0 0)]. + aNumber = 3 ifTrue: [^ #(0 0 0)]. + self error: 'Should not reach'.! Item was added: + ----- Method: Ascii85Converter>>pow85 (in category 'private') ----- + pow85 + + ^ #(52200625 614125 7225 85 1) "{85*85*85*85 . 85*85*85 . 85*85 . 85. 1}"! Item was added: + ----- Method: Ascii85Converter>>readBOD (in category 'private') ----- + readBOD + + self stringStream skipSeparators. + self stringStream peek = $< ifFalse: [^ false] ifTrue: + [self stringStream next. "ignore" + self stringStream peek = $~ ifFalse: [^ false] ifTrue: + [self stringStream next "ignore"]]. + ^ true! Item was added: + ----- Method: Ascii85Converter>>readEOD (in category 'private') ----- + readEOD + + self stringStream skipSeparators. + self stringStream peek = $~ ifFalse: [^ false] ifTrue: + [self stringStream next. "ignore" + self stringStream peek = $> ifFalse: [^ false] ifTrue: + [self stringStream next "ignore"]]. + ^ true! Item was added: + ----- Method: Ascii85Converter>>resetDecoderState (in category 'private') ----- + resetDecoderState + + number85 := 0. + tupleSize := 0. + ! Item was added: + ----- Method: Ascii85Converter>>stringStream (in category 'accessing') ----- + stringStream + + ^ stringStream! Item was added: + ----- Method: Ascii85Converter>>stringStream: (in category 'accessing') ----- + stringStream: anObject + + stringStream := anObject.! Item was added: + ----- Method: Ascii85Converter>>tupleSize (in category 'accessing') ----- + tupleSize + + ^ tupleSize! Item was added: + ----- Method: Ascii85Converter>>write85:atMax: (in category 'writing') ----- + write85: anInteger atMax: aNumber + + | c1 c2 c3 c4 c5 remain | + remain := anInteger. + c5 := (remain \\ 85 + 33) asCharacter. remain := remain // 85. + c4 := (remain \\ 85 + 33) asCharacter. remain := remain // 85. + c3 := (remain \\ 85 + 33) asCharacter. remain := remain // 85. + c2 := (remain \\ 85 + 33) asCharacter. remain := remain // 85. + c1 := (remain \\ 85 + 33) asCharacter. remain := remain // 85. + aNumber > 0 ifTrue: [self stringStream nextPut: c1. + aNumber > 1 ifTrue: [self stringStream nextPut: c2. + aNumber > 2 ifTrue: [self stringStream nextPut: c3. + aNumber > 3 ifTrue: [self stringStream nextPut: c4. + aNumber > 4 ifTrue: [self stringStream nextPut: c5]]]]]. + ! Item was added: + ----- Method: Ascii85Converter>>writeBytes255:atMax: (in category 'writing') ----- + writeBytes255: anInteger atMax: aNumber + + (aNumber between: 1 and: 4) ifFalse: [^ self error: 'Unexpected byte count']. + 4 to: (5 - aNumber) by: -1 do: + [:index | self dataStream nextPut: (anInteger digitAt: index)]. + ! Item was added: + ----- Method: Ascii85Converter>>writeChars255:atMax: (in category 'writing') ----- + writeChars255: anInteger atMax: aNumber + + (aNumber between: 1 and: 4) ifFalse: [^ self error: 'Unexpected byte count']. + 4 to: (5 - aNumber) by: -1 do: + [:index | self dataStream nextPut: (anInteger digitAt: index) asCharacter]. + ! Item was added: + ----- Method: ByteArray>>ascii85Encoded (in category 'converting') ----- + ascii85Encoded + "Encode the receiver as Ascii85" + "'Hello World' asByteArray ascii85Encoded" + + ^ (Ascii85Converter encode: self readStream) contents! Item was added: + ----- Method: String>>ascii85Decoded (in category 'converting') ----- + ascii85Decoded + "Decode the receiver from Ascii85" + "'<~87cURD]i,""Ebo7~>' ascii85Decoded" + + ^ self ascii85DecodedAs: self class + ! Item was added: + ----- Method: String>>ascii85DecodedAs: (in category 'converting') ----- + ascii85DecodedAs: aClass + "Decode the receiver from Ascii85" + "'<~87cURD]i,""Ebo7~>' ascii85DecodedAs: String" + + ^ Ascii85Converter decode: self as: aClass! Item was added: + ----- Method: String>>ascii85Encoded (in category 'converting') ----- + ascii85Encoded + "Encode the receiver as Ascii85" + "'Hello World' ascii85Encoded" + + ^ (Ascii85Converter encode: self readStream) contents + !

1 0

← Newer
1
...
9
10
11
12
13
14
15
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2016