Squeak-dev February 2010

squeak-dev@lists.squeakfoundation.org

89 participants
595 discussions

Smalltalk and Bioinformatics
by Hernán Morales Durand 28 Feb '10

28 Feb '10

Hi all, I'm preparing a presentation and just wondering if anyone out there is doing bioinformatics with Smalltalk? Cheers, Hernán

2 2

The Trunk: Multilingual-nice.98.mcz
by commits＠source.squeak.org 28 Feb '10

28 Feb '10

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.98.mcz ==================== Summary ==================== Name: Multilingual-nice.98 Author: nice Time: 28 February 2010, 8:13:45.783 pm UUID: b4ea43e3-dd3a-d043-b7c3-c7f882d840aa Ancestors: Multilingual-nice.97 Remove hardcoded 255 leadingChar in Unicode value, now that Unicode leadingChar = 0. =============== Diff against Multilingual-nice.97 =============== Item was changed: ----- Method: Unicode class>>value: (in category 'instance creation') ----- value: code | l | code < 256 ifTrue: [^ Character value: code]. l := Locale currentPlatform languageEnvironment leadingChar. - l = 0 ifTrue: [l := 255]. ^ Character leadingChar: l code: code. !

1 0

The Trunk: Collections-nice.324.mcz
by commits＠source.squeak.org 28 Feb '10

28 Feb '10

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.324.mcz ==================== Summary ==================== Name: Collections-nice.324 Author: nice Time: 28 February 2010, 7:43:00.668 pm UUID: 3bcc36b5-5ee2-c040-bc70-021f3ddfdc99 Ancestors: Collections-ar.323 Fix endOfRun and crossedX encodings in paragraph composition - Part 4 (clean-up) EndOfRun and CrossedX now are unused TextConstants. =============== Diff against Collections-ar.323 =============== Item was changed: ----- Method: Text class>>initTextConstants (in category 'class initialization') ----- initTextConstants "Initialize constants shared by classes associated with text display, e.g., Space, Tab, Cr, Bs, ESC." "1/24/96 sw: in exasperation and confusion, changed cmd-g mapping from 231 to 232 to see if I could gain any relief?!!" | letter varAndValue tempArray width | "CtrlA..CtrlZ, Ctrla..Ctrlz" letter := $A. #( 212 230 228 196 194 226 241 243 214 229 200 217 246 245 216 202 210 239 211 240 197 198 209 215 242 231 1 166 228 132 130 12 232 179 150 165 136 153 182 14 15 138 17 18 19 11 21 134 145 151 178 167 ) do: [:kbd | TextConstants at: ('Ctrl', letter asSymbol) asSymbol put: kbd asCharacter. letter := letter == $Z ifTrue: [$a] ifFalse: [(letter asciiValue + 1) asCharacter]]. varAndValue := #( Space 32 Tab 9 CR 13 Enter 3 BS 8 BS2 158 ESC 160 Clear 173 ). varAndValue size odd ifTrue: [self error: 'unpaired text constant']. (2 to: varAndValue size by: 2) do: [:i | TextConstants at: (varAndValue at: i - 1) put: (varAndValue at: i) asCharacter]. varAndValue := #( CtrlDigits (159 144 143 128 127 129 131 180 149 135) CtrlOpenBrackets (201 7 218 249 219 15) "lparen gottn by ctrl-:= = 201; should be 213 but can't type that on Mac" - "location of non-character stop conditions" - EndOfRun 257 - CrossedX 258 - "values for alignment" LeftFlush 0 RightFlush 1 Centered 2 Justified 3 "subscripts for a marginTabsArray tuple" LeftMarginTab 1 RightMarginTab 2 "font faces" Basal 0 Bold 1 Italic 2 "in case font doesn't have a width for space character" "some plausible numbers-- are they the right ones?" DefaultSpace 4 DefaultTab 24 DefaultLineGrid 16 DefaultBaseline 12 DefaultFontFamilySize 3 "basal, bold, italic" ). varAndValue size odd ifTrue: [self error: 'unpaired text constant']. (2 to: varAndValue size by: 2) do: [:i | TextConstants at: (varAndValue at: i - 1) put: (varAndValue at: i)]. TextConstants at: #DefaultRule put: Form over. TextConstants at: #DefaultMask put: Color black. width := Display width max: 720. tempArray := Array new: width // DefaultTab. 1 to: tempArray size do: [:i | tempArray at: i put: DefaultTab * i]. TextConstants at: #DefaultTabsArray put: tempArray. tempArray := Array new: (width // DefaultTab) // 2. 1 to: tempArray size do: [:i | tempArray at: i put: (Array with: (DefaultTab*i) with: (DefaultTab*i))]. TextConstants at: #DefaultMarginTabsArray put: tempArray. "Text initTextConstants "!

1 0

The Trunk: Multilingual-nice.97.mcz
by commits＠source.squeak.org 28 Feb '10

28 Feb '10

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.97.mcz ==================== Summary ==================== Name: Multilingual-nice.97 Author: nice Time: 28 February 2010, 7:40:52.257 pm UUID: 1b6781af-be5c-9b40-ab82-31fbe121e8b1 Ancestors: Multilingual-nice.96 Fix endOfRun and crossedX encodings in paragraph composition - Part 4 (clean-up) =============== Diff against Multilingual-nice.96 =============== Item was changed: ----- Method: MultiCharacterScanner class>>initialize (in category 'class initialization') ----- initialize " MultiCharacterScanner initialize " | a | + a := Array new: 256. - a := Array new: 258. a at: 1 + 1 put: #embeddedObject. a at: Tab asciiValue + 1 put: #tab. a at: CR asciiValue + 1 put: #cr. a at: Character lf asciiValue + 1 put: #cr. - a at: EndOfRun put: #endOfRun. - a at: CrossedX put: #crossedX. a := TextStopConditions new setStops: a. NilCondition := a copy. DefaultStopConditions := a copy. PaddedSpaceCondition := a copy. PaddedSpaceCondition at: Space asciiValue + 1 put: #paddedSpace. SpaceCondition := a copy. SpaceCondition at: Space asciiValue + 1 put: #space. ! Item was changed: ----- Method: MultiCharacterScanner>>initializeStringMeasurer (in category 'initialize') ----- initializeStringMeasurer | stops | + stops := Array new: 256. - stops := Array new: 258. - stops at: CrossedX put: #crossedX. - stops at: EndOfRun put: #endOfRun. stopConditions := TextStopConditions new setStops: stops. !

1 0

The Trunk: Graphics-nice.115.mcz
by commits＠source.squeak.org 28 Feb '10

28 Feb '10

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.115.mcz ==================== Summary ==================== Name: Graphics-nice.115 Author: nice Time: 28 February 2010, 7:39:34.808 pm UUID: e9412d55-5eab-884e-95b1-230b598cfa8f Ancestors: Graphics-nice.114 1) Fix endOfRun and crossedX encodings in paragraph composition - Part 4 (clean-up) 2) Workaround after setting Unicode leadingChar = 0 : CharacterScanner does not understand #scanMultiCharactersCombiningFrom:to:in:rightX:stopConditions:kern: =============== Diff against Graphics-nice.114 =============== Item was changed: ----- Method: CharacterScanner class>>initialize (in category 'class initialization') ----- initialize " CharacterScanner initialize " | a | + a := Array new: 256. - a := Array new: 258. a at: 1 + 1 put: #embeddedObject. a at: Tab asciiValue + 1 put: #tab. a at: CR asciiValue + 1 put: #cr. a at: Character lf asciiValue + 1 put: #cr. - a at: EndOfRun put: #endOfRun. - a at: CrossedX put: #crossedX. a := TextStopConditions new setStops: a. + NilCondition := a copy. DefaultStopConditions := a copy. PaddedSpaceCondition := a copy. PaddedSpaceCondition at: Space asciiValue + 1 put: #paddedSpace. SpaceCondition := a copy. SpaceCondition at: Space asciiValue + 1 put: #space. ! Item was changed: ----- Method: TextStopConditions>>setStops: (in category 'initialize-release') ----- setStops: stopArray + stops := stopArray! - stops := stopArray copyFrom: 1 to: 256. - endOfRun := stopArray at: 257. - crossedX := stopArray at: 258.! Item was changed: ----- Method: CharacterScanner>>initializeStringMeasurer (in category 'initialize') ----- initializeStringMeasurer | stops | + stops := Array new: 256. - stops := Array new: 258. - stops at: CrossedX put: #crossedX. - stops at: EndOfRun put: #endOfRun. stopConditions := TextStopConditions new setStops: stops. ! Item was added: + ----- Method: CharacterScanner>>scanMultiCharactersCombiningFrom:to:in:rightX:stopConditions:kern: (in category 'scanner methods') ----- + scanMultiCharactersCombiningFrom: startIndex to: stopIndex in: sourceString rightX: rightX stopConditions: stops kern: kernDelta + "Implement a workaround for unicode composing. + a MultiCharacterScanner should better be used to handle combination." + + ^self scanMultiCharactersFrom: startIndex to: stopIndex in: sourceString rightX: rightX stopConditions: stops kern: kernDelta! Item was changed: (PackageInfo named: 'Graphics') postscript: '"below, add code to be run after the loading of this package" + StrikeFont installDejaVu.'! - StrikeFont installDejaVu. - CharacterScanner initialize.'!

1 0

The Trunk: Kernel-dtl.414.mcz
by commits＠source.squeak.org 28 Feb '10

28 Feb '10

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.414.mcz ==================== Summary ==================== Name: Kernel-dtl.414 Author: dtl Time: 28 February 2010, 1:30:32.921 pm UUID: bca26e8e-d0b7-4ee0-a8f9-c27994a165e6 Ancestors: Kernel-dtl.413 Eliminate the "special menu..." pick from StringHolder class>>shiftedYellowBottonMenuItems for Morphic Retain a hook for it in MVC. Rationale: The special menu items selection is currently broken, but never did anything useful in Morphic AFICT. Best to just remove the option when not in MVC, but leave the MVC hook in hopes of fixing the original MVC implementation later (other MVC issues prevent this now). This changes adds another #isMorphic send, which is undesirable. However, a number of menu construction methods already have this issue, so a general solution is needed for tailoring these menus to different project types. =============== Diff against Kernel-dtl.413 =============== Item was changed: ----- Method: StringHolder class>>shiftedYellowButtonMenuItems (in category 'yellow button menu') ----- shiftedYellowButtonMenuItems "Returns the standard yellow button menu items" + | entries | + entries := OrderedCollection withAll: + { + {'explain' translated. #explain}. + {'pretty print' translated. #prettyPrint}. + {'pretty print with color' translated. #prettyPrintWithColor}. + {'file it in (G)' translated. #fileItIn}. + {'spawn (o)' translated. #spawn}. + #-. + {'browse it (b)' translated. #browseIt}. + {'senders of it (n)' translated. #sendersOfIt}. + {'implementors of it (m)' translated. #implementorsOfIt}. + {'references to it (N)' translated. #referencesToIt}. + #-. + {'selectors containing it (W)' translated. #methodNamesContainingIt}. + {'method strings with it (E)' translated. #methodStringsContainingit}. + {'method source with it' translated. #methodSourceContainingIt}. + {'class names containing it' translated. #classNamesContainingIt}. + {'class comments with it' translated. #classCommentsContainingIt}. + {'change sets with it' translated. #browseChangeSetsWithSelector}. + #-. + {'save contents to file...' translated. #saveContentsInFile}. + {'send contents to printer' translated. #sendContentsToPrinter}. + {'printer setup' translated. #printerSetup}. + #-. + }. + Smalltalk isMorphic ifFalse: [ entries add: + {'special menu...' translated. #presentSpecialMenu}.]. + entries add: + {'more...' translated. #yellowButtonActivity}. + ^ entries! - ^{ - {'explain' translated. #explain}. - {'pretty print' translated. #prettyPrint}. - {'pretty print with color' translated. #prettyPrintWithColor}. - {'file it in (G)' translated. #fileItIn}. - {'spawn (o)' translated. #spawn}. - #-. - {'browse it (b)' translated. #browseIt}. - {'senders of it (n)' translated. #sendersOfIt}. - {'implementors of it (m)' translated. #implementorsOfIt}. - {'references to it (N)' translated. #referencesToIt}. - #-. - {'selectors containing it (W)' translated. #methodNamesContainingIt}. - {'method strings with it (E)' translated. #methodStringsContainingit}. - {'method source with it' translated. #methodSourceContainingIt}. - {'class names containing it' translated. #classNamesContainingIt}. - {'class comments with it' translated. #classCommentsContainingIt}. - {'change sets with it' translated. #browseChangeSetsWithSelector}. - #-. - {'save contents to file...' translated. #saveContentsInFile}. - {'send contents to printer' translated. #sendContentsToPrinter}. - {'printer setup' translated. #printerSetup}. - #-. - {'special menu...' translated. #presentSpecialMenu}. - {'more...' translated. #yellowButtonActivity}. - }!

1 0

The Trunk: Tests-ul.50.mcz
by commits＠source.squeak.org 28 Feb '10

28 Feb '10

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.50.mcz ==================== Summary ==================== Name: Tests-ul.50 Author: ul Time: 28 February 2010, 7:22:44.839 pm UUID: 9ec80f2d-29ec-8040-8951-93066acefcd1 Ancestors: Tests-nice.49 - integrity tests for Dictionaries (except for WeakKeyDictionaries, because those state may change while the tests are running) =============== Diff against Tests-nice.49 =============== Item was added: + TestCase subclass: #DictionaryIntegrityTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Bugs'! Item was added: + ----- Method: DictionaryIntegrityTest>>testMethodDictionaries (in category 'tests') ----- + testMethodDictionaries + + MethodDictionary allInstancesDo: [ :dictionary | + dictionary keysAndValuesDo: [ :key :value | + self assert: (dictionary at: key) == value ]. + 1 to: dictionary basicSize do: [ :index | + (dictionary basicAt: index) + ifNil: [ self assert: (dictionary array at: index) isNil ] + ifNotNil: [ :key | + self assert: (dictionary scanFor: key) = index ] ] ]! Item was added: + ----- Method: DictionaryIntegrityTest>>testDictionaries (in category 'tests') ----- + testDictionaries + + #( + Dictionary + IdentityDictionary + SystemDictionary + LiteralDictionary + PluggableDictionary + WeakValueDictionary) do: [ :dictionaryClassName | + Smalltalk at: dictionaryClassName ifPresent: [ :dictionaryClass | + dictionaryClass allInstancesDo: [ :dictionary | + dictionary keysAndValuesDo: [ :key :value | + self assert: (dictionary at: key) == value ]. + dictionary array doWithIndex: [ :association :index | + association ifNotNil: [ + self assert: (dictionary scanFor: association key) = index ] ] ] ] ]!

1 0

The Trunk: Multilingual-nice.96.mcz
by commits＠source.squeak.org 28 Feb '10

28 Feb '10

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.96.mcz ==================== Summary ==================== Name: Multilingual-nice.96 Author: nice Time: 28 February 2010, 7:05:44.898 pm UUID: abba669e-e1c0-5f4a-986d-7996972104b0 Ancestors: Multilingual-nice.95 Fix endOfRun and crossedX encodings in paragraph composition - Part 3 =============== Diff against Multilingual-nice.95 =============== Item was changed: (PackageInfo named: 'Multilingual') postscript: '"below, add code to be run after the loading of this package" + MultiCharacterScanner initialize'! - '!

1 0

The Trunk: Graphics-nice.114.mcz
by commits＠source.squeak.org 28 Feb '10

28 Feb '10

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.114.mcz ==================== Summary ==================== Name: Graphics-nice.114 Author: nice Time: 28 February 2010, 7:04:48.729 pm UUID: cc6d727e-e474-7b4f-b908-97a30a6561c7 Ancestors: Graphics-nice.113 Fix endOfRun and crossedX encodings in paragraph composition - Part 3 =============== Diff against Graphics-nice.113 =============== Item was changed: ----- Method: TextStopConditions>>setStops: (in category 'initialize-release') ----- setStops: stopArray + stops := stopArray copyFrom: 1 to: 256. - stops := stopArray copyFrom: 1 to: 258. endOfRun := stopArray at: 257. crossedX := stopArray at: 258.! Item was changed: (PackageInfo named: 'Graphics') postscript: '"below, add code to be run after the loading of this package" + StrikeFont installDejaVu. + CharacterScanner initialize.'! - StrikeFont installDejaVu.'!

1 0

The Trunk: Multilingual-nice.95.mcz
by commits＠source.squeak.org 28 Feb '10

28 Feb '10

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.95.mcz ==================== Summary ==================== Name: Multilingual-nice.95 Author: nice Time: 28 February 2010, 6:41:05.397 pm UUID: 588ec28a-6df1-3c45-aaa4-1b4b82f6506a Ancestors: Multilingual-nice.94 Fix endOfRun and crossedX encodings in paragraph composition - Part 2 =============== Diff against Multilingual-nice.94 =============== Item was changed: ----- Method: MultiCharacterBlockScanner>>scanMultiCharactersCombiningFrom:to:in:rightX:stopConditions:kern: (in category 'scanning') ----- scanMultiCharactersCombiningFrom: startIndex to: stopIndex in: sourceString rightX: rightX stopConditions: stops kern: kernDelta | encoding f nextDestX maxAscii startEncoding char charValue floatDestX widthAndKernedWidth nextChar | lastIndex := startIndex. + lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops endOfRun]. - lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops at: EndOfRun]. startEncoding := (sourceString at: startIndex) leadingChar. font ifNil: [font := (TextConstants at: #DefaultMultiStyle) fontArray at: 1]. ((font isMemberOf: StrikeFontSet) or: [font isKindOf: TTCFontSet]) ifTrue: [ f := [font fontArray at: startEncoding + 1] on: Exception do: [:ex | nil]. f ifNil: [ f := font fontArray at: 1]. maxAscii := f maxAscii. spaceWidth := f widthOf: Space. ] ifFalse: [ maxAscii := font maxAscii. ]. floatDestX := destX. widthAndKernedWidth := Array new: 2. [lastIndex <= stopIndex] whileTrue: [ encoding := (sourceString at: lastIndex) leadingChar. + encoding ~= startEncoding ifTrue: [lastIndex := lastIndex - 1. ^ stops endOfRun]. - encoding ~= startEncoding ifTrue: [lastIndex := lastIndex - 1. ^ stops at: EndOfRun]. char := (sourceString at: lastIndex). charValue := char charCode. charValue > maxAscii ifTrue: [charValue := maxAscii]. (encoding = 0 and: [(stops at: charValue + 1) ~~ nil]) ifTrue: [ ^ stops at: charValue + 1 ]. nextChar := (lastIndex + 1 <= stopIndex) ifTrue:[sourceString at: lastIndex + 1] ifFalse:[nil]. font widthAndKernedWidthOfLeft: ((char isMemberOf: CombinedChar) ifTrue:[char base] ifFalse:[char]) right: nextChar into: widthAndKernedWidth. nextDestX := floatDestX + (widthAndKernedWidth at: 1). + nextDestX > rightX ifTrue: [^ stops crossedX]. - nextDestX > rightX ifTrue: [^ stops at: CrossedX]. floatDestX := floatDestX + kernDelta + (widthAndKernedWidth at: 2). destX := floatDestX. lastIndex := lastIndex + 1. ]. lastIndex := stopIndex. + ^ stops endOfRun! - ^ stops at: EndOfRun! Item was changed: ----- Method: MultiCharacterScanner>>scanMultiCharactersCombiningFrom:to:in:rightX:stopConditions:kern: (in category 'scanner methods') ----- scanMultiCharactersCombiningFrom: startIndex to: stopIndex in: sourceString rightX: rightX stopConditions: stops kern: kernDelta | charCode encoding f startEncoding combining combined combiningIndex c | lastIndex := startIndex. + lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops endOfRun]. - lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops at: EndOfRun]. startEncoding := (sourceString at: startIndex) leadingChar. font ifNil: [font := (TextConstants at: #DefaultMultiStyle) fontArray at: 1]. ((font isMemberOf: StrikeFontSet) or: [font isKindOf: TTCFontSet]) ifTrue: [ f := [font fontArray at: startEncoding + 1] on: Exception do: [:ex | nil]. f ifNil: [ f := font fontArray at: 1]. ]. spaceWidth := font widthOf: Space. combining := nil. [lastIndex <= stopIndex] whileTrue: [ charCode := (sourceString at: lastIndex) charCode. c := (sourceString at: lastIndex). combining ifNil: [ combining := CombinedChar new. combining add: c. combiningIndex := lastIndex. lastIndex := lastIndex + 1. ] ifNotNil: [ (combining add: c) ifFalse: [ self addCharToPresentation: (combined := combining combined). combining := CombinedChar new. combining add: c. charCode := combined charCode. encoding := combined leadingChar. encoding ~= startEncoding ifTrue: [lastIndex := lastIndex - 1. (encoding = 0 and: [charCode < 256 and:[(stops at: charCode + 1) notNil]]) ifTrue: [ ^ stops at: charCode + 1 ] ifFalse: [ + ^ stops endOfRun - ^ stops at: EndOfRun ]. ]. (encoding = 0 and: [charCode < 256 and:[(stops at: charCode + 1) notNil]]) ifTrue: [ combining ifNotNil: [ self addCharToPresentation: (combining combined). ]. ^ stops at: charCode + 1 ]. (self isBreakableAt: lastIndex in: sourceString in: Latin1Environment) ifTrue: [ self registerBreakableIndex. ]. destX > rightX ifTrue: [ destX ~= firstDestX ifTrue: [ lastIndex := combiningIndex. self removeLastCharFromPresentation. + ^ stops crossedX]]. - ^ stops at: CrossedX]]. combiningIndex := lastIndex. lastIndex := lastIndex + 1. ] ifTrue: [ lastIndex := lastIndex + 1. numOfComposition := numOfComposition + 1. ]. ]. ]. lastIndex := stopIndex. combining ifNotNil: [ combined := combining combined. self addCharToPresentation: combined. "assuming that there is always enough space for at least one character". destX := destX + (self widthOf: combined inFont: font). ]. + ^ stops endOfRun! - ^ stops at: EndOfRun! Item was changed: ----- Method: MultiCharacterScanner>>scanMultiCharactersFrom:to:in:rightX:stopConditions:kern: (in category 'scanning') ----- scanMultiCharactersFrom: startIndex to: stopIndex in: sourceString rightX: rightX stopConditions: stops kern: kernDelta | ascii encoding f nextDestX maxAscii startEncoding floatDestX widthAndKernedWidth nextChar atEndOfRun | lastIndex := startIndex. + lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops endOfRun]. - lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops at: EndOfRun]. startEncoding := (sourceString at: startIndex) leadingChar. font ifNil: [font := (TextConstants at: #DefaultMultiStyle) fontArray at: 1]. ((font isMemberOf: StrikeFontSet) or: [font isKindOf: TTCFontSet]) ifTrue: [ f := [font fontArray at: startEncoding + 1] on: Exception do: [:ex | nil]. f ifNil: [ f := font fontArray at: 1]. maxAscii := f maxAscii. spaceWidth := f widthOf: Space. ] ifFalse: [ maxAscii := font maxAscii. ]. floatDestX := destX. widthAndKernedWidth := Array new: 2. atEndOfRun := false. [lastIndex <= stopIndex] whileTrue: [ encoding := (sourceString at: lastIndex) leadingChar. + encoding ~= startEncoding ifTrue: [lastIndex := lastIndex - 1. ^ stops endOfRun]. - encoding ~= startEncoding ifTrue: [lastIndex := lastIndex - 1. ^ stops at: EndOfRun]. ascii := (sourceString at: lastIndex) charCode. ascii > maxAscii ifTrue: [ascii := maxAscii]. (encoding = 0 and: [ascii < stops size and: [(stops at: ascii + 1) ~~ nil]]) ifTrue: [^ stops at: ascii + 1]. (self isBreakableAt: lastIndex in: sourceString in: Latin1Environment) ifTrue: [ self registerBreakableIndex. ]. nextChar := (lastIndex + 1 <= stopIndex) ifTrue:[sourceString at: lastIndex + 1] ifFalse:[ atEndOfRun := true. "if there is a next char in sourceString, then get the kern and store it in pendingKernX" lastIndex + 1 <= sourceString size ifTrue:[sourceString at: lastIndex + 1] ifFalse:[ nil]]. font widthAndKernedWidthOfLeft: (sourceString at: lastIndex) right: nextChar into: widthAndKernedWidth. nextDestX := floatDestX + (widthAndKernedWidth at: 1). + nextDestX > rightX ifTrue: [destX ~= firstDestX ifTrue: [^stops crossedX]]. - nextDestX > rightX ifTrue: [destX ~= firstDestX ifTrue: [^stops at: CrossedX]]. floatDestX := floatDestX + kernDelta + (widthAndKernedWidth at: 2). atEndOfRun ifTrue:[ pendingKernX := (widthAndKernedWidth at: 2) - (widthAndKernedWidth at: 1). floatDestX := floatDestX - pendingKernX]. destX := floatDestX . lastIndex := lastIndex + 1. ]. lastIndex := stopIndex. + ^ stops endOfRun! - ^ stops at: EndOfRun! Item was changed: ----- Method: MultiDisplayScanner>>scanMultiCharactersCombiningFrom:to:in:rightX:stopConditions:kern: (in category 'multilingual scanning') ----- scanMultiCharactersCombiningFrom: startIndex to: stopIndex in: sourceString rightX: rightX stopConditions: stops kern: kernDelta | encoding f nextDestX startEncoding char charValue | lastIndex := startIndex. + lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops endOfRun]. - lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops at: EndOfRun]. startEncoding := (sourceString at: startIndex) leadingChar. font ifNil: [font := (TextConstants at: #DefaultMultiStyle) fontArray at: 1]. ((font isMemberOf: StrikeFontSet) or: [font isKindOf: TTCFontSet]) ifTrue: [ f := [font fontArray at: startEncoding + 1] on: Exception do: [:ex | nil]. f ifNil: [ f := font fontArray at: 1]. spaceWidth := f widthOf: Space. ]. [lastIndex <= stopIndex] whileTrue: [ encoding := (sourceString at: lastIndex) leadingChar. + encoding ~= startEncoding ifTrue: [lastIndex := lastIndex - 1. ^ stops endOfRun]. - encoding ~= startEncoding ifTrue: [lastIndex := lastIndex - 1. ^ stops at: EndOfRun]. char := (sourceString at: lastIndex). charValue := char charCode. (encoding = 0 and: [charValue < 256 and:[(stops at: charValue + 1) notNil]]) ifTrue: [^stops at: charValue + 1]. nextDestX := destX + (self widthOf: char inFont: font). + nextDestX > rightX ifTrue: [^ stops crossedX]. - nextDestX > rightX ifTrue: [^ stops at: CrossedX]. destX := nextDestX + kernDelta. lastIndex := lastIndex + 1. ]. lastIndex := stopIndex. + ^ stops endOfRun! - ^ stops at: EndOfRun! Item was changed: ----- Method: MultiCharacterScanner>>scanCharactersFrom:to:in:rightX:stopConditions:kern: (in category 'scanning') ----- scanCharactersFrom: startIndex to: stopIndex in: sourceString rightX: rightX stopConditions: stops kern: kernDelta | startEncoding selector | (sourceString isByteString) ifTrue: [^ self basicScanCharactersFrom: startIndex to: stopIndex in: sourceString rightX: rightX stopConditions: stops kern: kernDelta.]. (sourceString isWideString) ifTrue: [ + startIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops endOfRun]. - startIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops at: EndOfRun]. startEncoding := (sourceString at: startIndex) leadingChar. selector := EncodedCharSet scanSelectorAt: startEncoding. ^ self perform: selector withArguments: (Array with: startIndex with: stopIndex with: sourceString with: rightX with: stops with: kernDelta). ]. + ^ stops endOfRun - ^ stops at: EndOfRun ! Item was changed: ----- Method: MultiCharacterScanner>>scanJapaneseCharactersFrom:to:in:rightX:stopConditions:kern: (in category 'scanner methods') ----- scanJapaneseCharactersFrom: startIndex to: stopIndex in: sourceString rightX: rightX stopConditions: stops kern: kernDelta | ascii encoding f nextDestX startEncoding | lastIndex := startIndex. + lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops endOfRun]. - lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops at: EndOfRun]. startEncoding := (sourceString at: startIndex) leadingChar. font ifNil: [font := (TextConstants at: #DefaultMultiStyle) fontArray at: 1]. ((font isMemberOf: StrikeFontSet) or: [font isKindOf: TTCFontSet]) ifTrue: [ f := [font fontArray at: startEncoding + 1] on: Exception do: [:ex | nil]. f ifNil: [ f := font fontArray at: 1]. spaceWidth := f widthOf: Space. ] ifFalse: [ (font isMemberOf: HostFont) ifTrue: [ f := font. spaceWidth := f widthOf: Space. ]. ]. [lastIndex <= stopIndex] whileTrue: [ "self halt." encoding := (sourceString at: lastIndex) leadingChar. + encoding ~= startEncoding ifTrue: [lastIndex := lastIndex - 1. ^ stops endOfRun]. - encoding ~= startEncoding ifTrue: [lastIndex := lastIndex - 1. ^ stops at: EndOfRun]. ascii := (sourceString at: lastIndex) charCode. (encoding = 0 and: [ascii < 256 and:[(stops at: ascii + 1) notNil]]) ifTrue: [^ stops at: ascii + 1]. (self isBreakableAt: lastIndex in: sourceString in: (EncodedCharSet charsetAt: encoding)) ifTrue: [ self registerBreakableIndex. ]. nextDestX := destX + (font widthOf: (sourceString at: lastIndex)). + nextDestX > rightX ifTrue: [firstDestX ~= destX ifTrue: [^ stops crossedX]]. - nextDestX > rightX ifTrue: [firstDestX ~= destX ifTrue: [^ stops at: CrossedX]]. destX := nextDestX + kernDelta. lastIndex := lastIndex + 1. ]. lastIndex := stopIndex. + ^ stops endOfRun! - ^ stops at: EndOfRun! Item was changed: ----- Method: MultiCharacterScanner>>basicScanCharactersFrom:to:in:rightX:stopConditions:kern: (in category 'scanning') ----- basicScanCharactersFrom: startIndex to: stopIndex in: sourceString rightX: rightX stopConditions: stops kern: kernDelta "Primitive. This is the inner loop of text display--but see scanCharactersFrom: to:rightX: which would get the string, stopConditions and displaying from the instance. March through source String from startIndex to stopIndex. If any character is flagged with a non-nil entry in stops, then return the corresponding value. Determine width of each character from xTable, indexed by map. If dextX would exceed rightX, then return stops at: 258. Advance destX by the width of the character. If stopIndex has been reached, then return stops at: 257. Optional. See Object documentation whatIsAPrimitive." | ascii nextDestX char floatDestX widthAndKernedWidth nextChar atEndOfRun | <primitive: 103> lastIndex := startIndex. floatDestX := destX. widthAndKernedWidth := Array new: 2. atEndOfRun := false. [lastIndex <= stopIndex] whileTrue: [char := (sourceString at: lastIndex). ascii := char asciiValue + 1. (stops at: ascii) == nil ifFalse: [^stops at: ascii]. "Note: The following is querying the font about the width since the primitive may have failed due to a non-trivial mapping of characters to glyphs or a non-existing xTable." nextChar := (lastIndex + 1 <= stopIndex) ifTrue:[sourceString at: lastIndex + 1] ifFalse:[ atEndOfRun := true. "if there is a next char in sourceString, then get the kern and store it in pendingKernX" lastIndex + 1 <= sourceString size ifTrue:[sourceString at: lastIndex + 1] ifFalse:[ nil]]. font widthAndKernedWidthOfLeft: char right: nextChar into: widthAndKernedWidth. nextDestX := floatDestX + (widthAndKernedWidth at: 1). + nextDestX > rightX ifTrue: [^stops crossedX]. - nextDestX > rightX ifTrue: [^stops at: CrossedX]. floatDestX := floatDestX + kernDelta + (widthAndKernedWidth at: 2). atEndOfRun ifTrue:[ pendingKernX := (widthAndKernedWidth at: 2) - (widthAndKernedWidth at: 1). floatDestX := floatDestX - pendingKernX]. destX := floatDestX. lastIndex := lastIndex + 1]. lastIndex := stopIndex. + ^stops endOfRun! - ^stops at: EndOfRun! Item was changed: (PackageInfo named: 'Multilingual') postscript: '"below, add code to be run after the loading of this package" + '! - EncodedCharSet initialize. - MultiCharacterScanner initialize.'!

1 0

Jump to page: