Make UUID class overridable [feenkcom/gtoolkit#4322]

feenkcom · Mar 3, 2025 · 68b9690 · 68b9690
1 parent aa72a94
commit 68b9690
Show file tree

Hide file tree

Showing 4 changed files with 13 additions and 2 deletions.
diff --git a/src/Gt4Llm-GToolkit/GtLlmChatMessage.extension.st b/src/Gt4Llm-GToolkit/GtLlmChatMessage.extension.st
@@ -15,3 +15,8 @@ GtLlmChatMessage >> gtContentFor: aView [
 		stencil: [ GtLlmThreadMessageElement new
 				threadMessageViewModel: self asViewModel ]
 ]
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmChatMessage >> uuidClass [
+	^ UUID
+]
diff --git a/src/Gt4Llm/GtLlmChatMessage.class.st b/src/Gt4Llm/GtLlmChatMessage.class.st
@@ -145,7 +145,7 @@ GtLlmChatMessage >> id: anId [
 
 { #category : #accessing }
 GtLlmChatMessage >> initialize [
-	id := UUID new.
+	id := self uuidClass new.
 	createdAt := DateAndTime now
 ]
 

diff --git a/src/Gt4Ollama-GToolkit/GtOllamaProvider.extension.st b/src/Gt4Ollama-GToolkit/GtOllamaProvider.extension.st
@@ -0,0 +1,6 @@
+Extension { #name : #GtOllamaProvider }
+
+{ #category : #'*Gt4Ollama-GToolkit' }
+GtOllamaProvider >> uuidClass [
+	^ UUID
+]
diff --git a/src/Gt4Ollama/GtOllamaProvider.class.st b/src/Gt4Ollama/GtOllamaProvider.class.st
@@ -45,7 +45,7 @@ GtOllamaProvider >> initializeClient [
 { #category : #'as yet unclassified' }
 GtOllamaProvider >> instructions: aString [
 	| internalModelName modelFile |
-	internalModelName := 'gt-tutor-' , self model , '-' , UUID new asString.
+	internalModelName := 'gt-tutor-' , self model , '-' , self uuidClass new asString.
 	modelFile := GtLlmModelFile new
 			from: self model;
 			system: aString.