hg/stx-libtool2: comparison FileVersionDiffBrowser.st

equal deleted inserted replaced

-:94971720b6bf
+:f18d0b3cc419
 name: 'InfoLabel'
 layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
 uuid: '90e47868-7175-11e9-a23a-b8f6b1108e05'
 level: -1
 translateLabel: true
-labelChannel: infoHolder
+labelChannel: informationHolder
 adjust: left
 )
 )
 )
 name: 'InfoLabel'
 layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
 uuid: '2b3f4a44-d4fd-11e7-af82-c42c033b4871'
 level: -1
 translateLabel: true
-labelChannel: infoHolder
+labelChannel: informationHolder
 adjust: left
 )
 )
 )
 name: 'InfoLabel'
 layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
 uuid: '2b3f4a44-d4fd-11e7-af82-c42c033b4871'
 level: -1
 translateLabel: true
-labelChannel: infoHolder
+labelChannel: informationHolder
 adjust: left
 )
 )
 )
 "create a FileVersionDiffBrowser instance and set the list of files.
 When a file is selected, the version list is extracted,
 and the diff list is generated from the file's current version against
 the selected version in the top selection list"
-|setOfFiles theBrowser filesChangedSince sinceTimestamp|
+self
+openOnAllFilesMatching:nil
+changedSince:aDateOrTimestamp
+in:aSetOfFilesOrADirectoryFilename
+"
+FileVersionDiffBrowser
+openOnAllFilesChangedSince:(Date today - 7 days)
+in:('../../libbasic' asFilename files).
+"
+"Created: / 07-07-2019 / 18:58:01 / Claus Gittinger"
+"Modified: / 08-07-2019 / 01:36:01 / Claus Gittinger"
+!
+openOnAllFilesMatching:matchPatternOrNil changedSince:aDateOrTimestamp in:aSetOfFilesOrADirectoryFilename
+"create a FileVersionDiffBrowser instance and set the list of files.
+When a file is selected, the version list is extracted,
+and the diff list is generated from the file's current version against
+the selected version in the top selection list"
+|setOfFiles theBrowser filesMatching filesChangedSince sinceTimestamp|
 sinceTimestamp := aDateOrTimestamp asTimestamp.
 setOfFiles := aSetOfFilesOrADirectoryFilename.
 setOfFiles isFilename ifTrue:[
 setOfFiles := setOfFiles directoryContentsAsFilenames.
 ].
+(matchPatternOrNil isEmptyOrNil or:[matchPatternOrNil = '*']) ifTrue:[
-filesChangedSince := setOfFiles
+filesMatching := setOfFiles
-select:[:fn | fn modificationTime > sinceTimestamp].
+] ifFalse:[
+filesMatching := setOfFiles select:[:fn | fn baseName matches:matchPatternOrNil].
+].
+filesChangedSince := filesMatching select:[:fn | fn modificationTime > sinceTimestamp].
 filesChangedSince sort:[:a :b | a name < b name].
 theBrowser := self new.
 theBrowser allButOpenInterface:#windowSpecForMultipleFiles.
 theBrowser beMultipleFilesVersionBrowser.
 theBrowser fileList:filesChangedSince.
 "/ theBrowser classHolder:(ValueHolder with:aClass).
 "/ theBrowser setupForClass:aClass againstVersion:nil.
-theBrowser window label:(self resources string:'Versions of %1 files' with:setOfFiles size).
+theBrowser window label:(self resources string:'Versions of %1 files' with:filesChangedSince size).
 theBrowser openWindow.
 ^ theBrowser.
 "
 FileVersionDiffBrowser
-openOnAllFilesChangedSince:(Date today - 7 days)
+openOnAllFilesMatching:'*.st'
+changedSince:(Date today - 7 days)
 in:('../../libbasic' asFilename files).
 "
 "Created: / 07-07-2019 / 18:58:01 / Claus Gittinger"
 "Modified: / 08-07-2019 / 01:36:01 / Claus Gittinger"
 !
-openOnAllVersionsOfFile:aFilename
+openOnAllVersionsOfFile:aFilenameOrString
 "create a VersionDiffBrowser instance and set the file.
 The diff is generated from aFilename's current version against
 the selected version in the top selection list"
-|theBrowser|
+|theBrowser fileName|
+fileName := aFilenameOrString asFilename.
 theBrowser := self new.
 theBrowser allButOpenInterface:#windowSpecForMultipleVersions.
 theBrowser beMultipleVersionBrowser.
-theBrowser fileHolder value:aFilename.
+theBrowser fileHolder value:fileName.
-theBrowser setupForAllVersionsOfFile:aFilename.
+theBrowser setupForAllVersionsOfFile:fileName.
-theBrowser window label:(self resources string:'Versions of %1' with:aFilename baseName).
+theBrowser window label:(self resources string:'Versions of %1' with:fileName baseName).
 theBrowser openWindow.
 ^ theBrowser.
 "
 self openOnAllVersionsOfFile:'Make.proto' asFilename
 argument:(self fileListHolder)
 "Created: / 07-07-2019 / 19:47:13 / Claus Gittinger"
 !
-infoHolder
+informationHolder
 ^ infoHolder.
 "Modified: / 08-05-2019 / 11:05:10 / Claus Gittinger"
 !
 !
 showActivity:someMessage
 "some activityNotification shalt be communicated to the user."
-infoHolder value:someMessage.
+self information:someMessage.
 "Created: / 28-05-2019 / 15:26:34 / Claus Gittinger"
 !
 update:something with:parameter from:changedObject
 sourceCodeManager := CVSSourceCodeManager.
 numShown := versionList size - 1.
 newNumShown := (numShown + 50) max:30.
-infoHolder value:'Getting version log...'.
+self information:'Getting version log...'.
 partialLog := sourceCodeManager revisionLogOfFile:fn numberOfRevisions:newNumShown.
 partialLog isNil ifTrue:[
 self warn:'Could not find/access the container for ',fn name,' in the repository.
 This could be due to:
 "Created: / 07-07-2019 / 22:09:21 / Claus Gittinger"
 "Modified: / 08-07-2019 / 01:24:35 / Claus Gittinger"
 !
-informationUntranslated:msg
-self infoHolder value:msg
-"Created: / 09-08-2018 / 15:40:52 / Claus Gittinger"
-!
 resetSelectionHolders
 "
 reset all selection holders when a new change set is given.
 First set the selection to nil.

changeset 3847	f18d0b3cc419
parent 3807	8f68f4fb0756
child 3849	20a999ca8246