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