Premier push AI

Author: Roland-Lannuzel

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)

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

@@ -0,0 +1,6 @@
+var $doc : Object
+
+$doc:=WP New:C1317(WP Selection range:C1340(*; "WParea"))
+WP Insert document body:C1411(Form:C1466.wpSelection; $doc; wk replace:K81:177)
+
+