Packages August 2010

packages@lists.squeakfoundation.org

1 participants
276 discussions

The Trunk: System-ar.355.mcz
by commits＠source.squeak.org 10 Aug '10

10 Aug '10

Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ar.355.mcz ==================== Summary ==================== Name: System-ar.355 Author: ar Time: 9 August 2010, 10:13:55.423 pm UUID: 861d5068-588a-c045-93b6-a1228ccee7a3 Ancestors: System-dtl.354 Don't let ChangeSet compute the full name for the fileout since this will conflict with the fixName: usage in writeSourceCodeFrom: (it's no longer necessary to do that since FileStream>>writeSourceCodeFrom:... now vectors to the right place). =============== Diff against System-dtl.354 =============== Item was changed: ----- Method: ChangeSet>>fileOut (in category 'fileIn/Out') ----- fileOut "File out the receiver, to a file whose name is a function of the change-set name and either of the date & time or chosen to have a unique numeric tag, depending on the preference 'changeSetVersionNumbers'" | slips nameToUse | self checkForConversionMethods. ChangeSet promptForDefaultChangeSetDirectoryIfNecessary. nameToUse := Preferences changeSetVersionNumbers ifTrue: [self defaultChangeSetDirectory nextNameFor: self name extension: FileStream cs] ifFalse: [self name , FileDirectory dot , Utilities dateTimeSuffix, FileDirectory dot , FileStream cs]. - nameToUse := self defaultChangeSetDirectory fullNameFor: nameToUse. Cursor write showWhile: [ | internalStream | internalStream := WriteStream on: (String new: 10000). internalStream header; timeStamp. self fileOutPreambleOn: internalStream. self fileOutOn: internalStream. self fileOutPostscriptOn: internalStream. internalStream trailer. FileStream writeSourceCodeFrom: internalStream baseName: (nameToUse copyFrom: 1 to: nameToUse size - 3) isSt: false useHtml: false. ]. Preferences checkForSlips ifFalse: [^ self]. slips := self checkForSlips. (slips size > 0 and: [(UIManager default chooseFrom: #('Ignore' 'Browse slips') title: 'Methods in this fileOut have halts or references to the Transcript or other ''slips'' in them. Would you like to browse them?') = 2]) ifTrue: [self systemNavigation browseMessageList: slips name: 'Possible slips in ' , name]!

1 0

The Trunk: System-ar.355.mcz
by commits＠source.squeak.org 10 Aug '10

10 Aug '10

1 0

The Trunk: System-ar.355.mcz
by commits＠source.squeak.org 10 Aug '10

10 Aug '10

1 0

The Trunk: Files-ar.83.mcz
by commits＠source.squeak.org 10 Aug '10

10 Aug '10

Andreas Raab uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-ar.83.mcz ==================== Summary ==================== Name: Files-ar.83 Author: ar Time: 9 August 2010, 10:11:57.746 pm UUID: 7afec443-3da1-f84d-ab62-83fe3199c455 Ancestors: Files-eem.82 Move writeSourceCodeFrom:... from FileStream to FileDirectory and have FileStream vector the request through ChangeSet defaultChangeSetDirectory for consistency between all file-out operations. =============== Diff against Files-eem.82 =============== Item was added: + ----- Method: FileDirectory>>writeSourceCodeFrom:baseName:isSt:useHtml: (in category 'utilities') ----- + writeSourceCodeFrom: aStream baseName: baseName isSt: stOrCsFlag useHtml: useHtml + "Write the source code from aStream into a file." + + | extension converter f fileName | + aStream contents isAsciiString ifTrue: [ + stOrCsFlag ifTrue: [ + extension := (FileDirectory dot, FileStream st). + ] ifFalse: [ + extension := (FileDirectory dot, FileStream cs). + ]. + converter := MacRomanTextConverter new. + ] ifFalse: [ + stOrCsFlag ifTrue: [ + extension := (FileDirectory dot, FileStream st "multiSt"). + ] ifFalse: [ + extension := (FileDirectory dot, FileStream cs "multiCs"). + ]. + converter := UTF8TextConverter new. + ]. + fileName := useHtml ifTrue: [baseName, '.html'] ifFalse: [baseName, extension]. + fileName := self checkName: fileName fixErrors: true. + f := self newFileNamed: fileName. + f ifNil: [^ self error: 'Cannot open file']. + (converter isMemberOf: UTF8TextConverter) + ifTrue: [f binary. + UTF8TextConverter writeBOMOn: f]. + f text. + f converter: converter. + f nextPutAll: aStream contents. + f close. + ! Item was changed: ----- Method: FileStream class>>writeSourceCodeFrom:baseName:isSt:useHtml: (in category 'file reader services') ----- writeSourceCodeFrom: aStream baseName: baseName isSt: stOrCsFlag useHtml: useHtml + "Write the source code from aStream into a file. + Uses ChangeSet defaultChangeSetDirectory for consistency." + ^(ChangeSet defaultChangeSetDirectory) + writeSourceCodeFrom: aStream + baseName: baseName + isSt: stOrCsFlag + useHtml: useHtml! - | extension converter f fileName | - aStream contents isAsciiString ifTrue: [ - stOrCsFlag ifTrue: [ - extension := (FileDirectory dot, FileStream st). - ] ifFalse: [ - extension := (FileDirectory dot, FileStream cs). - ]. - converter := MacRomanTextConverter new. - ] ifFalse: [ - stOrCsFlag ifTrue: [ - extension := (FileDirectory dot, FileStream st "multiSt"). - ] ifFalse: [ - extension := (FileDirectory dot, FileStream cs "multiCs"). - ]. - converter := UTF8TextConverter new. - ]. - fileName := useHtml ifTrue: [baseName, '.html'] ifFalse: [baseName, extension]. - fileName := FileDirectory default checkName: fileName fixErrors: true. - f := FileStream newFileNamed: fileName. - f ifNil: [^ self error: 'Cannot open file']. - (converter isMemberOf: UTF8TextConverter) - ifTrue: [f binary. - UTF8TextConverter writeBOMOn: f]. - f text. - f converter: converter. - f nextPutAll: aStream contents. - f close. - !

1 0

The Trunk: Files-ar.83.mcz
by commits＠source.squeak.org 10 Aug '10

10 Aug '10

1 0

The Trunk: Files-ar.83.mcz
by commits＠source.squeak.org 10 Aug '10

10 Aug '10

1 0

The Trunk: Morphic-ar.459.mcz
by commits＠source.squeak.org 07 Aug '10

07 Aug '10

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.459.mcz ==================== Summary ==================== Name: Morphic-ar.459 Author: ar Time: 6 August 2010, 11:50:36.075 pm UUID: 1eebbccf-ebff-1c41-8a15-d022e86eb716 Ancestors: Morphic-ar.458 Experimental. Fold the former 'open...' world menu directly into the menu bar as 'Apps' menu. This way, any registered apps are directly accessible via the menu bar. The menu bar needs a bit of cleanup (there are some dupes right now) but it's an experiment to see if people like the idea. You need to go to Extras>>Rebuild Menus to see the effect. =============== Diff against Morphic-ar.458 =============== Item was added: + ----- Method: TheWorldMainDockingBar>>listAppsOn: (in category 'submenu - apps') ----- + listAppsOn: menu + "Update the apps list in the menu" + + | args | + TheWorldMenu registeredOpenCommands do:[:spec| + args := spec second. + menu addItem: [ :item | + item + contents: spec first translated; + target: args first; + selector: args second]. + ]. + ! Item was added: + ----- Method: TheWorldMainDockingBar>>appsMenuOn: (in category 'submenu - apps') ----- + appsMenuOn: aDockingBar + "Create a menu with the registered apps" + + aDockingBar addItem: [ :item | + item + contents: 'Apps' translated; + subMenuUpdater: self + selector: #listAppsOn: ] + ! Item was changed: ----- Method: TheWorldMainDockingBar>>menusOn: (in category 'construction') ----- menusOn: aDockingBar self squeakMenuOn: aDockingBar; projectsMenuOn: aDockingBar; toolsMenuOn: aDockingBar; + appsMenuOn: aDockingBar; extrasMenuOn: aDockingBar; windowsMenuOn: aDockingBar; helpMenuOn: aDockingBar. aDockingBar addSpacer. self searchBarOn: aDockingBar; clockOn: aDockingBar!

1 0

The Trunk: Morphic-ar.459.mcz
by commits＠source.squeak.org 07 Aug '10

07 Aug '10

1 0

The Trunk: Morphic-ar.459.mcz
by commits＠source.squeak.org 07 Aug '10

07 Aug '10

1 0

The Trunk: Network-ar.78.mcz
by commits＠source.squeak.org 05 Aug '10

05 Aug '10

Andreas Raab uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ar.78.mcz ==================== Summary ==================== Name: Network-ar.78 Author: ar Time: 5 August 2010, 12:24:17.908 pm UUID: c0c6ce57-a1aa-a245-be4c-4f6fbd7f6a2b Ancestors: Network-ar.77 Fixes for broken SocketStream behavior. =============== Diff against Network-ar.77 =============== Item was changed: ----- Method: SocketStream>>upToEnd (in category 'stream in') ----- upToEnd "Answer all data coming in on the socket until the socket is closed by the other end, or we get a timeout. This means this method catches ConnectionClosed by itself. NOTE: Does not honour timeouts if shouldSignal is false!!" + [[self isConnected] whileTrue: [self receiveData]] - [[self atEnd] whileFalse: [self receiveData]] on: ConnectionClosed do: [:ex | "swallow it"]. ^self nextAllInBuffer! Item was changed: ----- Method: SocketStream>>receiveData: (in category 'control') ----- receiveData: nBytes "Keep reading the socket until we have nBytes in the inBuffer or we reach the end. This method does not return data, but can be used to make sure data has been read into the buffer from the Socket before actually reading it from the FastSocketStream. Mainly used internally. We could also adjust the buffer to the expected amount of data and avoiding several incremental grow operations. NOTE: This method doesn't honor timeouts if shouldSignal is false!! And frankly, I am not sure how to handle that case or if I care - I think we should always signal." + [self isConnected and: [nBytes > self inBufferSize]] - [self atEnd not and: [nBytes > self inBufferSize]] whileTrue: [self receiveData]!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2010