Squeak-dev May 2011

squeak-dev@lists.squeakfoundation.org

84 participants
303 discussions

[BUG][M7635] Fraction class co-ordinates
by Jerome Peace 23 May '11

23 May '11

Hi all, Good bug find Rodney. http://bugs.squeak.org/view.php?id=7635 Summary 0007635: Graphics primitives will raise errors when rectangles have widths in fractions. Description For this one in a work space evaluate box := RectangleMorph new openCenteredInWorld . box bounds: ((375@280 corner: 425@320) insetBy: (3/4)). The alternate form: box bounds: ((375@280 corner: 425@320) insetBy: (0.75)) will work without error. Yours in curiosity and service, --Jerome Peace

3 4

The Trunk: Morphic-bf.543.mcz
by commits＠source.squeak.org 23 May '11

23 May '11

Bert Freudenberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-bf.543.mcz ==================== Summary ==================== Name: Morphic-bf.543 Author: bf Time: 23 May 2011, 12:11:27.664 pm UUID: b8b2ae61-d84f-4f1a-bf36-38ce1f256c7e Ancestors: Morphic-dtl.542 bullet-proof Morphic drawing error handling =============== Diff against Morphic-dtl.542 =============== Item was changed: ----- Method: HandMorph>>fullDrawOn: (in category 'drawing') ----- fullDrawOn: aCanvas "A HandMorph has unusual drawing requirements: 1. the hand itself (i.e., the cursor) appears in front of its submorphs 2. morphs being held by the hand cast a shadow on the world/morphs below The illusion is that the hand plucks up morphs and carries them above the world." "Note: This version caches an image of the morphs being held by the hand for better performance. This cache is invalidated if one of those morphs changes." | disableCaching subBnds roundCorners rounded | self visible ifFalse: [^self]. (aCanvas isVisible: self fullBounds) ifFalse: [^self]. + (self hasProperty: #errorOnDraw) ifTrue:[^self drawErrorOn: aCanvas]. disableCaching := false. disableCaching ifTrue: [self nonCachingFullDrawOn: aCanvas. ^self]. submorphs isEmpty ifTrue: [cacheCanvas := nil. ^self drawOn: aCanvas]. "just draw the hand itself" subBnds := Rectangle merging: (submorphs collect: [:m | m fullBounds]). self updateCacheCanvas: aCanvas. (cacheCanvas isNil or: [cachedCanvasHasHoles and: [cacheCanvas depth = 1]]) ifTrue: ["could not use caching due to translucency; do full draw" self nonCachingFullDrawOn: aCanvas. ^self]. "--> begin rounded corners hack <---" roundCorners := cachedCanvasHasHoles == false and: [submorphs size = 1 and: [submorphs first wantsRoundedCorners]]. roundCorners ifTrue: [rounded := submorphs first. aCanvas asShadowDrawingCanvas translateBy: self shadowOffset during: [:shadowCanvas | shadowCanvas roundCornersOf: rounded during: [(subBnds areasOutside: (rounded boundsWithinCorners translateBy: self shadowOffset negated)) do: [:r | shadowCanvas fillRectangle: r color: Color black]]]. aCanvas roundCornersOf: rounded during: [aCanvas drawImage: cacheCanvas form at: subBnds origin sourceRect: cacheCanvas form boundingBox]. ^self drawOn: aCanvas "draw the hand itself in front of morphs"]. "--> end rounded corners hack <---" "draw the shadow" aCanvas asShadowDrawingCanvas translateBy: self shadowOffset during: [:shadowCanvas | cachedCanvasHasHoles ifTrue: ["Have to draw the real shadow of the form" shadowCanvas paintImage: cacheCanvas form at: subBnds origin] ifFalse: ["Much faster if only have to shade the edge of a solid rectangle" (subBnds areasOutside: (subBnds translateBy: self shadowOffset negated)) do: [:r | shadowCanvas fillRectangle: r color: Color black]]]. "draw morphs in front of the shadow using the cached Form" cachedCanvasHasHoles ifTrue: [aCanvas paintImage: cacheCanvas form at: subBnds origin] ifFalse: [aCanvas drawImage: cacheCanvas form at: subBnds origin sourceRect: cacheCanvas form boundingBox]. self drawOn: aCanvas "draw the hand itself in front of morphs"! Item was changed: ----- Method: Morph>>drawErrorOn: (in category 'drawing') ----- drawErrorOn: aCanvas "The morph (or one of its submorphs) had an error in its drawing method." + | saneBounds | + saneBounds := bounds rounded. aCanvas + frameAndFillRectangle: saneBounds - frameAndFillRectangle: bounds fillColor: Color red borderWidth: 1 borderColor: Color yellow. + aCanvas line: saneBounds topLeft to: saneBounds bottomRight width: 1 color: Color yellow. + aCanvas line: saneBounds topRight to: saneBounds bottomLeft width: 1 color: Color yellow.! - aCanvas line: bounds topLeft to: bounds bottomRight width: 1 color: Color yellow. - aCanvas line: bounds topRight to: bounds bottomLeft width: 1 color: Color yellow.!

1 0

Daily Commit Log
by commits＠source.squeak.org 23 May '11

23 May '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-May/004714.html Name: Multilingual-ul.144 Ancestors: Multilingual-nice.143 MultiByteFileStream changes: - ensure that wantsLineEndConversion is initalized - deprecated #convertStringFromCr: and #convertStringToCr: Use latin1Encodings in ByteTextConverter's and UTF8TextConverter's #nextPut:toStream: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004715.html Name: Multilingual-ul.145 Ancestors: Multilingual-ul.144 Ensure that #nextPut:toStream: always returns it's first argument like all other #nextPut: variants. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004716.html Name: Files-ul.110 Ancestors: Files-nice.109 Send #initialize to new FileStream sub instances. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004717.html Name: Multilingual-ul.146 Ancestors: Multilingual-ul.145 MultiByteFileStream changes: - assume that wantsLineEndConversion is properly initialized - removed the line end conversion code from #nextPut: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004718.html Name: Multilingual-ul.147 Ancestors: Multilingual-ul.146 - added migration code to the preamble to avoid errors during updates caused by uninitialized wantsLineEndConversion ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004719.html Name: Multilingual-ul.148 Ancestors: Multilingual-ul.147 - fixed UTF16 line end conversions - initialize instance variables of UTF16TextConverter ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004720.html Name: Multilingual-ul.149 Ancestors: Multilingual-ul.148 - assume that UTF16TextConverter's instance variables are correctly initialized. Migration code is in the preamble. - other minor refactorings of UTF16TextConverter ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004721.html Name: Multilingual-ul.150 Ancestors: Multilingual-ul.149 - small bugfix ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004722.html Name: Morphic-dtl.542 Ancestors: Morphic-laza.541 Fix Mantis 7635: Graphics primitives will raise errors when rectangles have widths in fractions. Morph>>extent: should send #rounded to the new extent to ensure integer values. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004723.html Name: Multilingual-ul.151 Ancestors: Multilingual-ul.150 All TextConverters pass the line end conversion test. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004724.html Name: ToolsTests-fbs.44 Ancestors: ToolsTests-fbs.42 If you're looking at a method #foo, and you don't have a message category selected, and you move classes to something that also has a #foo, keep #foo selected. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004725.html Name: ToolsTests-fbs.45 Ancestors: ToolsTests-fbs.42 Test for Tools-laza.354, and a bonus test just for kicks. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004726.html Name: ToolsTests-ul.46 Ancestors: ToolsTests-fbs.44, ToolsTests-fbs.45 Merged. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004727.html Name: Tools-fbs.355 Ancestors: Tools-laza.354 If you're looking at a method #foo, and you don't have a message category selected, and you move classes to something that also has a #foo, keep #foo selected. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004728.html Name: Tools-ul.356 Ancestors: Tools-laza.355, Tools-fbs.355 - merged - changed the postscript to initialize the bindings variable of workspaces =============================================

1 0

The Trunk: Tools-ul.356.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.356.mcz ==================== Summary ==================== Name: Tools-ul.356 Author: ul Time: 22 May 2011, 11:45:19.335 pm UUID: 8094a077-168f-b343-a358-68f7d6b377c9 Ancestors: Tools-laza.355, Tools-fbs.355 - merged - changed the postscript to initialize the bindings variable of workspaces =============== Diff against Tools-laza.355 =============== Item was changed: ----- Method: Browser>>selectClassNamed: (in category 'class list') ----- selectClassNamed: aSymbolOrString | className currentMessageCategoryName currentMessageName | currentMessageCategoryName := [self selectedMessageCategoryName] on: Error do: [:ex| ex return: nil]. currentMessageName := [self selectedMessageName] on: Error do: [:ex| ex return: nil]. selectedClassName := aSymbolOrString ifNotNil: [ aSymbolOrString asSymbol ]. self setClassOrganizer. "Try to reselect the category and/or selector if the new class has them." selectedMessageCategoryName :=(self messageCategoryList includes: currentMessageCategoryName) ifTrue: [currentMessageCategoryName] ifFalse: [nil]. + selectedMessageName := currentMessageName. - selectedMessageName := (self hasMessageCategorySelected - ifTrue: [ currentMessageName ] - ifFalse: [ nil ]). self hasMessageSelected ifTrue: [self editSelection: #editMessage] ifFalse: [self hasMessageCategorySelected ifTrue: [self editSelection: #newMessage] ifFalse: [self classCommentIndicated ifTrue: [self editSelection: #editComment] ifFalse: [self editSelection: (self hasClassSelected not ifTrue: [(metaClassIndicated or: [ self hasSystemCategorySelected not ]) ifTrue: [#none] ifFalse: [#newClass]] ifFalse: [#editClass])]]]. contents := nil. self selectedClass isNil ifFalse: [className := self selectedClass name. (RecentClasses includes: className) ifTrue: [RecentClasses remove: className]. RecentClasses addFirst: className. RecentClasses size > 16 ifTrue: [RecentClasses removeLast]]. self changed: #classSelectionChanged. self changed: #classCommentText. self changed: #classListIndex. "update my selection" self changed: #messageCategoryList. self changed: #messageList. self changed: #relabel. self contentsChanged! Item was changed: + (PackageInfo named: 'Tools') postscript: 'Workspace allSubInstancesDo: [ :each | (each instVarNamed: #bindings) ifNil: [ each initializeBindings ] ]'! - (PackageInfo named: 'Tools') postscript: '"below, add code to be run after the loading of this package" - World isWorldMorph ifTrue: [ World initializeDesktopCommandKeySelectors ]. - CodeHolder initialize'!

1 0

The Trunk: Tools-fbs.355.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.355.mcz ==================== Summary ==================== Name: Tools-fbs.355 Author: fbs Time: 13 May 2011, 10:42:24.712 pm UUID: 1ad68e23-29f3-024c-b421-ecf6a12bb1ea Ancestors: Tools-laza.354 If you're looking at a method #foo, and you don't have a message category selected, and you move classes to something that also has a #foo, keep #foo selected. =============== Diff against Tools-laza.354 =============== Item was changed: ----- Method: Browser>>selectClassNamed: (in category 'class list') ----- selectClassNamed: aSymbolOrString | className currentMessageCategoryName currentMessageName | currentMessageCategoryName := [self selectedMessageCategoryName] on: Error do: [:ex| ex return: nil]. currentMessageName := [self selectedMessageName] on: Error do: [:ex| ex return: nil]. selectedClassName := aSymbolOrString ifNotNil: [ aSymbolOrString asSymbol ]. self setClassOrganizer. "Try to reselect the category and/or selector if the new class has them." selectedMessageCategoryName :=(self messageCategoryList includes: currentMessageCategoryName) ifTrue: [currentMessageCategoryName] ifFalse: [nil]. + selectedMessageName := currentMessageName. - selectedMessageName := (self hasMessageCategorySelected - ifTrue: [ currentMessageName ] - ifFalse: [ nil ]). self hasMessageSelected ifTrue: [self editSelection: #editMessage] ifFalse: [self hasMessageCategorySelected ifTrue: [self editSelection: #newMessage] ifFalse: [self classCommentIndicated ifTrue: [self editSelection: #editComment] ifFalse: [self editSelection: (self hasClassSelected not ifTrue: [(metaClassIndicated or: [ self hasSystemCategorySelected not ]) ifTrue: [#none] ifFalse: [#newClass]] ifFalse: [#editClass])]]]. contents := nil. self selectedClass isNil ifFalse: [className := self selectedClass name. (RecentClasses includes: className) ifTrue: [RecentClasses remove: className]. RecentClasses addFirst: className. RecentClasses size > 16 ifTrue: [RecentClasses removeLast]]. self changed: #classSelectionChanged. self changed: #classCommentText. self changed: #classListIndex. "update my selection" self changed: #messageCategoryList. self changed: #messageList. self changed: #relabel. self contentsChanged!

1 0

The Trunk: ToolsTests-ul.46.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-ul.46.mcz ==================== Summary ==================== Name: ToolsTests-ul.46 Author: ul Time: 22 May 2011, 11:38:50.234 pm UUID: 45081967-5ed0-c540-83e7-096a39510300 Ancestors: ToolsTests-fbs.44, ToolsTests-fbs.45 Merged. =============== Diff against ToolsTests-fbs.44 =============== Item was added: + ----- Method: DependencyBrowserTest>>testSelectedMessageClassSideShowsSource (in category 'testing - message list') ----- + testSelectedMessageClassSideShowsSource + "Warning!! When Collections' dependencies change, this test may start to fail!!" + + browser packageListIndex: (browser packageList indexOf: #Kernel). + browser packageDepsIndex: (browser packageDeps indexOf: #Collections). + browser classDepsIndex: (browser classDeps indexOf: #'Array'). + browser classListIndex: (browser classList indexOf: #'DateAndTime class'). + browser messageListIndex: 1. + self assert: browser selectedMessageName == #fromSeconds:. + + self assert: browser contents = (DateAndTime class sourceCodeAt: #fromSeconds:) + ! Item was added: + ----- Method: DependencyBrowserTest>>testSelectedMessageNameClassSide (in category 'testing - message list') ----- + testSelectedMessageNameClassSide + "Warning!! When Collections' dependencies change, this test may start to fail!!" + self assert: browser selectedMessageName isNil. + + browser packageListIndex: (browser packageList indexOf: #Kernel). + self assert: browser selectedMessageName isNil. + + browser packageDepsIndex: (browser packageDeps indexOf: #Collections). + self assert: browser selectedMessageName isNil. + + browser classDepsIndex: (browser classDeps indexOf: #Array). + self assert: browser selectedMessageName isNil. + + browser classListIndex: (browser classList indexOf: #'DateAndTime class'). + self assert: browser selectedMessageName isNil. + + browser messageListIndex: 1. + self assert: browser selectedMessageName == #fromSeconds:. + !

1 0

The Trunk: ToolsTests-fbs.45.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-fbs.45.mcz ==================== Summary ==================== Name: ToolsTests-fbs.45 Author: fbs Time: 14 May 2011, 9:33:53.098 am UUID: 71464cf7-859c-3547-8cf8-3b68bc02b12a Ancestors: ToolsTests-fbs.42 Test for Tools-laza.354, and a bonus test just for kicks. =============== Diff against ToolsTests-fbs.42 =============== Item was added: + ----- Method: DependencyBrowserTest>>testSelectedMessageClassSideShowsSource (in category 'testing - message list') ----- + testSelectedMessageClassSideShowsSource + "Warning!! When Collections' dependencies change, this test may start to fail!!" + + browser packageListIndex: (browser packageList indexOf: #Kernel). + browser packageDepsIndex: (browser packageDeps indexOf: #Collections). + browser classDepsIndex: (browser classDeps indexOf: #'Array'). + browser classListIndex: (browser classList indexOf: #'DateAndTime class'). + browser messageListIndex: 1. + self assert: browser selectedMessageName == #fromSeconds:. + + self assert: browser contents = (DateAndTime class sourceCodeAt: #fromSeconds:) + ! Item was added: + ----- Method: DependencyBrowserTest>>testSelectedMessageNameClassSide (in category 'testing - message list') ----- + testSelectedMessageNameClassSide + "Warning!! When Collections' dependencies change, this test may start to fail!!" + self assert: browser selectedMessageName isNil. + + browser packageListIndex: (browser packageList indexOf: #Kernel). + self assert: browser selectedMessageName isNil. + + browser packageDepsIndex: (browser packageDeps indexOf: #Collections). + self assert: browser selectedMessageName isNil. + + browser classDepsIndex: (browser classDeps indexOf: #Array). + self assert: browser selectedMessageName isNil. + + browser classListIndex: (browser classList indexOf: #'DateAndTime class'). + self assert: browser selectedMessageName isNil. + + browser messageListIndex: 1. + self assert: browser selectedMessageName == #fromSeconds:. + !

1 0

The Trunk: ToolsTests-fbs.44.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-fbs.44.mcz ==================== Summary ==================== Name: ToolsTests-fbs.44 Author: fbs Time: 13 May 2011, 10:42:43.121 pm UUID: 38aab1aa-dadd-2b4d-b055-5a049109ec4d Ancestors: ToolsTests-fbs.42 If you're looking at a method #foo, and you don't have a message category selected, and you move classes to something that also has a #foo, keep #foo selected. =============== Diff against ToolsTests-fbs.42 =============== Item was added: + ----- Method: BrowserTest>>testKeepMethodSelectedWhenChangingClass (in category 'testing - message list') ----- + testKeepMethodSelectedWhenChangingClass + browser selectSystemCategory: SequenceableCollection category. + browser selectClass: SequenceableCollection. + browser selectMessageNamed: #add:. + self assert: browser selectedMessageName = #add:. + + "Even though we have no message category selected, stay looking at the #add: method." + browser selectClass: Collection. + self assert: browser selectedMessageName = #add:.!

1 0

The Trunk: Multilingual-ul.151.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.151.mcz ==================== Summary ==================== Name: Multilingual-ul.151 Author: ul Time: 22 May 2011, 10:12:27.443 pm UUID: e47408e2-bdb2-ab44-83f0-82ba2d25b64d Ancestors: Multilingual-ul.150 All TextConverters pass the line end conversion test. =============== Diff against Multilingual-ul.150 =============== Item was changed: ----- Method: CompoundTextConverter>>nextPut:toStream: (in category 'conversion') ----- nextPut: aCharacter toStream: aStream + | charCode leadingChar class | - | ascii leadingChar class | aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream]. aCharacter isTraditionalDomestic ifFalse: [ class := (EncodedCharSet charsetAt: aCharacter leadingChar) traditionalCharsetClass. + charCode := (class charFromUnicode: aCharacter asUnicode) charCode. - ascii := (class charFromUnicode: aCharacter asUnicode) charCode. leadingChar := class leadingChar. ] ifTrue: [ + charCode := aCharacter charCode. - ascii := aCharacter charCode. leadingChar := aCharacter leadingChar. ]. + charCode < 256 ifTrue: [ + (latin1Encodings at: charCode + 1) + ifNil: [ aStream basicNextPut: aCharacter ] + ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ]. + ^aCharacter ]. + self + nextPutValue: charCode + toStream: aStream + withShiftSequenceIfNeededForLeadingChar: leadingChar. - - self nextPutValue: ascii toStream: aStream withShiftSequenceIfNeededForLeadingChar: leadingChar. ^aCharacter ! Item was changed: ----- Method: EUCTextConverter>>nextPut:toStream: (in category 'conversion') ----- nextPut: aCharacter toStream: aStream + | charCode leadingChar nonUnicodeChar | - | value leadingChar nonUnicodeChar value1 value2 | aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream]. + charCode := aCharacter charCode. - value := aCharacter charCode. leadingChar := aCharacter leadingChar. + (leadingChar = 0 and: [ charCode < 256 ]) ifTrue: [ + (latin1Encodings at: charCode + 1) + ifNil: [ aStream basicNextPut: aCharacter ] + ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ]. + ^aCharacter ]. + aCharacter isTraditionalDomestic + ifFalse: [ nonUnicodeChar := self nonUnicodeClass charFromUnicode: charCode ] + ifTrue: [ nonUnicodeChar := Character value: charCode ]. - (leadingChar = 0 and: [value < 128]) ifTrue: [ - ^aStream basicNextPut: (Character value: value). - ]. - - (128 <= value and: [value < 256]) ifTrue: [^ aStream]. - aCharacter isTraditionalDomestic ifFalse: [ - nonUnicodeChar := self nonUnicodeClass charFromUnicode: value. - ] ifTrue: [ - nonUnicodeChar :=(Character value: value) - ]. nonUnicodeChar ifNotNil: [ + charCode := nonUnicodeChar charCode. + aStream + basicNextPut: (Character value: charCode // 94 + 161); + basicNextPut: (Character value: charCode \\ 94 + 161) ]. - value := nonUnicodeChar charCode. - value1 := value // 94 + 161. - value2 := value \\ 94 + 161. - aStream basicNextPut: (Character value: value1). - aStream basicNextPut: (Character value: value2). - ]. ^aCharacter ! Item was changed: ----- Method: ShiftJISTextConverter>>nextPut:toStream: (in category 'conversion') ----- + nextPut: aCharacter toStream: aStream + + | charCode leadingChar aChar | - nextPut: aCharacter toStream: aStream - | value leadingChar aChar | aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream]. + aChar := aCharacter. + charCode := aCharacter charCode. + aChar isTraditionalDomestic ifFalse: [ + (16rFF61 <= charCode and: [charCode <= 16rFF9F]) ifTrue: [ + ^aStream basicNextPut: (self sjisKatakanaFor: charCode) ]. + aChar := (JISX0208 charFromUnicode: charCode) ifNil: [ + ^aCharacter "an error or nil may be better" ]. + charCode := aChar charCode ]. + (leadingChar := aChar leadingChar) = 0 ifTrue: [ + charCode < 256 ifTrue: [ + (latin1Encodings at: charCode + 1) + ifNil: [ aStream basicNextPut: aChar ] + ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ]. + ^aChar ]. + ^aStream basicNextPut: aChar ]. + leadingChar = self leadingChar ifTrue: [ - aCharacter isTraditionalDomestic ifTrue: [ - aChar := aCharacter. - value := aCharacter charCode. - ] ifFalse: [ - value := aCharacter charCode. - (16rFF61 <= value and: [value <= 16rFF9F]) ifTrue: [ - ^aStream basicNextPut: (self sjisKatakanaFor: value). - ]. - aChar := JISX0208 charFromUnicode: value. - aChar ifNil: [^ aStream]. - value := aChar charCode. - ]. - leadingChar := aChar leadingChar. - leadingChar = 0 ifTrue: [ - ^aStream basicNextPut: (Character value: value). - ]. - leadingChar == self leadingChar ifTrue: [ | upper lower | + upper := charCode // 94 + 33. + lower := charCode \\ 94 + 33. - upper := value // 94 + 33. - lower := value \\ 94 + 33. upper \\ 2 = 1 ifTrue: [ upper := upper + 1 / 2 + 112. lower := lower + 31 ] ifFalse: [ upper := upper / 2 + 112. lower := lower + 125 ]. upper >= 160 ifTrue: [upper := upper + 64]. lower >= 127 ifTrue: [lower := lower + 1]. + aStream + basicNextPut: (Character value: upper); + basicNextPut: (Character value: lower) ]. + ^aChar - aStream basicNextPut: (Character value: upper). - aStream basicNextPut: (Character value: lower). - ]. - ^aCharacter !

1 0

The Trunk: Morphic-dtl.542.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.542.mcz ==================== Summary ==================== Name: Morphic-dtl.542 Author: dtl Time: 22 May 2011, 4:28:44.002 pm UUID: 08000000-1508-341b-1508-341b14000000 Ancestors: Morphic-laza.541 Fix Mantis 7635: Graphics primitives will raise errors when rectangles have widths in fractions. Morph>>extent: should send #rounded to the new extent to ensure integer values. =============== Diff against Morphic-laza.541 =============== Item was changed: ----- Method: Morph>>extent: (in category 'geometry') ----- extent: aPoint (bounds extent closeTo: aPoint) ifTrue: [^ self]. self changed. + bounds := (bounds topLeft extent: aPoint) rounded. - bounds := bounds topLeft extent: aPoint. self layoutChanged. self changed. !

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
31
Older →

Jump to page: