Squeak-dev April 2010

squeak-dev@lists.squeakfoundation.org

122 participants
595 discussions

Re: What is the plan for 4.2?
by Chris Cunnington 29 Apr '10

29 Apr '10

RJ: "What I'd like is a web page that lists all the videos and gives a brief description of them." I'll look over the videos and create a web page to make it easier for people to find what they'd like. I'll present the link on this list next week. I figure I'll group them by level and application to begin with. And I must say, your saying they could be useful to you and your students is quite encouraging. Chris

1 0

The Trunk: ShoutCore-ul.18.mcz
by commits＠source.squeak.org 29 Apr '10

29 Apr '10

Levente Uzonyi uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-ul.18.mcz ==================== Summary ==================== Name: ShoutCore-ul.18 Author: ul Time: 29 April 2010, 1:02:13.785 pm UUID: 20ce7d42-72b4-2b48-b2d9-aee694a92afb Ancestors: ShoutCore-ul.17 - fix: SHMCClassDefinition should also understand #allowUnderscoreSelectors and #allowUnderscoreAssignments =============== Diff against ShoutCore-ul.17 =============== Item was added: + ----- Method: SHMCClassDefinition>>allowUnderscoreSelectors (in category 'act like a class') ----- + allowUnderscoreSelectors + + ^nil! Item was added: + ----- Method: SHMCClassDefinition>>allowUnderscoreAssignments (in category 'act like a class') ----- + allowUnderscoreAssignments + + ^nil!

1 0

Re: What is the plan for 4.2?
by Chris Cunnington 29 Apr '10

29 Apr '10

"30 tutorials is a great idea, but don't forget video. A video walkthrough of each tutorial would be excellent and would serve for teaching tool usage as well." To date I've made 74 video tutorials on Squeak. I make one every week. http://www.youtube.com/user/gandysmedicineshow Any of those could be linked in the files of TB's HelpSystem. I'm also willing to make videos of tutorials other people write. At this point, I make them quite quickly. Chris

5 6

The Trunk: ShoutCore-ul.17.mcz
by commits＠source.squeak.org 29 Apr '10

29 Apr '10

Levente Uzonyi uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-ul.17.mcz ==================== Summary ==================== Name: ShoutCore-ul.17 Author: ul Time: 29 April 2010, 11:33:55.576 am UUID: e852d6d6-16bb-c245-b81c-47fbea80f793 Ancestors: ShoutCore-ul.16 - accept symbols as arguments of #primitive: and #primitive:module: pragmas =============== Diff against ShoutCore-ul.16 =============== Item was changed: ----- Method: SHParserST80>>parsePrimitive (in category 'parse') ----- parsePrimitive self scanNext. currentTokenFirst isDigit ifTrue: [self scanPast: #integer] ifFalse: [ + currentTokenFirst == $' + ifTrue: [ self parseString ] + ifFalse: [ + currentTokenFirst == $# + ifTrue: [ self parseSymbol ] + ifFalse: [ self error ] ]. - self failUnless: currentTokenFirst == $'. - self parseString. currentToken = 'module:' ifTrue: [ self scanPast: #module. + currentTokenFirst == $' + ifTrue: [ self parseString ] + ifFalse: [ + currentTokenFirst == $# + ifTrue: [ self parseSymbol ] + ifFalse: [ self error ] ] ] ]. + self failUnless: currentTokenFirst == $>. - self failUnless: currentTokenFirst == $'. - self parseString]]. - self failUnless: currentToken = '>'. self scanPast: #primitiveOrExternalCallEnd!

1 0

The Trunk: ShoutCore-ul.16.mcz
by commits＠source.squeak.org 29 Apr '10

29 Apr '10

Levente Uzonyi uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-ul.16.mcz ==================== Summary ==================== Name: ShoutCore-ul.16 Author: ul Time: 28 April 2010, 8:29:31.118 pm UUID: a8283288-564c-0b40-b752-8e7a6edaac20 Ancestors: ShoutCore-laza.15 - a few minor performance tweaks =============== Diff against ShoutCore-laza.15 =============== Item was changed: ----- Method: SHParserST80>>parseString (in category 'parse') ----- parseString | first c answer last | first := sourcePosition. answer := ''. + [(c := self currentChar) + ifNil: [ - [(c := self currentChar) isNil - ifTrue: [ self rangeType: #unfinishedString start: first - 1 end: source size. self error ": 'unfinished string'"]. + (c == $' + ifFalse: [answer := answer copyWith: c. true] + ifTrue: [false] - (c ~~ $' - ifTrue: [answer := answer copyWith: c. true] - ifFalse: [false] ) or: [ self peekChar == $' ifTrue: [ sourcePosition := sourcePosition + 1. answer := answer copyWith: $'. true] ifFalse: [false]] ] whileTrue: [sourcePosition := sourcePosition + 1]. last := sourcePosition. self nextChar. self scanPast: #string start: first - 1 end: last. ^answer! Item was changed: ----- Method: SHParserST80>>nextChar (in category 'scan') ----- nextChar sourcePosition := sourcePosition + 1. + ^source at: sourcePosition ifAbsent: $ ! - ^source at: sourcePosition ifAbsent: [$ ]! Item was changed: ----- Method: SHParserST80>>parseBinary (in category 'parse') ----- parseBinary | binary type | self parseUnary. [self isBinary] whileTrue: [ binary := currentToken. type := #binary. + (binary isEmpty or:[(Symbol lookup: binary) notNil]) - (binary isEmpty or:[Symbol hasInterned: binary ifTrue: [:sym | ]]) ifFalse:[ + type := (Symbol thatStartsCaseSensitive: binary skipping: nil) + ifNil: [#undefinedBinary] + ifNotNil:[#incompleteBinary]]. - type := (Symbol thatStartsCaseSensitive: binary skipping: nil) isNil - ifTrue: [#undefinedBinary] - ifFalse:[#incompleteBinary]]. self scanPast: type. self parseTerm. self parseUnary] ! Item was changed: ----- Method: SHParserST80>>parseKeyword (in category 'parse') ----- parseKeyword | keyword rangeIndices | self parseBinary. keyword := ''. rangeIndices := #(). [ [self isKeyword] whileTrue: [ keyword := keyword, currentToken. self rangeType: #keyword. "remember where this keyword token is in ranges" rangeIndices := rangeIndices copyWith: ranges size. self scanNext. self parseTerm. self parseBinary ] ] ensure: [ | type | "do this in an ensure so that it happens even if the errorBlock evaluates before getting here" "patch up the keyword tokens, so that incomplete and undefined ones look different" + (keyword isEmpty or:[(Symbol lookup: keyword) notNil]) - (keyword isEmpty or:[Symbol hasInterned: keyword ifTrue: [:sym | ]]) ifFalse:[ + type := (Symbol thatStartsCaseSensitive: keyword skipping: nil) + ifNil: [#undefinedKeyword] + ifNotNil:[#incompleteKeyword]. - type := (Symbol thatStartsCaseSensitive: keyword skipping: nil) isNil - ifTrue: [#undefinedKeyword] - ifFalse:[#incompleteKeyword]. rangeIndices do: [:i | (ranges at: i) type: type]]]! Item was changed: ----- Method: SHTextStyler>>monitor (in category 'private') ----- monitor + ^monitor ifNil: [monitor := Monitor new]! - monitor isNil - ifTrue: [monitor := Monitor new]. - ^monitor! Item was changed: ----- Method: SHParserST80>>parseUnary (in category 'parse') ----- parseUnary | unary type | [self isName] whileTrue: [ unary := currentToken. type := #unary. + (unary isEmpty or:[(Symbol lookup: unary) notNil]) - (unary isEmpty or:[Symbol hasInterned: unary ifTrue: [:sym | ]]) ifFalse:[ + type := (Symbol thatStartsCaseSensitive: unary skipping: nil) + ifNil: [#undefinedUnary] + ifNotNil:[#incompleteUnary]]. - type := (Symbol thatStartsCaseSensitive: unary skipping: nil) isNil - ifTrue: [#undefinedUnary] - ifFalse:[#incompleteUnary]]. self scanPast: type] ! Item was changed: ----- Method: SHParserST80>>parse: (in category 'parse') ----- parse: isAMethod "Parse the receiver's text. If isAMethod is true then treat text as a method, if false as an expression with no message pattern" self initializeInstanceVariables. sourcePosition := 1. arguments := Dictionary new. temporaries := Dictionary new. blockDepth := bracketDepth := 0. + ranges + ifNil: [ranges := OrderedCollection new: 100] + ifNotNil: [ranges reset]. - ranges isNil - ifTrue: [ranges := OrderedCollection new: 100] - ifFalse: [ranges reset]. errorBlock := [^false]. [self scanNext. isAMethod ifTrue: [ self parseMessagePattern. self parsePragmaSequence]. self parseMethodTemporaries. isAMethod ifTrue: [self parsePragmaSequence]. self parseStatementList. currentToken ifNotNil: [self error]] ensure:[errorBlock := nil]. ^true! Item was changed: ----- Method: SHParserST80>>parseSymbolString (in category 'parse') ----- parseSymbolString | first c last | first := sourcePosition. self nextChar. + [(c := self currentChar) + ifNil: [ - [(c := self currentChar) isNil - ifTrue: [ self rangeType: #unfinishedString start: first end: source size. self error ": 'unfinished string'"]. c ~~ $' or: [ self peekChar == $' ifTrue: [sourcePosition := sourcePosition + 1.true] ifFalse: [false]] ] whileTrue: [sourcePosition := sourcePosition + 1]. last := sourcePosition. self nextChar. self scanPast: #stringSymbol start: first - 1 end: last! Item was changed: ----- Method: SHParserST80>>scanNext (in category 'scan') ----- scanNext self scanWhitespace. currentTokenFirst := self currentChar. + currentTokenFirst + ifNil: [" end of input " - currentTokenFirst isNil - ifTrue: [" end of input " currentTokenFirst := $ . currentTokenSourcePosition := nil. currentToken := nil. ^nil]. currentTokenFirst isDigit ifTrue: [^self scanNumber]. currentTokenFirst isLetter ifTrue: [^self scanIdentifier]. ^self scanBinary! Item was changed: ----- Method: SHParserST80>>scanIdentifier (in category 'scan') ----- scanIdentifier | c start | start := sourcePosition. + [(c := self nextChar) isAlphaNumeric or: [c == $_ and: [self allowUnderscoreSelectors]]] whileTrue. - [(c := self nextChar) isAlphaNumeric or: [self allowUnderscoreSelectors and: [c == $_]]] whileTrue: []. (c == $: and: [(self isSelectorCharacter: self peekChar) not]) ifTrue: [self nextChar]. currentToken := source copyFrom: start to: sourcePosition - 1. currentTokenSourcePosition := start!

1 0

Re: [squeak-dev] The Inbox: Tools-hmm.236.mcz
by Hannes Hirzel 29 Apr '10

29 Apr '10

Hello I loaded Tools-hmm.236.mcz into a pristine 4.1 image updated to the last trunk 10025. It displays PNG and JPG pictures (tested) and probably others (not tested) nicely. The graphic is loaded through form := Form fromFileNamed: self fullName. I vote for inclusion into the trunk Thank you Hans-Martin for this very nice and needed contribution. --Hannes On Tue, 27 Apr 2010 18:47:13.803 0000, commits(a)source.squeak.org <commits(a)source.squeak.org> wrote: > A new version of Tools was added to project The Inbox: > http://source.squeak.org/inbox/Tools-hmm.236.mcz > > ==================== Summary ==================== > > Name: Tools-hmm.236 > Author: hmm > Time: 27 April 2010, 8:46:59.789 pm > UUID: 283b99fb-15fd-45b6-81f0-49a6bb6bea15 > Ancestors: Tools-ar.235 > > Display image files (graphics) in FileList > > =============== Diff against Tools-ar.235 =============== > > Item was added: > + ----- Method: FileList>>stepTimeIn: (in category 'private') ----- > + stepTimeIn: aWindow > + ^500! > > Item was added: > + ----- Method: FileList>>readGraphicContents (in category 'private') ----- > + readGraphicContents > + | form maxExtent ext | > + form := Form fromFileNamed: self fullName. > + maxExtent := lastGraphicsExtent := self availableGraphicsExtent. > + ext := form extent. > + (maxExtent notNil and: [form extent <= maxExtent]) ifFalse: [ > + form := form magnify: form boundingBox by: (maxExtent x / form width > min: maxExtent y / form height) asPoint smoothing: 3]. > + contents := ('Image extent: ', ext printString) asText, > + (String with: Character cr), > + (Text string: ' ' > + attribute: (TextFontReference toFont: > + (FormSetFont new > + fromFormArray: (Array with: form) > + asciiStart: Character space asInteger > + ascent: form height))). > + brevityState := #graphic. > + ^contents! > > Item was added: > + ----- Method: FileList>>step (in category 'private') ----- > + step > + | ext | > + brevityState = #graphic ifTrue: [ > + ext := self availableGraphicsExtent. > + ext = lastGraphicsExtent ifFalse: [ > + lastGraphicsExtent := ext. > + brevityState := #needToGetGraphic. > + self changed: #contents]]! > > Item was added: > + ----- Method: FileList>>availableGraphicsExtent (in category 'private') > ----- > + availableGraphicsExtent > + self dependents do: [:each | > + ((each isKindOf: PluggableTextMorph) and: [each getTextSelector == > #contents]) ifTrue: [^each innerBounds extent - (6@22)]]. > + ^nil! > > Item was added: > + ----- Method: FileList>>isGraphicsFileSelected (in category 'private') > ----- > + isGraphicsFileSelected > + ^fileName notNil and: [((self itemsForFile: self fullName) detect: [:each > | each provider == Form and: [each selector == #importImage:]] ifNone: []) > notNil]! > > Item was changed: > ----- Method: FileList>>fileListIndex: (in category 'file list') ----- > fileListIndex: anInteger > "Select the file name having the given index, and display its contents." > > | item name | > self okToChange ifFalse: [^ self]. > listIndex := anInteger. > listIndex = 0 > ifTrue: [fileName := nil] > ifFalse: > [item := self fileNameFromFormattedItem: (list at: anInteger). > (item endsWith: self folderString) > ifTrue: > ["remove [...] folder string and open the folder" > name := item copyFrom: 1 to: item size - self folderString size. > listIndex := 0. > brevityState := #FileList. > self addPath: name. > name first = $^ > ifTrue: [self directory: (ServerDirectory serverNamed: name > allButFirst)] > ifFalse: [volListIndex = 1 ifTrue: [name := name, directory slash]. > self directory: (directory directoryNamed: name)]] > ifFalse: [fileName := item]]. "open the file selected" > > + brevityState := self isGraphicsFileSelected > + ifTrue: [#needToGetGraphic] > + ifFalse: [#needToGetBrief].. > - brevityState := #needToGetBrief. > self changed: #fileListIndex. > self changed: #contents. > self updateButtonRow! > > Item was changed: > ----- Method: FileList>>contents (in category 'private') ----- > contents > "Answer the contents of the file, reading it first if needed." > "Possible brevityState values: > FileList, > fullFile, briefFile, needToGetFull, needToGetBrief, > fullHex, briefHex, needToGetFullHex, needToGetBriefHex" > > (listIndex = 0) | (brevityState == #FileList) ifTrue: [^ self > defaultContents]. "no file selected" > brevityState == #fullFile ifTrue: [^ contents]. > brevityState == #fullHex ifTrue: [^ contents]. > brevityState == #briefFile ifTrue: [^ contents]. > brevityState == #briefHex ifTrue: [^ contents]. > + brevityState == #graphic ifTrue: [^ contents]. > > + brevityState == #needToGetGraphic ifTrue: [^self readGraphicContents]. > + > brevityState == #needToGetFullHex ifTrue: [^ self readContentsHex: > false]. > brevityState == #needToGetBriefHex ifTrue: [^ self readContentsHex: > true]. > > brevityState == #needToGetFull ifTrue: [^ self readContentsBrief: false]. > brevityState == #needToGetBrief ifTrue: [^ self readContentsBrief: true]. > "default" > > (TextConverter allEncodingNames includes: brevityState) > ifTrue: [ ^self readContentsAsEncoding: brevityState]. > > self halt: 'unknown state ' , brevityState printString! > > Item was changed: > StringHolder subclass: #FileList > + instanceVariableNames: 'fileName directory volList volListIndex list > listIndex pattern sortMode brevityState directoryCache lastGraphicsExtent' > - instanceVariableNames: 'fileName directory volList volListIndex list > listIndex pattern sortMode brevityState directoryCache' > classVariableNames: 'FileReaderRegistry RecentDirs' > poolDictionaries: '' > category: 'Tools-FileList'! > > !FileList commentStamp: 'nk 11/26/2002 11:52' prior: 0! > I am model that can be used to navigate the host file system. By omitting > the volume list, file list, and template panes from the view, I can also be > used as the model for an editor on an individual file. > > The FileList now provides a registration mechanism to which any tools the > filelist uses ***MUST*** register. This way it is possible to dynamically > load or unload a new tool and have the FileList automatically updated. This > change supports a decomposition of Squeak and removes a problem with dead > reference to classes after a major shrink. > > Tools should implement the following methods (look for implementors in the > image): > > #fileReaderServicesForFile:suffix: (appropriate services for given file, > takes a file name and a lowercased suffix) > > #services (all provided services, to be displayed in full list) > > These methods both return a collection of SimpleServiceEntry instances. > These contain a class, a menu label and a method selector having one > argument. They may also provide separate button labels and description. > > The argument to the specified method will be a string representing the > full name of a file when one is selected or the file list itself when there > is no selected file. > > Tools must register with the FileList calling the class method > #registerFileReader: when they load. They also must call > #unregisterFileReader: when they unload. > > There is a testSuite called FileListTest that presents some examples. > > Stef (I do not like really this distinction passing always a file list > could be better) > > > Old Comments: > > > FileLists can now see FTP servers anywhere on the net. In the volume list > menu: > fill in server info... Gives you a form to register a new ftp server you > want to use. > open server... Choose a server to connect to. > local disk Go back to looking at your local volume. > > > Still undone (you can contribute code): > [ ] Using a Proxy server to get out through a firewall. What is the > convention for proxy servers with FTP? > [ ] Fill in the date and size info in the list of remote files. Allow > sorting by it. New smarts needed in (ServerDirectory > fileNameFormattedFrom:sizePad:sortMode:). > [ ] Currently the FileList has no way to delete a directory. Since you > can't select a directory without going into it, it would have to be deleting > the current directory. Which would usually be empty.! > > Item was added: > + ----- Method: FileList>>wantsSteps (in category 'private') ----- > + wantsSteps > + ^true! > > >

2 2

The Inbox: GraphicsTests-wiz.23.mcz
by commits＠source.squeak.org 29 Apr '10

29 Apr '10

A new version of GraphicsTests was added to project The Inbox: http://source.squeak.org/inbox/GraphicsTests-wiz.23.mcz ==================== Summary ==================== Name: GraphicsTests-wiz.23 Author: wiz Time: 29 April 2010, 2:18:35.461 am UUID: 98625695-e54f-407f-b627-a90e6d5dfa80 Ancestors: GraphicsTests-ar.22 This adds a test demonstrating that rectangles will change shape when their dimensions are rounded if the origin and corner are in different quadrants. See Mantis 2453 http://bugs.squeak.org/view.php?id=2453 The condition for this to happen occurs anytime a morph with odd extent is rendered by a transformation morph. Yours in curiosity and service, --Jerome Peace =============== Diff against GraphicsTests-ar.22 =============== Item was added: + ----- Method: RectangleTest>>testRoundingAfterHalfPixelTranslation (in category 'tests') ----- + testRoundingAfterHalfPixelTranslation + "A rectangle right on the cusp of rounding changes shape if origin and + corner are in differenct quadrants" + "self debug: #testRoundingAfterHalfPixelTranslation" + | trouble noTrouble | + trouble := 10 negated asPoint rect: 10 asPoint. + noTrouble := trouble translateBy: 15. + + 10 timesRepeat: [trouble := (trouble translateBy: 0.5) rounded]. + 10 timesRepeat: [noTrouble := (noTrouble translateBy: 0.5) rounded]. + + self assert: trouble extent = noTrouble extent!

1 0

The Trunk: Tools-hmm.236.mcz
by commits＠source.squeak.org 29 Apr '10

29 Apr '10

Andreas Raab uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-hmm.236.mcz ==================== Summary ==================== Name: Tools-hmm.236 Author: hmm Time: 27 April 2010, 8:46:59.789 pm UUID: 283b99fb-15fd-45b6-81f0-49a6bb6bea15 Ancestors: Tools-ar.235 Display image files (graphics) in FileList =============== Diff against Tools-ar.235 =============== Item was added: + ----- Method: FileList>>stepTimeIn: (in category 'private') ----- + stepTimeIn: aWindow + ^500! Item was added: + ----- Method: FileList>>readGraphicContents (in category 'private') ----- + readGraphicContents + | form maxExtent ext | + form := Form fromFileNamed: self fullName. + maxExtent := lastGraphicsExtent := self availableGraphicsExtent. + ext := form extent. + (maxExtent notNil and: [form extent <= maxExtent]) ifFalse: [ + form := form magnify: form boundingBox by: (maxExtent x / form width min: maxExtent y / form height) asPoint smoothing: 3]. + contents := ('Image extent: ', ext printString) asText, + (String with: Character cr), + (Text string: ' ' + attribute: (TextFontReference toFont: + (FormSetFont new + fromFormArray: (Array with: form) + asciiStart: Character space asInteger + ascent: form height))). + brevityState := #graphic. + ^contents! Item was added: + ----- Method: FileList>>step (in category 'private') ----- + step + | ext | + brevityState = #graphic ifTrue: [ + ext := self availableGraphicsExtent. + ext = lastGraphicsExtent ifFalse: [ + lastGraphicsExtent := ext. + brevityState := #needToGetGraphic. + self changed: #contents]]! Item was added: + ----- Method: FileList>>availableGraphicsExtent (in category 'private') ----- + availableGraphicsExtent + self dependents do: [:each | + ((each isKindOf: PluggableTextMorph) and: [each getTextSelector == #contents]) ifTrue: [^each innerBounds extent - (6@22)]]. + ^nil! Item was added: + ----- Method: FileList>>isGraphicsFileSelected (in category 'private') ----- + isGraphicsFileSelected + ^fileName notNil and: [((self itemsForFile: self fullName) detect: [:each | each provider == Form and: [each selector == #importImage:]] ifNone: []) notNil]! Item was changed: ----- Method: FileList>>fileListIndex: (in category 'file list') ----- fileListIndex: anInteger "Select the file name having the given index, and display its contents." | item name | self okToChange ifFalse: [^ self]. listIndex := anInteger. listIndex = 0 ifTrue: [fileName := nil] ifFalse: [item := self fileNameFromFormattedItem: (list at: anInteger). (item endsWith: self folderString) ifTrue: ["remove [...] folder string and open the folder" name := item copyFrom: 1 to: item size - self folderString size. listIndex := 0. brevityState := #FileList. self addPath: name. name first = $^ ifTrue: [self directory: (ServerDirectory serverNamed: name allButFirst)] ifFalse: [volListIndex = 1 ifTrue: [name := name, directory slash]. self directory: (directory directoryNamed: name)]] ifFalse: [fileName := item]]. "open the file selected" + brevityState := self isGraphicsFileSelected + ifTrue: [#needToGetGraphic] + ifFalse: [#needToGetBrief].. - brevityState := #needToGetBrief. self changed: #fileListIndex. self changed: #contents. self updateButtonRow! Item was changed: ----- Method: FileList>>contents (in category 'private') ----- contents "Answer the contents of the file, reading it first if needed." "Possible brevityState values: FileList, fullFile, briefFile, needToGetFull, needToGetBrief, fullHex, briefHex, needToGetFullHex, needToGetBriefHex" (listIndex = 0) | (brevityState == #FileList) ifTrue: [^ self defaultContents]. "no file selected" brevityState == #fullFile ifTrue: [^ contents]. brevityState == #fullHex ifTrue: [^ contents]. brevityState == #briefFile ifTrue: [^ contents]. brevityState == #briefHex ifTrue: [^ contents]. + brevityState == #graphic ifTrue: [^ contents]. + brevityState == #needToGetGraphic ifTrue: [^self readGraphicContents]. + brevityState == #needToGetFullHex ifTrue: [^ self readContentsHex: false]. brevityState == #needToGetBriefHex ifTrue: [^ self readContentsHex: true]. brevityState == #needToGetFull ifTrue: [^ self readContentsBrief: false]. brevityState == #needToGetBrief ifTrue: [^ self readContentsBrief: true]. "default" (TextConverter allEncodingNames includes: brevityState) ifTrue: [ ^self readContentsAsEncoding: brevityState]. self halt: 'unknown state ' , brevityState printString! Item was changed: StringHolder subclass: #FileList + instanceVariableNames: 'fileName directory volList volListIndex list listIndex pattern sortMode brevityState directoryCache lastGraphicsExtent' - instanceVariableNames: 'fileName directory volList volListIndex list listIndex pattern sortMode brevityState directoryCache' classVariableNames: 'FileReaderRegistry RecentDirs' poolDictionaries: '' category: 'Tools-FileList'! !FileList commentStamp: 'nk 11/26/2002 11:52' prior: 0! I am model that can be used to navigate the host file system. By omitting the volume list, file list, and template panes from the view, I can also be used as the model for an editor on an individual file. The FileList now provides a registration mechanism to which any tools the filelist uses ***MUST*** register. This way it is possible to dynamically load or unload a new tool and have the FileList automatically updated. This change supports a decomposition of Squeak and removes a problem with dead reference to classes after a major shrink. Tools should implement the following methods (look for implementors in the image): #fileReaderServicesForFile:suffix: (appropriate services for given file, takes a file name and a lowercased suffix) #services (all provided services, to be displayed in full list) These methods both return a collection of SimpleServiceEntry instances. These contain a class, a menu label and a method selector having one argument. They may also provide separate button labels and description. The argument to the specified method will be a string representing the full name of a file when one is selected or the file list itself when there is no selected file. Tools must register with the FileList calling the class method #registerFileReader: when they load. They also must call #unregisterFileReader: when they unload. There is a testSuite called FileListTest that presents some examples. Stef (I do not like really this distinction passing always a file list could be better) Old Comments: FileLists can now see FTP servers anywhere on the net. In the volume list menu: fill in server info... Gives you a form to register a new ftp server you want to use. open server... Choose a server to connect to. local disk Go back to looking at your local volume. Still undone (you can contribute code): [ ] Using a Proxy server to get out through a firewall. What is the convention for proxy servers with FTP? [ ] Fill in the date and size info in the list of remote files. Allow sorting by it. New smarts needed in (ServerDirectory fileNameFormattedFrom:sizePad:sortMode:). [ ] Currently the FileList has no way to delete a directory. Since you can't select a directory without going into it, it would have to be deleting the current directory. Which would usually be empty.! Item was added: + ----- Method: FileList>>wantsSteps (in category 'private') ----- + wantsSteps + ^true!

1 0

[Fwd: Re: [Pharo-project] [squeak-dev] Re: Menu Registries]
by Alain Plantec 29 Apr '10

29 Apr '10

2 1

Daily Commit Log
by commits＠source.squeak.org 29 Apr '10

29 Apr '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-April/003320.html Name: KernelTests-ul.150 Ancestors: KernelTests-tbn.149 - added a few more cases to DurationTest >> #testMilliSeconds ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-April/003321.html Name: Kernel-ul.447 Ancestors: Kernel-ar.446 - use #quo: and #rem: instead of #// and #\\ to handle negative arguments properly in Duration class >> #milliSeconds: - also removed the method comment which was obsolete ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-April/003322.html Name: Compression-ul.17 Ancestors: Compression-nice.16 - added a missing primitive call (by Andreas) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-April/003323.html Name: Graphics-ul.133 Ancestors: Graphics-laza.132 - integrated the png speedup changes and transparency fixes (by Juan) - also kept Andreas' and Yoshiki's version in a comment at PNGReadWriter >> #copyPixelsGray: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-April/003324.html Name: System-ul.322 Ancestors: System-jcg.321 - added two missing compatibility methods ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-April/003325.html Name: ShoutCore-laza.15 Ancestors: ShoutCore-ul.14 Make Shout parse source with respect to "allow underscore assignments/selectors" =============================================

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
60
Older →

Jump to page: