Squeak-dev July 2010

squeak-dev@lists.squeakfoundation.org

75 participants
234 discussions

The Trunk: System-ar.352.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ar.352.mcz ==================== Summary ==================== Name: System-ar.352 Author: ar Time: 21 July 2010, 8:21:13.769 pm UUID: 938d7c50-3c8a-4b4e-ad1a-cfb618b7df1f Ancestors: System-ar.351 Only enable #narrowScrollBars when #tinyDisplay is set. Otherwise leave it at the regular size. =============== Diff against System-ar.351 =============== Item was changed: ----- Method: Preferences class>>displaySizeChanged (in category 'reacting to change') ----- displaySizeChanged self flag: #todo. "only change font on small-land image" self smallLandFonts. + self tinyDisplay + ifTrue: [self enable: #scrollBarsNarrow] + ifFalse: [self disable: #scrollBarsNarrow]. + self tinyDisplay + ifTrue:[self disable: #biggerHandles] + ifFalse:[self enable: #biggerHandles]! - self bigDisplay - ifTrue: [self disable: #scrollBarsNarrow] - ifFalse: [self enable: #scrollBarsNarrow]. - self tinyDisplay ifTrue:[self disable: #biggerHandles] ifFalse:[self enable: #biggerHandles]!

1 0

The Trunk: Tests-ar.87.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Andreas Raab uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ar.87.mcz ==================== Summary ==================== Name: Tests-ar.87 Author: ar Time: 21 July 2010, 8:18:49.681 pm UUID: 8c7eeab9-8dba-b54e-8a93-4d7dfbdba6d2 Ancestors: Tests-eem.86 Make sure we #restoreFontsAfter: running tests that modify the standard fonts. =============== Diff against Tests-eem.86 =============== Item was changed: ----- Method: StandardSystemFontsTest>>testRestoreDefaultFonts (in category 'testing') ----- testRestoreDefaultFonts + Preferences restoreFontsAfter: [ - self saveStandardSystemFontsDuring: [ Preferences restoreDefaultFonts. self assert: #standardDefaultTextFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #standardListFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #standardFlapFont familyName: 'Accushi' pointSize: 12. self assert: #standardEToysFont familyName: 'BitstreamVeraSans' pointSize: 9. self assert: #standardMenuFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #windowTitleFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #standardBalloonHelpFont familyName: 'Accujen' pointSize: 9. self assert: #standardCodeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #standardButtonFont familyName: 'BitstreamVeraSansMono' pointSize: 9]! Item was changed: ----- Method: LangEnvBugs>>testIsFontAvailable (in category 'as yet unclassified') ----- testIsFontAvailable + "self new testIsFontAvailable" + "self run: #testIsFontAvailable" + | oldPref | - "self new testIsFontAvailable" - "self run: #testIsFontAvailable" - | oldPref | + oldPref := Preferences valueOfPreference: #tinyDisplay. + Preferences restoreFontsAfter:[ + [Preferences enable: #tinyDisplay . + self + shouldnt:[(LanguageEnvironment localeID: 'en' ) isFontAvailable] + raise: Error. + ] ensure: [Preferences setPreference: #tinyDisplay toValue: oldPref]. + ].! - oldPref := Preferences valueOfPreference: #tinyDisplay . - - Preferences enable: #tinyDisplay . - - self shouldnt: [ [ ( LanguageEnvironment localeID: 'en' ) isFontAvailable ] - ensure: [Preferences setPreference: #tinyDisplay toValue: oldPref] ] - raise: Error. - ^true! Item was changed: ----- Method: LocaleTest>>testIsFontAvailable (in category 'testing') ----- testIsFontAvailable "self debug: #testIsFontAvailable" + Preferences restoreFontsAfter:[ + (Locale isoLanguage: 'ja') languageEnvironment removeFonts. + self assert: (Locale isoLanguage: 'en') languageEnvironment isFontAvailable. + "Next test should fail after installing Japanese font" + self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable not. + (Locale isoLanguage: 'ja') languageEnvironment installFont. + self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable. + ].! - (Locale isoLanguage: 'ja') languageEnvironment removeFonts. - self assert: (Locale isoLanguage: 'en') languageEnvironment isFontAvailable. - "Next test should fail after installing Japanese font" - self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable not. - (Locale isoLanguage: 'ja') languageEnvironment installFont. - self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable! Item was removed: - ----- Method: StandardSystemFontsTest>>saveStandardSystemFontsDuring: (in category 'utilities') ----- - saveStandardSystemFontsDuring: aBlock - | standardDefaultTextFont standardListFont standardEToysFont standardMenuFont - windowTitleFont standardBalloonHelpFont standardCodeFont standardButtonFont | - - standardDefaultTextFont := Preferences standardDefaultTextFont. - standardListFont := Preferences standardListFont. - standardEToysFont := Preferences standardEToysFont. - standardMenuFont := Preferences standardMenuFont. - windowTitleFont := Preferences windowTitleFont. - standardBalloonHelpFont := Preferences standardBalloonHelpFont. - standardCodeFont := Preferences standardCodeFont. - standardButtonFont := Preferences standardButtonFont. - [aBlock value] ensure: [ - Preferences setSystemFontTo: standardDefaultTextFont. - Preferences setListFontTo: standardListFont. - Preferences setEToysFontTo: standardEToysFont. - Preferences setMenuFontTo: standardMenuFont. - Preferences setWindowTitleFontTo: windowTitleFont. - Preferences setBalloonHelpFontTo: standardBalloonHelpFont. - Preferences setCodeFontTo: standardCodeFont. - Preferences setButtonFontTo: standardButtonFont]!

1 0

The Trunk: System-ar.351.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ar.351.mcz ==================== Summary ==================== Name: System-ar.351 Author: ar Time: 21 July 2010, 8:15:56.801 pm UUID: de412a44-f0a1-1c44-a848-768181babc98 Ancestors: System-eem.350 Add Preferences>>restoreFontsAfter: to restore the fonts after tests that modify the user-selected set of fonts. =============== Diff against System-eem.350 =============== Item was added: + ----- Method: Preferences class>>restoreFontsAfter: (in category 'fonts') ----- + restoreFontsAfter: aBlock + + "Restore the currently chosen set of standard fonts after + evaluating aBlock. Used for tests that modify the default fonts." + + | standardDefaultTextFont standardListFont standardEToysFont standardMenuFont + windowTitleFont standardBalloonHelpFont standardCodeFont standardButtonFont | + + standardDefaultTextFont := Preferences standardDefaultTextFont. + standardListFont := Preferences standardListFont. + standardEToysFont := Preferences standardEToysFont. + standardMenuFont := Preferences standardMenuFont. + windowTitleFont := Preferences windowTitleFont. + standardBalloonHelpFont := Preferences standardBalloonHelpFont. + standardCodeFont := Preferences standardCodeFont. + standardButtonFont := Preferences standardButtonFont. + ^aBlock ensure: [ + Preferences setSystemFontTo: standardDefaultTextFont. + Preferences setListFontTo: standardListFont. + Preferences setEToysFontTo: standardEToysFont. + Preferences setMenuFontTo: standardMenuFont. + Preferences setWindowTitleFontTo: windowTitleFont. + Preferences setBalloonHelpFontTo: standardBalloonHelpFont. + Preferences setCodeFontTo: standardCodeFont. + Preferences setButtonFontTo: standardButtonFont. + ]. + !

1 0

The Trunk: Monticello-ar.397.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Andreas Raab uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ar.397.mcz ==================== Summary ==================== Name: Monticello-ar.397 Author: ar Time: 21 July 2010, 8:12:14.706 pm UUID: 4b8f347f-bae6-d44b-96e2-f03278aa6bd2 Ancestors: Monticello-eem.396 More robust handling of HTTP upload responses. WebDAV for example returns a 204 (no content) after an upload. Enumerating all possible responses of the server really isn't going to cut it, so parse the response instead. =============== Diff against Monticello-eem.396 =============== Item was changed: ----- Method: MCHttpRepository>>writeStreamForFileNamed:replace:do: (in category 'required') ----- writeStreamForFileNamed: aString replace: ignoreBoolean do: aBlock + | stream response statusLine code | - | stream response | stream := RWBinaryOrTextStream on: String new. aBlock value: stream. self displayProgress: 'Uploading ', aString during:[ response := HTTPSocket httpPut: stream contents to: (self urlForFileNamed: aString) user: self user passwd: self password. ]. + "More robust handling of HTTP responses. Instead of enumerating + all possible return codes and http versions, do a quick parse" + (response beginsWith: 'HTTP/') ifTrue:[ + "Looks like an HTTP header, not some error message" + statusLine := response copyUpTo: Character cr. + code := [(statusLine findTokens: ' ') second asInteger] on: Error do:[]. + ]. + (code isInteger and:[code between: 200 and: 299]) + ifFalse:[self error: response].! - (#( 'HTTP/1.1 201 ' 'HTTP/1.1 200 ' 'HTTP/1.0 201 ' 'HTTP/1.0 200 ') - anySatisfy: [:code | response beginsWith: code ]) - ifFalse: [self error: response].!

1 0

The Trunk: EToys-ar.71.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Andreas Raab uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ar.71.mcz ==================== Summary ==================== Name: EToys-ar.71 Author: ar Time: 21 July 2010, 8:08:54.743 pm UUID: 6bb71442-7d3e-014e-83c7-bf234e1b550f Ancestors: EToys-nice.70 Shuffle various methods to avoid unnecessary dependencies between packages. =============== Diff against EToys-nice.70 =============== Item was changed: ----- Method: Point>>basicType (in category '*Etoys-tiles') ----- basicType "Answer a symbol representing the inherent type of the receiver" ^ #Point! Item was added: + ----- Method: TileMorphTest>>testNewTileMorphRepresentative (in category 'testing') ----- + testNewTileMorphRepresentative + + self assert: (nil newTileMorphRepresentative class = UndescribedTile). + self assert: (false newTileMorphRepresentative isKindOf: TileMorph). + self assert: (false newTileMorphRepresentative literal = false). + self assert: (true newTileMorphRepresentative literal = true).! Item was added: + ----- Method: TileMorphTest>>testArrowAction (in category 'testing') ----- + testArrowAction + "self debug: #testArrowAction" + | dummy tile | + dummy := Morph new. + tile := TileMorph new setOperator: '+'. + dummy addMorph: tile. + tile arrowAction: 1. + self assert: tile codeString = '-'. + + tile := TileMorph new setOperator: '<'. + dummy addMorph: tile. + tile arrowAction: 1. + "Because receiver is not tile" + self assert: tile codeString = '='. + + tile := true newTileMorphRepresentative. + dummy addMorph: tile. + tile arrowAction: 1. + self assert: tile codeString = '(false)'. + ! Item was added: + ----- Method: Player>>getConePosition (in category 'sound') ----- + getConePosition + "Note: Performance hacked to allow real-time sound. Assumes costume is a SpeakerMorph." + + ^ costume renderedMorph conePosition! Item was changed: SystemOrganization addCategory: #'Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-CustomEvents'! SystemOrganization addCategory: #'Etoys-Experimental'! SystemOrganization addCategory: #'Etoys-Outliner'! SystemOrganization addCategory: #'Etoys-Protocols'! SystemOrganization addCategory: #'Etoys-Protocols-Type Vocabularies'! SystemOrganization addCategory: #'Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Stacks'! SystemOrganization addCategory: #'Etoys-StarSqueak'! SystemOrganization addCategory: #'Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-Widgets'! + SystemOrganization addCategory: #'Etoys-Tests'! Item was added: + ----- Method: TileMorphTest>>testSoundTile (in category 'testing') ----- + testSoundTile + "self debug: #testSoundTile" + | tile dummy | + dummy := Morph new. + tile := SoundTile new literal: 'croak'. + dummy addMorph: tile. + tile arrowAction: 1. + self assert: tile codeString = '(''horn'')'. + + ! Item was added: + TestCase subclass: #TileMorphTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Tests'! Item was added: + ----- Method: TileMorphTest>>testAssignmentTile (in category 'testing') ----- + testAssignmentTile + "self debug: #testAssignmentTile" + + | player viewer tile phrase | + player := Morph new assuredPlayer. + viewer := CategoryViewer new invisiblySetPlayer: player. + viewer makeSetter: #(#getX #Number) event: nil from: player costume. + phrase := ActiveHand firstSubmorph. + ActiveHand removeAllMorphs. + tile := phrase submorphs second. + + self assert: tile codeString = 'setX: '. + tile arrowAction: 1. + self assert: tile codeString = 'setX: self getX + '. + + ! Item was added: + ----- Method: Player>>setConePosition: (in category 'sound') ----- + setConePosition: aNumber + "Note: Performance hacked to allow real-time sound. Assumes costume is a SpeakerMorph." + + costume renderedMorph conePosition: aNumber.! Item was added: + TestCase subclass: #BasicTypeTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Tests'! Item was added: + ----- Method: BasicTypeTest>>testBasicType (in category 'tests') ----- + testBasicType + + self assert: (true basicType = #Boolean). + self assert: (false basicType = #Boolean).! Item was removed: - ----- Method: Morph class>>partName:categories:documentation:sampleImageForm: (in category '*eToys-new-morph participation') ----- - partName: aName categories: aList documentation: aDoc sampleImageForm: aForm - "Answer a DescriptionForPartsBin which will represent a launch of a new instance of my class via the #newStandAlone protocol sent to my class. Use the category-list and documentation provided. This variant allows an overriding image form to be provided, useful in cases where we don't want to launch a sample instance just to get the form" - - - | descr | - descr := DescriptionForPartsBin new - formalName: aName - categoryList: aList - documentation: aDoc - globalReceiverSymbol: self name - nativitySelector: #newStandAlone. - descr sampleImageForm: aForm. - ^ descr - !

1 0

The Trunk: Sound-ar.19.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Andreas Raab uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-ar.19.mcz ==================== Summary ==================== Name: Sound-ar.19 Author: ar Time: 21 July 2010, 8:06:58.226 pm UUID: 05b234d4-aae6-e249-a8c5-3e489058e485 Ancestors: Sound-wiz.18 Avoid an unnecessary dependency of the Sound package from Etoys. =============== Diff against Sound-wiz.18 =============== Item was removed: - ----- Method: Player>>getConePosition (in category '*sound') ----- - getConePosition - "Note: Performance hacked to allow real-time sound. Assumes costume is a SpeakerMorph." - - ^ costume renderedMorph conePosition - ! Item was removed: - ----- Method: Player>>setConePosition: (in category '*sound') ----- - setConePosition: aNumber - "Note: Performance hacked to allow real-time sound. Assumes costume is a SpeakerMorph." - - costume renderedMorph conePosition: aNumber. - !

1 0

The Trunk: MorphicTests-ar.17.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Andreas Raab uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-ar.17.mcz ==================== Summary ==================== Name: MorphicTests-ar.17 Author: ar Time: 21 July 2010, 8:05:51.638 pm UUID: 3f457ad0-c6a0-5d47-b8dc-089bc03effd0 Ancestors: MorphicTests-cmm.16 Move tests with Etoys depencies to Etoys. =============== Diff against MorphicTests-cmm.16 =============== Item was removed: - ----- Method: MorphTest>>testOverlapAnyDeletedPlayer (in category 'testing - etoys') ----- - testOverlapAnyDeletedPlayer - "self debug: #testOverlapAnyDeletedPlayer" - | me friend sibling | - me := Morph new assuredPlayer assureUniClass; yourself. - friend := EllipseMorph new assuredPlayer assureUniClass; yourself. - sibling := friend getNewClone. - sibling costume delete. - self getWorld addMorph: me costume. - "Same position but deleted" - me costume position: 0 @ 0. - friend costume position: 0 @ 0. - sibling costume position: 0 @ 0. - self assert: (me overlapsAny: friend) not. - self assert: (me overlapsAny: sibling) not! Item was removed: - TestCase subclass: #TileMorphTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'MorphicTests-Basic'! Item was removed: - ----- Method: MorphTest>>testOverlapAny (in category 'testing - etoys') ----- - testOverlapAny - "self debug: #testOverlapAny" - | p1 p2 | - p1 := Morph new assuredPlayer. - p2 := EllipseMorph new assuredPlayer. - "Same position" - p1 costume position: 0@0. - p2 costume position: 0@0. - self assert: (p1 overlapsAny: p2). - "Different position" - p1 costume position: 0@0. - p2 costume position: 500@0. - self assert: (p1 overlapsAny: p2) not.! Item was removed: - ----- Method: MorphTest>>testOverlapAnyUnscriptedPlayer (in category 'testing - etoys') ----- - testOverlapAnyUnscriptedPlayer - "self debug: #testOverlapAnyUnscriptedPlayer" - | p1 p2 p3 | - p1 := Morph new assuredPlayer. - p2 := EllipseMorph new assuredPlayer. - p3 := EllipseMorph new assuredPlayer. - self getWorld addMorph: p1 costume; - addMorph: p2 costume; - addMorph: p3 costume. - "Same class, same position" - p1 costume position: 0 @ 0. - p2 costume position: 500 @ 0. - p3 costume position: 0 @ 0. - self - assert: (p1 overlapsAny: p2). - "Same class, different position" - p1 costume position: 0 @ 0. - p2 costume position: 1000 @ 0. - p3 costume position: 500 @ 0. - self assert: (p1 overlapsAny: p2) not. - ! Item was removed: - ----- Method: TileMorphTest>>testSoundTile (in category 'testing') ----- - testSoundTile - "self debug: #testSoundTile" - | tile dummy | - dummy := Morph new. - tile := SoundTile new literal: 'croak'. - dummy addMorph: tile. - tile arrowAction: 1. - self assert: tile codeString = '(''horn'')'. - - ! Item was removed: - ----- Method: TileMorphTest>>testArrowAction (in category 'testing') ----- - testArrowAction - "self debug: #testArrowAction" - | dummy tile | - dummy := Morph new. - tile := TileMorph new setOperator: '+'. - dummy addMorph: tile. - tile arrowAction: 1. - self assert: tile codeString = '-'. - - tile := TileMorph new setOperator: '<'. - dummy addMorph: tile. - tile arrowAction: 1. - "Because receiver is not tile" - self assert: tile codeString = '='. - - tile := true newTileMorphRepresentative. - dummy addMorph: tile. - tile arrowAction: 1. - self assert: tile codeString = '(false)'. - ! Item was removed: - ----- Method: MorphTest>>testOverlapAnyScriptedPlayer (in category 'testing - etoys') ----- - testOverlapAnyScriptedPlayer - "self debug: #testOverlapAnyScriptedPlayer" - | me friend other sibling | - me := Morph new assuredPlayer assureUniClass; yourself. - friend := EllipseMorph new assuredPlayer assureUniClass; yourself. - sibling := friend getNewClone. - other := EllipseMorph new assuredPlayer assureUniClass; yourself. - self getWorld addMorph: me costume; - addMorph: friend costume; - addMorph: other costume; - addMorph: sibling costume. - "myself" - self assert: (me overlapsAny: me) not. - "Same position with sibling" - me costume position: 0 @ 0. - friend costume position: 500 @ 0. - other costume position: 500 @ 0. - sibling costume position: 0@0. - self assert: (me overlapsAny: friend). - "Different position with sibling but same class" - me costume position: 0 @ 0. - friend costume position: 500 @ 0. - sibling costume position: 500@ 0. - other costume position: 0 @ 0. - self assert: (me overlapsAny: friend) not! Item was removed: - ----- Method: TileMorphTest>>testAssignmentTile (in category 'testing') ----- - testAssignmentTile - "self debug: #testAssignmentTile" - - | player viewer tile phrase | - player := Morph new assuredPlayer. - viewer := CategoryViewer new invisiblySetPlayer: player. - viewer makeSetter: #(#getX #Number) event: nil from: player costume. - phrase := ActiveHand firstSubmorph. - ActiveHand removeAllMorphs. - tile := phrase submorphs second. - - self assert: tile codeString = 'setX: '. - tile arrowAction: 1. - self assert: tile codeString = 'setX: self getX + '. - - !

1 0

The Trunk: Morphic-ar.455.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.455.mcz ==================== Summary ==================== Name: Morphic-ar.455 Author: ar Time: 21 July 2010, 8:04:01.329 pm UUID: e67f35c5-8cdc-2c4d-89fa-90a69950642c Ancestors: Morphic-ul.454 Move a method from Etoys to Morphic since it should be in Morphic. =============== Diff against Morphic-ul.454 =============== Item was added: + ----- Method: Morph class>>partName:categories:documentation:sampleImageForm: (in category 'new-morph participation') ----- + partName: aName categories: aList documentation: aDoc sampleImageForm: aForm + "Answer a DescriptionForPartsBin which will represent a launch of a new instance of my class via the #newStandAlone protocol sent to my class. Use the category-list and documentation provided. This variant allows an overriding image form to be provided, useful in cases where we don't want to launch a sample instance just to get the form" + + | descr | + descr := DescriptionForPartsBin new + formalName: aName + categoryList: aList + documentation: aDoc + globalReceiverSymbol: self name + nativitySelector: #newStandAlone. + descr sampleImageForm: aForm. + ^ descr + !

1 0

The Trunk: KernelTests-ar.155.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Andreas Raab uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ar.155.mcz ==================== Summary ==================== Name: KernelTests-ar.155 Author: ar Time: 21 July 2010, 8:02:18.061 pm UUID: 4348c322-972c-7544-a4b7-f5fc0a7f2105 Ancestors: KernelTests-ul.154 Move tests with Etoys dependencies to Etoys. =============== Diff against KernelTests-ul.154 =============== Item was removed: - ----- Method: BooleanTest>>testBasicType (in category 'tests') ----- - testBasicType - - self assert: (true basicType = #Boolean). - self assert: (false basicType = #Boolean).! Item was removed: - ----- Method: UndefinedObjectTest>>testNewTileMorphRepresentative (in category 'tests - printing') ----- - testNewTileMorphRepresentative - - self assert: (nil newTileMorphRepresentative class = UndescribedTile).! Item was removed: - ----- Method: BooleanTest>>testNewTileMorphRepresentative (in category 'tests') ----- - testNewTileMorphRepresentative - - self assert: (false newTileMorphRepresentative isKindOf: TileMorph). - self assert: (false newTileMorphRepresentative literal = false). - self assert: (true newTileMorphRepresentative literal = true).!

1 0

The Trunk: Graphics-ar.144.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Andreas Raab uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ar.144.mcz ==================== Summary ==================== Name: Graphics-ar.144 Author: ar Time: 21 July 2010, 8:00:56.97 pm UUID: fe073bda-1656-264a-9649-0fceb598857a Ancestors: Graphics-nice.143 Point>>basicType should be in *Etoys with all the other implementations of #basicType. =============== Diff against Graphics-nice.143 =============== Item was removed: - ----- Method: Point>>basicType (in category 'printing') ----- - basicType - "Answer a symbol representing the inherent type of the receiver" - - ^ #Point!

1 0

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

Jump to page: