added fix for gtexamples in pharo9

Author: akevalion

src/Roassal2GT/GtExampleMethodIcon.extension.st

@@ -0,0 +1,6 @@
+Extension { #name : #GtExampleMethodIcon }
+
+{ #category : #'*Roassal2GT' }
+GtExampleMethodIcon class >> fixedBase64String: aString [
+	^ Form fromBinaryStream: aString base64Decoded readStream
+]

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

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 |