initial commit

.gitattributes

@@ -0,0 +1,42 @@
+# ====================================================================
+# Basic .gitattributes for a 4D repo.
+# ====================================================================
+
+* text=auto
+
+# ====================================================================
+# The above will handle all files NOT found below
+# ====================================================================
+
+# These files are text and should be normalized (Convert crlf => lf)
+#.gitattributes     text      linguist-language=gitattributes
+#.gitignore         text
+*.md                text
+*.ini               text
+*.xlf                         linguist-language=xml   diff=xml
+
+# SVG treated as text.
+# If you want to treat it as binary,comment the next line.
+*.svg               text                                diff=xml
+
+# Source files
+*.4DProject         text      linguist-language=4d    diff=json
+*.4DCatalog         text      linguist-language=4d    diff=xml
+*.4DSettings        text      linguist-language=4d    diff=xml
+*.4DForm            text      linguist-language=4d    diff=json
+*.4dm               text      linguist-language=4d
+*.4lbp              text      linguist-language=4d    diff=xml
+*.4df               text      linguist-language=4d    diff=json
+
+# ====================================================================
+# Binary
+# ====================================================================
+*.4DZ               binary    linguist-language=4d
+*.4DD               binary    linguist-language=4d
+*.4DIndy            binary    linguist-language=4d
+*.Match             binary    linguist-language=4d
+*.4DIndx            binary    linguist-language=4d
+*.4[dD][bB]         binary    linguist-language=4d
+*.[dD][aA][tT][aA]  binary    linguist-language=4d
+*.4lb               binary    linguist-language=4d
+*.4qr               binary    linguist-language=4d

.gitignore

@@ -0,0 +1,53 @@
+#--------------------------------
+# Ignore invisible files/folders
+#--------------------------------
+.*
+!.git*
+
+.git/
+
+#--------------------------------
+# Ignore data file
+#--------------------------------
+[dD][aA][tT][aA]/
+*.4DD
+*.4DIndx
+*.4DIndy
+*.Match
+*.journal
+
+#--------------------------------
+# Ignore derived data
+#--------------------------------
+Project/DerivedData/
+
+#--------------------------------
+# Ignore logs
+#--------------------------------
+Logs/
+
+#--------------------------------
+# Ignore settings & preferences
+#--------------------------------
+Preferences/
+!4DPop AppMaker.*
+
+Settings/
+#!buildApp.4DSettings
+
+userPreferences.*/
+
+#--------------------------------
+# Miscellaneous
+#--------------------------------
+*__Orphan__*
+*symbols.txt
+ehthumbs.db
+Thumbs.db
+
+#--------------------------------
+# Added by user
+#--------------------------------
+
+Resources/php.ini
+Libraries/lib4d-arm64.dylib

Build/Components/4DPop QuickOpen.4dbase/Documentation/Methods/QUICK_OPEN.md

@@ -0,0 +1 @@
+# QUICK_OPEN Method Documentation

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

@@ -0,0 +1 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no" ?><!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd"><plist version="1.0">  <dict>    <key>NSHumanReadableCopyright</key>    <string>©VDL 2021</string>    <key>CFBundleVersion</key>    <string>4</string>    <key>CFBundleDisplayName</key>    <string>4DPop QuickOpen</string>    <key>CFBundleShortVersionString</key>    <string>19</string>    <key>CFBundleGetInfoString</key>    <string>4DPop QuickOpen</string>    <key>CFBundleLongVersionString</key>    <string>19</string>    <key>CFBundleName</key>    <string>4DPop QuickOpen</string>  </dict></plist>

Build/Components/4DPop QuickOpen.4dbase/Resources/4DPop.xml

@@ -0,0 +1,4 @@
+<?xml version="1.0" encoding="utf-8" standalone="no"?>
+<tools name="QuickOpen" picture="4DPop.png">
+  <tool method="QUICK_OPEN"/>
+</tools>

Build/Components/4DPop QuickOpen.4dbase/Resources/en.lproj/quickOpen.xlf

@@ -0,0 +1 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no" ?><xliff version="1.0" xmlns:d4="http://www.4d.com/d4-ns">  <file datatype="plaintext" original="Undefined" source-language="en" target-language="en">    <header>      <prop-group name="Xliff-Editor.4dbase">        <prop prop-type="version">2.0</prop>      </prop-group>    </header>    <body>      <group resname="menus">        <trans-unit id="sC3PW67HxOv2I1SkltJ+dg" resname="edit">          <source>Edit…</source>          <target>Edit…</target>        </trans-unit>        <trans-unit id="utqdUDjh462BvOODiTsqBg" resname="editFormMethod">          <source>Edit Form Method…</source>          <target>Edit Form Method…</target>        </trans-unit>        <trans-unit id="PRuwuLRBjtNrd6UOLcnXkg" resname="editDocumentation">          <source>Edit documentation…</source>          <target>Edit documentation…</target>        </trans-unit>        <trans-unit id="sN9ta23G2yZ1z2o58yhmRA" resname="showSourceFile">          <source>Show source file…</source>          <target>Show source file…</target>        </trans-unit>        <trans-unit id="O/QURV4hvEm/+HGchXFi/g" resname="showDocumentationFile">          <source>Show documentation file…</source>          <target>Show documentation file…</target>        </trans-unit>        <trans-unit id="SI2nsgBXuHXPi+iueT9NdQ" resname="copyTheName">          <source>Copy the name</source>          <target>Copy the name</target>        </trans-unit>        <trans-unit id="F8ptmXf3ouRXJkVq5lk9kw" resname="deleteSourceFile">          <source>Delete source file…</source>          <target>Delete source file…</target>        </trans-unit>        <trans-unit id="AprXhleoKnv9GxJxL0kKdg" resname="deleteDocumentation">          <source>Delete documentation…</source>          <target>Delete documentation…</target>        </trans-unit>        <trans-unit id="Y6DnJUSQjzae6Lq4ABvs1A" resname="deleteFormMethod">          <source>Delete Form Method…</source>          <target>Delete Form Method…</target>        </trans-unit>        <trans-unit id="vAQr/W7VESO3Y3n/YRWL7Q" resname="createDocumentation">          <source>Create documentation…</source>          <target>Create documentation…</target>        </trans-unit>      </group>      <group resname="messages">        <trans-unit id="pHOpyUTeQFCb8+CpIVCHCA" resname="areYouSureYouWantToDeleteTheTypeItem">          <source>Are you sure you want to delete the "{type}" "{item}"?</source>          <target>Are you sure you want to delete the "{type}" "{item}"?</target>        </trans-unit>        <trans-unit id="rgwLIrRHCm+KdF3NfoQhmA" resname="delete">          <source>Delete</source>          <target>Delete</target>        </trans-unit>        <trans-unit id="suT0nFRmsAmMgGR8jgNO7g" resname="keepIt">          <source>Keep</source>          <target>Keep</target>        </trans-unit>        <trans-unit id="8mugSe2nYQxqbiPMFIqeag" resname="areYouSureYouWantToDeleteTheDocumentationForTypeItem">          <source>Are you sure you want to delete the documentation for the {type} "{item}"?</source>          <target>Are you sure you want to delete the documentation for the {type} "{item}"?</target>        </trans-unit>      </group>    </body>  </file></xliff>

Build/Components/4DPop QuickOpen.4dbase/Resources/fr.lproj/quickOpen.xlf

@@ -0,0 +1 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no" ?><xliff version="1.0" xmlns:d4="http://www.4d.com/d4-ns">  <file datatype="plaintext" original="Undefined" source-language="en" target-language="fr">    <header>      <prop-group name="Xliff-Editor.4dbase">        <prop prop-type="version">2.0</prop>      </prop-group>    </header>    <body>      <group resname="menus">        <trans-unit id="sC3PW67HxOv2I1SkltJ+dg" resname="edit">          <source>Edit…</source>          <target>Éditer…</target>        </trans-unit>        <trans-unit id="utqdUDjh462BvOODiTsqBg" resname="editFormMethod">          <source>Edit Form Method…</source>          <target>Éditer la méthode du formulaire...</target>        </trans-unit>        <trans-unit id="PRuwuLRBjtNrd6UOLcnXkg" resname="editDocumentation">          <source>Edit documentation…</source>          <target>Editer la documentation...</target>        </trans-unit>        <trans-unit id="sN9ta23G2yZ1z2o58yhmRA" resname="showSourceFile">          <source>Show source file…</source>          <target>Montrer le fichier source...</target>        </trans-unit>        <trans-unit id="O/QURV4hvEm/+HGchXFi/g" resname="showDocumentationFile">          <source>Show documentation file…</source>          <target>Montrer le fichier de documentation...</target>        </trans-unit>        <trans-unit id="SI2nsgBXuHXPi+iueT9NdQ" resname="copyTheName">          <source>Copy the name</source>          <target>Copier le nom</target>        </trans-unit>        <trans-unit id="F8ptmXf3ouRXJkVq5lk9kw" resname="deleteSourceFile">          <source>Delete source file…</source>          <target>Supprimer le fichier source...</target>        </trans-unit>        <trans-unit id="AprXhleoKnv9GxJxL0kKdg" resname="deleteDocumentation">          <source>Delete documentation…</source>          <target>Supprimer la documentation...</target>        </trans-unit>        <trans-unit id="Y6DnJUSQjzae6Lq4ABvs1A" resname="deleteFormMethod">          <source>Delete Form Method…</source>          <target>Supprimer la méthode formulaire...</target>        </trans-unit>        <trans-unit id="vAQr/W7VESO3Y3n/YRWL7Q" resname="createDocumentation">          <source>Create documentation…</source>          <target>Créer la documentation...</target>        </trans-unit>      </group>      <group resname="messages">        <trans-unit id="pHOpyUTeQFCb8+CpIVCHCA" resname="areYouSureYouWantToDeleteTheTypeItem">          <source>Are you sure you want to delete the "{type}" "{item}"?</source>          <target>Êtes-vous sûr de vouloir supprimer le "{type}" "{item}" ?</target>        </trans-unit>        <trans-unit id="rgwLIrRHCm+KdF3NfoQhmA" resname="delete">          <source>Delete</source>          <target>Supprimer</target>        </trans-unit>        <trans-unit id="suT0nFRmsAmMgGR8jgNO7g" resname="keepIt">          <source>Keep</source>          <target>Gardez</target>        </trans-unit>        <trans-unit id="8mugSe2nYQxqbiPMFIqeag" resname="areYouSureYouWantToDeleteTheDocumentationForTypeItem">          <source>Are you sure you want to delete the documentation for the {type} "{item}"?</source>          <target>Êtes-vous sûr de vouloir supprimer la documentation de {type} "{item}" ?</target>        </trans-unit>      </group>    </body>  </file></xliff>

Documentation/Methods/QUICK_OPEN.md

@@ -0,0 +1 @@
+# QUICK_OPEN Method Documentation

Info.plist

@@ -0,0 +1 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no" ?><!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd"><plist version="1.0">  <dict>    <key>NSHumanReadableCopyright</key>    <string>©VDL 2021</string>    <key>CFBundleVersion</key>    <string>4</string>    <key>CFBundleDisplayName</key>    <string>4DPop QuickOpen</string>    <key>CFBundleShortVersionString</key>    <string>19</string>    <key>CFBundleGetInfoString</key>    <string>4DPop QuickOpen</string>    <key>CFBundleLongVersionString</key>    <string>19</string>    <key>CFBundleName</key>    <string>4DPop QuickOpen</string>  </dict></plist>

Project/4DPop QuickOpen.4DProject

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

Project/Sources/Classes/button.4dm

@@ -0,0 +1,128 @@
+Class extends widget
+
+//═════════════════════════════════════════════════
+Class constructor($name : Text; $datasource)
+
+	If (Count parameters:C259>=2)
+
+		Super:C1705($name; $datasource)
+
+	Else 
+
+		Super:C1705($name)
+
+	End if 
+
+/*═════════════════════════════════════════════════
+Tryes to underline the first capital letter or, 
+if not found the first letter, corresponding to 
+the associated key shortcut
+*/
+Function highlightShortcut()->$this : Object
+
+	C_LONGINT:C283($index; $lModifier)
+	C_TEXT:C284($key; $t)
+
+	OBJECT GET SHORTCUT:C1186(*; This:C1470.name; $key; $lModifier)
+
+	If (Length:C16($key)>0)
+
+		$t:=This:C1470.getTitle()
+
+		$index:=Position:C15(Uppercase:C13($key); $t; *)
+
+		If ($index=0)
+
+			$index:=Position:C15($key; $t)
+
+		End if 
+
+		If ($index>0)
+
+			This:C1470.setTitle(Substring:C12($t; 1; $index)+Char:C90(0x0332)+Substring:C12($t; $index+1))
+
+		End if 
+	End if 
+
+	$this:=This:C1470
+
+/*═════════════════════════════════════════════════
+Association of a pop-up menu with a 3D button
+	
+If no parameter, the pop menu is removed, if any, 
+else, possible values are:
+	
+   • 0 or "none": No pop-up menu
+   • 1 or "linked": With linked pop-up menu
+   • 2 or "separate": With separate pop-up menu
+*/
+Function setPopupMenu($value : Variant)->$this : Object
+
+	If (This:C1470.type=Object type 3D button:K79:17)
+
+		If (Count parameters:C259>=1)
+
+			If (Value type:C1509($value)=Is text:K8:3)
+
+				Case of 
+						//______________________________________________________
+					: ($value="none")
+
+						This:C1470.setFormat(";;;;;;;;;;0")
+
+						//______________________________________________________
+					: ($value="linked")
+
+						This:C1470.setFormat(";;;;;;;;;;1")
+
+						//______________________________________________________
+					: ($value="separate")
+
+						This:C1470.setFormat(";;;;;;;;;;2")
+
+
+						//______________________________________________________
+					Else 
+
+						// #ERROR
+
+						//______________________________________________________
+				End case 
+
+			Else 
+
+				This:C1470.setFormat(";;;;;;;;;;"+String:C10(Num:C11($value)))
+
+			End if 
+
+		Else 
+
+			This:C1470.setFormat(";;;;;;;;;;0")
+
+		End if 
+
+	Else 
+
+		// #ERROR
+
+	End if 
+
+	$this:=This:C1470
+
+/*═════════════════════════════════════════════════
+A hack to force a button to be boolean type
+	
+⚠️ Obsolete in project mode because you can 
+   choose the type for the checkboxes
+*/
+Function asBoolean->$this : Object
+
+	If (This:C1470.type=Object type checkbox:K79:26)
+		If (This:C1470.assignable)
+
+			EXECUTE FORMULA:C63(":C305((:C1124(:K67:5;This.name))->)")
+
+		End if 
+	End if 
+
+	$this:=This:C1470