ACI0103861 fixed v20

Author: delahaye-4D

Project/Sources/Forms/WP_Palette_Fonts/method.4dm

@@ -3,7 +3,16 @@ C_BOOLEAN:C305($setupOK)
 C_LONGINT:C283($typeSelection)
 
 $paletteID:=1
-$typeSelection:=Form:C1466.selection.type
+
+// ACI0103861
+Case of 
+	: (Form:C1466.selection=Null:C1517)
+	: (Value type:C1509(Form:C1466.selection.type)#Is real:K8:4)
+	Else 
+		$typeSelection:=Form:C1466.selection.type
+End case 
+
+
 
 Case of 
 	: (Form event code:C388=On Load:K2:1)

Project/Sources/Methods/UI_isProtected.4dm

@@ -1,9 +1,9 @@
 //%attributes = {"invisible":true}
-  // This method returns TRUE if the area is NOT enterable
-C_BOOLEAN:C305($1;$manageFocus)
+// This method returns TRUE if the area is NOT enterable
+C_BOOLEAN:C305($1; $manageFocus)
 C_BOOLEAN:C305($0)
 C_BOOLEAN:C305($protected)
-C_LONGINT:C283($protectedDoc;$protectedSel)
+C_LONGINT:C283($protectedDoc; $protectedSel)
 
 $protected:=False:C215  // NOT protected by default
 
@@ -23,26 +23,26 @@ If (Not:C34($protected))  // still not protected ?
 		$protected:=Not:C34(Form:C1466.enterable)
 	End if 
 
-	If (Not:C34($protected))  // still not protected ?
+	If (Not:C34($protected)) && (Form:C1466.selection#Null:C1517)  // still not protected ? // ACI0103861
 
-		WP GET ATTRIBUTES:C1345(Form:C1466.selection.owner;wk protection enabled:K81:307;$protectedDoc)  // 1 protection enabled, 0 protection disabled
-		WP GET ATTRIBUTES:C1345(Form:C1466.selection;wk protected:K81:306;$protectedSel)  // 1 protected, 0 not protected, wk mixed= semi protected
+		WP Get attributes:C1345(Form:C1466.selection.owner; wk protection enabled:K81:307; $protectedDoc)  // 1 protection enabled, 0 protection disabled
+		WP Get attributes:C1345(Form:C1466.selection; wk protected:K81:306; $protectedSel)  // 1 protected, 0 not protected, wk mixed= semi protected
 		$protected:=(($protectedDoc#0) & ($protectedSel#0))
 
-		  //If (Not($protected))  // still not protected ?
+		//If (Not($protected))  // still not protected ?
 
-		  //$actionInfo:=Get action info(wk border style)  // works for text as for pictures !
+		//$actionInfo:=Get action info(wk border style)  // works for text as for pictures !
 
-		  //If (OB Is defined($actionInfo;"enabled"))  //action is defined in the process
-		  //$protected:=Not($actionInfo.enabled)
-		  //End if 
+		//If (OB Is defined($actionInfo;"enabled"))  //action is defined in the process
+		//$protected:=Not($actionInfo.enabled)
+		//End if 
 
-		  //  //If (Not($protected))  // still not protected ?
-		  //  //If (Not($protected))  // still not protected ?
-		  //  //End if 
-		  //  //End if 
+		//  //If (Not($protected))  // still not protected ?
+		//  //If (Not($protected))  // still not protected ?
+		//  //End if 
+		//  //End if 
 
-		  //End if 
+		//End if 
 	End if 
 End if