#PB_FileSystem_Link not detecting on 6.10 LTS on Sonoma 14.4.1
Posted: Fri Apr 12, 2024 1:57 pm
Hello,
I've written an app that deals with file and directory attributes and the #PB_File... attributes all seem to work fine except for #PB_FileSystem_Link. I've tested the same app/code on Linux and it is detecting linked files fine, but it is no longer detecting them on MacOS for me. It worked fine on Monterey and with, I believe, 6.04, but with Sonoma 14.4.1 and PB 6.10 LTS (demo) it no longer seems to be detecting linked files. Here's my code sample (sorry, forgot to include it initially):
CheckBoxGadget(49, 10, 40, 250, 20, "Is Link")
DisableGadget(49, #True)
Value = GetFileAttributes(File$)
If Value = -1
Debug "Error reading file attributes!"
Else
If Value & #PB_FileSystem_Link : DisableGadget(49, #False) :SetGadgetState(49,#PB_Checkbox_Checked) : DisableGadget(49, #True) : EndIf
If Value & #PB_FileSystem_ReadUser : SetGadgetState(2,#PB_Checkbox_Checked) : EndIf
If Value & #PB_FileSystem_WriteUser : SetGadgetState(3,#PB_Checkbox_Checked) : EndIf
If Value & #PB_FileSystem_ExecUser : SetGadgetState(4,#PB_Checkbox_Checked) : EndIf
If Value & #PB_FileSystem_ReadGroup : SetGadgetState(5,#PB_Checkbox_Checked) : EndIf
If Value & #PB_FileSystem_WriteGroup: SetGadgetState(6,#PB_Checkbox_Checked) : EndIf
If Value & #PB_FileSystem_ExecGroup : SetGadgetState(7,#PB_Checkbox_Checked) : EndIf
If Value & #PB_FileSystem_ReadAll : SetGadgetState(8,#PB_Checkbox_Checked) : EndIf
If Value & #PB_FileSystem_WriteAll : SetGadgetState(9,#PB_Checkbox_Checked) : EndIf
If Value & #PB_FileSystem_ExecAll : SetGadgetState(10,#PB_Checkbox_Checked) : EndIf
EndIf
I've written an app that deals with file and directory attributes and the #PB_File... attributes all seem to work fine except for #PB_FileSystem_Link. I've tested the same app/code on Linux and it is detecting linked files fine, but it is no longer detecting them on MacOS for me. It worked fine on Monterey and with, I believe, 6.04, but with Sonoma 14.4.1 and PB 6.10 LTS (demo) it no longer seems to be detecting linked files. Here's my code sample (sorry, forgot to include it initially):
CheckBoxGadget(49, 10, 40, 250, 20, "Is Link")
DisableGadget(49, #True)
Value = GetFileAttributes(File$)
If Value = -1
Debug "Error reading file attributes!"
Else
If Value & #PB_FileSystem_Link : DisableGadget(49, #False) :SetGadgetState(49,#PB_Checkbox_Checked) : DisableGadget(49, #True) : EndIf
If Value & #PB_FileSystem_ReadUser : SetGadgetState(2,#PB_Checkbox_Checked) : EndIf
If Value & #PB_FileSystem_WriteUser : SetGadgetState(3,#PB_Checkbox_Checked) : EndIf
If Value & #PB_FileSystem_ExecUser : SetGadgetState(4,#PB_Checkbox_Checked) : EndIf
If Value & #PB_FileSystem_ReadGroup : SetGadgetState(5,#PB_Checkbox_Checked) : EndIf
If Value & #PB_FileSystem_WriteGroup: SetGadgetState(6,#PB_Checkbox_Checked) : EndIf
If Value & #PB_FileSystem_ExecGroup : SetGadgetState(7,#PB_Checkbox_Checked) : EndIf
If Value & #PB_FileSystem_ReadAll : SetGadgetState(8,#PB_Checkbox_Checked) : EndIf
If Value & #PB_FileSystem_WriteAll : SetGadgetState(9,#PB_Checkbox_Checked) : EndIf
If Value & #PB_FileSystem_ExecAll : SetGadgetState(10,#PB_Checkbox_Checked) : EndIf
EndIf