Merge pull request #2 from vdelachaux/1-error-if-a-non-existing-metho…

…dclass-is-entered

bf listbox.select

Build/Components/4DPop QuickOpen.4dbase/Info.plist

@@ -6,15 +6,15 @@
     <key>NSHumanReadableCopyright</key>
     <string>©vdl 2021-2024</string>
     <key>CFBundleVersion</key>
-    <string>87</string>
+    <string>88</string>
     <key>CFBundleDisplayName</key>
     <string>4DPop QuickOpen</string>
     <key>CFBundleShortVersionString</key>
-    <string>20R6</string>
+    <string>20R7</string>
     <key>CFBundleGetInfoString</key>
-    <string>20R6</string>
+    <string>20R7</string>
     <key>CFBundleLongVersionString</key>
-    <string>20R6 (86)</string>
+    <string>20R7 (87)</string>
     <key>CFBundleName</key>
     <string>4DPop QuickOpen</string>
   </dict>

Info.plist

@@ -6,15 +6,15 @@
     <key>NSHumanReadableCopyright</key>
     <string>©vdl 2021-2024</string>
     <key>CFBundleVersion</key>
-    <string>87</string>
+    <string>88</string>
     <key>CFBundleDisplayName</key>
     <string>4DPop QuickOpen</string>
     <key>CFBundleShortVersionString</key>
-    <string>20R6</string>
+    <string>20R7</string>
     <key>CFBundleGetInfoString</key>
-    <string>20R6</string>
+    <string>20R7</string>
     <key>CFBundleLongVersionString</key>
-    <string>20R6 (86)</string>
+    <string>20R7 (87)</string>
     <key>CFBundleName</key>
     <string>4DPop QuickOpen</string>
   </dict>

Project/4DPop QuickOpen.4DProject

@@ -1,5 +1,5 @@
 {
 	"$comment": "The project file serves as an anchor to locate other project files",
 	"compatibilityVersion": 1860,
-	"$4DPopAppMakerToolVersion": "20R6"
+	"$4DPopAppMakerToolVersion": "20R7"
 }

Project/Sources/Classes/coord.4dm

@@ -3,8 +3,6 @@ property left; top; right; bottom : Integer
 
 Class constructor($left; $top : Integer; $right : Integer; $bottom : Integer)
 
-	This:C1470.name:=Null:C1517
-
 	Case of 
 
 			//______________________________________________________

Project/Sources/Classes/listbox.4dm

@@ -689,9 +689,22 @@ Function select($row : Integer) : cs:C1710.listbox
 	// Update selection
 	If (This:C1470.isCollection() || This:C1470.isEntitySelection())
 
-		This:C1470.item:=This:C1470.getValue()[$row-1]
-		This:C1470.itemPosition:=$row-1
-		This:C1470.items:=[This:C1470.item]
+		var $c : Collection
+		$c:=This:C1470.getValue()
+
+		If ($c.length>=$row)
+
+			This:C1470.item:=$c[$row-1]
+			This:C1470.itemPosition:=$row-1
+			This:C1470.items:=[This:C1470.item]
+
+		Else 
+
+			This:C1470.item:=Null:C1517
+			This:C1470.itemPosition:=0
+			This:C1470.items:=[]
+
+		End if 
 
 	Else 
 

Project/Sources/Classes/menu.4dm

@@ -8,7 +8,6 @@ Class constructor($def)
 
 	This:C1470.__CLASS__:=OB Class:C1730(This:C1470)
 
-	This:C1470.ref:=Null:C1517
 	This:C1470.autoRelease:=True:C214
 	This:C1470.released:=False:C215
 	This:C1470.localize:=True:C214