Squeak-dev April 2018

squeak-dev@lists.squeakfoundation.org

47 participants
159 discussions

The Inbox: Morphic-cmm.1408.mcz
by commits＠source.squeak.org 08 Apr '18

08 Apr '18

Chris Muller uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-cmm.1408.mcz ==================== Summary ==================== Name: Morphic-cmm.1408 Author: cmm Time: 2 April 2018, 6:34:32.944359 pm UUID: 1b84680b-ad85-4d86-a6d4-29fb3c2f8193 Ancestors: Morphic-cmm.1407 Integrate fix from Stéphane Rollandin that keeps ProportionalSplitter bars in their proportionally-assigned place after resizing windows. =============== Diff against Morphic-cmm.1407 =============== Item was added: + ----- Method: ProportionalSplitterMorph>>balanceOffsets (in category 'layout') ----- + balanceOffsets + + self layoutFrame hasFixedHeight ifTrue: [ + | otop obot ctop cbot topf | + + otop := (owner submorphs detect: [:m | + m layoutFrame topFraction isZero] ifNone: [^ self]) in: [:tm | + tm top - (tm layoutFrame topOffset ifNil: [0])]. + + obot := (owner submorphs detect: [:m | + m layoutFrame bottomFraction = 1] ifNone: [^ self]) in: [:tm | + tm bottom - (tm layoutFrame bottomOffset ifNil: [0])]. + + ctop := (self layoutFrame topFraction * (obot - otop)) rounded + + otop + (self layoutFrame topOffset ifNil: [0]). + cbot := (self layoutFrame bottomFraction * (obot - otop)) rounded + + otop + (self layoutFrame bottomOffset ifNil: [0]). + + topf := self layoutFrame topFraction. + self layoutFrame topFraction: ((ctop + cbot) * 0.5 - otop) / (obot - otop) asFloat. + self layoutFrame bottomFraction: self layoutFrame topFraction. + self layoutFrame topOffset: ctop - + (self layoutFrame topFraction * (obot - otop) + otop) rounded. + self layoutFrame bottomOffset: cbot - + (self layoutFrame bottomFraction * (obot - otop) + otop) rounded.. + + (leftOrTop copy union: rightOrBottom) do: [:m | + (m layoutFrame topFraction closeTo: topf) ifTrue: [ + m layoutFrame topFraction: self layoutFrame topFraction. + m layoutFrame topOffset: + m layoutFrame topOffset - (self valueOfProperty: #fullDelta) y]. + (m layoutFrame bottomFraction closeTo: topf) ifTrue: [ + m layoutFrame bottomFraction: self layoutFrame topFraction. + m layoutFrame bottomOffset: + m layoutFrame bottomOffset - (self valueOfProperty: #fullDelta) y.]]] . + + self layoutFrame hasFixedWidth ifTrue: [ + | oleft oright cleft cright leftf | + + oleft := (owner submorphs detect: [:m | + m layoutFrame leftFraction isZero] ifNone: [^ self]) in: [:tm | + tm left - (tm layoutFrame leftOffset ifNil: [0])]. + + oright := (owner submorphs detect: [:m | + m layoutFrame rightFraction = 1] ifNone: [^ self]) in: [:tm | + tm right - (tm layoutFrame rightOffset ifNil: [0])]. + + cleft := (self layoutFrame leftFraction * (oright - oleft)) rounded + + oleft + (self layoutFrame leftOffset ifNil: [0]). + cright := (self layoutFrame rightFraction * (oright - oleft)) rounded + + oleft + (self layoutFrame rightOffset ifNil: [0]). + + leftf := self layoutFrame leftFraction. + self layoutFrame leftFraction: ((cleft + cright) * 0.5 - oleft) / (oright - oleft) asFloat. + self layoutFrame rightFraction: self layoutFrame leftFraction. + + self layoutFrame leftOffset: cleft - + (self layoutFrame leftFraction * (oright - oleft) + oleft) rounded. + self layoutFrame rightOffset: cright - + (self layoutFrame rightFraction * (oright - oleft) + oleft) rounded. + + (leftOrTop copy union: rightOrBottom) do: [:m | + (m layoutFrame leftFraction closeTo: leftf) ifTrue: [ + m layoutFrame leftFraction: self layoutFrame leftFraction. + m layoutFrame leftOffset: + m layoutFrame leftOffset - (self valueOfProperty: #fullDelta) x]. + (m layoutFrame rightFraction closeTo: leftf) ifTrue: [ + m layoutFrame rightFraction: self layoutFrame leftFraction. + m layoutFrame rightOffset: + m layoutFrame rightOffset - (self valueOfProperty: #fullDelta) x.]]] . + + self removeProperty: #fullDelta. + owner layoutChanged + ! Item was changed: ----- Method: ProportionalSplitterMorph>>mouseDown: (in category 'events') ----- mouseDown: anEvent "If the user manually drags me, don't override him with auto positioning." + self setProperty: #fullDelta toValue: 0@0. + anEvent redButtonChanged ifTrue: [ self withSiblingSplittersDo: [ : each | each stopStepping ] ] ifFalse: [ anEvent shiftPressed ifTrue: [ self startStepping ] ifFalse: [ self startStepping. self withSiblingSplittersDo: [ : each | each startStepping ] ] ]. (self class showSplitterHandles not and: [ self bounds containsPoint: anEvent cursorPoint ]) ifTrue: [ oldColor := self color. self color: Color black ]. ^ super mouseDown: anEvent! Item was changed: ----- Method: ProportionalSplitterMorph>>mouseUp: (in category 'events') ----- mouseUp: anEvent (self bounds containsPoint: anEvent cursorPoint) ifFalse: [anEvent hand showTemporaryCursor: nil]. self class fastSplitterResize ifTrue: [self updateFromEvent: anEvent]. traceMorph ifNotNil: [traceMorph delete. traceMorph := nil]. + self color: self getOldColor. + + self balanceOffsets! - self color: self getOldColor! Item was changed: ----- Method: ProportionalSplitterMorph>>reduceLeftRightImbalance (in category 'layout') ----- reduceLeftRightImbalance | correction | correction := self leftRightImbalance. correction abs > 1 ifTrue: [ (self proposedCorrectionWouldCauseFocusChange: correction) ifFalse: [ self repositionBy: (correction abs > 4 ifTrue: [ correction sign * 2 @ 0 ] ifFalse: [ correction sign @ 0 ]) ] ] ifFalse: + [ self class smartVerticalSplitters ifFalse: + [ self + stopStepping ; + balanceOffsets ] ]. - [ self class smartVerticalSplitters ifFalse: [ self stopStepping ] ]. ^ correction! Item was changed: ----- Method: ProportionalSplitterMorph>>reduceTopBottomImbalance (in category 'layout') ----- reduceTopBottomImbalance | correction | (correction := self topBottomCorrection) isZero ifTrue: + [ self class smartHorizontalSplitters ifFalse: + [ self + stopStepping ; + balanceOffsets ] ] - [ self class smartHorizontalSplitters ifFalse: [ self stopStepping ] ] ifFalse: [ (self proposedCorrectionWouldCauseFocusChange: correction) ifFalse: [ self repositionBy: 0 @ correction ] ]. ^ correction! Item was changed: ----- Method: ProportionalSplitterMorph>>repositionBy: (in category 'layout') ----- repositionBy: delta | selfTop selfBottom selfLeft selfRight | + + self setProperty: #fullDelta toValue: ((self valueOfProperty: #fullDelta) ifNil: [0@0]) + delta. + leftOrTop do: [ : each | | firstRight firstBottom firstLeft firstTop | firstRight := each layoutFrame rightOffset ifNil: [ 0 ]. firstBottom := each layoutFrame bottomOffset ifNil: [ 0 ]. each layoutFrame rightOffset: firstRight + delta x. each layoutFrame bottomOffset: firstBottom + delta y. each layoutFrame hasFixedHeight ifTrue: [ firstTop := each layoutFrame topOffset ifNil: [ 0 ]. each layoutFrame topOffset: firstTop + delta y ]. each layoutFrame hasFixedWidth ifTrue: [ firstLeft := each layoutFrame leftOffset ifNil: [ 0 ]. each layoutFrame leftOffset: firstLeft + delta x. ] ]. rightOrBottom do: [ : each | | secondLeft secondTop secondRight secondBottom | secondLeft := each layoutFrame leftOffset ifNil: [ 0 ]. secondTop := each layoutFrame topOffset ifNil: [ 0 ]. each layoutFrame leftOffset: secondLeft + delta x. each layoutFrame topOffset: secondTop + delta y. each layoutFrame hasFixedHeight ifTrue: [ secondBottom := each layoutFrame bottomOffset ifNil: [ 0 ]. each layoutFrame bottomOffset: secondBottom + delta y. ]. each layoutFrame hasFixedWidth ifTrue: [ secondRight := each layoutFrame rightOffset ifNil: [ 0 ]. each layoutFrame rightOffset: secondRight + delta x. ] ]. selfTop := self layoutFrame topOffset ifNil: [ 0 ]. selfBottom := self layoutFrame bottomOffset ifNil: [ 0 ]. selfLeft := self layoutFrame leftOffset ifNil: [ 0 ]. selfRight := self layoutFrame rightOffset ifNil: [ 0 ]. self layoutFrame topOffset: selfTop + delta y ; bottomOffset: selfBottom + delta y ; leftOffset: selfLeft + delta x ; rightOffset: selfRight + delta x. self owner layoutChanged. self movements removeFirst; add: (splitsTopAndBottom ifTrue: [ delta y sign ] ifFalse: [ delta x sign ])!

3 5

TimeZoneDatabase: Can't Install in Squeak 5.1
by Sean P. DeNigris 07 Apr '18

07 Apr '18

1. I manually loaded ConfigurationOfTimeZoneDatabase from sqs/TimeZoneDatabase 2. "ConfigurationOfTimeZoneDatabase project stableVersion load" -> unknown selector #stableVersion 3. "ConfigurationOfTimeZoneDatabase project" -> hangs 4e on "Downloading Metacello-Base-DaleHenrichs.2.mcz" 4. Install Metacello manually via SqS Catalog -> Hangs 4e on "Downloading Time-PaulDeBruicker.53"; unable to interrupt; eventually crashes with no crash dump or debug log The configuration seems to be okay because I successfully loaded in Pharo 6.1 via: Metacello new configuration: 'TimeZoneDatabase'; squeaksource: 'TimeZoneDatabase'; load There were just a few failed test (93 passed, 5 fails, 2 errors). ----- Cheers, Sean -- Sent from: http://forum.world.st/Squeak-Dev-f45488.html

3 3

The Trunk: ToolBuilder-Morphic-cmm.209.mcz
by commits＠source.squeak.org 07 Apr '18

07 Apr '18

Chris Muller uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-cmm.209.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-cmm.209 Author: cmm Time: 30 March 2018, 6:01:58.101354 pm UUID: da0cc990-c84a-49e8-ad16-99d84013a244 Ancestors: ToolBuilder-Morphic-tpr.208 Various fixes and improvements to Tim's cool new FileSaverDialog. Restores the convenience of simply typing a name and pressing [Return], by opening with the filename field directly under the mouse, ready to type. It is also once again not required to type the filename extension, the system will add it or prompt the user for it if there are multiple possibilities. If an invalid filename is specified, the user is alerted appropriately, instead of silently not saving their file. =============== Diff against ToolBuilder-Morphic-tpr.208 =============== Item was changed: ----- Method: DialogWindow>>openAsTool (in category '*ToolBuilder-Morphic-opening') ----- openAsTool + self flag: #dev. + "cm: The following line may no longer be necessary." + preferredPosition isMorph ifFalse: [ self moveToHand ]. + ^ self getUserResponse! - - self flag: #fishy. "mt: Why does the dialog not return its Morphic form but data?" - ^ self - moveToHand; - getUserResponse! Item was changed: Model subclass: #FileAbstractSelectionDialog + instanceVariableNames: 'patternList directory directoryCache message listIndex fileName finalChoice nameList sizeList dateList suffixList' - instanceVariableNames: 'patternList directory directoryCache message listIndex fileName finalChoice nameList sizeList dateList' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Morphic-Tools'! !FileAbstractSelectionDialog commentStamp: 'tpr 11/21/2017 18:18' prior: 0! FileAbstractSelectionDialog is the abstract superclass for the file chooser & saver modal dialogs. The UI provides a message to the user, a text input field, a directory tree widget and a list of files within any chosen directory, and buttons to accept the selected file name/path or cancel the operation. See subclass comments and class side methods for specific usage examples. Instance Variables directory: <FileDirectory> used for the currently selected directory directoryCache: <WeakIdentityKeyDictionary> used to cache a boolean to help us more quickly populate the directory tree widget when revisiting a directory fileName: <String|nil> the name of the currently selected file, if any finalChoice: <String|nil> pathname of the finally chosen file, returned as the result of accepting; nil is returned otherwise list: <Array> the list of String of filenames (and date/size) that match the current pattern listIndex: <Integer> list index of the currently selected file patternList: <OrderedCollection of String> the patterns are held as a collection of string that may include * or # wildcards. See FileAbstractSelectionDialog>>#parsePatternString for details message: <String> a message to the user to explain what is expected nameList,DateList, sizeList: <Array> the list of file names matching the pattern and the appropriate date and size values, formatted for a PluggableMultiColumnListMorph! Item was changed: ----- Method: FileAbstractSelectionDialog>>buildTextInputWith: (in category 'toolbuilder') ----- buildTextInputWith: builder | textSpec | textSpec := builder pluggableInputFieldSpec new. textSpec model: self; + name: #inputText ; font: self textViewFont; + getText: #inputText; + setText: #selectFilename:; + selection: #contentsSelection. - getText: #inputText; - setText: #inputText:. ^textSpec ! Item was changed: ----- Method: FileAbstractSelectionDialog>>initialize (in category 'initialize-release') ----- initialize super initialize. directoryCache := WeakIdentityKeyDictionary new. listIndex := 0. + patternList := self defaultPatternList. + suffixList := OrderedCollection new! - patternList := self defaultPatternList! Item was changed: ----- Method: FileAbstractSelectionDialog>>suffixList: (in category 'path and pattern') ----- + suffixList: listOfStrings - suffixList: listOfStrings "Make a pattern list from a one or more filename suffix strings in a list , i.e. #('jpg' 'mpeg') " - listOfStrings isEmptyOrNil + ifTrue: [ patternList := self defaultPatternList ] + ifFalse: + [ patternList := OrderedCollection new. + listOfStrings do: + [ : each | each isEmptyOrNil ifFalse: + [ patternList add: '*.' , each. + suffixList add: each ] ] ]! - ifTrue: [patternList := self defaultPatternList] - ifFalse: [patternList := OrderedCollection new. - listOfStrings do: [:each| - each isEmptyOrNil ifFalse:[ patternList add: '*.',each] ] ]! Item was changed: ----- Method: FileChooserDialog class>>openOn:suffixList:label: (in category 'instance creation') ----- + openOn: aDirectory suffixList: aCollection label: labelString + "Open a modal dialog to choose a file. Start the dialog with aDirectory selected and files matching the file name suffixes in aCollection. Set the user message to labelString." - openOn: aDirectory suffixList: patternList label: labelString - "Open a modal dialog to choose a file. Start the dialog with aDirectory selected - and files matching the file name suffixes in patternList. Set the user message - to labelString." "FileChooserDialog openOn: FileDirectory default suffixList: { 'changes' . 'image' } label: 'Do something with the selected files' " ^self new directory: aDirectory; + suffixList: aCollection; - suffixList: patternList; message: labelString; getUserResponse! Item was changed: ----- Method: FileSaverDialog>>buildWith: (in category 'toolbuilder') ----- buildWith: builder "assemble the spec for the saver dialog UI and build the window" | window windowSpec | windowSpec := self buildWindowWith: builder specs: { (self topConstantHeightFrame: self textViewHeight + self viewSpacing fromLeft: 0 width: 1) -> [self buildTextInputWith: builder]. (self frameOffsetFromTop: self textViewHeight + self viewSpacing fromLeft: 0.25 width: 0.75 offsetFromBottom: 0) -> [self buildFileListWith: builder]. (self frameOffsetFromTop: self textViewHeight + self viewSpacing fromLeft: 0 width: 0.25 offsetFromBottom: 0) -> [self buildDirectoryTreeWith: builder]. }. windowSpec buttons addAll: ( self buildButtonsWith: builder ). window := builder build: windowSpec. window addKeyboardCaptureFilter: self. self changed: #selectedPath. self inputText: fileName. + window positionOverWidgetNamed: #inputText. ^window ! Item was added: + ----- Method: FileSaverDialog>>contentsSelection (in category 'ui details') ----- + contentsSelection + ^ 1 to: 9999! Item was changed: ----- Method: FileSaverDialog>>inputText: (in category 'filename') ----- inputText: aText + "Initialize the filename entry field to aString. If a file with that name already exists, set up to highlight it." + fileName := aText asString. + self selectExistingFilename! - "user has entered a potential filename in the text field. - Check it against the current pattern; if it is ok we can accept it and then if it is a file in - the current list, highlight it. - If it would not match the pattern, alert the user as best we can" - | candidate | - candidate := aText asString. - (patternList anySatisfy: [:p | p match: candidate]) - ifTrue: [fileName := candidate. - listIndex := nameList findFirst: [:nm | nm = fileName]. - self changed: #fileListIndex. - ^true] - ifFalse: [fileName := nil. - self changed: #flash. - ^false]! Item was added: + ----- Method: FileSaverDialog>>selectExistingFilename (in category 'private') ----- + selectExistingFilename + "Answer whether an existing file in the list matches my proposed filename, selecting it if it does." + ^ (patternList anySatisfy: + [ : each | (each + compare: fileName + caseSensitive: FileDirectory default isCaseSensitive) = 2 ]) + and: + [ listIndex := nameList findFirst: [ : each | each = fileName ]. + true ]! Item was added: + ----- Method: FileSaverDialog>>selectFilename: (in category 'filename') ----- + selectFilename: aText + "The user has entered a potential filename in the text field. Check it against the current pattern; if it is ok we can accept it and then if it is a file in the current list, highlight it. If it would not match the pattern, alert the user." + fileName := aText asString. + ^ self selectExistingFilename + ifTrue: + [ self changed: #fileListIndex. + true ] + ifFalse: + [ suffixList size = 1 + ifTrue: + [ fileName := fileName , '.' , suffixList first. + true ] + ifFalse: + [ suffixList + at: + (UIManager default + chooseFrom: suffixList + title: 'Please choose the type of file to save.') + ifPresent: + [ : choice | fileName := fileName , '.' , choice. + true ] + ifAbsent: + [ fileName := nil. + UIManager default inform: 'WARNING: File not saved!! A filename matching one of ' , patternList asArray asString , ' patterns is required.'. + false ] ] ]!

2 2

The Trunk: Graphics-nice.396.mcz
by commits＠source.squeak.org 07 Apr '18

07 Apr '18

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.396.mcz ==================== Summary ==================== Name: Graphics-nice.396 Author: nice Time: 7 April 2018, 12:35:39.474718 am UUID: e1823303-9902-4ed6-934d-7944d734cfcd Ancestors: Graphics-mt.395 Fix incorrect fallback code in isPureTranslation as reported in http://bugs.squeak.org/view.php?id=7843 =============== Diff against Graphics-mt.395 =============== Item was changed: ----- Method: MatrixTransform2x3>>isPureTranslation (in category 'testing') ----- isPureTranslation "Return true if the receiver specifies no rotation or scaling." <primitive: 'primitiveIsPureTranslation' module: 'Matrix2x3Plugin'> + ^self a11 = 1.0 and:[self a12 = 0.0 and:[self a22 = 1.0 and:[self a21 = 0.0]]]! - ^self a11 = 1.0 and:[self a12 = 0.0 and:[self a22 = 0.0 and:[self a21 = 1.0]]]!

1 0

The Trunk: EToys-nice.323.mcz
by commits＠source.squeak.org 06 Apr '18

06 Apr '18

Nicolas Cellier uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-nice.323.mcz ==================== Summary ==================== Name: EToys-nice.323 Author: nice Time: 6 April 2018, 11:08:06.003784 pm UUID: 9cc67174-4ffd-4a87-9b85-aa82ba03b3a6 Ancestors: EToys-tpr.322 Fix the incorrect SoundService default initialization (see this package postscript for an explanation) Remove un-necessary Boolean>>xor: Sort the categories. =============== Diff against EToys-tpr.322 =============== Item was changed: SystemOrganization addCategory: #'Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-CustomEvents'! SystemOrganization addCategory: #'Etoys-Experimental'! + SystemOrganization addCategory: #'Etoys-OLPC-Display'! SystemOrganization addCategory: #'Etoys-Outliner'! SystemOrganization addCategory: #'Etoys-Protocols'! SystemOrganization addCategory: #'Etoys-Protocols-Type Vocabularies'! + SystemOrganization addCategory: #'Etoys-ReleaseBuilder'! 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-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-PartsBin'! 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-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-Multilingual-Languages'! 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-SISS-Serialization'! + SystemOrganization addCategory: #'Etoys-Squeakland-ST80-Morphic'! + SystemOrganization addCategory: #'Etoys-Squeakland-SUnit'! 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-Support'! 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-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-Squeakland-Tweak-Kedama-ParseTreeTransformer'! 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'! + SystemOrganization addCategory: #'Etoys-Widgets'! Item was removed: - ----- Method: Boolean>>xor: (in category '*Etoys-Squeakland-logical operations') ----- - xor: aBoolean - "Exclusive OR. Answer true if the receiver is not equivalent to aBoolean." - - ^(self == aBoolean) not! Item was changed: ----- Method: TileMorphTest>>setUp (in category 'running') ----- setUp + soundSystemBackup := SoundService default: (self class environment at: #BaseSoundSystem ifAbsent: [nil]).! - - self soundSystemBackup: SoundService defaultOrNil. - SoundService default: (self class environment at: #BaseSoundSystem ifAbsent: [nil]).! Item was removed: - ----- Method: TileMorphTest>>soundSystemBackup (in category 'accessing') ----- - soundSystemBackup - - ^ soundSystemBackup! Item was removed: - ----- Method: TileMorphTest>>soundSystemBackup: (in category 'accessing') ----- - soundSystemBackup: anObject - - soundSystemBackup := anObject! Item was changed: ----- Method: TileMorphTest>>tearDown (in category 'running') ----- tearDown + SoundService default: soundSystemBackup.! - SoundService default: self soundSystemBackup.! Item was changed: (PackageInfo named: 'EToys') postscript: 'KedamaMorph allInstancesDo: [ :each | (each instVarNamed: #turtlesToDisplay) ifNotNil: [ :turtlesToDisplay | turtlesToDisplay class == Array ifTrue: [ + each instVarNamed: #turtlesToDisplay put: turtlesToDisplay asSet ] ] ]. + + "Fix SoundService default. + One must not invoke this: + SoundService default: SoundService defaultOrNil. + because it fills the class inst var ''default'' with an instance instead of a class. + This script checks if that ever happened and tries to restore a healthy default." + (SoundService instVarNamed: #default) + ifNotNil: [:ss | ss isBehavior ifFalse: [SoundService unregister: ss; default: ss class]].'! - each instVarNamed: #turtlesToDisplay put: turtlesToDisplay asSet ] ] ]'!

2 2

The Trunk: Files-nice.180.mcz
by commits＠source.squeak.org 06 Apr '18

06 Apr '18

Nicolas Cellier uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-nice.180.mcz ==================== Summary ==================== Name: Files-nice.180 Author: nice Time: 6 April 2018, 11:42:51.959975 pm UUID: 8c7f5f6d-f3db-4d3e-afd3-e47351332573 Ancestors: Files-tpr.179 Fix typo according to http://bugs.squeak.org/view.php?id=7854 =============== Diff against Files-tpr.179 =============== Item was changed: ----- Method: FileStream class>>encodeAndDecodeStdioFiles (in category 'stdio') ----- encodeAndDecodeStdioFiles <preference: 'Encode and decode the contents of stdio files.' category: 'Files' + description: 'If true, then the contents of stdin, stdout and stderr are encoded/decoded using the system default text converter.' - description: 'It true, then the contents of stdin, stdout and stderr are encoded/decoded using the system default text converter.' type: #Boolean> ^EncodeAndDecodeStdioFiles ifNil: [ true ]!

1 0

The Trunk: Morphic-nice.1412.mcz
by commits＠source.squeak.org 06 Apr '18

06 Apr '18

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.1412.mcz ==================== Summary ==================== Name: Morphic-nice.1412 Author: nice Time: 6 April 2018, 11:39:20.148358 pm UUID: 9fec9c6d-77db-4708-ab00-15746432945b Ancestors: Morphic-nice.1411 Fix one typo and one preference description according to http://bugs.squeak.org/view.php?id=7854 =============== Diff against Morphic-nice.1411 =============== Item was changed: ----- Method: FontImporterTool>>import (in category 'actions') ----- import | megaSize filenames fonts | fonts := self currentSelection. filenames := fonts allFilenames. megaSize := ((filenames inject: 0 into: [ :sum :fn | sum + (FileStream readOnlyFileNamed: fn do: [:file | file size])]) / (1024 * 1024)) asFloat. (UIManager default confirm: ( + 'About to import {1}{2}.\\This is at least {3} MB of space required in the image.\ - 'About to import {1}{2}.\\This is at least {3} MB of space required int the image.\ Please respect the copyright and embedding restrictions of the font.\ Proceed?' withCRs format: { self currentParent ifNotNil: [:p| p fontname, ' ', self currentSelection fontname] ifNil: [self currentSelection fontname]. filenames size > 1 ifTrue: [' (', filenames size, ' font files)'] ifFalse: ['']. megaSize printShowingDecimalPlaces: 2})) ifTrue: [ filenames do: [:filename | | readFonts | readFonts := TTCFontDescription addFromTTFile: filename. readFonts isCollection ifFalse: [TTCFont newTextStyleFromTT: readFonts] ifTrue: [self importFontFamily: readFonts]]]. self allFonts: nil. "force redraw" ! Item was changed: ----- Method: PluggableListMorph class>>menuRequestUpdatesSelection (in category 'preferences') ----- menuRequestUpdatesSelection <preference: 'Menu request updates list/tree selection' category: #Morphic + description: 'When invoking a menu, the action is applied to the current selection in the list. If the mouse cursor it at a different location, however, this preference will update the selection before showing the menu if enabled.' - description: 'When invoking a menu, this will for the current selection by default. If the mouse cursor it at a different location, however, this preference will update the selection before showing the menu if enabled.' type: #Boolean> ^ MenuRequestUpdatesSelection ifNil: [ false ]!

1 0

cleanup effort of Mantis (was Bug: SoundService default is not a class)
by Nicolas Cellier 06 Apr '18

06 Apr '18

And I should have changed the subject. Done 2018-04-06 22:20 GMT+02:00 Nicolas Cellier < nicolas.cellier.aka.nice(a)gmail.com>: > Hi David, > Just a small brook for washing yet another https://en.wikipedia.org/wiki/ > Labours_of_Hercules#Fifth_labour:_Augean_stables ;) > > My advice would be to inspect the entries updated these last two years, > and if still relevant confirm (or fix) else close. > Fortunately, there are not so much of them. > > Then I would close all the rest (resolution = timeout). > Other teams including Pharo have such a policy. > > Generally, I hate when my opened issues are closed like that, because I > mostly don't use Pharo, so I consider these as pure gifts. > There is a side effect that I'm not encouraged to report anymore, and I > rarely reopen them, because I have no time to check. > There is no such thing as gift-support-service. > > But, in the end, Pharo team is right: accumulation of rotten issues is not > sustainable > - either the issue is important, and it must/will be reopened > - or no one cares and the issue can be closed. > > If Heracles himself wants to inspect and resolve the timed-out issues, he > would just have to set a filter with a few clicks. > But there's no hurry, the Augean stables had to wait 30 years... > > 2018-04-06 21:58 GMT+02:00 David T. Lewis <lewis(a)mail.msen.com>: > >> Nicolas, >> >> It is really good to see those Mantis issues being addressed. Thank you! >> >> Dave >> >> > Hi Marcel, Tobias, >> > I encountered a bug, when playing a sound, the default SoundService >> (class >> > inst var) was not a class (BasedSoundService) but an instance (a >> > BasedSoundService). >> > >> > Why? >> > Because, there is a TileMorphTest>>setUp that remember which is the >> > default, then tries to restore it in tearDown. >> > It used to work. >> > >> > But, in between, SoundService default and defaultOrNil have been >> > re-defined >> > so as to answer an instance rather than a class. >> > >> > Thus, when we play the tests, we can no more play the sounds... >> > >> > I hesitate to open a Mantis issue, no one read nor close them, so the >> bug >> > report is only here for the moment. >> > >> > >> >> >> >> >

1 0

The Trunk: Morphic-cmm.1408.mcz
by commits＠source.squeak.org 06 Apr '18

06 Apr '18

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1408.mcz ==================== Summary ==================== Name: Morphic-cmm.1408 Author: cmm Time: 3 April 2018, 11:15:51.160237 pm UUID: 35b2e2ad-c421-4510-a635-774bfd84e597 Ancestors: Morphic-cmm.1407 The responsibility of #anyOpenWindowLikeMe, as indicated by its name, is to look in the actual World world for any open window like the receiver, not the receivers #world (which is nil, because because we wish to look in the real world first!). Fixes the Reuse Windows preference. =============== Diff against Morphic-cmm.1407 =============== Item was changed: ----- Method: SystemWindow>>anyOpenWindowLikeMe (in category 'open/close') ----- anyOpenWindowLikeMe self class reuseWindows ifFalse: [ ^Array empty ]. ^ SystemWindow + windowsIn: World - windowsIn: self world satisfying: [ : each | each model class = self model class and: [ (each model respondsTo: #representsSameBrowseeAs:) and: [ each model representsSameBrowseeAs: self model ] ] ] !

9 26

The Trunk: Multilingual-nice.237.mcz
by commits＠source.squeak.org 06 Apr '18

06 Apr '18

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.237.mcz ==================== Summary ==================== Name: Multilingual-nice.237 Author: nice Time: 6 April 2018, 7:37:57.89255 pm UUID: 08e8ac08-7ec9-9f43-a965-11b791a7cfb4 Ancestors: Multilingual-tonyg.236 Add some fixes required for the Japanese locale to function properly. >From http://bugs.squeak.org/view.php?id=7864 Note: - I have replace the patch of copy by a patch of postCopy which is the correct way to do it in modern Squeak. - i have not integrated the crossedX patch yet because I need to understand the bug first, so I am waiting for feedback =============== Diff against Multilingual-tonyg.236 =============== Item was changed: ----- Method: JapaneseEnvironment class>>clipboardInterpreterClass (in category 'subclass responsibilities') ----- clipboardInterpreterClass | platformName osVersion | + platformName := Smalltalk platformName. - platformName := Smalltalk platformName. osVersion := Smalltalk osVersion. (platformName = 'Win32' and: [osVersion = 'CE']) ifTrue: [^NoConversionClipboardInterpreter]. + platformName = 'Win32' ifTrue: [^UTF8ClipboardInterpreter]. - platformName = 'Win32' ifTrue: [^WinShiftJISClipboardInterpreter]. platformName = 'Mac OS' ifTrue: [^MacShiftJISClipboardInterpreter]. ^platformName = 'unix' ifTrue: [(ShiftJISTextConverter encodingNames includes: X11Encoding getEncoding) ifTrue: [MacShiftJISClipboardInterpreter] ifFalse: [UnixJPClipboardInterpreter]] ifFalse: [ NoConversionClipboardInterpreter ]! Item was changed: ----- Method: JapaneseEnvironment class>>systemConverterClass (in category 'subclass responsibilities') ----- systemConverterClass | platformName osVersion encoding | platformName := Smalltalk platformName. osVersion := Smalltalk osVersion. + platformName = 'Win32' - (platformName = 'Win32' and: [osVersion = 'CE']) ifTrue: [^UTF8TextConverter]. + platformName = 'ZaurusOS' - (#('Win32' 'ZaurusOS') includes: platformName) ifTrue: [^ShiftJISTextConverter]. platformName = 'Mac OS' ifTrue: [^('10*' match: osVersion) ifTrue: [UTF8TextConverter] ifFalse: [ShiftJISTextConverter]]. platformName = 'unix' ifTrue: [encoding := X11Encoding encoding. encoding ifNil: [^EUCJPTextConverter]. (encoding = 'utf-8') ifTrue: [^UTF8TextConverter]. (encoding = 'shiftjis' or: [ encoding = 'sjis' ]) ifTrue: [^ShiftJISTextConverter]. ^EUCJPTextConverter]. ^MacRomanTextConverter! Item was added: + ----- Method: LanguageEnvironment class>>isAlphaNumeric: (in category 'accessing') ----- + isAlphaNumeric: char + + ^ self charsetClass isAlphaNumeric: char. + ! Item was added: + ----- Method: LanguageEnvironment class>>toCasefold: (in category 'casing') ----- + toCasefold: aWideString + ^self charsetClass toCasefold: aWideString! Item was added: + ----- Method: LanguageEnvironment class>>toLowercase: (in category 'casing') ----- + toLowercase: aWideString + ^self charsetClass toLowercase: aWideString! Item was added: + ----- Method: LanguageEnvironment class>>toLowercaseCode: (in category 'casing') ----- + toLowercaseCode: integerValue + ^self charsetClass toLowercaseCode: integerValue! Item was added: + ----- Method: LanguageEnvironment class>>toUppercase: (in category 'casing') ----- + toUppercase: aWideString + ^self charsetClass toUppercase: aWideString! Item was added: + ----- Method: LanguageEnvironment class>>toUppercaseCode: (in category 'casing') ----- + toUppercaseCode: integerValue + ^self charsetClass toUppercaseCode: integerValue! Item was changed: ----- Method: StrikeFontSet>>postCopy (in category 'copying') ----- postCopy super postCopy. self reset. + fontArray := fontArray collect: #copy - fontArray := fontArray copy ! Item was changed: ----- Method: UTF32JPInputInterpreter>>nextCharFrom:firstEvt: (in category 'as yet unclassified') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue mark | keyValue := evtBuf at: 6. + keyValue = 0 ifTrue: [keyValue := evtBuf at: 3]. mark := self japaneseSpecialMark: keyValue. mark notNil ifTrue: [^ mark]. keyValue < 256 ifTrue: [^ (Character value: keyValue) squeakToIso]. ^ Character leadingChar: JapaneseEnvironment leadingChar code: keyValue!

1 0

Jump to page: