From 3573c3ffb0de0cdca9f41f78e1dff81b57bbb43e Mon Sep 17 00:00:00 2001 From: Philippe Marschall Date: Sun, 21 Aug 2022 11:26:45 +0200 Subject: [PATCH] Remove old FileLirary methods Remove old FileLirary methods used for migrations long ago. --- .../class/adjustForVisualWorks.st | 10 ---------- .../class/migrateSubclassesSeaside29.st | 6 ------ .../WAFileLibrary.class/class/migrateToSeaside29.st | 13 ------------- 3 files changed, 29 deletions(-) delete mode 100644 repository/Seaside-Core.package/WAFileLibrary.class/class/adjustForVisualWorks.st delete mode 100644 repository/Seaside-Core.package/WAFileLibrary.class/class/migrateSubclassesSeaside29.st delete mode 100644 repository/Seaside-Core.package/WAFileLibrary.class/class/migrateToSeaside29.st diff --git a/repository/Seaside-Core.package/WAFileLibrary.class/class/adjustForVisualWorks.st b/repository/Seaside-Core.package/WAFileLibrary.class/class/adjustForVisualWorks.st deleted file mode 100644 index b8a11f27b..000000000 --- a/repository/Seaside-Core.package/WAFileLibrary.class/class/adjustForVisualWorks.st +++ /dev/null @@ -1,10 +0,0 @@ -vw port-squeak -adjustForVisualWorks - | newSource oldSource badCode goodCode | - badCode := 'xxxCache := #(nil).'. - goodCode := 'xxxCache := #(nil) beMutable.'. - self selectors do: [ :selector | - oldSource := self sourceCodeAt: selector. - (oldSource indexOfSubCollection: badCode startingAt: 1) > 0 ifTrue: [ - newSource := oldSource copyReplaceAll: badCode with: goodCode. - self compile: newSource classified: self methodCategory ] ] \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAFileLibrary.class/class/migrateSubclassesSeaside29.st b/repository/Seaside-Core.package/WAFileLibrary.class/class/migrateSubclassesSeaside29.st deleted file mode 100644 index c0f4f4d18..000000000 --- a/repository/Seaside-Core.package/WAFileLibrary.class/class/migrateSubclassesSeaside29.st +++ /dev/null @@ -1,6 +0,0 @@ -migrating -migrateSubclassesSeaside29 - "migrates all subclasses of the receiver to Seaside 2.9 - you should not send this message to WAFileLibrary because that will also migrate the classes in Seaside" - self allSubclassesDo: [ :each | - each migrateToSeaside29 ] \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAFileLibrary.class/class/migrateToSeaside29.st b/repository/Seaside-Core.package/WAFileLibrary.class/class/migrateToSeaside29.st deleted file mode 100644 index ad4262dc1..000000000 --- a/repository/Seaside-Core.package/WAFileLibrary.class/class/migrateToSeaside29.st +++ /dev/null @@ -1,13 +0,0 @@ -migrating -migrateToSeaside29 - "migrates only the receiver to Seaside 2.9" - (self default fileSelectors intersection: self selectors) do: [ :each | - | contents | - contents := (self default perform: each). - (contents isKindOf: ByteArray) ifTrue: [ - | file | - file := WAFile new - contents: contents; - fileName: (self default asFilename: each); - yourself. - self default addFile: file ] ] \ No newline at end of file