Squeak-dev February 2014

squeak-dev@lists.squeakfoundation.org

71 participants
188 discussions

homepage
by Chris Cunnington 18 Feb '14

18 Feb '14

>Please e-mail box-admins, not Ken. Ken has expressed his wish that we >reduce our dependency on him. He may still volunteer for stuff he >wants to, otherwise, box-admins. OK. My member to box-admins appears to be pending. I'll post there as soon as I can. Chris

1 0

homepage
by Chris Cunnington 18 Feb '14

18 Feb '14

OK. I'll do some more work on the site and email Ken. Chris

2 1

Re: [squeak-dev] Re: [Pharo-dev] FFI blowfish for encrypting / decrypting [WAS] Re: How to encrypt a password?
by mkobetic＠gmail.com 18 Feb '14

18 Feb '14

"Mariano Martinez Peck"<marianopeck(a)gmail.com> wrote: > > Anyway.... I do need encrypt/decrypt and it should be fast. I have just > > tried ARC4 and seems to be fast. I have a few questions: > > > > - If I make the ARC4 key larger is it likely to be safer? > > - How does ARC4 compare to blowfish from security point of view? Is > > blowfish much more secure or not that much? > > > > > > mmm reading a bit more I would say ARC4 may not be the most accurate for my > case. Why? Because I may have many fields from many objects all being > protected with the same password (hence, same key for the ARC4). This may > affect ARC4 security, right? And even more that key is not a random stream > but a fixed one (the " SecureHashAlgorithm new hashMessage: aString" of > the password they are protected with).... With stream ciphers (or block cipher in modes that emulate a stream cipher, e.g. OFB, CTR) you absolutely must not reuse the same key to encrypt different data (http://en.wikipedia.org/wiki/Stream_cipher_attack). You could try to devise a way to avoid re-using the exact same key, e.g. generate the encryption key by mixing in a unique id of the field that you're encrypting along with the password, but unless you really know what you're doing, it's quite easy to make a fatal mistake in your design. Best way to do this is to stick with standard solutions. You're trying to use passwords for encryption, so your standard options would be PKCS#5, bcrypt or scrypt. HTH, Martin

3 2

Time oddity
by Stéphane Rollandin 18 Feb '14

18 Feb '14

Hello, Any reason why t := Time now. (t to: (t addSeconds: 5)) asDuration never return the same value, which should be 5 seconds if I'm not missing something... ? Stef

2 2

Re: [etoys-dev] [gsoc-mentors] [GSoC ideas] Squeak/Etoys
by Serge Stinckwich 18 Feb '14

18 Feb '14

Dear all, is there any Smalltalk development involved in this project ? Regards, On Mon, Feb 17, 2014 at 11:23 PM, Steve Thomas <sthomas1(a)gosargon.com> wrote: > Kathleen, > > Great feedback, thanks. Below is an updated version: > > Many children can not communicate verbally whether due to nonverbal autism > or some other factor. While there are many catalogs and websites with > adaptive equipment and software but the prices are high. There is a OLPC > deployment in Uraguay where a student uses his stuffed animal as an input > device for using an XO and Etoys. We would like to build on this to make it > easier and lower cost or these children and their parents to communicate and > use computers. The software would be free and OpenSource and the hardware > to hack a Stuffed Animal could potentially repurpose old keyboards [2] or > under $10 by repurposing a used USB game controller (free if kids donate > their old ones). > > In the first project a student would design and document how to hack a > stuffed animal to be used as an input device similar to a joystick or arrow > and a few other keys to allow a nonverbal child to use their favorite > stuffed animal as an input device. > > Level: beginner > Skills required: Maker skills. To Hack a stuffed animal. Etoys (If student > knows Scratch, they can learn the skills needed in Etoys for this project) > > In the second project a student would design a set of picture boards that > could be navigated using a joystick or arrow keys and arrow and few other > keys. The project would also allow a parent or teacher to simply add and > re-arrange pictures using a webcam, imported pictures or simple drawings > that can be made using Etoys[1]. Etoys runs on Linux, Windows and Mac OS > and is one of the core applications in the OLPC XO. > > Level: beginner > Skills required: Etoys (If student knows Scratch, they can learn the skills > needed in Etoys for this project) > > Mentor: > Stephen Thomas <sthomas1(a)gosargon.com> > > [1] http://squeakland.org/ > [2] http://www.instructables.com/id/Hacking-a-USB-Keyboard/?ALLSTEPS > > On Mon, Feb 17, 2014 at 11:23 AM, Harness, Kathleen <kharness(a)illinois.edu> > wrote: >> >> Steve, >> You may want to emphasize in the application that this is a low cost >> adaptive technology. There are many catalogs and websites with adaptive >> equipment and software but the prices are high. A cost comparison might be >> persuasive. >> Regards, >> Kathleen >> ________________________________ >> From: etoys-dev-bounces(a)squeakland.org [etoys-dev-bounces(a)squeakland.org] >> on behalf of Steve Thomas [sthomas1(a)gosargon.com] >> Sent: Monday, February 17, 2014 12:19 AM >> To: Bert Freudenberg >> Cc: smalltalk-gsoc-mentors(a)googlegroups.com; etoys dev; Paolo Bonzini; The >> general-purpose Squeak developers list >> >> Subject: Re: [etoys-dev] [gsoc-mentors] [GSoC ideas] Squeak/Etoys >> >> Many children can not communicate verbally whether due to nonverbal autism >> or some other factor. There is a OLPC deployment in Uraguay where a student >> uses his stuffed animal as an input device for using an XO and Etoys. We >> would like to build on this to make it easier and cheaper for these children >> and their parents to communicate and use computers. >> >> In the first project a student would design and document how to hack a >> stuffed animal to be used as an input device similar to a joystick or arrow >> and a few other keys to allow a nonverbal child to use their favorite >> stuffed animal as an input device. >> >> Level: beginner >> Skills required: Maker skills. To Hack a stuffed animal. Etoys (If student >> knows Scratch, they can learn the skills needed in Etoys for this project) >> >> In the second project a student would design a set of picture boards that >> could be navigated using a joystick or arrow keys and arrow and few other >> keys. The project would also allow a parent or teacher to simply add and >> re-arrange pictures using a webcam, imported pictures or simple drawings >> that can be made using Etoys[1]. Etoys runs on Linux, Windows and Mac OS >> and is one of the core applications in the OLPC XO. >> >> Level: beginner >> Skills required: Etoys (If student knows Scratch, they can learn the >> skills needed in Etoys for this project) >> >> Mentor: >> Stephen Thomas <sthomas1(a)gosargon.com> >> >> [1] http://squeakland.org/ >> >> >> On Sun, Feb 16, 2014 at 11:07 AM, Bert Freudenberg <bert(a)freudenbergs.de> >> wrote: >>> >>> 1. Make Etoys work on SqueakJS >>> >>> Increasingly, there are systems that do not support web browser plugins, >>> or that even disallow installing certain software without "jailbreaking". >>> Even if the system would support it, some administrators disallow installing >>> of custom plugins. This presents a problem for Squeak/Etoys [1] which is >>> used in schools world-wide, but cannot be installed on more and more >>> systems. The single commonly supported runtime system is HTML5 + Javascript. >>> SqueakJS [2] is a Squeak VM running on top of Javascript, on various >>> platforms. >>> >>> In this project, a student would extend SqueakJS to be able to run an >>> Etoys image. It should provide an experience similar to running the Squeak >>> Plugin VM in a web browser: load a project from a URL and allow uploading >>> modified projects. The initial version does not need to be very performant, >>> speed optimizations can be done when we have a working system. >>> >>> Level: advanced >>> Skills required: JavaScript, Smalltalk >>> >>> Mentor: Bert Freudenberg <bert(a)freudenbergs.de> >>> >>> [1] http://squeakland.org/ >>> [2] http://bertfreudenberg.github.io/SqueakJS/ >>> >>> =================================================================== >>> >>> 2. Port Squeak/Etoys to Chrome OS >>> >>> Many schools are buying Chromebooks [1] because they are cheap and easy >>> to maintain. Squeakland [2] has gotten multiple requests to make Etoys work >>> on these machines. The best way to do this is running a Squeak VM via Native >>> Client [3]. >>> >>> Yoshiki Ohshima started such a VM port [4] demonstrating the feasibility. >>> His sources are available on github. They need to be updated to work with a >>> current NaCl SDK, and a portable VM must be built (PNaCl). It needs to be >>> tested on actual Chrome book hardware as well as a Chrome browser on PCs. >>> Support for downloading and uploading projects must be implemented so it can >>> be used as a direct replacement for the Squeak browser plugin. >>> >>> Level: medium >>> Skills required: C, Smalltalk >>> >>> Mentors: >>> Yoshiki Ohshima <yoshiki.ohshima(a)gmail.com> >>> Bert Freudenberg <bert(a)freudenbergs.de> >>> >>> [1] http://en.wikipedia.org/wiki/Chromebook >>> [2] http://squeakland.org/ >>> [3] https://developers.google.com/native-client >>> [4] http://lists.squeak.org/pipermail/vm-dev/2011-May/007991.html >>> >>> - Bert - >>> >>> >>> >>> _______________________________________________ >>> etoys-dev mailing list >>> etoys-dev(a)squeakland.org >>> http://lists.squeakland.org/mailman/listinfo/etoys-dev >>> >> >> >> >> -- >> >> To some of us, writing computer programs is a fascinating game. A program >> is a building of thought. It is costless to build, weightless, growing >> easily under our typing hands. If we get carried away, its size and >> complexity will grow out of control, confusing even the one who created it. >> This is the main problem of programming. It is why so much of today's >> software tends to crash, fail, screw up. >> >> When a program works, it is beautiful. The art of programming is the skill >> of controlling complexity. The great program is subdued, made simple in its >> complexity. >> >> - Martin Harverbeke (from Eloquent JavaScript) > > > > > -- > > To some of us, writing computer programs is a fascinating game. A program is > a building of thought. It is costless to build, weightless, growing easily > under our typing hands. If we get carried away, its size and complexity will > grow out of control, confusing even the one who created it. This is the main > problem of programming. It is why so much of today's software tends to > crash, fail, screw up. > > When a program works, it is beautiful. The art of programming is the skill > of controlling complexity. The great program is subdued, made simple in its > complexity. > > - Martin Harverbeke (from Eloquent JavaScript) > > > _______________________________________________ > etoys-dev mailing list > etoys-dev(a)squeakland.org > http://lists.squeakland.org/mailman/listinfo/etoys-dev > -- Serge Stinckwich UCBN & UMI UMMISCO 209 (IRD/UPMC) Every DSL ends up being Smalltalk http://www.doesnotunderstand.org/

1 0

FFI blowfish for encrypting / decrypting [WAS] Re: [Pharo-dev] How to encrypt a password?
by Mariano Martinez Peck 18 Feb '14

18 Feb '14

On Thu, Nov 21, 2013 at 3:53 PM, Paul DeBruicker <pdebruic(a)gmail.com> wrote: > Mariano Martinez Peck wrote > > Hi Paul, and just to be sure I understand...none of them could work as a > > two-way encryption, right? > > The only one is your Pharo's version of Blowfish but that only works with > > 8 > > chars long. Is it like this? Or is there any other two-way encryption? > > > > Thanks! > > > > -- > > Mariano > > http://marianopeck.wordpress.com > > > Yes that's right. The PasswordHashingFFI stuff is all one way encryption. > Blowfish is two way, and the current implementation only works for 8 byte > chunks. I stopped working on it when the Smalltalk bcrypt implementation I > wanted proved to be 5000x times slower than the FFI version. Someone needs > to add the CBC part to Blowfish to encrypt longer strings. I do not know > of > another in image two way encryption scheme, but there may be something in > the Cryptography repo. I'm not sure. > > > Hi Paul, Sorry for the cross posting. I was using the Smalltalk version of the Blowfish you did to encrypt and decrypt things. But now I realize it is very very slow for the usage I need. You seem to have faced the same problem. I am encrypting pieces of 8 characters long. But I wonder if the *decryption* is available as well in FFI version? I see #ffiCrypt:with: but nothing to decrypt... Thanks in advance -- Mariano http://marianopeck.wordpress.com

3 6

Daily Commit Log
by commits＠source.squeak.org 18 Feb '14

18 Feb '14

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2014-February/006958.h… Name: Graphics-nice.289 Ancestors: Graphics-nice.288 Fix incorrect display of underscore and caret in case of WideString displayed in DejaVu sans Strike fonts. Those fonts map caret Character (ascii 94) and underscore Character (ascii 95) to xTable at: 128 and 129 to avoid display of up and left arrow (thanks to characterToGlypMap ivar) But some StrikeFont methods did access directly the xTable, ignoring the indirection characterToGlypMap. This is incorrect, and lead to various layout problems because widthOf: correctly takes the indirection into account. Among those problems we can cite: - incorrect measurement of strings, - unconsistent placement of cursor, - weird text selection This fix is a serious candidate for inclusion in 4.5 release, but I let the maintainer decide... ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-February/006959.h… Name: Tests-cmm.290 Ancestors: Tests-cwp.289 Minor factoring. =============================================

1 0

Re: [squeak-dev] The Trunk: Graphics-nice.289.mcz
by Chris Muller 18 Feb '14

18 Feb '14

Thanks but I wish you'd had gone to Inbox -- because we don't want to risk "more surprises". :) The specific bug you're fixing (display of left-arrow) is so unimportant relative to whether this causes any other issues. Excluding this will make building RC5 more difficult on Wednesday. Do I need to exclude this? On Mon, Feb 17, 2014 at 4:30 PM, <commits(a)source.squeak.org> wrote: > Nicolas Cellier uploaded a new version of Graphics to project The Trunk: > http://source.squeak.org/trunk/Graphics-nice.289.mcz > > ==================== Summary ==================== > > Name: Graphics-nice.289 > Author: nice > Time: 17 February 2014, 11:29:40.779 pm > UUID: e809bcbf-53e1-420b-846a-9e86e0dd1f06 > Ancestors: Graphics-nice.288 > > Fix incorrect display of underscore and caret in case of WideString displayed in DejaVu sans Strike fonts. > > Those fonts map caret Character (ascii 94) and underscore Character (ascii 95) to xTable at: 128 and 129 to avoid display of up and left arrow (thanks to characterToGlypMap ivar) > > But some StrikeFont methods did access directly the xTable, ignoring the indirection characterToGlypMap. This is incorrect, and lead to various layout problems because widthOf: correctly takes the indirection into account. Among those problems we can cite: > - incorrect measurement of strings, > - unconsistent placement of cursor, > - weird text selection > > This fix is a serious candidate for inclusion in 4.5 release, but I let the maintainer decide... > > =============== Diff against Graphics-nice.288 =============== > > Item was changed: > ----- Method: StrikeFont>>characterFormAt: (in category 'character shapes') ----- > characterFormAt: character > "Answer a Form copied out of the glyphs for the argument, character." > | ascii leftX rightX | > + ascii := self codeForCharacter: character. > - ascii := character charCode. > (ascii between: minAscii and: maxAscii) ifFalse: [ascii := maxAscii + 1]. > leftX := xTable at: ascii + 1. > rightX := xTable at: ascii + 2. > leftX < 0 ifTrue: [^ glyphs copy: (0@0 corner: 0@self height)]. > ^ glyphs copy: (leftX @ 0 corner: rightX @ self height)! > > Item was removed: > - ----- Method: StrikeFont>>characterFormAtMulti: (in category 'character shapes') ----- > - characterFormAtMulti: character > - "Answer a Form copied out of the glyphs for the argument, character." > - | ascii leftX rightX | > - ascii := character charCode. > - (ascii between: minAscii and: maxAscii) ifFalse: [ascii := maxAscii + 1]. > - leftX := xTable at: ascii + 1. > - rightX := xTable at: ascii + 2. > - ^ glyphs copy: (leftX @ 0 corner: rightX @ self height)! > > Item was changed: > ----- Method: StrikeFont>>characters:in:displayAt:clippedBy:rule:fillColor:kernDelta:on: (in category 'displaying') ----- > characters: anInterval in: sourceString displayAt: aPoint clippedBy: clippingRectangle rule: ruleInteger fillColor: aForm kernDelta: kernDelta on: aBitBlt > "Simple, slow, primitive method for displaying a line of characters. > No wrap-around is provided." > | destPoint | > destPoint := aPoint. > anInterval do: > [:i | | sourceRect leftX ascii rightX | > self flag: #yoDisplay. > "if the char is not supported, fall back to the specified fontset." > + ascii := self codeForCharacter: (sourceString at: i). > - ascii := (sourceString at: i) charCode. > (ascii < minAscii or: [ascii > maxAscii]) > ifTrue: [ascii := maxAscii]. > leftX := xTable at: ascii + 1. > rightX := xTable at: ascii + 2. > sourceRect := leftX@0 extent: (rightX-leftX) @ self height. > aBitBlt copyFrom: sourceRect in: glyphs to: destPoint. > destPoint := destPoint + ((rightX-leftX+kernDelta)@0). > "destPoint printString displayAt: 0@(i*20)"]. > ^ destPoint! > > Item was added: > + ----- Method: StrikeFont>>codeForCharacter: (in category 'private') ----- > + codeForCharacter: aCharacter > + | code | > + code := aCharacter charCode. > + (self characterToGlyphMap isNil > + or: [ characterToGlyphMap size <= code ]) > + ifTrue: [^code]. > + ^characterToGlyphMap at: code + 1! > > Item was changed: > ----- Method: StrikeFont>>glyphInfoOf:into: (in category 'accessing') ----- > glyphInfoOf: aCharacter into: glyphInfoArray > "return the glyph info for aCharacter; if I don't have such a character, try my fallback font, if I have one of those. > Unlike some other implementors, the returned info for a missing character is not given for the question-mark but rather the zero-ascii char." > | code | > (self hasGlyphOf: aCharacter) > + ifTrue: [code := self codeForCharacter: aCharacter] > - ifTrue: [code := aCharacter charCode] > ifFalse: [fallbackFont > ifNotNil: [^ fallbackFont glyphInfoOf: aCharacter into: glyphInfoArray]. > code := 0]. > glyphInfoArray at: 1 put: glyphs; > at: 2 put: (xTable at: code + 1); > at: 3 put: (xTable at: code + 2); > at: 4 put: (self ascentOf: aCharacter); > at: 5 put: self. > ^ glyphInfoArray! > > Item was changed: > ----- Method: StrikeFont>>glyphOf: (in category 'accessing') ----- > glyphOf: aCharacter > "Answer the width of the argument as a character in the receiver." > > | code | > (self hasGlyphOf: aCharacter) ifFalse: [ > fallbackFont ifNotNil: [ > ^ fallbackFont glyphOf: aCharacter. > ]. > ^ (Form extent: 1@self height) fillColor: Color white > ]. > + code := self codeForCharacter: aCharacter. > - code := aCharacter charCode. > ^ glyphs copy: (((xTable at: code + 1)@0) corner: (xTable at: code +2)@self height). > ! > > Item was added: > + ----- Method: StrikeFont>>hasGlyphForCode: (in category 'multibyte character methods') ----- > + hasGlyphForCode: aCharacterCode > + > + ((aCharacterCode between: self minAscii and: self maxAscii) not) ifTrue: [ > + ^ false. > + ]. > + (xTable at: aCharacterCode + 1) < 0 ifTrue: [ > + ^ false. > + ]. > + ^ true. > + ! > > Item was changed: > ----- Method: StrikeFont>>hasGlyphOf: (in category 'multibyte character methods') ----- > hasGlyphOf: aCharacter > > + ^self hasGlyphForCode: (self codeForCharacter: aCharacter) > - | code | > - code := aCharacter charCode. > - ((code between: self minAscii and: self maxAscii) not) ifTrue: [ > - ^ false. > - ]. > - (xTable at: code + 1) < 0 ifTrue: [ > - ^ false. > - ]. > - ^ true. > ! > > Item was removed: > - ----- Method: StrikeFont>>leftAndRighOrNilFor: (in category 'private') ----- > - leftAndRighOrNilFor: char > - > - | code leftX | > - code := char charCode. > - ((code between: self minAscii and: self maxAscii) not) ifTrue: [ > - code := $? charCode. > - ]. > - leftX := xTable at: code + 1. > - leftX < 0 ifTrue: [ > - code := $? charCode. > - leftX := xTable at: code + 1. > - ]. > - ^ Array with: leftX with: (xTable at: code + 2). > - ! > >

1 0

The Trunk: Tests-cmm.290.mcz
by commits＠source.squeak.org 17 Feb '14

17 Feb '14

Chris Muller uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cmm.290.mcz ==================== Summary ==================== Name: Tests-cmm.290 Author: cmm Time: 17 February 2014, 4:35:24.565 pm UUID: f3fccfae-6baf-4093-ba62-e15ef110a687 Ancestors: Tests-cwp.289 Minor factoring. =============== Diff against Tests-cwp.289 =============== Item was changed: ----- Method: BlockLocalTemporariesRemovalTest>>assert:isChangedDuringParsingTo:withRemovalOfTemporariesNamed: (in category 'test helper') ----- + assert: someCode isChangedDuringParsingTo: someOtherCode withRemovalOfTemporariesNamed: someTempNames - assert: someCode isChangedDuringParsingTo: someOtherCode withRemovalOfTemporariesNamed: someTempNames - | failBlock | self sourceCode: someCode. + failBlock := [ self fail ]. + [ self class + compile: self sourceCode + notifying: self + trailer: self class defaultMethodTrailer + ifFail: failBlock ] - failBlock := [self fail]. - [self class - compile: self sourceCode - notifying: self - trailer: self class defaultMethodTrailer - ifFail: failBlock] on: UnusedVariable + do: + [ : aNotification | aNotification openMenuIn: + [ : options : emptyCollection : someText | aNotification resume: + (someTempNames anySatisfy: + [ : tempName | someText beginsWith: tempName ]) ] ]. - do: [:aNotification | aNotification - openMenuIn: [:options :emptyCollection :someText | - (someTempNames anySatisfy: [:tempName | someText startsWith: tempName]) - ifTrue: [aNotification resume: true] - ifFalse: [aNotification resume: false]]]. self assert: self sourceCode = someOtherCode!

1 0

The Trunk: Graphics-nice.289.mcz
by commits＠source.squeak.org 17 Feb '14

17 Feb '14

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.289.mcz ==================== Summary ==================== Name: Graphics-nice.289 Author: nice Time: 17 February 2014, 11:29:40.779 pm UUID: e809bcbf-53e1-420b-846a-9e86e0dd1f06 Ancestors: Graphics-nice.288 Fix incorrect display of underscore and caret in case of WideString displayed in DejaVu sans Strike fonts. Those fonts map caret Character (ascii 94) and underscore Character (ascii 95) to xTable at: 128 and 129 to avoid display of up and left arrow (thanks to characterToGlypMap ivar) But some StrikeFont methods did access directly the xTable, ignoring the indirection characterToGlypMap. This is incorrect, and lead to various layout problems because widthOf: correctly takes the indirection into account. Among those problems we can cite: - incorrect measurement of strings, - unconsistent placement of cursor, - weird text selection This fix is a serious candidate for inclusion in 4.5 release, but I let the maintainer decide... =============== Diff against Graphics-nice.288 =============== Item was changed: ----- Method: StrikeFont>>characterFormAt: (in category 'character shapes') ----- characterFormAt: character "Answer a Form copied out of the glyphs for the argument, character." | ascii leftX rightX | + ascii := self codeForCharacter: character. - ascii := character charCode. (ascii between: minAscii and: maxAscii) ifFalse: [ascii := maxAscii + 1]. leftX := xTable at: ascii + 1. rightX := xTable at: ascii + 2. leftX < 0 ifTrue: [^ glyphs copy: (0@0 corner: 0@self height)]. ^ glyphs copy: (leftX @ 0 corner: rightX @ self height)! Item was removed: - ----- Method: StrikeFont>>characterFormAtMulti: (in category 'character shapes') ----- - characterFormAtMulti: character - "Answer a Form copied out of the glyphs for the argument, character." - | ascii leftX rightX | - ascii := character charCode. - (ascii between: minAscii and: maxAscii) ifFalse: [ascii := maxAscii + 1]. - leftX := xTable at: ascii + 1. - rightX := xTable at: ascii + 2. - ^ glyphs copy: (leftX @ 0 corner: rightX @ self height)! Item was changed: ----- Method: StrikeFont>>characters:in:displayAt:clippedBy:rule:fillColor:kernDelta:on: (in category 'displaying') ----- characters: anInterval in: sourceString displayAt: aPoint clippedBy: clippingRectangle rule: ruleInteger fillColor: aForm kernDelta: kernDelta on: aBitBlt "Simple, slow, primitive method for displaying a line of characters. No wrap-around is provided." | destPoint | destPoint := aPoint. anInterval do: [:i | | sourceRect leftX ascii rightX | self flag: #yoDisplay. "if the char is not supported, fall back to the specified fontset." + ascii := self codeForCharacter: (sourceString at: i). - ascii := (sourceString at: i) charCode. (ascii < minAscii or: [ascii > maxAscii]) ifTrue: [ascii := maxAscii]. leftX := xTable at: ascii + 1. rightX := xTable at: ascii + 2. sourceRect := leftX@0 extent: (rightX-leftX) @ self height. aBitBlt copyFrom: sourceRect in: glyphs to: destPoint. destPoint := destPoint + ((rightX-leftX+kernDelta)@0). "destPoint printString displayAt: 0@(i*20)"]. ^ destPoint! Item was added: + ----- Method: StrikeFont>>codeForCharacter: (in category 'private') ----- + codeForCharacter: aCharacter + | code | + code := aCharacter charCode. + (self characterToGlyphMap isNil + or: [ characterToGlyphMap size <= code ]) + ifTrue: [^code]. + ^characterToGlyphMap at: code + 1! Item was changed: ----- Method: StrikeFont>>glyphInfoOf:into: (in category 'accessing') ----- glyphInfoOf: aCharacter into: glyphInfoArray "return the glyph info for aCharacter; if I don't have such a character, try my fallback font, if I have one of those. Unlike some other implementors, the returned info for a missing character is not given for the question-mark but rather the zero-ascii char." | code | (self hasGlyphOf: aCharacter) + ifTrue: [code := self codeForCharacter: aCharacter] - ifTrue: [code := aCharacter charCode] ifFalse: [fallbackFont ifNotNil: [^ fallbackFont glyphInfoOf: aCharacter into: glyphInfoArray]. code := 0]. glyphInfoArray at: 1 put: glyphs; at: 2 put: (xTable at: code + 1); at: 3 put: (xTable at: code + 2); at: 4 put: (self ascentOf: aCharacter); at: 5 put: self. ^ glyphInfoArray! Item was changed: ----- Method: StrikeFont>>glyphOf: (in category 'accessing') ----- glyphOf: aCharacter "Answer the width of the argument as a character in the receiver." | code | (self hasGlyphOf: aCharacter) ifFalse: [ fallbackFont ifNotNil: [ ^ fallbackFont glyphOf: aCharacter. ]. ^ (Form extent: 1@self height) fillColor: Color white ]. + code := self codeForCharacter: aCharacter. - code := aCharacter charCode. ^ glyphs copy: (((xTable at: code + 1)@0) corner: (xTable at: code +2)@self height). ! Item was added: + ----- Method: StrikeFont>>hasGlyphForCode: (in category 'multibyte character methods') ----- + hasGlyphForCode: aCharacterCode + + ((aCharacterCode between: self minAscii and: self maxAscii) not) ifTrue: [ + ^ false. + ]. + (xTable at: aCharacterCode + 1) < 0 ifTrue: [ + ^ false. + ]. + ^ true. + ! Item was changed: ----- Method: StrikeFont>>hasGlyphOf: (in category 'multibyte character methods') ----- hasGlyphOf: aCharacter + ^self hasGlyphForCode: (self codeForCharacter: aCharacter) - | code | - code := aCharacter charCode. - ((code between: self minAscii and: self maxAscii) not) ifTrue: [ - ^ false. - ]. - (xTable at: code + 1) < 0 ifTrue: [ - ^ false. - ]. - ^ true. ! Item was removed: - ----- Method: StrikeFont>>leftAndRighOrNilFor: (in category 'private') ----- - leftAndRighOrNilFor: char - - | code leftX | - code := char charCode. - ((code between: self minAscii and: self maxAscii) not) ifTrue: [ - code := $? charCode. - ]. - leftX := xTable at: code + 1. - leftX < 0 ifTrue: [ - code := $? charCode. - leftX := xTable at: code + 1. - ]. - ^ Array with: leftX with: (xTable at: code + 2). - !

1 0

← Newer
1
...
6
7
8
9
10
11
12
...
19
Older →

Jump to page: