diff --git a/packages/Sandblocks-Core/SBExploriantsView.class.st b/packages/Sandblocks-Core/SBExploriantsView.class.st index 2ca58a9e..bdfc7e66 100644 --- a/packages/Sandblocks-Core/SBExploriantsView.class.st +++ b/packages/Sandblocks-Core/SBExploriantsView.class.st @@ -61,8 +61,8 @@ SBExploriantsView >> containerRow [ changeTableLayout; listDirection: #leftToRight; layoutInset: 8; - cellGap: 8; - cellInset: 5; + cellGap: 3; + cellInset: 3; borderWidth: 0 ] @@ -85,9 +85,9 @@ SBExploriantsView >> initialize [ changeTableLayout; color: Color white; listDirection: #topToBottom; - layoutInset: 8; - cellGap: 8; - cellInset: 5; + layoutInset: 3; + cellGap: 4; + cellInset: 2; hResizing: #shrinkWrap; vResizing: #shrinkWrap) ] diff --git a/packages/Sandblocks-Smalltalk/SBStBasicMethod.class.st b/packages/Sandblocks-Smalltalk/SBStBasicMethod.class.st index 77b88ccf..fffef494 100644 --- a/packages/Sandblocks-Smalltalk/SBStBasicMethod.class.st +++ b/packages/Sandblocks-Smalltalk/SBStBasicMethod.class.st @@ -23,7 +23,9 @@ SBStBasicMethod class >> selector: aSymbol arguments: aCollection class: aClass { #category : #comparing } SBStBasicMethod >> = anotherSBStBasicMethod [ - ^ anotherSBStBasicMethod class = self class and: [anotherSBStBasicMethod compiledMethod equivalentTo: self compiledMethod] + ^ anotherSBStBasicMethod class == self class + and: [anotherSBStBasicMethod compiledMethod ~= anotherSBStBasicMethod] + and: [anotherSBStBasicMethod compiledMethod equivalentTo: self compiledMethod] ] { #category : #accessing }