added fix for gtexamples in pharo9

ObjectProfile · Jul 29, 2021 · 6442403 · 6442403
1 parent 2e93b0b
commit 6442403
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 1 deletion.
diff --git a/src/Roassal2GT/GtExampleMethodIcon.extension.st b/src/Roassal2GT/GtExampleMethodIcon.extension.st
@@ -0,0 +1,6 @@
+Extension { #name : #GtExampleMethodIcon }
+
+{ #category : #'*Roassal2GT' }
+GtExampleMethodIcon class >> fixedBase64String: aString [
+	^ Form fromBinaryStream: aString base64Decoded readStream
+]
diff --git a/src/Roassal2GT/RTAbstractViewContext.class.st b/src/Roassal2GT/RTAbstractViewContext.class.st
@@ -42,7 +42,7 @@ RTAbstractViewContext class >> setOnView: aView [
 ]
 
 { #category : #public }
-RTAbstractViewContext >> adjustView: aView inPresentation: aPresentation. [
+RTAbstractViewContext >> adjustView: aView inPresentation: aPresentation [.
 	self view: aView.
 	self presentation: aPresentation.
 	self registerCallbacks

diff --git a/src/Roassal2GT/RTExampleSelection.class.st b/src/Roassal2GT/RTExampleSelection.class.st
@@ -120,6 +120,16 @@ RTExampleSelection >> gtSpotterPreviewIconIn: aComposite [
 
 ]
 
+{ #category : #'PRAGMA-SELECTORS' }
+RTExampleSelection >> iconSelectorBase64: aSelector [
+	<gtExamplePragma>
+	<description: 'Attach an icon to this example. The icon form is described by the base64 string returned by the given selector'>
+
+	form := (self methodResolverClass resolve: GtExampleMethodIcon example: self selector: aSelector)
+		converter: #fixedBase64String:;
+		yourself
+]
+
 { #category : #testing }
 RTExampleSelection >> matchesQuery: aSetOfNames [
 	| sourceCode |