Skip to content

Commit 0641404

Browse files
vdelachauxvdelachaux
committed
Add quick-open actions: Create a symbolic link and Recover the window
1 parent 6a7979f commit 0641404

File tree

14 files changed

+59
-10
lines changed

14 files changed

+59
-10
lines changed

‎Build/4DPop.dmg

2.32 KB
Binary file not shown.

‎Build/4DPop.zip

2.89 KB
Binary file not shown.

‎Build/Components/4DPop.4dbase/4DPop.4DZ

1.81 KB
Binary file not shown.

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

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -6,15 +6,15 @@
66
<key>NSHumanReadableCopyright</key>
77
<string>©vdl 2007-2024</string>
88
<key>CFBundleVersion</key>
9-
<string>260</string>
9+
<string>263</string>
1010
<key>CFBundleDisplayName</key>
1111
<string>4DPop</string>
1212
<key>CFBundleShortVersionString</key>
1313
<string>20R6</string>
1414
<key>CFBundleGetInfoString</key>
1515
<string>20R6</string>
1616
<key>CFBundleLongVersionString</key>
17-
<string>20R6 (259)</string>
17+
<string>20R6 (262)</string>
1818
<key>CFBundleName</key>
1919
<string>4DPop</string>
2020
</dict>

‎Build/Components/4DPop.4dbase/Libraries/lib4d-arm64.dylib

432 Bytes
Binary file not shown.

‎Build/Components/4DPop.4dbase/Resources/InfoPlist.strings

0 Bytes
Binary file not shown.

‎Info.plist

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -6,15 +6,15 @@
66
<key>NSHumanReadableCopyright</key>
77
<string>©vdl 2007-2024</string>
88
<key>CFBundleVersion</key>
9-
<string>260</string>
9+
<string>263</string>
1010
<key>CFBundleDisplayName</key>
1111
<string>4DPop</string>
1212
<key>CFBundleShortVersionString</key>
1313
<string>20R6</string>
1414
<key>CFBundleGetInfoString</key>
1515
<string>20R6</string>
1616
<key>CFBundleLongVersionString</key>
17-
<string>20R6 (259)</string>
17+
<string>20R6 (262)</string>
1818
<key>CFBundleName</key>
1919
<string>4DPop</string>
2020
</dict>

‎Project/Sources/DatabaseMethods/onHostDatabaseEvent.4dm

Lines changed: 12 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -24,6 +24,18 @@ Case of
2424
//________________________________________
2525
: ($eventCode=On after host database startup:K74:4)
2626

27+
If (Not:C34(Is compiled mode:C492))
28+
29+
ARRAY TEXT:C222($componentsArray; 0)
30+
COMPONENT LIST:C1001($componentsArray)
31+
32+
If (Find in array:C230($componentsArray; "4DPop QuickOpen")>0)
33+
34+
INSTALL ACTIONS
35+
36+
End if
37+
End if
38+
2739
DISPLAY 4DPOP STRIP
2840

2941
//________________________________________

‎Project/Sources/DatabaseMethods/onStartup.4dm

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -9,6 +9,8 @@ If (Not:C34(Is compiled mode:C492))
99
EXECUTE METHOD:C1007("quickOpenInit"; *; Formula:C1597(MODIFIERS); Formula:C1597(KEYCODE))
1010
ON EVENT CALL:C190("quickOpenEventHandler"; "$quickOpenListener")
1111

12+
INSTALL ACTIONS
13+
1214
End if
1315
End if
1416

‎Project/Sources/Methods/INSTALL ACTIONS.4dm

Lines changed: 11 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,11 @@
1+
//%attributes = {"invisible":true}
2+
3+
EXECUTE METHOD:C1007("quickOpenPushAction"; *; {\
4+
name: "Make symbolic link"; \
5+
shortcut: "link"; \
6+
formula: Formula:C1597(makeSymbolicLink)})
7+
8+
EXECUTE METHOD:C1007("quickOpenPushAction"; *; {\
9+
name: "Recover the window"; \
10+
shortcut: "window"; \
11+
formula: Formula:C1597(recoverWindow)})

‎Project/Sources/Methods/makeSymbolicLink.4dm

Lines changed: 13 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,13 @@
1+
//%attributes = {"preemptive":"incapable"}
2+
#DECLARE($destination : 4D:C1709.Folder)
3+
4+
var $fullName : Text
5+
$fullName:=Select document:C905(8858; ""; "Select the symbolic link target:"; 0)
6+
7+
If (Bool:C1537(OK))
8+
9+
var $file : 4D:C1709.File
10+
$file:=File:C1566(DOCUMENT; fk platform path:K87:2)
11+
$file.createAlias($destination || Folder:C1567(fk desktop folder:K87:19); $file.fullName; fk symbolic link:K87:4)
12+
13+
End if

‎Project/Sources/dependencies.json

Lines changed: 13 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -2,18 +2,27 @@
22
"dependencies": {
33
"4DPop": {
44
"github": "vdelachaux/4DPop",
5-
"tag":"20.6.0"
5+
"tag": "20.6.2"
6+
},
7+
"4DPop AppMaker": {
8+
"github": "vdelachaux/4DPop-AppMaker",
9+
"tag": "20.6.0"
10+
},
11+
"4DPop Git": {
12+
"github": "vdelachaux/4DPop-Git",
13+
"tag": "20.6.0"
14+
},
15+
"4DPop Macros": {
16+
"github": "vdelachaux/4DPop-Macros",
17+
"tag": "20.6.2"
618
},
7-
"4DPop AppMaker": {},
819
"4DPop Bookmarks": {},
920
"4DPop Clipboard": {},
1021
"4DPop ColorChart": {},
1122
"4DPop Commands": {},
1223
"4DPop Constants Editor": {},
13-
"4DPop Git": {},
1424
"4DPop Image Buddy": {},
1525
"4DPop KeepIt": {},
16-
"4DPop Macros": {},
1726
"4DPop Pasteboard": {},
1827
"4DPop QuickOpen": {},
1928
"4DPop Rulers": {},

‎Project/Sources/folders.json

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -50,7 +50,8 @@
5050
"methods": [
5151
"_STRIP_Controller",
5252
"COMPILER_MAIN",
53-
"DISPLAY 4DPOP STRIP"
53+
"DISPLAY 4DPOP STRIP",
54+
"INSTALL ACTIONS"
5455
],
5556
"forms": [
5657
"ABOUT",
@@ -64,7 +65,8 @@
6465
},
6566
"🛠️ Tools": {
6667
"methods": [
67-
"getWindowOffsets"
68+
"getWindowOffsets",
69+
"makeSymbolicLink"
6870
]
6971
},
7072
"database": {

‎Resources/InfoPlist.strings

0 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)