Integration AI - github:12926

Author: Roland-Lannuzel

.github/workflows/build.yml

@@ -30,6 +30,16 @@ jobs:
         fetch-depth: 0
         lfs: true
 
+    - name: Check out 4D-AIKit
+      uses: actions/checkout@v4
+      with:
+        repository: 4d/4D-AIKit
+        path: Components/4D-AIKit.4dbase
+        ref : ${{ env.DEPENDENCIES_BRANCH }}
+        token: ${{ secrets.PAT_TOKEN }}
+        fetch-depth: 0
+        lfs: true
+
     - name: Build
       uses: 4d/build4d-action@main
       with:
@@ -61,4 +71,4 @@ jobs:
       with:
         target-url: ${{ secrets.TARGET_URL }}
         target-username: ${{ secrets.TARGET_USERNAME }}
-        target-token: ${{ secrets.TARGET_TOKEN }}
+        target-token: ${{ secrets.TARGET_TOKEN }}

Project/Sources/Forms/D_AI_Prompt/ObjectMethods/Button.4dm

@@ -0,0 +1,18 @@
+var $winLeft; $winTop; $winRight; $WinBottom : Integer
+var $x1; $y1; $x2; $y2 : Integer
+
+
+
+GET WINDOW RECT:C443($winLeft; $winTop; $winRight; $WinBottom; Form:C1466.windowID)
+
+OBJECT GET COORDINATES:C663(*; "Rect_Frame"; $x1; $y1; $x2; $y2)
+
+If (Form:C1466._extra.expanded)
+	//FORM SET SIZE($x1; $y2)
+	SET WINDOW RECT:C444($winLeft; $winTop; $winLeft+$x1-1; $winTop+$y2; Form:C1466.windowID)
+Else 
+	//FORM SET SIZE($x2; $y2)
+	SET WINDOW RECT:C444($winLeft; $winTop; $winLeft+$x2; $winTop+$y2; Form:C1466.windowID)
+End if 
+
+Form:C1466._extra.expanded:=Not:C34(Form:C1466._extra.expanded)

Project/Sources/Forms/D_AI_Prompt/ObjectMethods/Button12.4dm

@@ -0,0 +1,5 @@
+var $range : Object
+
+$range:=WP Selection range:C1340(*; "WParea")
+$range:=WP Paragraph range:C1346($range)
+WP SET ATTRIBUTES:C1342($range; wk background color:K81:20; wk transparent:K81:134)

Project/Sources/Forms/D_AI_Prompt/ObjectMethods/Button5.4dm

@@ -0,0 +1,2 @@
+Form:C1466.reset:=True:C214
+SET TIMER:C645(-1)

Project/Sources/Forms/D_AI_Prompt/ObjectMethods/Input.4dm

@@ -0,0 +1,16 @@
+Case of 
+	: (Form event code:C388=On After Edit:K2:43)
+		
+		If (Get edited text:C655="")
+			Form:C1466._extra.state:=-1
+		Else 
+			Form:C1466._extra.state:=0
+		End if 
+		
+		Form:C1466.radio.opt1:=True:C214
+		Form:C1466.radio.opt2:=False:C215
+		Form:C1466.radio.opt3:=False:C215
+		
+		SET TIMER:C645(-1)
+		
+End case 

Project/Sources/Forms/D_AI_Prompt/ObjectMethods/LB_Bookmarks.4dm

@@ -0,0 +1,23 @@
+var $range : Object
+
+If (Form:C1466.bookmarks.length>0)
+	
+	If (Form:C1466.selectedRow=Null:C1517)
+		
+		Form:C1466.selectedRowID:=1
+		LISTBOX SELECT ROW:C912(*; "LB_Bookmarks"; 1; lk replace selection:K53:1)
+		
+		Form:C1466.selectedRow:=Form:C1466.bookmarks[0]
+		
+	End if 
+	
+	//$range:=Form.selectedRow.promptRange
+	$range:=Form:C1466.selectedRow.answerRange
+	WP SELECT:C1348(*; "WParea"; $range)  //$range.start; $range.start)
+	
+	GOTO OBJECT:C206(*; "WParea")
+	//SET TIMER(-1)
+	
+	//Form.WPai:=Form.WPai
+	
+End if 

Project/Sources/Forms/D_AI_Prompt/ObjectMethods/WParea.4dm

@@ -0,0 +1,7 @@
+Case of 
+	: (Form event code:C388=On Selection Change:K2:29)
+		SET TIMER:C645(10)
+		
+End case 
+
+

Project/Sources/Forms/D_AI_Prompt/ObjectMethods/btnClear.4dm

@@ -0,0 +1,22 @@
+CONFIRM:C162(Localized string:C991("ClearHistory"))
+If (ok=1)
+	
+	
+	
+	
+	var $aiParameters : Object
+	
+	$aiParameters:=New object:C1471
+	
+	$aiParameters.apiKey:=Form:C1466.apiKey
+	$aiParameters.windowID:=Form:C1466.windowID
+	
+	$aiParameters.function:="Reset Context"
+	$aiParameters.callbackAction:="Reset Context"
+	
+	Form:C1466._extra.state:=1  // running
+	AI Call($aiParameters)
+	
+	SET TIMER:C645(-1)
+	
+End if 

Project/Sources/Forms/D_AI_Prompt/ObjectMethods/btn_ClipboardAsStyledText.4dm

@@ -0,0 +1,6 @@
+
+GOTO OBJECT:C206(*; "WParea")
+Form:C1466._extra.timer:="copy"
+SET TIMER:C645(-1)
+
+

Project/Sources/Forms/D_AI_Prompt/ObjectMethods/btn_ClipboardAsText.4dm

@@ -0,0 +1,5 @@
+var $text : Text
+$text:=WP Get text:C1575(WP Selection range:C1340(*; "WParea"); wk expressions as value:K81:255)
+
+CLEAR PASTEBOARD:C402
+SET TEXT TO PASTEBOARD:C523($text)