From a84d0dcff6466d9251c3e3ed39aabfa4403719ff Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Mon, 2 Aug 2021 10:56:46 +0200 Subject: [PATCH] Add relevant Pharo9 inspector extension methods for GRSmallDictionary and GROrderedMultiMap --- .../instance/customizeExplorerContents.st | 3 --- .../instance/explorerContents.st | 10 ---------- .../instance/hasContentsInExplorer.st | 3 --- .../instance/inspectionItems..st | 15 +++++++++++++++ .../instance/inspectionItems..st | 15 +++++++++++++++ .../GRSmallDictionary2.extension/properties.json | 3 +++ 6 files changed, 33 insertions(+), 16 deletions(-) delete mode 100644 repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/explorerContents.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st create mode 100644 repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st create mode 100644 repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st create mode 100644 repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/properties.json diff --git a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st b/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st deleted file mode 100644 index c92b49af..00000000 --- a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -customizeExplorerContents - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/explorerContents.st b/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/explorerContents.st deleted file mode 100644 index a7f93368..00000000 --- a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/explorerContents.st +++ /dev/null @@ -1,10 +0,0 @@ -*Grease-Pharo90-Core -explorerContents - | contents | - contents := OrderedCollection new. - self keysAndValuesDo: [ :key :value | - contents add: (ObjectExplorerWrapper - with: value - name: (key printString contractTo: 32) - model: self) ]. - ^ contents \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st b/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st deleted file mode 100644 index f045a959..00000000 --- a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -hasContentsInExplorer - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st b/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st new file mode 100644 index 00000000..18628d10 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st @@ -0,0 +1,15 @@ +*Grease-Pharo90-Core +inspectionItems: aBuilder + + + ^ aBuilder newTable + addColumn: (SpStringTableColumn + title: 'Key' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ]) + beSortable; + addColumn: (SpStringTableColumn + title: 'Value' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ]) + beSortable; + items: self associations; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st b/repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st new file mode 100644 index 00000000..18628d10 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st @@ -0,0 +1,15 @@ +*Grease-Pharo90-Core +inspectionItems: aBuilder + + + ^ aBuilder newTable + addColumn: (SpStringTableColumn + title: 'Key' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ]) + beSortable; + addColumn: (SpStringTableColumn + title: 'Value' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ]) + beSortable; + items: self associations; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/properties.json b/repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/properties.json new file mode 100644 index 00000000..c5c0f1c8 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRSmallDictionary2" +} \ No newline at end of file