Packages December 2016

packages@lists.squeakfoundation.org

1 participants
45 discussions

The Trunk: System-ul.922.mcz
by commits＠source.squeak.org 27 Dec '16

27 Dec '16

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.922.mcz ==================== Summary ==================== Name: System-ul.922 Author: ul Time: 27 December 2016, 11:07:17.892759 pm UUID: 694a8729-9b50-42d3-ae51-04dc932ab1f8 Ancestors: System-eem.921 SystemNavigation>>browseMethodsWithString:matchCase: - ignore method selector from the results, just like messages - cache messages for performance =============== Diff against System-eem.921 =============== Item was changed: ----- Method: SystemNavigation>>browseMethodsWithString:matchCase: (in category 'browse') ----- browseMethodsWithString: aString matchCase: caseSensitive "Launch a browser on all methods that contain string literals with aString as a substring. Make the search case-sensitive or insensitive as dictated by the caseSensitive boolean parameter" + | selector messages | + self + browseAllSelect: [ :method | + selector := messages := nil. + method hasLiteralSuchThat: [ :literal | + literal isString + and: [ (literal includesSubstring: aString caseSensitive: caseSensitive) + and: [ literal isSymbol + ifFalse: [ true ] + ifTrue: [ + ((selector ifNil: [ selector := method selector ]) == literal + or: [ (messages ifNil: [ messages := method messages ]) includes: literal ]) not ] ] ] ] ] - self browseAllSelect: - [:method | - method hasLiteralSuchThat: - [:lit | - lit isString - and: [(lit includesSubstring: aString caseSensitive: caseSensitive) - and: [lit isSymbol - ifTrue: [(method messages includes: lit) not] - ifFalse: [true]]]]] name: 'Methods with string ', aString printString, (caseSensitive ifTrue: [' (case-sensitive)'] ifFalse: [' (case-insensitive)']) autoSelect: aString!

1 0

The Trunk: Tools-ul.742.mcz
by commits＠source.squeak.org 25 Dec '16

25 Dec '16

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.742.mcz ==================== Summary ==================== Name: Tools-ul.742 Author: ul Time: 25 December 2016, 11:06:07.791123 pm UUID: 5824e7da-a2e2-49e6-b445-bbf97bdaff56 Ancestors: Tools-nice.741 Simplified and removed the duplicate selector from the results of StringHolder >> #withSelectorAndMessagesIn:evaluate:. =============== Diff against Tools-nice.741 =============== Item was changed: ----- Method: StringHolder>>withSelectorAndMessagesIn:evaluate: (in category '*Tools') ----- withSelectorAndMessagesIn: aCompiledMethod evaluate: aBlock "Allow the user to choose one selector, chosen from the currently selected message's selector, as well as those of all messages sent by it, and evaluate aBlock on behalf of chosen selector. If there is only one possible choice, simply make it; if there are multiple choices, put up a menu, and evaluate aBlock on behalf of the the chosen selector, doing nothing if the user declines to choose any" + | selectorOrNil messages | + selectorOrNil := aCompiledMethod selector. + messages := SystemNavigation thoroughSenders + ifTrue: [ + | litGetter | + litGetter := [:set :l| + (l isSymbol and: [l size > 0 and: [l first isLowercase]]) ifTrue: + [set add: l]. + l isArray ifTrue: + [l inject: set into: litGetter]. + set]. + aCompiledMethod allLiterals, + (aCompiledMethod pragmas collect: [:pragma| pragma keyword]) + inject: aCompiledMethod messages into: litGetter] + ifFalse: [aCompiledMethod messages]. + messages remove: selectorOrNil ifAbsent: [ "do nothing" ]. + messages ifEmpty: [ "If only one item, there is no choice" + ^selectorOrNil ifNotNil: [ aBlock value: selectorOrNil ] ]. - | selectorOrNil litGetter messages | - selectorOrNil := aCompiledMethod selector. - messages := SystemNavigation thoroughSenders - ifTrue: - [litGetter := [:set :l| - (l isSymbol and: [l size > 0 and: [l first isLowercase]]) ifTrue: - [set add: l]. - l isArray ifTrue: - [l inject: set into: litGetter copy]. - set]. - aCompiledMethod allLiterals - , (aCompiledMethod pragmas collect: [:pragma| pragma keyword]) - inject: aCompiledMethod messages into: litGetter copy] - ifFalse: [aCompiledMethod messages]. - (messages isEmpty "if no messages, use only selector" - or: [messages size = 1 and: [messages includes: selectorOrNil]]) ifTrue: - [^selectorOrNil ifNotNil: [aBlock value: selectorOrNil]]. "If only one item, there is no choice" - self systemNavigation showMenuOf: messages withFirstItem: selectorOrNil ifChosenDo: aBlock!

1 0

The Trunk: Collections-ul.730.mcz
by commits＠source.squeak.org 25 Dec '16

25 Dec '16

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.730.mcz ==================== Summary ==================== Name: Collections-ul.730 Author: ul Time: 25 December 2016, 4:19:28.820055 pm UUID: 960b46c2-39af-42c0-8855-92413ba0dbda Ancestors: Collections-ul.729, Collections-cmm.729 - merge =============== Diff against Collections-ul.729 =============== Item was added: + ----- Method: Symbol>>selector (in category 'accessing') ----- + selector + ^ self!

1 0

The Trunk: Collections-ul.729.mcz
by commits＠source.squeak.org 25 Dec '16

25 Dec '16

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.729.mcz ==================== Summary ==================== Name: Collections-ul.729 Author: ul Time: 25 December 2016, 4:16:33.349302 pm UUID: dedb0ac7-ea11-42b9-8a91-2839a52866c7 Ancestors: Collections-nice.728 - minor OrderedCollection optimizations =============== Diff against Collections-nice.728 =============== Item was changed: ----- Method: OrderedCollection>>asArray (in category 'converting') ----- asArray "Overriden for speed" + | result size | + result := Array new: (size := self size). - | result | - result := Array new: self size. result replaceFrom: 1 + to: size - to: result size with: array startingAt: firstIndex. ^result! Item was changed: ----- Method: OrderedCollection>>makeRoomAtFirst (in category 'private') ----- makeRoomAtFirst "Make some empty slots at the front of the array. If we have more than 50% free space, then just move the elements, so that the first 50% of the slots are free, otherwise add new free slots to the front by growing. Precondition: firstIndex = 1" + | tally newFirstIndex newLastIndex capacity | - | tally newFirstIndex newLastIndex | tally := self size. + capacity := array size. + tally * 2 >= capacity ifTrue: [ ^self growAtFirst ]. + tally = 0 ifTrue: [ ^self resetTo: capacity + 1 ]. + newFirstIndex := capacity // 2 + 1. - tally * 2 >= array size ifTrue: [ ^self growAtFirst ]. - tally = 0 ifTrue: [ ^self resetTo: array size + 1 ]. - newFirstIndex := array size // 2 + 1. newLastIndex := newFirstIndex - firstIndex + lastIndex. 0 to: tally - 1 do: [ :offset | array at: newLastIndex - offset put: (array at: lastIndex - offset) ]. array from: firstIndex to: newFirstIndex - 1 put: nil. firstIndex := newFirstIndex. lastIndex := newLastIndex! Item was added: + ----- Method: OrderedCollection>>replace: (in category 'enumerating') ----- + replace: aBlock + "Evaluate aBlock with each of my elements as the argument. Collect the resulting values into myself. + Override superclass in order to work on the internal array directly." + + firstIndex to: lastIndex do: [ :index | + array at: index put: (aBlock value: (array at: index)) ]! Item was changed: ----- Method: OrderedCollection>>with:collect: (in category 'enumerating') ----- with: otherCollection collect: twoArgBlock "Collect and return the result of evaluating twoArgBlock with corresponding elements from this collection and otherCollection." + + | result offset size | + (size := self size) = otherCollection size ifFalse: [ self error: 'otherCollection must be the same size' ]. + result := self species new: size. + offset := 1 - firstIndex. + firstIndex to: lastIndex do: [ :index | + result addLast: ( + twoArgBlock + value: (array at: index) + value: (otherCollection at: index + offset)) ]. + ^result! - | result | - otherCollection size = self size ifFalse: [self error: 'otherCollection must be the same size']. - result := self species new: self size. - 1 to: self size do: - [:index | result addLast: (twoArgBlock value: (self at: index) - value: (otherCollection at: index))]. - ^ result! Item was changed: ----- Method: OrderedCollection>>withIndexCollect: (in category 'enumerating') ----- withIndexCollect: elementAndIndexBlock "Just like with:collect: except that the iteration index supplies the second argument to the block. Override superclass in order to use addLast:, not at:put:." + | newCollection offset | - | newCollection | newCollection := self species new: self size. + offset := 1 - firstIndex. firstIndex to: lastIndex do: [:index | newCollection addLast: (elementAndIndexBlock value: (array at: index) + value: index + offset) ]. - value: index - firstIndex + 1)]. ^ newCollection!

1 0

The Trunk: Tools-nice.741.mcz
by commits＠source.squeak.org 25 Dec '16

25 Dec '16

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.741.mcz ==================== Summary ==================== Name: Tools-nice.741 Author: nice Time: 25 December 2016, 3:13:35.841637 pm UUID: 7c93c98f-3f12-44f0-bb60-f9b19d91a3c9 Ancestors: Tools-bf.740 Salvage MessageTrace by using asString rather than stringVersion, because stringVersion might be uninitialized =============== Diff against Tools-bf.740 =============== Item was changed: ----- Method: MessageTrace>>filterFrom: (in category 'filtering') ----- filterFrom: aBlock "Filter the receiver's list down to only those items that satisfy aBlock, which takes a class an a selector as its arguments." | newList newAutoSelectStrings newMessageSelections oldList | oldList := Dictionary new. messageList do: [ : each | oldList at: each put: each ]. newList := messageList class new. newAutoSelectStrings := autoSelectStrings class new. newMessageSelections := messageSelections class new. messageList withIndexDo: [ : each : index | (self class parse: each toClassAndSelector: aBlock) ifTrue: [ newList add: each. newAutoSelectStrings add: (autoSelectStrings at: index). newMessageSelections add: (messageSelections at: index) ] ]. (self setFilteredList: newList) ifTrue: [ autoSelectStrings := newAutoSelectStrings. messageList do: + [ : each | each stringVersion: (oldList at: each) asString ] ]! - [ : each | each stringVersion: (oldList at: each) stringVersion ] ]! Item was changed: ----- Method: MessageTrace>>indentEverything (in category 'indenting') ----- indentEverything + messageList do: [ :each | each stringVersion: (self indentionPrefixOfSize: 1), each asString ] - messageList do: [ :each | each stringVersion: (self indentionPrefixOfSize: 1), each stringVersion ] ! Item was changed: ----- Method: MessageTrace>>indentionLevelAt: (in category 'private accessing') ----- indentionLevelAt: msgListIndex + ^ self indentionsIn: (messageList at: msgListIndex) asString! - ^ self indentionsIn: (messageList at: msgListIndex) stringVersion!

1 0

The Trunk: Collections-cmm.729.mcz
by commits＠source.squeak.org 23 Dec '16

23 Dec '16

Chris Muller uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-cmm.729.mcz ==================== Summary ==================== Name: Collections-cmm.729 Author: cmm Time: 22 December 2016, 11:41:23.542114 pm UUID: 7055f774-a3b6-4f1f-a8e6-94265108c10f Ancestors: Collections-nice.728 Symbol>>#selector affords flexibility with input arguments that normally only accept Symbol selectors, to also accept MessageSends or CompiledMethods, too, as when drag and dropping a method out of a browser window. =============== Diff against Collections-nice.728 =============== Item was added: + ----- Method: Symbol>>selector (in category 'accessing') ----- + selector + ^ self!

1 0

The Trunk: Tools-bf.740.mcz
by commits＠source.squeak.org 22 Dec '16

22 Dec '16

Bert Freudenberg uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-bf.740.mcz ==================== Summary ==================== Name: Tools-bf.740 Author: bf Time: 22 December 2016, 7:44:25.785798 am UUID: 7922bf37-7fb7-4352-9264-fb8c9a336401 Ancestors: Tools-eem.739 PointerFinder: fix error when a method's literal is found =============== Diff against Tools-eem.739 =============== Item was changed: ----- Method: PointerFinder>>buildList (in category 'application') ----- buildList | list obj parent object key | list := OrderedCollection new. obj := goal. [list addFirst: obj. obj := parents at: obj ifAbsent: []. obj == nil] whileFalse. list removeFirst. parent := Smalltalk. objectList := OrderedCollection new. pointerList := OrderedCollection new. [list isEmpty] whileFalse: [object := list removeFirst. key := nil. (parent isKindOf: Dictionary) ifTrue: [list size >= 2 ifTrue: [key := parent keyAtValue: list second ifAbsent: []. key == nil ifFalse: [object := list removeFirst; removeFirst. pointerList add: key printString , ' -> ' , object class name]]]. key == nil ifTrue: [parent class == object ifTrue: [key := 'CLASS']. key == nil ifTrue: [1 to: parent class instSize do: [:i | key == nil ifTrue: [(parent instVarAt: i) == object ifTrue: [key := parent class allInstVarNames at: i]]]]. + key == nil ifTrue: [parent isCompiledMethod ifTrue: [key := 'literals?']]. - key == nil ifTrue: [(parent isCompiledMethod and: [object isVariableBinding]) ifTrue: [key := 'literals?']]. key == nil ifTrue: [1 to: parent basicSize do: [:i | key == nil ifTrue: [(parent basicAt: i) == object ifTrue: [key := i printString]]]]. key == nil ifTrue: [(parent isMorph and: [object isKindOf: Array]) ifTrue: [key := 'submorphs?']]. key == nil ifTrue: [key := '???']. pointerList add: key , ': ' , object class name, (object isMorph ifTrue: [' (', object identityHash asString, ')'] ifFalse: [ String empty ]) ]. objectList add: object. parent := object]!

1 0

The Trunk: CollectionsTests-pre.272.mcz
by commits＠source.squeak.org 21 Dec '16

21 Dec '16

Patrick Rein uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-pre.272.mcz ==================== Summary ==================== Name: CollectionsTests-pre.272 Author: pre Time: 21 December 2016, 2:44:36.561014 pm UUID: 228aa803-a8b5-304c-b759-28f424a0191c Ancestors: CollectionsTests-topa.271 Moves the failing test for WriteStreams to the expected failures as it does not test any previous implementation but is a feature request. Also fixes a typo in the selector. =============== Diff against CollectionsTests-topa.271 =============== Item was added: + ----- Method: WriteStreamTest>>expectedFailures (in category 'tests - character writing') ----- + expectedFailures + + ^ #( testStreamAlwaysUseGivenCollection )! Item was removed: - ----- Method: WriteStreamTest>>testStreamAlwasyUseGivenCollection (in category 'tests - instance creation') ----- - testStreamAlwasyUseGivenCollection - "self debug: #testStreamUseGivenCollection" - - "When a stream is created on a collection, it tries to keep using that collection instead of copying, - even in the case of mutation of the original collection." - - |string stream| - - string := String withAll: 'xy'. - stream := WriteStream on: string. - - stream nextPut: $a. - stream nextPut: (Character codePoint: 269). "wide." - self assert: string = (String with: $a with: (Character codePoint: 269)).! Item was added: + ----- Method: WriteStreamTest>>testStreamAlwaysUseGivenCollection (in category 'tests - instance creation') ----- + testStreamAlwaysUseGivenCollection + "self debug: #testStreamUseGivenCollection" + + "When a stream is created on a collection, it tries to keep using that collection instead of copying, + even in the case of mutation of the original collection." + + "To implement this WriteStream>>#nextPut: might want to use becomeForward for replacing the original + string with the new widestring object. Another option might be to throw an exception --pre" + + |string stream| + + string := String withAll: 'xy'. + stream := WriteStream on: string. + + stream nextPut: $a. + stream nextPut: (Character codePoint: 269). "wide." + self assert: string = (String with: $a with: (Character codePoint: 269)).!

1 0

The Trunk: Tests-pre.360.mcz
by commits＠source.squeak.org 21 Dec '16

21 Dec '16

Patrick Rein uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-pre.360.mcz ==================== Summary ==================== Name: Tests-pre.360 Author: pre Time: 21 December 2016, 2:24:34.858014 pm UUID: 2a9bd011-daa0-4c41-9844-c97ee2167469 Ancestors: Tests-nice.359 Adjusts standard font test and moves it to the release tests as it checks whether the currently selected theme has fonts which are appropriate for a release. =============== Diff against Tests-nice.359 =============== Item was added: + ----- Method: ReleaseTest>>testSqueakThemeFonts (in category 'testing') ----- + testSqueakThemeFonts + "Check whether the fonts installed in the active theme in the release are correct" + + "preference selector - font family name - font size" + { #(standardDefaultTextFont 'Bitmap DejaVu Sans' 9). + #(standardListFont 'Bitmap DejaVu Sans' 9). + #(standardFlapFont 'Bitmap DejaVu Sans' 7). + #(standardMenuFont 'Bitmap DejaVu Sans' 9). + #(windowTitleFont 'Bitmap DejaVu Sans' 9). + #(standardBalloonHelpFont 'Bitmap DejaVu Sans' 7). + #(standardCodeFont 'Bitmap DejaVu Sans' 9). + #(standardButtonFont 'Bitmap DejaVu Sans' 7) } + do: [:triple | | font | + font := Preferences perform: triple first. + self assert: triple second equals: font familyName. + self assert: triple third equals: font pointSize ] + + + ! Item was removed: - TestCase subclass: #StandardSystemFontsTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-System-Support'! Item was removed: - ----- Method: StandardSystemFontsTest>>assert:familyName:pointSize: (in category 'utilities') ----- - assert: selector familyName: aString pointSize: anInteger - | font | - font := Preferences perform: selector. - self assert: aString equals: font familyName. - self assert: anInteger equals: font pointSize! Item was removed: - ----- Method: StandardSystemFontsTest>>defaultTimeout (in category 'testing') ----- - defaultTimeout - - ^ 60! Item was removed: - ----- Method: StandardSystemFontsTest>>testRestoreDefaultFonts (in category 'testing') ----- - testRestoreDefaultFonts - Preferences restoreFontsAfter: [ - 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: 'Bitmap DejaVu Sans' pointSize: 7. - self assert: #standardCodeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. - self assert: #standardButtonFont familyName: 'Bitmap DejaVu Sans' pointSize: 7]!

1 0

The Trunk: EToys-pre.277.mcz
by commits＠source.squeak.org 21 Dec '16

21 Dec '16

Patrick Rein uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-pre.277.mcz ==================== Summary ==================== Name: EToys-pre.277 Author: pre Time: 21 December 2016, 1:30:50.200014 pm UUID: 110a16f2-0f1b-b04c-97d9-41aa27926c8c Ancestors: EToys-cmm.276 - Fixes a test for the TileMorph - Reformats some TileMorph methods =============== Diff against EToys-cmm.276 =============== 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-Squeakland-BroomMorphs-Base'! SystemOrganization addCategory: #'Etoys-Squeakland-BroomMorphs-Connectors'! SystemOrganization addCategory: #'Etoys-Squeakland-EToys-Kedama'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Calendar'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Debugger'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Help'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Input'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-SpeechBubbles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-External'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Text'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Intersection'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Simplification'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Triangulation'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-AdditionalMorphs'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Charts'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Postscript Filters'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-WebCam'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Basic'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Books'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Components'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Demo'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Experimental'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games-Chess'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-GeeMail'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Mentoring'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Navigators'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PartsBin'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PDA'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Windows'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Worlds'! SystemOrganization addCategory: #'Etoys-Squeakland-Multilingual-Languages'! SystemOrganization addCategory: #'Etoys-Squeakland-Multilingual-Scanning'! SystemOrganization addCategory: #'Etoys-Squeakland-Multilingual-TextConversion'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Formatter'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Forms'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser Entities'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Tokenizer'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-MIME'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-TelNet WordNet'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-UI'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-Url'! SystemOrganization addCategory: #'Etoys-Squeakland-Protocols-Type Vocabularies'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Interface'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Ogg'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Scores'! SystemOrganization addCategory: #'Etoys-Squeakland-ST80-Morphic'! SystemOrganization addCategory: #'Etoys-Squeakland-SUnit'! SystemOrganization addCategory: #'Etoys-Squeakland-Sugar'! - SystemOrganization addCategory: #'Etoys-Squeakland-System-Applications'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Clipboard-Extended'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Compiler'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Exceptions Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Changes'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Explorer'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-File Contents Browser'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Process Browser'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ObjectVectors'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTreeTransformer'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTree-AttributeDefinition'! SystemOrganization addCategory: #'Etoys-Stacks'! SystemOrganization addCategory: #'Etoys-StarSqueak'! SystemOrganization addCategory: #'Etoys-Support'! SystemOrganization addCategory: #'Etoys-Tests'! SystemOrganization addCategory: #'Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-SISS-Serialization'! SystemOrganization addCategory: #'Etoys-OLPC-Display'! SystemOrganization addCategory: #'Etoys-ReleaseBuilder'! SystemOrganization addCategory: #'Etoys-UserInterfaceTheme'! Item was changed: ----- Method: TileMorph>>arrowAction: (in category 'arrows') ----- arrowAction: delta "Do what is appropriate when an arrow on the tile is pressed; delta will be +1 or -1" | index options | + (type == #literal and: [literal isNumber]) + ifTrue: [self value: + (((literal + delta) printShowingDecimalPlaces: self decimalPlaces) asNumber)] + ifFalse: [options := self options ifNil: [^ self]. + index := (options first indexOf: self value) + delta. + self value: (options first atWrap: index). + (options second atWrap: index) ifNotNilDo: + [:bt | submorphs last setBalloonText: bt translated]]! - (type == #literal - and: [literal isNumber]) - ifTrue: [self value:(((literal + delta) printShowingDecimalPlaces: self decimalPlaces) asNumber)] - ifFalse: [options := self options - ifNil: [^ self]. - index := (options first indexOf: self value) - + delta. - self - value: (options first atWrap: index). - (options second atWrap: index) ifNotNilDo: - [:bt | - submorphs last - setBalloonText: bt translated]]! Item was changed: ----- Method: TileMorph>>arrowDelta (in category 'mouse handling') ----- arrowDelta "Answer the amount by which a number I display should increase at a time" | readout | (readout := self findA: UpdatingStringMorph) ifNotNil: [^readout floatPrecision ]. + ^ 1! - ^1! Item was changed: ----- Method: TileMorph>>basicWidth (in category 'misc') ----- basicWidth "Provide a nominal minimum, exclusive of arrows and independent of label width" ^ operatorOrExpression + ifNotNil: [3] + ifNil: [18]! - ifNotNil: - [3] - ifNil: - [18]! Item was changed: ----- Method: TileMorph>>couldAddSuffixArrow (in category '*Etoys-Squeakland-arrows') ----- couldAddSuffixArrow "Answer whether it is appropriate for the receiver to bear a suffix arrow." | phrase pad | type = #operator ifTrue: [((owner isKindOf: PhraseTileMorph) and: [owner submorphs last == self] and: [#("Point" Number) includes: owner resultType]) ifTrue: [^ true]]. (#(literal function parameter) includes: type) ifFalse: [^ false]. (pad := self ownerThatIsA: TilePadMorph) ifNil: [^ false]. (#("Point" Number) includes: pad type) ifFalse: [^ false]. phrase := pad owner. (phrase isKindOf: TimesRow) ifTrue: [^ true]. "times-repeat situation" (phrase isKindOf: PhraseTileMorph) + ifTrue: [^ phrase submorphs last allMorphs includes: self] + ifFalse: [^ phrase isKindOf: FunctionTile]! - ifTrue: - [ ^ phrase submorphs last allMorphs includes: self] - ifFalse: - [^ phrase isKindOf: FunctionTile]! Item was changed: ----- Method: TileMorph>>isPopArrowNeeded (in category '*Etoys-Squeakland-arrows popup') ----- isPopArrowNeeded + ^ upArrow notNil or: [suffixArrow notNil]! - ^ upArrow notNil - or: [suffixArrow notNil]! Item was changed: ----- Method: TileMorph>>isTileMorph (in category 'e-toy support') ----- isTileMorph + ^ true! - ^true! Item was changed: ----- Method: TileMorph>>options (in category 'accessing') ----- options "Answer the options of the tile for an arrow" + (type == #literal and: [literal isKindOf: Boolean]) - (type == #literal - and: [literal isKindOf: Boolean]) ifTrue: [^ {{true. false}. #('true' 'false' ) translatedNoop}]. operatorOrExpression ifNil: [^ nil]. (ScriptingSystem arithmeticalOperatorsAndHelpStrings first includes: operatorOrExpression) ifTrue: [^ ScriptingSystem arithmeticalOperatorsAndHelpStrings]. (ScriptingSystem numericComparitorsAndHelpStrings first includes: operatorOrExpression) ifTrue: [self receiverType = #Number ifTrue: [^ ScriptingSystem numericComparitorsAndHelpStrings] ifFalse: [^ #(#(#= #~=) #('equal' 'not equal')) translatedNoop ]]. ^ nil! Item was changed: ----- Method: TileMorph>>ownerChanged (in category 'change reporting') ----- ownerChanged super ownerChanged. (owner class == TilePadMorph and:[owner layoutPolicy isNil]) ifTrue:[ owner layoutPolicy: TableLayout new. owner hResizing: #shrinkWrap. + owner vResizing: #spaceFill ].! - owner vResizing: #spaceFill. - ].! Item was changed: ----- Method: TileMorph>>playerBearingCode (in category 'accessing') ----- playerBearingCode "Answer the actual Player object who will be the 'self' when the receiver is being asked to generate code" self topEditor ifNotNil: [:anEditor | ^ anEditor playerScripted]. + (self nearestOwnerThat: [:m | m isAViewer]) ifNotNil: + [:aViewer | ^ aViewer scriptedPlayer]. - (self nearestOwnerThat: [:m | m isAViewer]) - ifNotNil: - [:aViewer | ^ aViewer scriptedPlayer]. ^ actualObject! Item was changed: ----- Method: TileMorph>>setVisibilityOfUpDownCarets: (in category '*Etoys-Squeakland-arrows') ----- setVisibilityOfUpDownCarets: showCarets "If the argument is true, make all the 'up and down' carets, such as those that let you change the value of a number or of a boolean constant, visible; if false, remove them from sight. " (submorphs detect: [:m | m hasProperty: #arrows] ifNone: [nil]) ifNotNilDo: [:wrapper | showCarets + ifTrue: [wrapper width: 9] + ifFalse: [wrapper width: 0]]! - ifTrue: - [wrapper width: 9] - ifFalse: - [wrapper width: 0]]! Item was changed: ----- Method: TileMorph>>veryDeepFixupWith: (in category 'copying') ----- veryDeepFixupWith: deepCopier "If target and arguments fields were weakly copied, fix them here. If they were in the tree being copied, fix them up, otherwise point to the originals!!!!" + super veryDeepFixupWith: deepCopier. + actualObject := deepCopier references at: actualObject ifAbsent: [actualObject].! - super veryDeepFixupWith: deepCopier. - actualObject := deepCopier references at: actualObject ifAbsent: [actualObject].! Item was changed: ----- Method: TileMorph>>veryDeepInner: (in category 'copying') ----- veryDeepInner: deepCopier "Copy all of my instance variables. Some need to be not copied at all, but shared. Warning!!!! Every instance variable defined in this class must be handled. We must also implement veryDeepFixupWith:. See DeepCopier class comment." + super veryDeepInner: deepCopier. + type := type veryDeepCopyWith: deepCopier. + slotName := slotName veryDeepCopyWith: deepCopier. + literal := literal veryDeepCopyWith: deepCopier. + operatorOrExpression := operatorOrExpression veryDeepCopyWith: deepCopier. + "actualObject := actualObject. Weakly copied" + downArrow := downArrow veryDeepCopyWith: deepCopier. + upArrow := upArrow veryDeepCopyWith: deepCopier. + suffixArrow := suffixArrow veryDeepCopyWith: deepCopier. + typeColor := typeColor veryDeepCopyWith: deepCopier. + lastArrowTick := lastArrowTick veryDeepCopyWith: deepCopier. + nArrowTicks := nArrowTicks veryDeepCopyWith: deepCopier. + operatorReadoutString := operatorReadoutString veryDeepCopyWith: deepCopier. + possessive := possessive veryDeepCopyWith: deepCopier. + retractArrow := retractArrow veryDeepCopyWith: deepCopier. + vocabularySymbol := vocabularySymbol. "Weakly copied" + vocabulary := nil. "obsolete - clobbered"! - super veryDeepInner: deepCopier. - type := type veryDeepCopyWith: deepCopier. - slotName := slotName veryDeepCopyWith: deepCopier. - literal := literal veryDeepCopyWith: deepCopier. - operatorOrExpression := operatorOrExpression veryDeepCopyWith: deepCopier. - "actualObject := actualObject. Weakly copied" - downArrow := downArrow veryDeepCopyWith: deepCopier. - upArrow := upArrow veryDeepCopyWith: deepCopier. - suffixArrow := suffixArrow veryDeepCopyWith: deepCopier. - typeColor := typeColor veryDeepCopyWith: deepCopier. - lastArrowTick := lastArrowTick veryDeepCopyWith: deepCopier. - nArrowTicks := nArrowTicks veryDeepCopyWith: deepCopier. - operatorReadoutString := operatorReadoutString veryDeepCopyWith: deepCopier. - possessive := possessive veryDeepCopyWith: deepCopier. - retractArrow := retractArrow veryDeepCopyWith: deepCopier. - vocabularySymbol := vocabularySymbol. "Weakly copied" - vocabulary := nil. "obsolete - clobbered"! Item was changed: ----- 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 = 'eToysEQ:'. - self assert: tile codeString = '='. tile := true newTileMorphRepresentative. dummy addMorph: tile. tile arrowAction: 1. self assert: tile codeString = '(false)'. !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2016