Squeak-dev February 2016

squeak-dev@lists.squeakfoundation.org

28 participants
207 discussions

The Trunk: Files-cmm.149.mcz
by commits＠source.squeak.org 25 Feb '16

25 Feb '16

Chris Muller uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-cmm.149.mcz ==================== Summary ==================== Name: Files-cmm.149 Author: cmm Time: 25 February 2016, 11:02:08.954431 am UUID: ddb4a999-0151-401d-8506-8f45bc69c3ad Ancestors: Files-topa.148 - API compatibility for #asDirectoryEntry with DirectoryEntry. - Check for existence of a directory of same name (not just a file) when renaming a file or directory. =============== Diff against Files-topa.148 =============== Item was added: + ----- Method: DirectoryEntry>>asDirectoryEntry (in category 'converting') ----- + asDirectoryEntry + ^ self! Item was changed: ----- Method: FileDirectory>>rename:toBe: (in category 'file operations') ----- rename: oldFileName toBe: newFileName "Rename the file of the given name to the new name. Fail if there is no file of the old name or if there is an existing file with the new name." "Modified for retry after GC ar 3/21/98 18:09" | replaceIt oldName newName | oldName := self fullNameFor: oldFileName. newName := self fullNameFor: newFileName. + ((self fileExists: oldFileName) or: [ (self directoryExists: oldFileName) ]) ifFalse: [ ^ self error: 'Attempt to rename a non-existent file or directory.' ]. - (self fileExists: oldFileName) ifFalse: [ ^ self error: 'Attempt to rename a non-existent file' ]. (self fileExists: newFileName) ifTrue: [replaceIt := (ReplaceExistingFileException fileName: newFileName) signal. replaceIt ifTrue: [ self deleteFileNamed: newFileName ] ifFalse: [ ^ self ]]. + (self directoryExists: newFileName) ifTrue: [ FileExistsException signal: newFileName, ' already exists.' ]. (StandardFileStream retryWithGC: [ self primRename: oldName asVmPathName to: newName asVmPathName ] until: [ : result | result notNil ] forFileNamed: oldName) ~~ nil ifTrue: [ ^ self ]. ^ self error: 'Failed to rename file'!

1 0

New Cog VMs available
by Eliot Miranda 24 Feb '16

24 Feb '16

...at http://www.mirandabanda.org/files/Cog/VM/VM.r3630 a.k.a. http://www.mirandabanda.org/files/Cog/VM/latest. Noe tat there is a JIT bug in the 64-bit VMs which I shall look at this week. CogVM binaries as per VMMaker.oscog-eem.1697/r3630 General: Fix serious bug in jitted perform: primitive. Thanks to Stephane Ducasse for finding and to Levente Uzoni for diagnosing the bug. If the argument count is one greater than the max number of register arguments (2 in Spur, hence perform:with:with:) then the code to remove the receiver and arguments from the stack neglects to remove the receiver and selector. Spur: Fix bug in markAndTraceWeaklingsFrom:. Fields of weaklings may be immediate so must use followOopField:ofObject: not followObjField:ofObject:. Fix https://pharo.fogbugz.com/f/cases/17536/VM-Crash-when-adding-an-iVar-to-a-s… . When weaklings (and when ephemerons) are scan-marked forwarders must be coped with. 64-bit VMs: Fix a bug in printHex: for 64-bits (faulty arithmetic). ThreadedFFIPlugin: Fix the remaining 64-bit issues in the ThreadedFFIPlugin. The X64SysVFFIPlugin now passes the test suite. Hence include the FFI plugin in 64-bit VMs. Mac VMs: Have the Mac OS X build install Localizable.strings. Add versions for Newspeak, Pharo and Squeak. Rename the key to SelectImagePanePrompt. Temporarily disable the Serial plugin in the Pharo Mac VM until we can track down the relevant platforms/iOS support for the Pharo extensions. Fix argument access on the iOS platform (Mac OS VMs). _,,,^..^,,,_ best, Eliot

2 2

A candidate for the "weirdest bug ever" award
by Stéphane Rollandin 24 Feb '16

24 Feb '16

I have a nice one: In (seemingly) any 5.0 image, with the latest Spur, type the following in a workspace and printIt a couple of time: (1 to: 3) collect: [:i | m := ''. 2 timesRepeat: [m := m, ('1234' perform: #copyFrom:to: with: 2 with: 4)]. m] I get kind of randomly either #('234' '' '') or the correct #('234234' '234234' '234234'), or at times #('234234' '' ''). Attached is the same code, this time in a method. It is even funkier, since a common answer is then 'copyFrom:to:234', although I sometimes get '234234' ... Stef

5 4

Daily Commit Log
by commits＠source.squeak.org 23 Feb '16

23 Feb '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-February/009450.h… Name: 51Deprecated-bf.19 Ancestors: 51Deprecated-bf.18 Use actual old version for deprecation ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-February/009451.h… Name: ToolBuilder-Morphic-kfr.159 Ancestors: ToolBuilder-Morphic-mt.158 Caused a issue with saving sources Reverting to old version ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-February/009452.h… Name: Graphics-tfel.327 Ancestors: Graphics-tfel.326 Revert Graphics-tfel.328 (as per bf's recommendation) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-February/009453.h… Name: Tools-topa.675 Ancestors: Tools-mt.674 Fix debuggers popping up when having #showMessageIcons disabled. Thanks to Stephane Rollandin. (Tiny refactoring along the way) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-February/009454.h… Name: System-bf.802 Ancestors: System-eem.801 Remove timezone setting from Locale. =============================================

1 0

The Trunk: System-bf.802.mcz
by commits＠source.squeak.org 23 Feb '16

23 Feb '16

Bert Freudenberg uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-bf.802.mcz ==================== Summary ==================== Name: System-bf.802 Author: bf Time: 23 February 2016, 1:07:37.903664 pm UUID: 9883acd3-d04f-43f2-af25-85777a8f1bda Ancestors: System-eem.801 Remove timezone setting from Locale. =============== Diff against System-eem.801 =============== Item was changed: ----- Method: Locale class>>startUp: (in category 'system startUp') ----- startUp: resuming - | newID | resuming ifFalse: [^self]. (Preferences valueOfFlag: #useLocale) ifTrue: [ + | newID | - DateAndTime localTimeZone: (TimeZone - offset: (Duration minutes: Locale current offsetLocalToUTC) - name: 'Local Time' - abbreviation: 'LT'). newID := self current determineLocaleID. newID ~= LocaleID current ifTrue: [self switchAndInstallFontToID: newID gently: true]]!

1 0

fix for find button in ObjectsTool
by Chris Muller 23 Feb '16

23 Feb '16

Just a changeset in case Marcel has a better fix. I simply needed to search, so I guarded against the DNU.

2 1

Bug in Browser>>messageIconHelpAt:
by Stéphane Rollandin 23 Feb '16

23 Feb '16

Hello, In trunk there is an error in Browser>>messageIconHelpAt: the test self class showMessageIcons ifFalse: [^ nil]. should be self class showMessageIcons ifFalse: [^ '']. Stef

2 1

Preferences swapMouseButtons broken in trunk
by Stéphane Rollandin 23 Feb '16

23 Feb '16

Another thing: changing the swapMouseButtons preference raises a MNU about a missing #swapMouseButtonsChanged method (in current trunk) Stef

1 0

The Trunk: Tools-topa.675.mcz
by commits＠source.squeak.org 23 Feb '16

23 Feb '16

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.675.mcz ==================== Summary ==================== Name: Tools-topa.675 Author: topa Time: 23 February 2016, 7:12:21.413883 pm UUID: 9c94666a-8b9c-47bc-b432-0dc66d2c4c02 Ancestors: Tools-mt.674 Fix debuggers popping up when having #showMessageIcons disabled. Thanks to Stephane Rollandin. (Tiny refactoring along the way) =============== Diff against Tools-mt.674 =============== Item was changed: ----- Method: Browser>>messageHelpAt: (in category 'message list') ----- messageHelpAt: anIndex "Show the first n lines of the sources code of the selected message." + | source formatted iconHelp | - | source formatted | Preferences balloonHelpInMessageLists ifFalse: [^ nil]. self messageList size < anIndex ifTrue: [^ nil]. source := (self selectedClassOrMetaClass >> (self messageList at: anIndex)) getSource. source lineCount > 5 ifTrue: [ | sourceLines | sourceLines := (source asString lines copyFrom: 1 to: 5) asOrderedCollection. sourceLines add: ' [...]'. source := sourceLines joinSeparatedBy: Character cr]. formatted := SHTextStylerST80 new classOrMetaClass: self selectedClassOrMetaClass; styledTextFor: source asText. + iconHelp := (self messageIconHelpAt: anIndex) ifNotEmpty: [:t | + t , Character cr, Character cr]. + ^ iconHelp asText - - ^ (Text newFrom: ((self messageIconHelpAt: anIndex) ifNotEmpty: [:t | t , Character cr, Character cr])) append: formatted; yourself! Item was changed: ----- Method: Browser>>messageIconHelpAt: (in category 'message list') ----- messageIconHelpAt: anIndex + self class showMessageIcons ifFalse: [^ String empty]. - self class showMessageIcons - ifFalse: [^ nil]. ^ ToolIconHelp iconHelpNamed: (ToolIcons iconForClass: self selectedClassOrMetaClass selector: (self messageList at: anIndex))! Item was changed: ----- Method: ToolIconHelp class>>iconHelpNamed: (in category 'as yet unclassified') ----- iconHelpNamed: aSymbol + ^ (self respondsTo: aSymbol) + ifTrue: [self helpTexts at: aSymbol ifAbsentPut: [self perform: aSymbol]] + ifFalse: [String empty] - (self respondsTo: aSymbol) - ifTrue: [^self helpTexts at: aSymbol ifAbsentPut: [self perform: aSymbol]] - ifFalse: [^ ''] !

1 0

The Trunk: Graphics-tfel.327.mcz
by commits＠source.squeak.org 23 Feb '16

23 Feb '16

Tim Felgentreff uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-tfel.327.mcz ==================== Summary ==================== Name: Graphics-tfel.327 Author: tfel Time: 23 February 2016, 6:17:13.508562 pm UUID: 5c89afe4-2c81-4948-a7ac-c12ce4eeaa95 Ancestors: Graphics-tfel.326 Revert Graphics-tfel.328 (as per bf's recommendation) =============== Diff against Graphics-tfel.326 =============== Item was changed: ----- Method: Rectangle>>newRectButtonPressedDo: (in category 'transforming') ----- newRectButtonPressedDo: newRectBlock "Track the outline of a new rectangle until mouse button changes. newFrameBlock produces each new rectangle from the previous. Only tracks while mouse is down." | rect newRect buttonNow delay | delay := Delay forMilliseconds: 10. buttonNow := Sensor anyButtonPressed. rect := self. Display border: rect width: 2 rule: Form reverse fillColor: Color gray. [buttonNow] whileTrue: [delay wait. buttonNow := Sensor anyButtonPressed. newRect := newRectBlock value: rect. newRect = rect ifFalse: [Display border: rect width: 2 rule: Form reverse fillColor: Color gray. Display border: newRect width: 2 rule: Form reverse fillColor: Color gray. - Display forceToScreen. rect := newRect]]. Display border: rect width: 2 rule: Form reverse fillColor: Color gray. Project current pointerMoved. Sensor processEvent: Sensor createMouseEvent. ^ rect! Item was changed: ----- Method: Rectangle>>newRectFrom: (in category 'transforming') ----- newRectFrom: newRectBlock "Track the outline of a new rectangle until mouse button changes. newFrameBlock produces each new rectangle from the previous" | rect newRect buttonStart buttonNow delay | delay := Delay forMilliseconds: 10. buttonStart := buttonNow := Sensor anyButtonPressed. rect := self. Display border: rect width: 2 rule: Form reverse fillColor: Color gray. [buttonNow == buttonStart] whileTrue: [delay wait. buttonNow := Sensor anyButtonPressed. newRect := newRectBlock value: rect. newRect = rect ifFalse: [Display border: rect width: 2 rule: Form reverse fillColor: Color gray. Display border: newRect width: 2 rule: Form reverse fillColor: Color gray. - Display forceToScreen. rect := newRect]]. Display border: rect width: 2 rule: Form reverse fillColor: Color gray. Project current pointerMoved. Sensor processEvent: Sensor createMouseEvent. ^ rect!

1 0

← Newer
1
2
3
4
5
6
7
8
...
21
Older →

Jump to page: