Fix a few things that were lost in translation [feenkcom/gtoolkit#4322]

feenkcom · Mar 3, 2025 · 5ae5c55 · 5ae5c55
1 parent ae688a2
commit 5ae5c55
Show file tree

Hide file tree

Showing 4 changed files with 51 additions and 6 deletions.
diff --git a/src/Gt4Llm/GtLlmEmbeddingRegistry.class.st b/src/Gt4Llm/GtLlmEmbeddingRegistry.class.st
@@ -4,9 +4,54 @@ Class {
 	#instVars : [
 		'embeddings'
 	],
+	#classInstVars : [
+		'uniqueInstance'
+	],
 	#category : #Gt4Llm
 }
 
+{ #category : #'as yet unclassified' }
+GtLlmEmbeddingRegistry class >> cleanUniqueInstance [
+	uniqueInstance := nil.
+]
+
+{ #category : #'as yet unclassified' }
+GtLlmEmbeddingRegistry class >> cleanUp [
+	self cleanUniqueInstance
+]
+
+{ #category : #'as yet unclassified' }
+GtLlmEmbeddingRegistry class >> default [
+	^ self uniqueInstance
+]
+
+{ #category : #'as yet unclassified' }
+GtLlmEmbeddingRegistry class >> gtInstanceButtonFor: anAction [
+	<gtClassAction>
+	^ anAction button
+		tooltip: 'Inspect unique instance';
+		priority: 10;
+		icon: BrGlamorousVectorIcons playinspect;
+		action: [ :aButton | aButton phlow spawnObject: self uniqueInstance]
+]
+
+{ #category : #'as yet unclassified' }
+GtLlmEmbeddingRegistry class >> hasUniqueInstance [
+
+	^ uniqueInstance isNotNil
+]
+
+{ #category : #'as yet unclassified' }
+GtLlmEmbeddingRegistry class >> instance [
+	<gtExample>
+	^ self uniqueInstance
+]
+
+{ #category : #'as yet unclassified' }
+GtLlmEmbeddingRegistry class >> uniqueInstance [
+	^ uniqueInstance ifNil: [ uniqueInstance := self new ]
+]
+
 { #category : #accessing }
 GtLlmEmbeddingRegistry >> at: anInput [
 	^ embeddings at: anInput

diff --git a/src/Gt4Ollama/GtOllamaThreadMessage.class.st b/src/Gt4Ollama/GtOllamaThreadMessage.class.st
@@ -80,7 +80,7 @@ GtOllamaThreadMessage >> evalDuration [
 
 { #category : #accessing }
 GtOllamaThreadMessage >> evalDuration: anObject [
-	evalDuration := anObject ifNotNil: [ :aValue | aValue nanoseconds ]
+	evalDuration := anObject ifNotNil: [ :aValue | aValue nanoSeconds ]
 ]
 
 { #category : #accessing }

diff --git a/src/Gt4OpenAI/GtOpenAIActionMessage.class.st b/src/Gt4OpenAI/GtOpenAIActionMessage.class.st
@@ -4,3 +4,8 @@ Class {
 	#classTraits : 'TGtActionMessage classTrait',
 	#category : #Gt4OpenAI
 }
+
+{ #category : #'as yet unclassified' }
+GtOpenAIActionMessage >> textBlock [
+	^ self contentJson at: 'Text' ifAbsent: [ '' ]
+]
diff --git a/src/Gt4OpenAI/GtOpenAIMessage.class.st b/src/Gt4OpenAI/GtOpenAIMessage.class.st
@@ -201,11 +201,6 @@ GtOpenAIMessage >> hasStep [
 	^ self step isNotNil
 ]
 
-{ #category : #accessing }
-GtOpenAIMessage >> id [
-	^ self explicitRequirement
-]
-
 { #category : #'as yet unclassified' }
 GtOpenAIMessage >> idString [
 	^ nil