X Tutup
Skip to content

Commit 5313f43

Browse files
author
Johan Brichau
authored
Merge pull request #121 from SeasideSt/pharo9-tools
Pharo9: inspector improvements for GR collection classes
2 parents 3e8eeb2 + a84d0dc commit 5313f43

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