Add views for gemstone [feenkcom/gtoolkit#4322]

feenkcom · Mar 7, 2025 · 36a88b3 · 36a88b3
1 parent 26c66e8
commit 36a88b3
Showing 1 changed file with 21 additions and 0 deletions.
diff --git a/src/Gt4Llm-Gemstone/GtLlmChatMessage.extension.st b/src/Gt4Llm-Gemstone/GtLlmChatMessage.extension.st
@@ -4,3 +4,24 @@ Extension { #name : 'GtLlmChatMessage' }
 GtLlmChatMessage class >> isAbstract [
 	^ self name = #GtLlmChatMessage
 ]
+
+{ #category : '*Gt4Llm-Gemstone' }
+GtLlmChatMessage >> gtContentFor: aView [
+	<gtView>
+	<gtLlmMessageView>
+	^ aView textEditor
+		title: 'Content';
+		priority: 5;
+		text: [ self contentText ]
+]
+
+{ #category : '*Gt4Llm-Gemstone' }
+GtLlmChatMessage >> gtJsonFor: aView [
+	<gtView>
+	<gtLlmMessageView>
+	[ self contentJson ] on: Error do: [ ^ aView empty ].
+
+	^ (self contentJson gtItemsFor: aView)
+		title: 'JSON data';
+		priority: 4.5
+]