Packages January 2019

packages@lists.squeakfoundation.org

1 participants
90 discussions

The Trunk: Tools-tpr.842.mcz
by commits＠source.squeak.org 09 Jan '19

09 Jan '19

tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.842.mcz ==================== Summary ==================== Name: Tools-tpr.842 Author: tpr Time: 8 January 2019, 4:28:24.671414 pm UUID: 646b9708-3bc3-440e-8db6-3cb7c314ca03 Ancestors: Tools-tpr.841 Use FileServices as the registry instead of FileList =============== Diff against Tools-tpr.841 =============== Item was changed: ----- Method: ArchiveViewer class>>initialize (in category 'class initialization') ----- initialize "ArchiveViewer initialize" + FileServices registerFileReader: self. - FileList registerFileReader: self. Smalltalk addToShutDownList: self.! Item was changed: ----- Method: ArchiveViewer class>>unload (in category 'initialize-release') ----- unload + FileServices unregisterFileReader: self ! - FileList unregisterFileReader: self ! Item was changed: ----- Method: ArchiveViewer>>memberMenu:shifted: (in category 'member list') ----- memberMenu: menu shifted: shifted | services | menu add: 'Comment archive' target: self selector: #commentArchive; balloonTextForLastItem: 'Add a comment for the entire archive'. self selectedMember ifNotNil: [ :member | menu addLine; add: 'Inspect member' target: self selector: #inspectMember; balloonTextForLastItem: 'Inspect the selected member'; add: 'Comment member' target: self selector: #commentMember; balloonTextForLastItem: 'Add a comment for the selected member'; addLine; add: 'member go up in order ' target: self selector: #upMember; add: 'member go down in order ' target: self selector: #downMember; add: 'select member order ' target: self selector: #toIndexPlace; addLine. + services := FileServices itemsForFile: member fileName. - services := FileList itemsForFile: member fileName. menu addServices2: services for: self extraLines: #(). ]. ^menu! Item was changed: ----- Method: ChangeList class>>initialize (in category 'initialize-release') ----- initialize + FileServices registerFileReader: self! - FileList registerFileReader: self! Item was changed: ----- Method: ChangeList class>>unload (in category 'class initialization') ----- unload + FileServices unregisterFileReader: self ! - FileList unregisterFileReader: self ! Item was changed: ----- Method: ChangeSorter class>>initialize (in category 'class initialization') ----- initialize "ChangeSorter initialize" + FileServices registerFileReader: self. - FileList registerFileReader: self. self registerInFlapsRegistry. ! Item was changed: ----- Method: ChangeSorter class>>unload (in category 'deprecated') ----- unload "Unload the receiver from global registries" + self environment at: #FileServices ifPresent: [:cl | + cl unregisterFileReader: self]. - self environment at: #FileList ifPresent: [:cl | - cl unregisterFileReader: self]. self environment at: #Flaps ifPresent: [:cl | + cl unregisterQuadsWithReceiver: self] ! - cl unregisterQuadsWithReceiver: self] ! Item was changed: ----- Method: ChangesOrganizer class>>unload (in category 'class initialization') ----- unload "Unload the receiver from global registries" + self environment at: #FileServices ifPresent: [:cl | - self environment at: #FileList ifPresent: [:cl | cl unregisterFileReader: self]. self environment at: #Flaps ifPresent: [:cl | cl unregisterQuadsWithReceiver: self] ! Item was changed: ----- Method: FileContentsBrowser class>>initialize (in category 'class initialization') ----- initialize + FileServices registerFileReader: self! - FileList registerFileReader: self! Item was changed: ----- Method: FileContentsBrowser class>>unload (in category 'class initialization') ----- unload + FileServices unregisterFileReader: self ! - FileList unregisterFileReader: self ! Item was changed: ----- Method: FileList class>>initialize (in category 'class initialization') ----- initialize "FileList initialize" + RecentDirs := OrderedCollection new! - RecentDirs := OrderedCollection new. - (self systemNavigation allClassesImplementing: #fileReaderServicesForFile:suffix:) do: [:providerMetaclass | - self registerFileReader: providerMetaclass soleInstance]!

1 0

The Trunk: Tests-tpr.406.mcz
by commits＠source.squeak.org 09 Jan '19

09 Jan '19

tim Rowledge uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-tpr.406.mcz ==================== Summary ==================== Name: Tests-tpr.406 Author: tpr Time: 8 January 2019, 4:27:16.862116 pm UUID: aa18d326-0e4c-4b9f-9554-b6f9ce309ba4 Ancestors: Tests-eem.405 Use FileServices as the registry instead of FileList =============== Diff against Tests-eem.405 =============== Item was changed: SystemOrganization addCategory: #'Tests-Bugs'! SystemOrganization addCategory: #'Tests-Compiler'! SystemOrganization addCategory: #'Tests-Dependencies'! SystemOrganization addCategory: #'Tests-Digital Signatures'! SystemOrganization addCategory: #'Tests-Environments'! SystemOrganization addCategory: #'Tests-Exceptions'! SystemOrganization addCategory: #'Tests-FilePackage'! SystemOrganization addCategory: #'Tests-Files'! SystemOrganization addCategory: #'Tests-Finalization'! SystemOrganization addCategory: #'Tests-Hex'! SystemOrganization addCategory: #'Tests-Installer-Core'! SystemOrganization addCategory: #'Tests-Localization'! SystemOrganization addCategory: #'Tests-Monticello'! SystemOrganization addCategory: #'Tests-Monticello-Mocks'! SystemOrganization addCategory: #'Tests-Monticello-Utils'! SystemOrganization addCategory: #'Tests-Object Events'! SystemOrganization addCategory: #'Tests-ObjectsAsMethods'! SystemOrganization addCategory: #'Tests-PrimCallController'! SystemOrganization addCategory: #'Tests-Release'! SystemOrganization addCategory: #'Tests-System-Digital Signatures'! SystemOrganization addCategory: #'Tests-System-Object Storage'! SystemOrganization addCategory: #'Tests-System-Preferences'! SystemOrganization addCategory: #'Tests-System-Support'! SystemOrganization addCategory: #'Tests-Utilities'! SystemOrganization addCategory: #'Tests-VM'! SystemOrganization addCategory: #'Tests-System-Applications'! + SystemOrganization addCategory: #'Tests-MonticelloMocks'! Item was changed: ----- Method: MCSerializationTest>>assertClass:providesServices: (in category 'asserting') ----- assertClass: readerClass providesServices: labels | services suffix | suffix := readerClass extension. + self assert: (FileServices isReaderNamedRegistered: readerClass name). - self assert: (FileList isReaderNamedRegistered: readerClass name). services := readerClass fileReaderServicesForFile: 'foo' suffix: suffix. self assert: ((services collect: [:service | service buttonLabel]) includesAllOf: labels)!

1 0

The Trunk: ReleaseBuilder-tpr.192.mcz
by commits＠source.squeak.org 09 Jan '19

09 Jan '19

tim Rowledge uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-tpr.192.mcz ==================== Summary ==================== Name: ReleaseBuilder-tpr.192 Author: tpr Time: 8 January 2019, 4:26:36.701286 pm UUID: 1bdcee89-aee9-474a-bafc-6e840e1f91cd Ancestors: ReleaseBuilder-fn.191 Use FileServices as the registry instead of FileList =============== Diff against ReleaseBuilder-fn.191 =============== Item was changed: ----- Method: ReleaseBuilder class>>configureTools (in category 'scripts') ----- configureTools "Initialize well-known tools and other resources." + FileList initialize. + FileServices initialize. "register file reader services" - FileList initialize. "register file reader services" RealEstateAgent standardSize: 600 @ 400. SMLoaderPlus setDefaultFilters: #(filterSafelyAvailable). "Default applications and tools." SystemBrowser default: Browser. MailSender default: nil. SoundService default: BaseSoundSystem. ToolSet default: StandardToolSet. WebBrowser default: nil. !

1 0

The Trunk: MorphicExtras-tpr.250.mcz
by commits＠source.squeak.org 09 Jan '19

09 Jan '19

tim Rowledge uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-tpr.250.mcz ==================== Summary ==================== Name: MorphicExtras-tpr.250 Author: tpr Time: 8 January 2019, 4:25:24.828334 pm UUID: 32e17974-a168-43f6-8444-0394c4f29638 Ancestors: MorphicExtras-kfr.249 Use FileServices as the registry instead of FileList =============== Diff against MorphicExtras-kfr.249 =============== Item was changed: ----- Method: AnimatedImageMorph class>>initialize (in category 'class initialization') ----- initialize "register the receiver in the global registries" self environment + at: #FileServices - at: #FileList ifPresent: [:cl | cl registerFileReader: self]! Item was changed: ----- Method: AnimatedImageMorph class>>unload (in category 'class initialization') ----- unload "Unload the receiver from global registries" self environment + at: #FileServices - at: #FileList ifPresent: [:cl | cl unregisterFileReader: self]! Item was changed: ----- Method: BookMorph class>>unload (in category 'initialize-release') ----- unload "Unload the receiver from global registries" self environment + at: #FileServices - at: #FileList ifPresent: [:cl | cl unregisterFileReader: self]. self environment at: #Flaps ifPresent: [:cl | cl unregisterQuadsWithReceiver: self]! Item was changed: ----- Method: EventRecorderMorph class>>initialize (in category 'class initialization') ----- initialize + FileServices registerFileReader: self! - FileList registerFileReader: self! Item was changed: ----- Method: EventRecorderMorph class>>unload (in category 'initialize-release') ----- unload + FileServices unregisterFileReader: self ! - FileList unregisterFileReader: self ! Item was changed: ----- Method: MessageNames class>>unload (in category '*MorphicExtras-class initialization') ----- unload "Unload the receiver from global registries" + self environment at: #FileServices ifPresent: [:cl | + cl unregisterFileReader: self]. - self environment at: #FileList ifPresent: [:cl | - cl unregisterFileReader: self]. self environment at: #Flaps ifPresent: [:cl | + cl unregisterQuadsWithReceiver: self] ! - cl unregisterQuadsWithReceiver: self] !

1 0

The Trunk: Morphic-tpr.1473.mcz
by commits＠source.squeak.org 09 Jan '19

09 Jan '19

tim Rowledge uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tpr.1473.mcz ==================== Summary ==================== Name: Morphic-tpr.1473 Author: tpr Time: 8 January 2019, 4:24:35.430039 pm UUID: 73139450-4f2f-4203-8a9b-cc2ba687326c Ancestors: Morphic-eem.1472 Use FileServices as the registry instead of FileList =============== Diff against Morphic-eem.1472 =============== Item was changed: ----- Method: Morph class>>initialize (in category 'class initialization') ----- initialize "Morph initialize" + FileServices registerFileReader: self! - FileList registerFileReader: self! Item was changed: ----- Method: Morph class>>unload (in category 'initialize-release') ----- unload + FileServices unregisterFileReader: self ! - FileList unregisterFileReader: self ! Item was changed: ----- Method: ProjectViewMorph class>>initialize (in category 'class initialization') ----- initialize + FileServices registerFileReader: self! - FileList registerFileReader: self! Item was changed: ----- Method: ProjectViewMorph class>>unload (in category 'initialize-release') ----- unload + FileServices unregisterFileReader: self ! - FileList unregisterFileReader: self !

1 0

The Trunk: Monticello-tpr.692.mcz
by commits＠source.squeak.org 09 Jan '19

09 Jan '19

tim Rowledge uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-tpr.692.mcz ==================== Summary ==================== Name: Monticello-tpr.692 Author: tpr Time: 8 January 2019, 4:23:59.248778 pm UUID: a862f6b9-68d9-485a-846d-5982128901aa Ancestors: Monticello-pre.691 Use FileServices as the registry instead of FileList =============== Diff against Monticello-pre.691 =============== Item was changed: ----- Method: MCVersionReader class>>initialize (in category 'file services') ----- initialize "MCVersionReader initialize" Smalltalk at: #MczInstaller + ifPresent: [:installer | FileServices unregisterFileReader: installer]. + self concreteSubclassesDo: [:aClass | FileServices registerFileReader: aClass]. - ifPresent: [:installer | FileList unregisterFileReader: installer]. - self concreteSubclassesDo: [:aClass | FileList registerFileReader: aClass]. "get rid of AnObsoleteMCMcReader and AnObsoleteMCMcvReader" + (FileServices registeredFileReaderClasses select: [ :ea | ea isObsolete ]) do: + [ :ea | FileServices unregisterFileReader: ea ] - (FileList registeredFileReaderClasses select: [ :ea | ea isObsolete ]) do: - [ :ea | FileList unregisterFileReader: ea ] ! Item was changed: ----- Method: MCVersionReader class>>unload (in category 'file services') ----- unload + FileServices unregisterFileReader: self ! - FileList unregisterFileReader: self !

1 0

The Trunk: CommandLine-tpr.12.mcz
by commits＠source.squeak.org 09 Jan '19

09 Jan '19

tim Rowledge uploaded a new version of CommandLine to project The Trunk: http://source.squeak.org/trunk/CommandLine-tpr.12.mcz ==================== Summary ==================== Name: CommandLine-tpr.12 Author: tpr Time: 8 January 2019, 4:22:55.163983 pm UUID: 4c15326f-0f4c-41e8-a0c8-b750307c2253 Ancestors: CommandLine-pre.11 Move a couple of previously deprecated methods to the actual deprecated package =============== Diff against CommandLine-pre.11 =============== Item was removed: - ----- Method: DummyUIManager>>openPluggableFileList:label:in: (in category 'ui project indirecting') ----- - openPluggableFileList: aPluggableFileList label: aString in: aWorld - "PluggableFileList is being deprecated and this can go away soon" - ^nil!

1 0

The Trunk: 60Deprecated-tpr.31.mcz
by commits＠source.squeak.org 09 Jan '19

09 Jan '19

tim Rowledge uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-tpr.31.mcz ==================== Summary ==================== Name: 60Deprecated-tpr.31 Author: tpr Time: 8 January 2019, 4:21:59.062127 pm UUID: 6c5cf795-7e93-4440-999c-a02f0b467d61 Ancestors: 60Deprecated-tpr.30 Move a couple of previously deprecated methods to the actual deprecated package. =============== Diff against 60Deprecated-tpr.30 =============== Item was added: + ----- Method: DummyUIManager>>openPluggableFileList:label:in: (in category '*60Deprecated') ----- + openPluggableFileList: aPluggableFileList label: aString in: aWorld + "PluggableFileList is being deprecated and this can go away soon" + ^nil! Item was changed: ----- Method: DummyUIManager>>openPluggableFileListLabel:in: (in category '*60Deprecated') ----- openPluggableFileListLabel: aString in: aWorld "PluggableFileList is being deprecated and this can go away soon" - "This method is not used anymore in 5.2 by any system classes and seems to have been - renamed to openPluggableFileList:label:in:" ^nil!

1 0

The Trunk: Tools-tpr.841.mcz
by commits＠source.squeak.org 08 Jan '19

08 Jan '19

tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.841.mcz ==================== Summary ==================== Name: Tools-tpr.841 Author: tpr Time: 8 January 2019, 1:39:36.243579 pm UUID: 65dee67e-8e49-4f90-94e3-6f21705c74d2 Ancestors: Tools-pre.840 Deprecate the StandardFileMenu system. We have the concrete subclasses of FileAbstractSelectionDialog now. Assuming this has been done in the correct order you should now find StandardFileMenu in 60Deprecate-Tools-Menus =============== Diff against Tools-pre.840 =============== Item was removed: - SelectionMenu subclass: #StandardFileMenu - instanceVariableNames: 'canTypeFileName pattern' - classVariableNames: '' - poolDictionaries: '' - category: 'Tools-Menus'! - - !StandardFileMenu commentStamp: 'mp 8/15/2005 18:44' prior: 0! - I represent a SelectionMenu which operates like a modal dialog for selecting files, somewhat similar to the StandardFile dialogs in MacOS and Java Swing. - - Try for example, the following: - - StandardFileMenu oldFile inspect - - StandardFileMenu oldFileStream inspect - - StandardFileMenu newFile inspect - - StandardFileMenu newFileStream inspect - - (StandardFileMenu oldFileMenu: FileDirectory default withPattern: '*') startUpWithCaption: 'Select a file:' - - (StandardFileMenu oldFileMenu: (FileDirectory default) withPatternList: {'*.txt'. '*.changes'}) startUpWithCaption: 'Select a file:' - ! Item was removed: - ----- Method: StandardFileMenu class>>newFile (in category 'standard file operations') ----- - newFile - - ^self newFileFrom: (FileDirectory default)! Item was removed: - ----- Method: StandardFileMenu class>>newFileFrom: (in category 'standard file operations') ----- - newFileFrom: aDirectory - - ^(self newFileMenu: aDirectory) - startUpWithCaption: 'Select a File:' translated! Item was removed: - ----- Method: StandardFileMenu class>>newFileMenu: (in category 'instance creation') ----- - newFileMenu: aDirectory - Smalltalk isMorphic ifFalse: [^ PluggableFileList newFileMenu: aDirectory]. - ^ super new newFileFrom: aDirectory! Item was removed: - ----- Method: StandardFileMenu class>>newFileMenu:withPattern: (in category 'instance creation') ----- - newFileMenu: aDirectory withPattern: aPattern - Smalltalk isMorphic ifFalse: [^ PluggableFileList newFileMenu: aDirectory]. - ^ super new newFileFrom: aDirectory withPattern: aPattern! Item was removed: - ----- Method: StandardFileMenu class>>newFileMenu:withPatternList: (in category 'instance creation') ----- - newFileMenu: aDirectory withPatternList: aPatternList - Smalltalk isMorphic ifFalse: [^ PluggableFileList newFileMenu: aDirectory]. - ^ super new newFileFrom: aDirectory withPatternList: aPatternList! Item was removed: - ----- Method: StandardFileMenu class>>newFileStream (in category 'standard file operations') ----- - newFileStream - - ^self newFileStreamFrom: (FileDirectory default)! Item was removed: - ----- Method: StandardFileMenu class>>newFileStreamFrom: (in category 'standard file operations') ----- - newFileStreamFrom: aDirectory - - | sfmResult fileStream | - sfmResult := self newFileFrom: aDirectory. - sfmResult ifNil: [^nil]. - fileStream := sfmResult directory newFileNamed: sfmResult name. - [fileStream isNil] whileTrue: - [sfmResult := self newFileFrom: aDirectory. - sfmResult ifNil: [^nil]. - fileStream := sfmResult directory newFileNamed: sfmResult name]. - ^fileStream - ! Item was removed: - ----- Method: StandardFileMenu class>>oldFile (in category 'standard file operations') ----- - oldFile - - ^self oldFileFrom: (FileDirectory default)! Item was removed: - ----- Method: StandardFileMenu class>>oldFileFrom: (in category 'standard file operations') ----- - oldFileFrom: aDirectory - - ^(self oldFileMenu: aDirectory) - startUpWithCaption: 'Select a File:' translated! Item was removed: - ----- Method: StandardFileMenu class>>oldFileFrom:withPattern: (in category 'standard file operations') ----- - oldFileFrom: aDirectory withPattern: aPattern - " - Select an existing file from a selection conforming to aPattern. - " - ^(self oldFileMenu: aDirectory withPattern: aPattern) - startUpWithCaption: 'Select a File:' translated! Item was removed: - ----- Method: StandardFileMenu class>>oldFileMenu: (in category 'instance creation') ----- - oldFileMenu: aDirectory - Smalltalk isMorphic ifFalse: [^ PluggableFileList oldFileMenu: aDirectory]. - ^ super new oldFileFrom: aDirectory! Item was removed: - ----- Method: StandardFileMenu class>>oldFileMenu:withPattern: (in category 'instance creation') ----- - oldFileMenu: aDirectory withPattern: aPattern - - Smalltalk isMorphic ifFalse: [^PluggableFileList oldFileMenu: aDirectory]. - ^super new oldFileFrom: aDirectory withPattern: aPattern! Item was removed: - ----- Method: StandardFileMenu class>>oldFileMenu:withPatternList: (in category 'instance creation') ----- - oldFileMenu: aDirectory withPatternList: aPatternList - - Smalltalk isMorphic ifFalse: [^PluggableFileList oldFileMenu: aDirectory]. - ^super new oldFileFrom: aDirectory withPatternList: aPatternList! Item was removed: - ----- Method: StandardFileMenu class>>oldFileStream (in category 'standard file operations') ----- - oldFileStream - - ^self oldFileStreamFrom: (FileDirectory default) - ! Item was removed: - ----- Method: StandardFileMenu class>>oldFileStreamFrom: (in category 'standard file operations') ----- - oldFileStreamFrom: aDirectory - - | sfmResult fileStream | - sfmResult := self oldFileFrom: aDirectory. - sfmResult ifNil: [^nil]. - fileStream := sfmResult directory oldFileNamed: sfmResult name. - [fileStream isNil] whileTrue: - [sfmResult := self oldFileFrom: aDirectory. - sfmResult ifNil: [^nil]. - fileStream := sfmResult directory oldFileNamed: sfmResult name]. - ^fileStream - ! Item was removed: - ----- Method: StandardFileMenu>>advance:containingDirectoriesFrom: (in category 'private') ----- - advance: anInteger containingDirectoriesFrom: aDirectory - - | theDirectory | - theDirectory := aDirectory. - 1 to: anInteger do: [:i | theDirectory := theDirectory containingDirectory]. - ^theDirectory! Item was removed: - ----- Method: StandardFileMenu>>confirmExistingFiles: (in category 'basic control sequences') ----- - confirmExistingFiles: aResult - - |choice| - (aResult directory fileExists: aResult name) ifFalse: [^aResult]. - - choice := (UIManager default chooseFrom: #('overwrite that file' 'choose another name' - 'cancel') - title: aResult name, ' - already exists.'). - - choice = 1 ifTrue: [ - aResult directory - deleteFileNamed: aResult name - ifAbsent: - [^self startUpWithCaption: - 'Can''t delete ', aResult name, ' - Select another file']. - ^aResult]. - choice = 2 ifTrue: [^self startUpWithCaption: 'Select Another File']. - ^nil - ! Item was removed: - ----- Method: StandardFileMenu>>directoryNamesString: (in category 'menu building') ----- - directoryNamesString: aDirectory - "Answer a string concatenating the directory name strings in aDirectory, each string followed by a '[...]' indicator, and followed by a cr." - - ^ String streamContents: - [:s | aDirectory directoryNames do: - [:dn | s nextPutAll: dn withBlanksTrimmed , ' [...]'; cr]] - - ! Item was removed: - ----- Method: StandardFileMenu>>fileNamesString: (in category 'menu building') ----- - fileNamesString: aDirectory - "Answer a string concatenating the file name strings in aDirectory, each string followed by a cr." - - ^String streamContents: - [:s | - aDirectory fileNames do: - [:fn | - pattern do:[:each | (each match: fn) ifTrue: [ - s nextPutAll: fn withBlanksTrimmed; cr]]]] - ! Item was removed: - ----- Method: StandardFileMenu>>getTypedFileName: (in category 'basic control sequences') ----- - getTypedFileName: aResult - - | name | - name := UIManager default - request: 'Enter a new file name' - initialAnswer: ''. - name = '' ifTrue: [^self startUpWithCaption: 'Select a File:' translated]. - name := aResult directory fullNameFor: name. - ^ StandardFileMenuResult - directory: (FileDirectory forFileName: name) - name: (FileDirectory localNameFor: name) - ! Item was removed: - ----- Method: StandardFileMenu>>makeFileMenuFor: (in category 'menu building') ----- - makeFileMenuFor: aDirectory - "Initialize an instance of me to operate on aDirectory" - - | theMenu | - pattern ifNil: [pattern := {'*'}]. - Cursor wait showWhile: - [self - labels: (self menuLabelsString: aDirectory) - font: (MenuStyle fontAt: 1) - lines: (self menuLinesArray: aDirectory). - theMenu := self selections: (self menuSelectionsArray: aDirectory)]. - ^theMenu! Item was removed: - ----- Method: StandardFileMenu>>menuLabelsString: (in category 'menu building') ----- - menuLabelsString: aDirectory - "Answer a menu labels object corresponding to aDirectory" - - ^ String streamContents: - [:s | - canTypeFileName ifTrue: - [s nextPutAll: 'Enter File Name...'; cr]. - s nextPutAll: (self pathPartsString: aDirectory). - s nextPutAll: (self directoryNamesString: aDirectory). - s nextPutAll: (self fileNamesString: aDirectory). - s skip: -1]! Item was removed: - ----- Method: StandardFileMenu>>menuLinesArray: (in category 'menu building') ----- - menuLinesArray: aDirectory - "Answer a menu lines object corresponding to aDirectory" - - | typeCount nameCnt dirDepth| - typeCount := canTypeFileName - ifTrue: [1] - ifFalse: [0]. - nameCnt := aDirectory directoryNames size. - dirDepth := aDirectory pathParts size. - ^Array streamContents: [:s | - canTypeFileName ifTrue: [s nextPut: 1]. - s nextPut: dirDepth + typeCount + 1. - s nextPut: dirDepth + nameCnt + typeCount + 1]! Item was removed: - ----- Method: StandardFileMenu>>menuSelectionsArray: (in category 'menu building') ----- - menuSelectionsArray: aDirectory - "Answer a menu selections object corresponding to aDirectory. The object is an array corresponding to each item, each element itself constituting a two-element array, the first element of which contains a selector to operate on and the second element of which contains the parameters for that selector." - - |dirSize| - dirSize := aDirectory pathParts size. - ^Array streamContents: [:s | - canTypeFileName ifTrue: - [s nextPut: (StandardFileMenuResult - directory: aDirectory - name: nil)]. - s nextPut: (StandardFileMenuResult - directory: (FileDirectory root) - name: ''). - aDirectory pathParts doWithIndex: - [:d :i | s nextPut: (StandardFileMenuResult - directory: (self - advance: dirSize - i - containingDirectoriesFrom: aDirectory) - name: '')]. - aDirectory directoryNames do: - [:dn | s nextPut: (StandardFileMenuResult - directory: (FileDirectory on: (aDirectory fullNameFor: dn)) - name: '')]. - aDirectory fileNames do: - [:fn | pattern do: [:pat | (pat match: fn) ifTrue: [ - s nextPut: (StandardFileMenuResult - directory: aDirectory - name: fn)]]]]! Item was removed: - ----- Method: StandardFileMenu>>newFileFrom: (in category 'private') ----- - newFileFrom: aDirectory - - canTypeFileName := true. - ^self makeFileMenuFor: aDirectory! Item was removed: - ----- Method: StandardFileMenu>>newFileFrom:withPattern: (in category 'private') ----- - newFileFrom: aDirectory withPattern: aPattern - - canTypeFileName := true. - pattern := {aPattern}. - ^self makeFileMenuFor: aDirectory! Item was removed: - ----- Method: StandardFileMenu>>newFileFrom:withPatternList: (in category 'private') ----- - newFileFrom: aDirectory withPatternList: aPatternList - - canTypeFileName := true. - pattern := aPatternList. - ^self makeFileMenuFor: aDirectory! Item was removed: - ----- Method: StandardFileMenu>>oldFileFrom: (in category 'private') ----- - oldFileFrom: aDirectory - - canTypeFileName := false. - ^self makeFileMenuFor: aDirectory! Item was removed: - ----- Method: StandardFileMenu>>oldFileFrom:withPattern: (in category 'private') ----- - oldFileFrom: aDirectory withPattern: aPattern - - canTypeFileName := false. - pattern := {aPattern}. - ^self makeFileMenuFor: aDirectory! Item was removed: - ----- Method: StandardFileMenu>>oldFileFrom:withPatternList: (in category 'private') ----- - oldFileFrom: aDirectory withPatternList: aPatternList - - canTypeFileName := false. - pattern := aPatternList. - ^self makeFileMenuFor: aDirectory! Item was removed: - ----- Method: StandardFileMenu>>pathPartsString: (in category 'menu building') ----- - pathPartsString: aDirectory - "Answer a string concatenating the path parts strings in aDirectory, each string followed by a cr." - - ^String streamContents: - [:s | - s nextPutAll: '[]'; cr. - aDirectory pathParts asArray doWithIndex: - [:part :i | - s next: i put: $ . - s nextPutAll: part withBlanksTrimmed; cr]]! Item was removed: - ----- Method: StandardFileMenu>>pattern: (in category 'private') ----- - pattern: aPattern - " * for all files, or '*.cs' for changeSets, etc. Just like fileLists" - - pattern := {aPattern}! Item was removed: - ----- Method: StandardFileMenu>>patternList: (in category 'private') ----- - patternList: aPatternList - - pattern := aPatternList! Item was removed: - ----- Method: StandardFileMenu>>startUpWithCaption:at: (in category 'basic control sequences') ----- - startUpWithCaption: aString at: location - - |result| - result := super startUpWithCaption: aString at: location. - result ifNil: [^nil]. - result isDirectory ifTrue: - [self makeFileMenuFor: result directory. - self computeForm. - ^self startUpWithCaption: aString at: location]. - result isCommand ifTrue: - [result := self getTypedFileName: result. - result ifNil: [^nil]]. - canTypeFileName ifTrue: [^self confirmExistingFiles: result]. - ^result - ! Item was removed: - Object subclass: #StandardFileMenuResult - instanceVariableNames: 'directory name' - classVariableNames: '' - poolDictionaries: '' - category: 'Tools-Menus'! Item was removed: - ----- Method: StandardFileMenuResult class>>directory:name: (in category 'instance creation') ----- - directory: aDirectory name: aString - - ^super new directory: aDirectory name: aString! Item was removed: - ----- Method: StandardFileMenuResult>>directory (in category 'accessing') ----- - directory - - ^directory! Item was removed: - ----- Method: StandardFileMenuResult>>directory: (in category 'accessing') ----- - directory: aDirectory - - ^directory := aDirectory! Item was removed: - ----- Method: StandardFileMenuResult>>directory:name: (in category 'private') ----- - directory: aDirectory name: aString - - directory := aDirectory. - name := aString. - ^self! Item was removed: - ----- Method: StandardFileMenuResult>>isCommand (in category 'testing') ----- - isCommand - - ^name isNil! Item was removed: - ----- Method: StandardFileMenuResult>>isDirectory (in category 'testing') ----- - isDirectory - - ^name = ''! Item was removed: - ----- Method: StandardFileMenuResult>>name (in category 'accessing') ----- - name - - ^name! Item was removed: - ----- Method: StandardFileMenuResult>>name: (in category 'accessing') ----- - name: aString - - ^name := aString! Item was removed: - ----- Method: StandardFileMenuResult>>printOn: (in category 'accessing') ----- - printOn: aStream - super printOn: aStream. - aStream nextPutAll: ' with directory: '. - directory printOn: aStream. - aStream nextPutAll: ' name: '. - name printOn: aStream - - "StandardFileMenu oldFile"!

1 0

The Trunk: 60Deprecated-tpr.30.mcz
by commits＠source.squeak.org 08 Jan '19

08 Jan '19

tim Rowledge uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-tpr.30.mcz ==================== Summary ==================== Name: 60Deprecated-tpr.30 Author: tpr Time: 8 January 2019, 1:37:16.779475 pm UUID: ff5f1121-074a-4488-ac7d-21381ca96cbf Ancestors: 60Deprecated-pre.29 Deprecate the StandardFileMenu system. We have the concrete subclasses of FileAbstractSelectionDialog now. =============== Diff against 60Deprecated-pre.29 =============== Item was changed: SystemOrganization addCategory: #'60Deprecated-Collections-Streams'! SystemOrganization addCategory: #'60Deprecated-Kernel-Methods'! SystemOrganization addCategory: #'60Deprecated-System-Support'! SystemOrganization addCategory: #'60Deprecated-Tools-Inspector'! + SystemOrganization addCategory: #'60Deprecated-Tools-Menus'! Item was added: + SelectionMenu subclass: #StandardFileMenu + instanceVariableNames: 'canTypeFileName pattern' + classVariableNames: '' + poolDictionaries: '' + category: '60Deprecated-Tools-Menus'! + + !StandardFileMenu commentStamp: 'tpr 1/8/2019 13:33' prior: 0! + Deprecated: please don't use this class. It provides a really unpleasant UI (after all it was based on java 'swing') that can be better done by using one of the concrete subclasses of FileAbstractSelectionDialog. + + Obsoloete comment: + I represent a SelectionMenu which operates like a modal dialog for selecting files, somewhat similar to the StandardFile dialogs in MacOS and Java Swing. + + Try for example, the following: + + StandardFileMenu oldFile inspect + + StandardFileMenu oldFileStream inspect + + StandardFileMenu newFile inspect + + StandardFileMenu newFileStream inspect + + (StandardFileMenu oldFileMenu: FileDirectory default withPattern: '*') startUpWithCaption: 'Select a file:' + + (StandardFileMenu oldFileMenu: (FileDirectory default) withPatternList: {'*.txt'. '*.changes'}) startUpWithCaption: 'Select a file:' + ! Item was added: + ----- Method: StandardFileMenu class>>newFile (in category 'standard file operations') ----- + newFile + + ^self newFileFrom: (FileDirectory default)! Item was added: + ----- Method: StandardFileMenu class>>newFileFrom: (in category 'standard file operations') ----- + newFileFrom: aDirectory + + ^(self newFileMenu: aDirectory) + startUpWithCaption: 'Select a File:' translated! Item was added: + ----- Method: StandardFileMenu class>>newFileMenu: (in category 'instance creation') ----- + newFileMenu: aDirectory + Smalltalk isMorphic ifFalse: [^ PluggableFileList newFileMenu: aDirectory]. + ^ super new newFileFrom: aDirectory! Item was added: + ----- Method: StandardFileMenu class>>newFileMenu:withPattern: (in category 'instance creation') ----- + newFileMenu: aDirectory withPattern: aPattern + Smalltalk isMorphic ifFalse: [^ PluggableFileList newFileMenu: aDirectory]. + ^ super new newFileFrom: aDirectory withPattern: aPattern! Item was added: + ----- Method: StandardFileMenu class>>newFileMenu:withPatternList: (in category 'instance creation') ----- + newFileMenu: aDirectory withPatternList: aPatternList + Smalltalk isMorphic ifFalse: [^ PluggableFileList newFileMenu: aDirectory]. + ^ super new newFileFrom: aDirectory withPatternList: aPatternList! Item was added: + ----- Method: StandardFileMenu class>>newFileStream (in category 'standard file operations') ----- + newFileStream + + ^self newFileStreamFrom: (FileDirectory default)! Item was added: + ----- Method: StandardFileMenu class>>newFileStreamFrom: (in category 'standard file operations') ----- + newFileStreamFrom: aDirectory + + | sfmResult fileStream | + sfmResult := self newFileFrom: aDirectory. + sfmResult ifNil: [^nil]. + fileStream := sfmResult directory newFileNamed: sfmResult name. + [fileStream isNil] whileTrue: + [sfmResult := self newFileFrom: aDirectory. + sfmResult ifNil: [^nil]. + fileStream := sfmResult directory newFileNamed: sfmResult name]. + ^fileStream + ! Item was added: + ----- Method: StandardFileMenu class>>oldFile (in category 'standard file operations') ----- + oldFile + + ^self oldFileFrom: (FileDirectory default)! Item was added: + ----- Method: StandardFileMenu class>>oldFileFrom: (in category 'standard file operations') ----- + oldFileFrom: aDirectory + + ^(self oldFileMenu: aDirectory) + startUpWithCaption: 'Select a File:' translated! Item was added: + ----- Method: StandardFileMenu class>>oldFileFrom:withPattern: (in category 'standard file operations') ----- + oldFileFrom: aDirectory withPattern: aPattern + " + Select an existing file from a selection conforming to aPattern. + " + ^(self oldFileMenu: aDirectory withPattern: aPattern) + startUpWithCaption: 'Select a File:' translated! Item was added: + ----- Method: StandardFileMenu class>>oldFileMenu: (in category 'instance creation') ----- + oldFileMenu: aDirectory + Smalltalk isMorphic ifFalse: [^ PluggableFileList oldFileMenu: aDirectory]. + ^ super new oldFileFrom: aDirectory! Item was added: + ----- Method: StandardFileMenu class>>oldFileMenu:withPattern: (in category 'instance creation') ----- + oldFileMenu: aDirectory withPattern: aPattern + + Smalltalk isMorphic ifFalse: [^PluggableFileList oldFileMenu: aDirectory]. + ^super new oldFileFrom: aDirectory withPattern: aPattern! Item was added: + ----- Method: StandardFileMenu class>>oldFileMenu:withPatternList: (in category 'instance creation') ----- + oldFileMenu: aDirectory withPatternList: aPatternList + + Smalltalk isMorphic ifFalse: [^PluggableFileList oldFileMenu: aDirectory]. + ^super new oldFileFrom: aDirectory withPatternList: aPatternList! Item was added: + ----- Method: StandardFileMenu class>>oldFileStream (in category 'standard file operations') ----- + oldFileStream + + ^self oldFileStreamFrom: (FileDirectory default) + ! Item was added: + ----- Method: StandardFileMenu class>>oldFileStreamFrom: (in category 'standard file operations') ----- + oldFileStreamFrom: aDirectory + + | sfmResult fileStream | + sfmResult := self oldFileFrom: aDirectory. + sfmResult ifNil: [^nil]. + fileStream := sfmResult directory oldFileNamed: sfmResult name. + [fileStream isNil] whileTrue: + [sfmResult := self oldFileFrom: aDirectory. + sfmResult ifNil: [^nil]. + fileStream := sfmResult directory oldFileNamed: sfmResult name]. + ^fileStream + ! Item was added: + ----- Method: StandardFileMenu>>advance:containingDirectoriesFrom: (in category 'private') ----- + advance: anInteger containingDirectoriesFrom: aDirectory + + | theDirectory | + theDirectory := aDirectory. + 1 to: anInteger do: [:i | theDirectory := theDirectory containingDirectory]. + ^theDirectory! Item was added: + ----- Method: StandardFileMenu>>confirmExistingFiles: (in category 'basic control sequences') ----- + confirmExistingFiles: aResult + + |choice| + (aResult directory fileExists: aResult name) ifFalse: [^aResult]. + + choice := (UIManager default chooseFrom: #('overwrite that file' 'choose another name' + 'cancel') + title: aResult name, ' + already exists.'). + + choice = 1 ifTrue: [ + aResult directory + deleteFileNamed: aResult name + ifAbsent: + [^self startUpWithCaption: + 'Can''t delete ', aResult name, ' + Select another file']. + ^aResult]. + choice = 2 ifTrue: [^self startUpWithCaption: 'Select Another File']. + ^nil + ! Item was added: + ----- Method: StandardFileMenu>>directoryNamesString: (in category 'menu building') ----- + directoryNamesString: aDirectory + "Answer a string concatenating the directory name strings in aDirectory, each string followed by a '[...]' indicator, and followed by a cr." + + ^ String streamContents: + [:s | aDirectory directoryNames do: + [:dn | s nextPutAll: dn withBlanksTrimmed , ' [...]'; cr]] + + ! Item was added: + ----- Method: StandardFileMenu>>fileNamesString: (in category 'menu building') ----- + fileNamesString: aDirectory + "Answer a string concatenating the file name strings in aDirectory, each string followed by a cr." + + ^String streamContents: + [:s | + aDirectory fileNames do: + [:fn | + pattern do:[:each | (each match: fn) ifTrue: [ + s nextPutAll: fn withBlanksTrimmed; cr]]]] + ! Item was added: + ----- Method: StandardFileMenu>>getTypedFileName: (in category 'basic control sequences') ----- + getTypedFileName: aResult + + | name | + name := UIManager default + request: 'Enter a new file name' + initialAnswer: ''. + name = '' ifTrue: [^self startUpWithCaption: 'Select a File:' translated]. + name := aResult directory fullNameFor: name. + ^ StandardFileMenuResult + directory: (FileDirectory forFileName: name) + name: (FileDirectory localNameFor: name) + ! Item was added: + ----- Method: StandardFileMenu>>makeFileMenuFor: (in category 'menu building') ----- + makeFileMenuFor: aDirectory + "Initialize an instance of me to operate on aDirectory" + + | theMenu | + pattern ifNil: [pattern := {'*'}]. + Cursor wait showWhile: + [self + labels: (self menuLabelsString: aDirectory) + font: (MenuStyle fontAt: 1) + lines: (self menuLinesArray: aDirectory). + theMenu := self selections: (self menuSelectionsArray: aDirectory)]. + ^theMenu! Item was added: + ----- Method: StandardFileMenu>>menuLabelsString: (in category 'menu building') ----- + menuLabelsString: aDirectory + "Answer a menu labels object corresponding to aDirectory" + + ^ String streamContents: + [:s | + canTypeFileName ifTrue: + [s nextPutAll: 'Enter File Name...'; cr]. + s nextPutAll: (self pathPartsString: aDirectory). + s nextPutAll: (self directoryNamesString: aDirectory). + s nextPutAll: (self fileNamesString: aDirectory). + s skip: -1]! Item was added: + ----- Method: StandardFileMenu>>menuLinesArray: (in category 'menu building') ----- + menuLinesArray: aDirectory + "Answer a menu lines object corresponding to aDirectory" + + | typeCount nameCnt dirDepth| + typeCount := canTypeFileName + ifTrue: [1] + ifFalse: [0]. + nameCnt := aDirectory directoryNames size. + dirDepth := aDirectory pathParts size. + ^Array streamContents: [:s | + canTypeFileName ifTrue: [s nextPut: 1]. + s nextPut: dirDepth + typeCount + 1. + s nextPut: dirDepth + nameCnt + typeCount + 1]! Item was added: + ----- Method: StandardFileMenu>>menuSelectionsArray: (in category 'menu building') ----- + menuSelectionsArray: aDirectory + "Answer a menu selections object corresponding to aDirectory. The object is an array corresponding to each item, each element itself constituting a two-element array, the first element of which contains a selector to operate on and the second element of which contains the parameters for that selector." + + |dirSize| + dirSize := aDirectory pathParts size. + ^Array streamContents: [:s | + canTypeFileName ifTrue: + [s nextPut: (StandardFileMenuResult + directory: aDirectory + name: nil)]. + s nextPut: (StandardFileMenuResult + directory: (FileDirectory root) + name: ''). + aDirectory pathParts doWithIndex: + [:d :i | s nextPut: (StandardFileMenuResult + directory: (self + advance: dirSize - i + containingDirectoriesFrom: aDirectory) + name: '')]. + aDirectory directoryNames do: + [:dn | s nextPut: (StandardFileMenuResult + directory: (FileDirectory on: (aDirectory fullNameFor: dn)) + name: '')]. + aDirectory fileNames do: + [:fn | pattern do: [:pat | (pat match: fn) ifTrue: [ + s nextPut: (StandardFileMenuResult + directory: aDirectory + name: fn)]]]]! Item was added: + ----- Method: StandardFileMenu>>newFileFrom: (in category 'private') ----- + newFileFrom: aDirectory + + canTypeFileName := true. + ^self makeFileMenuFor: aDirectory! Item was added: + ----- Method: StandardFileMenu>>newFileFrom:withPattern: (in category 'private') ----- + newFileFrom: aDirectory withPattern: aPattern + + canTypeFileName := true. + pattern := {aPattern}. + ^self makeFileMenuFor: aDirectory! Item was added: + ----- Method: StandardFileMenu>>newFileFrom:withPatternList: (in category 'private') ----- + newFileFrom: aDirectory withPatternList: aPatternList + + canTypeFileName := true. + pattern := aPatternList. + ^self makeFileMenuFor: aDirectory! Item was added: + ----- Method: StandardFileMenu>>oldFileFrom: (in category 'private') ----- + oldFileFrom: aDirectory + + canTypeFileName := false. + ^self makeFileMenuFor: aDirectory! Item was added: + ----- Method: StandardFileMenu>>oldFileFrom:withPattern: (in category 'private') ----- + oldFileFrom: aDirectory withPattern: aPattern + + canTypeFileName := false. + pattern := {aPattern}. + ^self makeFileMenuFor: aDirectory! Item was added: + ----- Method: StandardFileMenu>>oldFileFrom:withPatternList: (in category 'private') ----- + oldFileFrom: aDirectory withPatternList: aPatternList + + canTypeFileName := false. + pattern := aPatternList. + ^self makeFileMenuFor: aDirectory! Item was added: + ----- Method: StandardFileMenu>>pathPartsString: (in category 'menu building') ----- + pathPartsString: aDirectory + "Answer a string concatenating the path parts strings in aDirectory, each string followed by a cr." + + ^String streamContents: + [:s | + s nextPutAll: '[]'; cr. + aDirectory pathParts asArray doWithIndex: + [:part :i | + s next: i put: $ . + s nextPutAll: part withBlanksTrimmed; cr]]! Item was added: + ----- Method: StandardFileMenu>>pattern: (in category 'private') ----- + pattern: aPattern + " * for all files, or '*.cs' for changeSets, etc. Just like fileLists" + + pattern := {aPattern}! Item was added: + ----- Method: StandardFileMenu>>patternList: (in category 'private') ----- + patternList: aPatternList + + pattern := aPatternList! Item was added: + ----- Method: StandardFileMenu>>startUpWithCaption:at: (in category 'basic control sequences') ----- + startUpWithCaption: aString at: location + + |result| + result := super startUpWithCaption: aString at: location. + result ifNil: [^nil]. + result isDirectory ifTrue: + [self makeFileMenuFor: result directory. + self computeForm. + ^self startUpWithCaption: aString at: location]. + result isCommand ifTrue: + [result := self getTypedFileName: result. + result ifNil: [^nil]]. + canTypeFileName ifTrue: [^self confirmExistingFiles: result]. + ^result + ! Item was added: + Object subclass: #StandardFileMenuResult + instanceVariableNames: 'directory name' + classVariableNames: '' + poolDictionaries: '' + category: '60Deprecated-Tools-Menus'! + + !StandardFileMenuResult commentStamp: 'tpr 1/8/2019 13:34' prior: 0! + Deprecated: please don't use this class any more. It is part of the deprecated StandardFileMenu system. + + A StandardFileMenuResult is xxxxxxxxx. + + Instance Variables + directory: <Object> + name: <Object> + + directory + - xxxxx + + name + - xxxxx + ! Item was added: + ----- Method: StandardFileMenuResult class>>directory:name: (in category 'instance creation') ----- + directory: aDirectory name: aString + + ^super new directory: aDirectory name: aString! Item was added: + ----- Method: StandardFileMenuResult>>directory (in category 'accessing') ----- + directory + + ^directory! Item was added: + ----- Method: StandardFileMenuResult>>directory: (in category 'accessing') ----- + directory: aDirectory + + ^directory := aDirectory! Item was added: + ----- Method: StandardFileMenuResult>>directory:name: (in category 'private') ----- + directory: aDirectory name: aString + + directory := aDirectory. + name := aString. + ^self! Item was added: + ----- Method: StandardFileMenuResult>>isCommand (in category 'testing') ----- + isCommand + + ^name isNil! Item was added: + ----- Method: StandardFileMenuResult>>isDirectory (in category 'testing') ----- + isDirectory + + ^name = ''! Item was added: + ----- Method: StandardFileMenuResult>>name (in category 'accessing') ----- + name + + ^name! Item was added: + ----- Method: StandardFileMenuResult>>name: (in category 'accessing') ----- + name: aString + + ^name := aString! Item was added: + ----- Method: StandardFileMenuResult>>printOn: (in category 'accessing') ----- + printOn: aStream + super printOn: aStream. + aStream nextPutAll: ' with directory: '. + directory printOn: aStream. + aStream nextPutAll: ' name: '. + name printOn: aStream + + "StandardFileMenu oldFile"!

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2019