ACI0105031

Author: Roland-Lannuzel

Project/Sources/Methods/UI_PaletteInfos.4dm

@@ -2,8 +2,8 @@
 // modifiée le 10/oct 2018 par RL
 // ACI0098592
 
-C_LONGINT:C283($grey)
-C_LONGINT:C283($typeSelection)
+var $grey : Integer
+var $typeSelection : Integer
 
 If (UI_isProtected(False:C215))  // false means don't take focus into account
 
@@ -57,6 +57,6 @@ Else
 	//OBJECT SET ENTERABLE(*;"Expression";False) // RL 2019/12/02
 	OBJECT SET ENTERABLE:C238(*; "VirtualExpression"; False:C215)  // RL 2019/12/02
 
-	OBJECT SET HELP TIP:C1181(*; "btn_displayAsSymbol"; Get action info:C1442("displayFormulaAsSymbol").title)
+	OBJECT SET HELP TIP:C1181(*; "btn_displayAsSymbol"; Action info:C1442("displayFormulaAsSymbol").title)
 
 End if 

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