ACI0105031 integration in 20R7

Author: Roland-Lannuzel

Project/Sources/Methods/WP_SetURL.4dm

@@ -4,20 +4,24 @@ var $ptrLabel; $ptrURL : Pointer
 var $_URLs : Collection
 var $range1; $range2 : Object
 var $start; $end : Integer
+var $label; $URL : Text  // ACI0105031
 
 $ptrLabel:=OBJECT Get pointer:C1124(Object named:K67:5; "URLlabel")
 $ptrURL:=OBJECT Get pointer:C1124(Object named:K67:5; "URLurl")
 
 If (Not:C34((Is nil pointer:C315($ptrLabel)) | (Is nil pointer:C315($ptrURL))))
 
+	$label:=$ptrLabel->  // ACI0105031
+	$URL:=$ptrURL->  // ACI0105031
+	
 	$_URLs:=WP Get links:C1643(Form:C1466.selection)
 	If ($_URLs.length>0)
 
 
 		// text currenttly selected in the area
 		$range1:=Form:C1466.selection
 
-		If (($ptrURL->)#"")
+		If ($URL#"")  // ACI0105031
 
 			// range of the first URL
 			$range2:=WP Text range:C1341(Form:C1466.selection.owner; $_URLs[0].range.start; $_URLs[0].range.end)
@@ -43,7 +47,16 @@ If (Not:C34((Is nil pointer:C315($ptrLabel)) | (Is nil pointer:C315($ptrURL))))
 
 	End if 
 
-	WP SET ATTRIBUTES:C1342($range1; wk link url:K81:202; $ptrURL->)
-	WP SET TEXT:C1574($range1; $ptrLabel->; wk replace:K81:177)
+	// user friendly help // ACI0105031 
+	If ($URL="www@")
+		$URL:="http://"+$URL
+	End if 
+	
+	Try  // ACI0105031 
+		WP SET TEXT:C1574($range1; $label; wk replace:K81:177)  // ACI0105031  (two lines of code switched… the label must be set FIRST)
+		WP SET ATTRIBUTES:C1342($range1; wk link url:K81:202; $URL)  // ACI0105031   (two lines of code switched… the label must be set FIRST)
+		//Catch
+		//ALERT("An error occured while setting the URL") // to be translated
+	End try
 
 End if