"Refactor LLM-Spec layout and commands; add 'Open LLM Chat' world menu item"

Author: badetitou

src/LLM-Spec/LLMAPISpec.class.st

@@ -18,6 +18,16 @@ Class {
 	#package : 'LLM-Spec'
 }
 
+{ #category : 'examples' }
+LLMAPISpec class >> menuCommandOn: aBuilder [
+
+	<worldMenu>
+	(aBuilder item: #'Open LLM Chat')
+		order: 1000;
+		action: [ self open ];
+		help: 'Open an LLM Chat wincow'
+]
+
 { #category : 'examples' }
 LLMAPISpec class >> open [
 	<example>

src/LLM-Spec/LLMAPISpecChatBubble.class.st

@@ -25,14 +25,24 @@ LLMAPISpecChatBubble class >> from: aMessage [
 		yourself
 ]
 
+{ #category : 'initialization' }
+LLMAPISpecChatBubble >> contentArea [
+
+	^ contentArea
+]
+
 { #category : 'layout' }
 LLMAPISpecChatBubble >> defaultLayout [
 
 	^ SpBoxLayout newTopToBottom
+		  beNotHomogeneous;
 		  add: self model role expand: false;
-		  "add: roleText expand: false;"add: contentArea
-		  withConstraints: [ :constraints | 
-			constraints height: (self class inputTextHeight) * 4 ];
+		  add: contentArea withConstraints: [ :constraints |
+				  self contentArea build.
+				  constraints
+					  height:
+						  ((self contentArea text lineHeightsWrappingAtWidth:
+								   self extent x) sum) + (self class inputTextHeight * 1.5) ];
 		  yourself
 ]
 

src/LLM-Spec/LLMAPISpecChatHistory.class.st

@@ -30,21 +30,25 @@ LLMAPISpecChatHistory >> addMessage: aMessage [
 
 	self model add: aMessage.
 	aMessage role = 'system' ifFalse: [
-		panel add: (LLMAPISpecChatBubble from: aMessage) ]
+		panel addPresenter: (LLMAPISpecChatBubble from: aMessage) ]
 ]
 
 { #category : 'layout' }
 LLMAPISpecChatHistory >> defaultLayout [
 
-	^ SpScrollableLayout with: panel
+	| scrollPane |
+	scrollPane := SpBoxLayout new
+		              add: panel;
+		              yourself.
+	^ scrollPane
 ]
 
 { #category : 'initialization' }
 LLMAPISpecChatHistory >> initializePresenters [
 
-	panel := SpBoxLayout newTopToBottom.
+	panel := SpComponentListPresenter new.
 
 	self model do: [ :message |
-		message role = 'system' ifFalse: [
-			panel add: (LLMAPISpecChatBubble from: message) expand: true ] ]
+			message role = 'system' ifFalse: [
+				panel addPresenter: (LLMAPISpecChatBubble from: message) ] ]
 ]