Squeak-dev October 2017

squeak-dev@lists.squeakfoundation.org

40 participants
132 discussions

Promoting #buildWindowWith:specs: et al.
by tim Rowledge 07 Nov '17

07 Nov '17

Does anyone have a problem with StringHolder>buildWindowWith* being promoted to Model and the now redundant Font[Chooser|Importer]Tool versions getting removed? It seems to me a reasonably general pair of methods with applicability to other Model related classes, like for example, the new file chooser & saver dialogues I’m preparing. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: CM: Circulate Memory

3 4

Re: [squeak-dev] [Pharo-dev] [ANNOUNCE] ParrotTalk release/design change considerations
by henry 05 Nov '17

05 Nov '17

I disabled vatId authorization in version 3, located in SessionOperations>>processIWant | SessionOperations>>processIAm:. I was asked to disseminate my news to Pharo Users, hello there. I was asked to describe ParrotTalk well, provide use cases and adopters of its use. Alright, I will give an attempt. ParrotTalk is an encrypted connection framework. Currently allowing anonymous 2048-bit key negotiation to establish user-provided encryption cipher and user-provided encoding and decoding, both through a provided SessionAgentMap to a starting SessionAgent server. Please look in the test case ThunkHelloWorldTest for building these maps and running a connection iwth data passing after encryption is established. There is a 4-way negotiation, from ProtocolOffered/Accepted to Go/GoToo. In using RSA 2048 signature validation and DH 2048 primes to establish the key used within the selected Cipher. The Cipher and Encoder are selected by name through the negotiation protocol. Currently three Ciphers are selectable, AESede, DESede, and DES. There are two encoders tested, asn1der, and Bytes. This protocol is described here, in this document. https://github.com/ZiroZimbarra/callistohouse/blob/master/docs/ParrotTalkFr… For as to use cases, this encrypted connection has no third party, man-in-the-middle situation by not using Certificates. As such, this is a tight implementation of NSA-proof encryption without explicit authorization beyond knowledge of a host:port. The use cases involve any communication desired to be encrypted with such high encryption. The support will last my lifetime, so we have a settled solution, here in the third version, provided here. It requires version 111 of Cryptography, as a prerequisite. Both run on Squeak and Pharo. http://www.squeaksource.com/Cryptography/Cryptography-zzz.111.mcz http://www.squeaksource.com/Cryptography/ParrotTalk-HenryHouse.3.mcz The current use is with my hubbub system, a promise-based distributed object implementation. I am working to bring ParrotTalk to Java and allow hubbub to operate interdependently between Squeak, Pharo, Java and any other languages which can support ParrotTalk and STON. My latest efforts with hubbub are to bring STON as the Layer 6 encoding. Hubbub depends on eLinda. http://www.squeaksource.com/Cryptography/elinda-HenryHouse.14.mcz http://www.squeaksource.com/Oceanside/hubbub-HenryHouse.38.mcz Hubbub currently fails to load correctly in Pharo. In Squeak the two ParrotRemoteTestCases: LookupTestCase and OperationalTestCase really screw everything up, do not save an image after running. I never run these tests until I get a better handle of serialization. Currently, do to a shift in progress to STON, the serialization tests fail, just the way we like it. Fix the tests then the system starts to work right. The shift away from vatId authorization should not adversely affect hubbub, we hope! When STON starts to work, and I think I need to turn off jsonMode, then traffic between vats can start to be analyzed and figure out how resolving is working with redirectors invoked remotely. - HH > -------- Original Message -------- > Subject: Re: [Pharo-dev] [ANNOUNCE] ParrotTalk release/design change considerations > Local Time: October 25, 2017 12:43 AM > UTC Time: October 25, 2017 4:43 AM > From: btc(a)openinworld.com > To: henry <henry(a)callistohouse.club>, Pharo Development List <pharo-dev(a)lists.pharo.org> > Stephane Ducasse <stepharo.self(a)gmail.com> > > If I google... parrottalk protocol > nothing seems related. So what is ParrotTalk? > > P.S... since this is not "part of" pharo, [pharo-users] would be a better place for discussion than [pharo-dev]. > Could you re-announce there, with some description of use cases and who/where the protocol is used? > > cheers -ben > > On Wed, Oct 25, 2017 at 1:42 AM, henry <henry(a)callistohouse.club> wrote: > >> Please excuse all the low-level detail, if inappropriate to the discussion. The protocol changes are here specified. >> >> - HH >> >> On Tue, Oct 24, 2017 at 13:40, henry <henry(a)callistohouse.club> wrote: >> >>> In order to bring ParrotTalk-3.6 support, alongside historical 3.5 support, the frame header stays the same and the processing of the ProtocolOffered would select "ParrotTalk-3.6" to use the compact protocol of >>> >>> - ProtocolOffered { offered, preferred } >>> - ProtocolAccepted { accepted } >>> - IWant|GiveInfo|ReplyInfo { vatId, domain, publicKey, cryptoProtocols, dataEncoders } >>> - IAm|ReplyInfo { vatId, domain, publicKey, cryptoProtocol, dataEncoder, dhParam } >>> - Go { cryptoProtocol, dataEncoder, dhParam, signature } >>> - GoToo { signature } >>> >>> Using eLinda : >>> >>> http://www.squeaksource.com/Cryptography/elinda-HenryHouse.14.mcz >>> >>> Above the FrameBuffer, below the SessionOperations for each version of the protocol, an ELindaSession could be inserted. This session think would have the stacks for each protocol version SessionOperation registered by protocol in a Tuple, for eventual callback. When the ProtocolOffered comes in we publish the tuple frame, with set selected version, to route to the correct SessionOperation to support each version of the protocol. >>> >>> With a non-specific vatId required, anonymous connections would be supported. >>> >>> - HH >>> >>> On Tue, Oct 24, 2017 at 12:52, Stephane Ducasse <stepharo.self(a)gmail.com> wrote: >>> >>>> Hi henry thanks for this announce. Can you tell where such protocols are used? Stef On Tue, Oct 24, 2017 at 6:33 PM, henry wrote: > Hi all, > > I am happy to announce the release of version 3.5 of ParrotTalk, for Squeak > and Pharo, found here: > > http://www.squeaksource.com/Cryptography/ParrotTalk-zzz.2.mcz > > It follows this specification: > https://github.com/ZiroZimbarra/callistohouse/blob/master/docs/ParrotTalkFr… > > One item of note, in version 3.5, the system connecting to a server, sending > the IWant msg, must know the vatId of the system being connected to. I am > considering changing this to version 3.6 by removing one round-trip in > messaging. Therefore, these messages would be combined: IWant/GiveInfo, > IAm/ReplyInfo. I will keep ProtocolOffered and ProtocolAccepted to allow > eLindaSession to support both versions: 3.5 and 3.6. > > Thoughts please? > > - HH

2 8

The Trunk: WebClient-Core-topa.112.mcz
by commits＠source.squeak.org 02 Nov '17

02 Nov '17

Tobias Pape uploaded a new version of WebClient-Core to project The Trunk: http://source.squeak.org/trunk/WebClient-Core-topa.112.mcz ==================== Summary ==================== Name: WebClient-Core-topa.112 Author: topa Time: 20 September 2017, 5:29:06.096983 pm UUID: 60b494fc-0652-4a28-be5a-1578963e5aed Ancestors: WebClient-Core-topa.111 Abide Postel's law for text conversion. Be conservative in what you do, be liberal in what you accept from others. =============== Diff against WebClient-Core-topa.111 =============== Item was changed: ----- Method: WebMessage>>getContentWithProgress: (in category 'private') ----- getContentWithProgress: progressBlockOrNil "Reads available content and returns it." | length result | length := self contentLength. result := (stream isBinary ifTrue:[ ByteArray ] ifFalse: [ ByteString ]) new: (length ifNil: [ 1000 ]) streamContents: [ :outputStream | self streamFrom: stream to: outputStream size: length progress: progressBlockOrNil ]. self decoderForContentEncoding ifNotNil: [:decoder | result := (decoder on: result) upToEnd]. self textConverterForContentType ifNotNil: [:converter | + [result := result convertFromWithConverter: converter] + on: InvalidUTF8 "some servers lie" + do: [^ result]]. - result := result convertFromWithConverter: converter]. ^ result ! Item was changed: ----- Method: WebMessage>>textConverterForContentType (in category 'accessing') ----- textConverterForContentType | index contentType | contentType := self contentType. contentType size < 8 ifTrue: [ ^nil ]. - (contentType beginsWithAnyOf: #('application/' 'image/' 'video/' 'audio/')) ifTrue: [^nil]. index := contentType findString: 'charset=' startingAt: 1 caseSensitive: false. index = 0 ifTrue: [ ^nil ]. ^TextConverter newForEncoding: (contentType allButFirst: index + 7) "'charset=' size - 1"!

4 9

Anyone got an email address for Michael Rueger?
by Eliot Miranda 01 Nov '17

01 Nov '17

Hi all, Hi Michael, I want to get added to the printf project on squeak source.com. Michael is an admin. Anyone got an email address? The last one I can find is some anonymous lists thing, and Michael's old cam address bounces. _,,,^..^,,,_ best, Eliot

2 2

The Trunk: Tools-eem.771.mcz
by commits＠source.squeak.org 31 Oct '17

31 Oct '17

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.771.mcz ==================== Summary ==================== Name: Tools-eem.771 Author: eem Time: 31 October 2017, 10:29:35.046372 am UUID: 42f7dc0f-720f-4d34-8871-9dc9b59c4135 Ancestors: Tools-tpr.770 Beef up thorough selector discovery in methods with pragmas so that any arguments to the pragma are also considered. e.g. when browsing implementors in something like notifyInformeeOfChange "If there is a changeInformee, notify her that I have changed value" <hasLiteralTest: #isChangeSelector:> "To find this method as sender of all changeSelectors" changeInformee ifNotNil: [changeInformee perform: changeSelector] we want #isChangeSelector: included, not just #hasLiteralTest: =============== Diff against Tools-tpr.770 =============== 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 := aCompiledMethod messages. + SystemNavigation thoroughSenders ifTrue: + [| litGetter | + litGetter := [:l| + (l isSymbol and: [l size > 0 and: [l first isLowercase]]) ifTrue: + [messages add: l]. + l isArray ifTrue: + [l do: litGetter]]. + aCompiledMethod allLiterals do: litGetter. + aCompiledMethod pragmas do: + [:pragma| + litGetter + value: pragma keyword; + value: pragma arguments]]. + messages remove: selectorOrNil ifAbsent: ["do nothing"]. + messages ifEmpty: "If only one item, there is no choice" + [^selectorOrNil ifNotNil: [aBlock value: selectorOrNil]]. - 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 ] ]. self systemNavigation showMenuOf: messages withFirstItem: selectorOrNil ifChosenDo: aBlock!

1 0

sudo apt-get install NuScratch fails in 2017-09-07-raspbian-stretch-lite
by Louis LaBrunda 30 Oct '17

30 Oct '17

Hi, This: sudo apt-get install NuScratch now fails in 2017-09-07-raspbian-stretch-lite with: Unable to locate package NuScratch. it worked with jessie lite. Please help? Lou -- Louis LaBrunda Keystone Software Corp. SkypeMe callto://PhotonDemon

3 19

The Inbox: WebClient-Core-monty.114.mcz
by commits＠source.squeak.org 30 Oct '17

30 Oct '17

A new version of WebClient-Core was added to project The Inbox: http://source.squeak.org/inbox/WebClient-Core-monty.114.mcz ==================== Summary ==================== Name: WebClient-Core-monty.114 Author: monty Time: 30 October 2017, 2:59:47.866416 am UUID: 621a8ad8-0653-4117-a36e-28ef18c0e665 Ancestors: WebClient-Core-monty.113 Added support for disabling the automatic character decoding of text responses by adding #getContentWithProgress:decodesText:, making #getContentWithProgress: delegate to it, adding #contentWithProgress:decodesText: as a caching front-end and then making #contentWithProgress: delegate to it and #content delegate to #contentWithProgress:. This is needed because some text formats allow encodings to be inferred from the document itself, like from a leading BOM or an XML-style 'encoding="..."?>' declaration, and to give an alternative for situations where the charset is incorrectly inferred and WebClient mangles the response. This is different from HTTP encoding (like with GZIP) which is part of HTTP and is meant to be applied before transit and removed after entirely transparant to the user and so does not permanently alter the original payload, unlike automatic decoding from UTF-8 or another character encoding. =============== Diff against WebClient-Core-monty.113 =============== Item was changed: ----- Method: WebMessage>>content (in category 'accessing') ----- content "Reads and caches available content and returns it." + ^ self contentWithProgress: nil - ^content ifNil:[content := self getContent]. ! Item was changed: ----- Method: WebMessage>>contentWithProgress: (in category 'accessing') ----- + contentWithProgress: progressBlockOrNil + "Reads and caches available content and returns it, periodically evaluating + progressBlockOrNil with the total size and the total bytes read so far." - contentWithProgress: progressBlock - "Reads and caches available content and returns it." + ^ self + contentWithProgress: progressBlockOrNil + decodesText: true! - ^content ifNil: [ content := self getContentWithProgress: progressBlock ]! Item was added: + ----- Method: WebMessage>>contentWithProgress:decodesText: (in category 'accessing') ----- + contentWithProgress: progressBlockOrNil decodesText: aBoolean + "Reads and caches available content and returns it, periodically evaluating + progressBlockOrNil with the total size and the total bytes read so far, optionally + decoding text content based on the Content-Type charset." + + ^ content ifNil: [ + content := + self + getContentWithProgress: progressBlockOrNil + decodesText: aBoolean]! Item was changed: ----- Method: WebMessage>>getContentWithProgress: (in category 'private') ----- getContentWithProgress: progressBlockOrNil + ^ self + getContentWithProgress: progressBlockOrNil + decodesText: true! - "Reads available content and returns it." - - | length result | - length := self contentLength. - result := (stream isBinary ifTrue:[ ByteArray ] ifFalse: [ ByteString ]) - new: (length ifNil: [ 1000 ]) - streamContents: [ :outputStream | - self - streamFrom: stream - to: outputStream - size: length - progress: progressBlockOrNil ]. - self decoderForContentEncoding ifNotNil: [:decoder | - result := (decoder on: result) upToEnd]. - self textConverterForContentType ifNotNil: [:converter | - [result := result convertFromWithConverter: converter] - on: InvalidUTF8 "some servers lie" - do: [^ result]]. - ^ result - ! Item was added: + ----- Method: WebMessage>>getContentWithProgress:decodesText: (in category 'private') ----- + getContentWithProgress: progressBlockOrNil decodesText: aBoolean + "Reads available content and returns it, periodically evaluating progressBlockOrNil + with the total size and the total bytes read so far, optionally decoding text content + based on the Content-Type charset." + + | length result | + length := self contentLength. + result := (stream isBinary ifTrue:[ ByteArray ] ifFalse: [ ByteString ]) + new: (length ifNil: [ 1000 ]) + streamContents: [ :outputStream | + self + streamFrom: stream + to: outputStream + size: length + progress: progressBlockOrNil ]. + self decoderForContentEncoding ifNotNil: [:decoder | + result := (decoder on: result) upToEnd]. + aBoolean ifTrue: [ + self textConverterForContentType ifNotNil: [:converter | + [result := result convertFromWithConverter: converter] + on: InvalidUTF8 "some servers lie" + do: [^ result]]]. + ^ result! Item was removed: - ----- Method: WebResponse>>getContentWithProgress: (in category 'private') ----- - getContentWithProgress: progressBlockOrNil - | result | - - "Do not read any content if this was a HEAD request or code is 204 (no content)" - result := - (request method = 'HEAD' or: [code = 204]) - ifTrue: [''] - ifFalse: [super getContentWithProgress: progressBlockOrNil]. - "Reimplemented to close the socket if the request is transient" - self closeIfTransient. - ^ result.! Item was added: + ----- Method: WebResponse>>getContentWithProgress:decodesText: (in category 'private') ----- + getContentWithProgress: progressBlockOrNil decodesText: aBoolean + | result | + + "Do not read any content if this was a HEAD request or code is 204 (no content)" + result := + (request method = 'HEAD' or: [code = 204]) + ifTrue: [''] + ifFalse: [ + super + getContentWithProgress: progressBlockOrNil + decodesText: aBoolean]. + "Reimplemented to close the socket if the request is transient" + self closeIfTransient. + ^ result.!

1 0

The start of this article is a problem for me. I hope this can be re-thought.
by PAUL DEBRUICKER 30 Oct '17

30 Oct '17

https://medium.com/smalltalk-talk/a-gentle-introduction-to-amber-8c532631e9… Smalltalk is a programming language/environment etc. Physical attractiveness of people doesn't really affect anything we're doing here. And using it for marketing is offensive a significant number of people. I'm hopeful we can do better as a community.

5 4

The Inbox: WebClient-Core-monty.113.mcz
by commits＠source.squeak.org 29 Oct '17

29 Oct '17

A new version of WebClient-Core was added to project The Inbox: http://source.squeak.org/inbox/WebClient-Core-monty.113.mcz ==================== Summary ==================== Name: WebClient-Core-monty.113 Author: monty Time: 28 October 2017, 11:27:48.373217 pm UUID: 919f26df-a1e0-4287-aa95-507bcaf6f670 Ancestors: WebClient-Core-topa.112 Moved the WebResponse send of #closeIfTransient in #content and the HEAD request and 204 (no content) handling from #getContent to a super-sending implementation of the lower-level #getContentWithProgress:, so both #content and #contentWithProgress: will have the same behavior. =============== Diff against WebClient-Core-topa.112 =============== Item was removed: - ----- Method: WebResponse>>content (in category 'accessing') ----- - content - "Reimplemented to close the socket if the request is transient" - - content ifNil:[ - content := self getContent. - self closeIfTransient. - ]. - ^content! Item was removed: - ----- Method: WebResponse>>getContent (in category 'private') ----- - getContent - "Do not read any content if this was a HEAD request or code is 204 (no content)" - (request method = 'HEAD' or: [code = 204]) ifTrue:[^'']. - ^super getContent! Item was added: + ----- Method: WebResponse>>getContentWithProgress: (in category 'private') ----- + getContentWithProgress: progressBlockOrNil + | result | + + "Do not read any content if this was a HEAD request or code is 204 (no content)" + result := + (request method = 'HEAD' or: [code = 204]) + ifTrue: [''] + ifFalse: [super getContentWithProgress: progressBlockOrNil]. + "Reimplemented to close the socket if the request is transient" + self closeIfTransient. + ^ result.!

1 0

The Trunk: Tools-tpr.770.mcz
by commits＠source.squeak.org 28 Oct '17

28 Oct '17

tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.770.mcz ==================== Summary ==================== Name: Tools-tpr.770 Author: tpr Time: 28 October 2017, 1:20:10.016299 pm UUID: 70254f01-f4e8-47ae-8907-de13158e10f4 Ancestors: Tools-tpr.769 Add FileChooserDialog and FileSaverDialog; these are experimental modal dialogs intended as replacements for FileList2>modalFileSelector, FileChooser, StandardFileMenu and several other ugly horrors. =============== Diff against Tools-tpr.769 =============== Item was changed: SystemOrganization addCategory: #'Tools-ArchiveViewer'! SystemOrganization addCategory: #'Tools-Base'! SystemOrganization addCategory: #'Tools-Browser'! SystemOrganization addCategory: #'Tools-Changes'! SystemOrganization addCategory: #'Tools-Debugger'! SystemOrganization addCategory: #'Tools-Explorer'! SystemOrganization addCategory: #'Tools-File Contents Browser'! SystemOrganization addCategory: #'Tools-FileList'! SystemOrganization addCategory: #'Tools-Inspector'! SystemOrganization addCategory: #'Tools-Menus'! SystemOrganization addCategory: #'Tools-MethodFinder'! SystemOrganization addCategory: #'Tools-Process Browser'! + SystemOrganization addCategory: #'Tools-FileDialogs'! Item was added: + Model subclass: #FileAbstractSelectionDialog + instanceVariableNames: 'pattern directory directoryCache list listIndex fileName finalChoice' + classVariableNames: '' + poolDictionaries: '' + category: 'Tools-FileDialogs'! + + !FileAbstractSelectionDialog commentStamp: 'tpr 10/28/2017 12:55' prior: 0! + FileAbstractSelectionDialog is the abstract superclass for the file chooser & saver modal dialogs. + + The UI provides 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 + pattern: <String> the pattern is held as a string with three simple tokens; + a) a ; or LF or CR splits the string into separate patterns and filenames matching any of them will be included in list + b) a * matches any number of characters + c) a # matches one character + The usage of pattern (see entriesMatching:, updateFileList , listForPatterns:) definitely needs improving.! Item was added: + ----- Method: FileAbstractSelectionDialog class>>open (in category 'instance creation') ----- + open + "open a modal dialog to choose or save a file. Start the dialog with the default directory selected" + + ^self openOn: FileDirectory default + + ! Item was added: + ----- Method: FileAbstractSelectionDialog>>acceptFileName (in category 'initialize-release') ----- + acceptFileName + + finalChoice := fileName. + self changed: #close! Item was added: + ----- Method: FileAbstractSelectionDialog>>buildDirectoryTreeWith: (in category 'toolbuilder') ----- + buildDirectoryTreeWith: builder + | treeSpec | + treeSpec := builder pluggableTreeSpec new. + treeSpec + model: self ; + roots: #rootDirectoryList ; + hasChildren: #hasMoreDirectories: ; + getChildren: #subDirectoriesOf: ; + getSelectedPath: #selectedPath ; + setSelected: #setDirectoryTo: ; + getSelected: #directory; + label: #directoryNameOf: ; + menu: nil ; + autoDeselect: false. + ^ treeSpec! Item was added: + ----- Method: FileAbstractSelectionDialog>>buildFileListWith: (in category 'toolbuilder') ----- + buildFileListWith: builder + | listSpec | + listSpec := builder pluggableListSpec new. + listSpec + model: self ; + list: #fileList ; + getIndex: #fileListIndex ; + setIndex: #fileListIndex: ; + menu: nil ; + keyPress: nil ; + frame: + (self + frameOffsetFromTop:0 + fromLeft: 0 + width: 1 + bottomFraction: 1) . + ^listSpec! Item was added: + ----- Method: FileAbstractSelectionDialog>>buildTextInputWith: (in category 'toolbuilder') ----- + buildTextInputWith: builder + | textSpec | + textSpec := builder pluggableInputFieldSpec new. + textSpec + model: self; + font: self textViewFont; + getText: #inputText; + setText: #inputText:. + ^textSpec + ! Item was added: + ----- Method: FileAbstractSelectionDialog>>buildWindowWith: (in category 'toolbuilder') ----- + buildWindowWith: builder + "Since a file chooser is a modal dialog we over-ride the normal window build to use a dialog as the top component" + + | windowSpec | + windowSpec := builder pluggableDialogSpec new. + windowSpec model: self; + label: #windowTitle; + extent: self initialExtent; + children: OrderedCollection new; + buttons: OrderedCollection new. + ^windowSpec! Item was added: + ----- Method: FileAbstractSelectionDialog>>buildWith: (in category 'toolbuilder') ----- + buildWith: builder + "assemble the spec for the common chooser/saver dialog UI" + "ToolBuilder open: FileChooserDialog" + "ToolBuilder open: FileSaverDialog" + | windowSpec window | + windowSpec := self buildWindowWith: builder specs: { + (self topConstantHeightFrame: self textViewHeight + fromLeft: 0 + width: 1) -> [self buildTextInputWith: builder]. + (self frameOffsetFromTop: self textViewHeight + fromLeft: 0.25 + width: 0.75 + offsetFromBottom: self buttonHeight) -> [self buildFileListWith: builder]. + (self frameOffsetFromTop: self textViewHeight + fromLeft: 0 + width: 0.25 + offsetFromBottom: self buttonHeight) -> [self buildDirectoryTreeWith: builder]. + }. + windowSpec buttons add:( builder pluggableButtonSpec new + model: self; + label: 'Accept'; + action: #acceptFileName). + windowSpec buttons add:( builder pluggableButtonSpec new + model: self; + label: 'Cancel'; + action: #cancelFileChooser). + window := builder build: windowSpec. + self changed: #selectedPath. + ^window + ! Item was added: + ----- Method: FileAbstractSelectionDialog>>buttonHeight (in category 'ui details') ----- + buttonHeight + + ^ Preferences standardButtonFont height * 2! Item was added: + ----- Method: FileAbstractSelectionDialog>>cancelFileChooser (in category 'initialize-release') ----- + cancelFileChooser + + fileName := nil. + self changed: #close.! Item was added: + ----- Method: FileAbstractSelectionDialog>>directory (in category 'directory tree') ----- + directory + + ^ directory! Item was added: + ----- Method: FileAbstractSelectionDialog>>directory: (in category 'directory tree') ----- + directory: aFileDirectory + "Set the path of the directory to be displayed." + self okToChange ifFalse: [ ^ self ]. + self modelSleep. + directory := aFileDirectory. + self modelWakeUp. + self changed: #directory. + self pattern: pattern! Item was added: + ----- Method: FileAbstractSelectionDialog>>directoryNameOf: (in category 'directory tree') ----- + directoryNameOf: aDirectory + "Return a name for the selected directory in the tree view" + + ^aDirectory localName! Item was added: + ----- Method: FileAbstractSelectionDialog>>entriesMatching: (in category 'file list') ----- + entriesMatching: patternString + "Answer a list of directory entries which match the patternString. + The patternString may consist of multiple patterns separated by ';'. + Each pattern can include a '*' or '#' as wildcards - see String>>match:" + + | entries patterns | + entries := directory entries reject:[:e| Smalltalk isMorphic and: [e isDirectory]]. + patterns := patternString findTokens: ';'. + (patterns anySatisfy: [:each | each = '*']) + ifTrue: [^ entries]. + ^ entries select: [:entry | patterns anySatisfy: [:each | each match: entry name]]! Item was added: + ----- Method: FileAbstractSelectionDialog>>fileList (in category 'file list') ----- + fileList + "return the list of files in the currently selected directory" + + ^list! Item was added: + ----- Method: FileAbstractSelectionDialog>>fileListIndex (in category 'file list') ----- + fileListIndex + "return the index in the list of files for the currently selected filey" + + ^listIndex! Item was added: + ----- Method: FileAbstractSelectionDialog>>fileNameFormattedFrom:sizePad: (in category 'path and pattern') ----- + fileNameFormattedFrom: entry sizePad: sizePad + "entry is a 5-element array of the form: + (name creationTime modificationTime dirFlag fileSize)" + | sizeStr nameStr dateStr | + nameStr := entry isDirectory + ifTrue: [entry name , self folderString] + ifFalse: [entry name]. + dateStr := ((Date fromSeconds: entry modificationTime ) + printFormat: #(3 2 1 $. 1 1 2)) , ' ' , + (String streamContents: [:s | + (Time fromSeconds: entry modificationTime \\ 86400) + print24: true on: s]). + sizeStr := entry fileSize asStringWithCommas. + ^ nameStr , ' (' , dateStr , ' ' , sizeStr , ')' + ! Item was added: + ----- Method: FileAbstractSelectionDialog>>fileNameFromFormattedItem: (in category 'file list') ----- + fileNameFromFormattedItem: item + "Extract fileName and folderString from a formatted fileList item string" + + | from to | + from := item lastIndexOf: $(. + to := item lastIndexOf: $). + ^ (from * to = 0 + ifTrue: [item] + ifFalse: [item copyReplaceFrom: from to: to with: '']) withBlanksTrimmed! Item was added: + ----- Method: FileAbstractSelectionDialog>>finalChoice (in category 'initialize-release') ----- + finalChoice + "return the chosen directory/filename that was saved by an accept click or nil; client must check for validity" + + ^self directory fullNameFor: finalChoice! Item was added: + ----- Method: FileAbstractSelectionDialog>>frameOffsetFromTop:fromLeft:width:bottomFraction: (in category 'ui details') ----- + frameOffsetFromTop: height fromLeft: leftFraction width: widthFraction bottomFraction: bottomFraction + "return a layout frame that starts at the fixed upper offset and goes down to the bottomFraction, and runs widthFraction from the leftFraction" + + ^LayoutFrame new + topFraction: 0 offset: height; + leftFraction: leftFraction offset: 0; + rightFraction: (leftFraction + widthFraction) offset: 0; + bottomFraction: bottomFraction offset: 0; + yourself.! Item was added: + ----- Method: FileAbstractSelectionDialog>>frameOffsetFromTop:fromLeft:width:offsetFromBottom: (in category 'ui details') ----- + frameOffsetFromTop: height fromLeft: leftFraction width: widthFraction offsetFromBottom: bottomOffset + "return a layout frame that starts at the fixed upper offset and goes down to the bottom - the offsetn, and runs widthFraction from the leftFraction" + + ^LayoutFrame new + topFraction: 0 offset: height; + leftFraction: leftFraction offset: 0; + rightFraction: (leftFraction + widthFraction) offset: 0; + bottomFraction: 1 offset: bottomOffset negated; + yourself.! Item was added: + ----- Method: FileAbstractSelectionDialog>>hasMoreDirectories: (in category 'directory tree') ----- + hasMoreDirectories: aDirectory + ^directoryCache at: aDirectory ifAbsentPut:[ + [aDirectory directoryNames notEmpty] on: Error do:[:ex| true]. + ].! Item was added: + ----- Method: FileAbstractSelectionDialog>>initialize (in category 'initialize-release') ----- + initialize + super initialize. + directoryCache := WeakIdentityKeyDictionary new. + self directory: FileDirectory default! Item was added: + ----- Method: FileAbstractSelectionDialog>>listForPatterns: (in category 'path and pattern') ----- + listForPatterns: anArray + "return a list of those file names which match any of the patterns in the array." + + | sizePad newList | + newList := Set new. + anArray do: [ :pat | newList addAll: (self entriesMatching: pat) ]. + sizePad := (newList inject: 0 into: [:mx :entry | mx max: entry fileSize]) + asStringWithCommas size. + newList := newList collect: [ :e | self fileNameFormattedFrom: e sizePad: sizePad ]. + + ^ newList asArray! Item was added: + ----- Method: FileAbstractSelectionDialog>>pattern: (in category 'path and pattern') ----- + pattern: textOrStringOrNil + + textOrStringOrNil + ifNil: [pattern := '*'] + ifNotNil: [pattern := textOrStringOrNil asString]. + pattern isEmpty ifTrue: [pattern := '*']. + self updateFileList. + ^ true + ! Item was added: + ----- Method: FileAbstractSelectionDialog>>rootDirectoryList (in category 'directory tree') ----- + rootDirectoryList + | dirList dir | + dir := FileDirectory on: ''. + dirList := dir directoryNames collect:[:each| dir directoryNamed: each].. + dirList isEmpty ifTrue:[dirList := Array with: FileDirectory default]. + ^dirList! Item was added: + ----- Method: FileAbstractSelectionDialog>>selectedPath (in category 'path and pattern') ----- + selectedPath + | top here | + top := FileDirectory root. + here := directory. + ^(Array streamContents:[:s| | next | + s nextPut: here. + [next := here containingDirectory. + top pathName = next pathName] whileFalse:[ + s nextPut: next. + here := next. + ]]) reversed.! Item was added: + ----- Method: FileAbstractSelectionDialog>>setDirectoryTo: (in category 'directory tree') ----- + setDirectoryTo: dir + "Set the current directory shown in the FileList. + Does not allow setting the directory to nil since this blows up in various places." + dir ifNil:[^self]. + self directory: dir. + self changed: #fileList. + self changed: #inputText.! Item was added: + ----- Method: FileAbstractSelectionDialog>>subDirectoriesOf: (in category 'directory tree') ----- + subDirectoriesOf: aDirectory + ^aDirectory directoryNames collect:[:each| aDirectory directoryNamed: each].! Item was added: + ----- Method: FileAbstractSelectionDialog>>textViewFont (in category 'ui details') ----- + textViewFont + + ^ Preferences standardDefaultTextFont! Item was added: + ----- Method: FileAbstractSelectionDialog>>textViewHeight (in category 'ui details') ----- + textViewHeight + " Take a whole font line and 50 % for space " + ^ (self textViewFont height * 1.5) ceiling! Item was added: + ----- Method: FileAbstractSelectionDialog>>topConstantHeightFrame:fromLeft:width: (in category 'ui details') ----- + topConstantHeightFrame: height fromLeft: leftFraction width: widthFraction + "return a layout to make a fixed height frame that starts at the top of its parent and runs widthFraction from the leftFraction." + + ^LayoutFrame new + topFraction: 0 offset: 0; + leftFraction: leftFraction offset: 0; + rightFraction: (leftFraction + widthFraction) offset: 0; + bottomFraction: 0 offset: height; + yourself.! Item was added: + ----- Method: FileAbstractSelectionDialog>>updateFileList (in category 'file list') ----- + updateFileList + "Update my files list with file names in the current directory + that match the pattern. + The pattern string may have embedded newlines or semicolons; these separate different patterns." + | patterns | + patterns := OrderedCollection new. + Cursor wait showWhile: [ + (pattern findTokens: (String with: Character cr with: Character lf with: $;)) + do: [ :each | + (each includes: $*) | (each includes: $#) + ifTrue: [ patterns add: each] + ifFalse: [each isEmpty + ifTrue: [ patterns add: '*'] + ifFalse: [ patterns add: '*' , each , '*']]]. + + list := self listForPatterns: patterns. + listIndex := 0. + fileName := nil. + self changed: #fileList]! Item was added: + FileAbstractSelectionDialog subclass: #FileChooserDialog + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tools-FileDialogs'! + + !FileChooserDialog commentStamp: 'tpr 10/28/2017 12:57' prior: 0! + A FileChooserDialog is a modal dialog to allow choosing a file. The full file name is returned, or nil if no selection was made. + Users can enter a pattern in the text input field that will be read as a directory path and an optional pattern (see comments about pattern in my superclass) to define the files in the file list. + + Normal usage would be + myFilename := FileChooserDialog openOn: myApplicationDefaultDirectory pattern: '*.myapp' + to find a file with a name matching *.myapp and with the directory initial choice set to myApplicationDefaultDirectory. It would be quite possible to choose a file from any other directory and with any other pattern match if the user wishes, so the file name must be carefully checked. + + Simpler usage might be + myFilename := FileChooserDialog open + or + myFilename := FileChoosverDialog openOn: FileDirectory default + - see the class side methods for details. See my parent class for most implementation details! Item was added: + ----- Method: FileChooserDialog class>>openOn: (in category 'instance creation') ----- + openOn: aDirectory + "open a modal dialog to choose a file. Start the dialog with aDirectory selected and files matching the default 'everything' pattern" + + ^self openOn: aDirectory pattern: nil + + ! Item was added: + ----- Method: FileChooserDialog class>>openOn:pattern: (in category 'instance creation') ----- + openOn: aDirectory pattern: aPatternString + "open a modal dialog to choose a file. Start the dialog with aDirectory selected and files matching the pattern" + + ^self new openOn: aDirectory pattern: aPatternString + + ! Item was added: + ----- Method: FileChooserDialog>>fileListIndex: (in category 'file list') ----- + fileListIndex: anInteger + "We've selected the file at the given index,so find the file name." + + self okToChange ifFalse: [^ self]. + listIndex := anInteger. + listIndex = 0 + ifTrue: [fileName := nil] + ifFalse: + [fileName := self fileNameFromFormattedItem: (list at: anInteger)]. "open the file selected" + + self + changed: #fileListIndex! Item was added: + ----- Method: FileChooserDialog>>inputText (in category 'path and pattern') ----- + inputText + "Answers path and pattern together" + ^directory fullName, directory slash, pattern! Item was added: + ----- Method: FileChooserDialog>>inputText: (in category 'path and pattern') ----- + inputText: stringOrText + "both path and pattern are in the text, so split them apart" + | base pat aString | + aString := stringOrText asString. + base := aString copyUpToLast: directory pathNameDelimiter. + pat := aString copyAfterLast: directory pathNameDelimiter. + self changed: #inputText. "avoid asking if it's okToChange" + pattern := pat. + self directory: (FileDirectory on: base). + self changed: #inputText. + self changed: #selectedPath.! Item was added: + ----- Method: FileChooserDialog>>openOn:pattern: (in category 'initialize-release') ----- + openOn: aDirectory pattern: aPatternString + "open a modal dialog to choose a file from aDirectory as filtered by aPattern" + + directory := aDirectory. + pattern := aPatternString. + + ToolBuilder open: self. + ^self finalChoice! Item was added: + ----- Method: FileChooserDialog>>windowTitle (in category 'ui details') ----- + windowTitle + "return the window label; would be some application dependent string but I suspect we will want to make the outer morph a dialogue box with no label anyway" + + ^'File Chooser'! Item was added: + FileAbstractSelectionDialog subclass: #FileSaverDialog + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tools-FileDialogs'! + + !FileSaverDialog commentStamp: 'tpr 10/28/2017 12:58' prior: 0! + A FileSaverDialog is a modal dialog for choosing a file name to use for saving a file. + Users can enter a filename in the text input view that will + a) if it exists in the current directry listing, be selected + b) over ride any filenames in the current directry, providing a way to specify a completely new file. + This will not affect the selected directory path. + + Normal usage would be + myFilename := FileSaverDialog openOn: myApplicationDefaultDirectory initialFilename: 'foo.myapp' + to find a file with a name matching foo.myapp and with the directory initial choice set to myApplicationDefaultDirectory. It would be quite possible to choose a file from any other directory and with any other name if the user wishes, so the file name must be carefully checked. + + Simpler usage might be + myFilename := FileSaverDialog open + or + myFilename := FileSaverDialog openOn: FileDirectory default + - see the class side methods for details. See my parent class for most implementation details! Item was added: + ----- Method: FileSaverDialog class>>openOn: (in category 'instance creation') ----- + openOn: aDirectory + "open a modal dialog to save a file. Start the dialog with aDirectory selected and no suggested file name" + + ^self new openOn: aDirectory initialFilename: nil + + ! Item was added: + ----- Method: FileSaverDialog>>fileListIndex: (in category 'file list') ----- + fileListIndex: anInteger + "We've selected the file at the given index,so find the file name." + + self okToChange ifFalse: [^ self]. + listIndex := anInteger. + listIndex = 0 + ifTrue: [fileName := nil] + ifFalse: + [fileName := self fileNameFromFormattedItem: (list at: anInteger)]. "open the file selected" + + self + changed: #fileListIndex; + changed: #inputText! Item was added: + ----- Method: FileSaverDialog>>inputText (in category 'filename') ----- + inputText + "return the filename to appear in the text field" + + ^fileName ifNil:['Enter a filename here']! Item was added: + ----- Method: FileSaverDialog>>inputText: (in category 'filename') ----- + inputText: aText + "user has entered a potential filename in the text field. If it is a file in the currect list, highlight it" + + fileName := aText asString. + listIndex := list findFirst:[: nm| (self fileNameFromFormattedItem: nm) = fileName]. + listIndex = 0 ifFalse: + [fileName := self fileNameFromFormattedItem: (list at: listIndex)]. + + self + changed: #fileListIndex; + changed: #inputFilename! Item was added: + ----- Method: FileSaverDialog>>openOn:initialFilename: (in category 'initialize-release') ----- + openOn: aDirectory initialFilename: aFilename + "open a modal dialog to choose a file name to save to aDirectory" + + directory := aDirectory. + fileName := aFilename. + + ToolBuilder open: self. + ^self finalChoice! Item was added: + ----- Method: FileSaverDialog>>selectedPath (in category 'path and pattern') ----- + selectedPath + | top here | + top := FileDirectory root. + here := directory. + ^(Array streamContents:[:s| | next | + s nextPut: here. + [next := here containingDirectory. + top pathName = next pathName] whileFalse:[ + s nextPut: next. + here := next. + ]]) reversed.! Item was added: + ----- Method: FileSaverDialog>>windowTitle (in category 'ui details') ----- + windowTitle + "return the window label; would be some application dependent string but I suspect we will want to make the outer morph a dialogue box with no label anyway" + + ^'FileSaver'!

1 0

Jump to page: