X Tutup
Skip to content

Commit a84d0dc

Browse files
author
Johan Brichau
committed
Add relevant Pharo9 inspector extension methods for GRSmallDictionary and GROrderedMultiMap
1 parent 3e8eeb2 commit a84d0dc

File tree

6 files changed

+33
-16
lines changed

6 files changed

+33
-16
lines changed

repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st

Lines changed: 0 additions & 3 deletions
This file was deleted.

repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/explorerContents.st

Lines changed: 0 additions & 10 deletions
This file was deleted.

repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st

Lines changed: 0 additions & 3 deletions
This file was deleted.
Lines changed: 15 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,15 @@
1+
*Grease-Pharo90-Core
2+
inspectionItems: aBuilder
3+
<inspectorPresentationOrder: 0 title: 'Items'>
4+
5+
^ aBuilder newTable
6+
addColumn: (SpStringTableColumn
7+
title: 'Key'
8+
evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ])
9+
beSortable;
10+
addColumn: (SpStringTableColumn
11+
title: 'Value'
12+
evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ])
13+
beSortable;
14+
items: self associations;
15+
yourself
Lines changed: 15 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,15 @@
1+
*Grease-Pharo90-Core
2+
inspectionItems: aBuilder
3+
<inspectorPresentationOrder: 0 title: 'Items'>
4+
5+
^ aBuilder newTable
6+
addColumn: (SpStringTableColumn
7+
title: 'Key'
8+
evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ])
9+
beSortable;
10+
addColumn: (SpStringTableColumn
11+
title: 'Value'
12+
evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ])
13+
beSortable;
14+
items: self associations;
15+
yourself
Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
{
2+
"name" : "GRSmallDictionary2"
3+
}

0 commit comments

Comments
 (0)
X Tutup