ExplorerListGadget OFF

[SPH]

Hi,

After a long time without coding, I lost my touch.
Here is a minimalistic code that I hope is complete.
Is it?
Another question: why don't I have the list of files in ExplorerListGadget?

Code: Select all

If OpenWindow(0, 0, 0, 760,480, "ExplorerTreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
  ExplorerTreeGadget(1, 11, 73, 230, 280, Repertoire$, #PB_Explorer_NoFiles)
  ExplorerListGadget(2, 247,73,490,280, "*.*", #PB_Explorer_NoFolders|#PB_Explorer_NoParentFolder)
  SendMessage_(GadgetID(2),#LVM_SETCOLUMNWIDTH,0,188) ; largeur colonne
  SendMessage_(GadgetID(2),#LVM_SETCOLUMNWIDTH,1,80)  ; largeur colonne
  Repeat
    Select EventGadget()
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; menu contextuel  
      Case 1 ; Afficher les fichiers du répertoire sélectionné
        Select type
          Case #PB_EventType_LeftClick
        EndSelect
    EndSelect
  Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf 

[jacdelad]

Your loop is crooked:" type" is not defined nor ever gets a value assigned and after klicking an item in the left list, you do...nothing.

Code: Select all

If OpenWindow(0, 0, 0, 760,480, "ExplorerTreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
  ExplorerTreeGadget(1, 11, 73, 230, 280, Repertoire$, #PB_Explorer_NoFiles)
  ExplorerListGadget(2, 247,73,490,280, "*.*", #PB_Explorer_NoFolders|#PB_Explorer_NoParentFolder)
  SendMessage_(GadgetID(2),#LVM_SETCOLUMNWIDTH,0,188) ; largeur colonne
  SendMessage_(GadgetID(2),#LVM_SETCOLUMNWIDTH,1,80)  ; largeur colonne
  Repeat
    Select EventGadget()
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; menu contextuel  
      Case 1 ; Afficher les fichiers du répertoire sélectionné
        Select EventType()
          Case #PB_EventType_LeftClick
            SetGadgetText(2,GetGadgetText(1))
        EndSelect
    EndSelect
  Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf 

[SPH]

Thanks

[infratec]

Code: Select all

EnableExplicit

[SPH]

But be aware that a codes which worked on PB 5.73_x64 no longer work on PB 6.x_x64

[jacdelad]

But be aware that a codes which worked on PB 5.73_x64 no longer work on PB 6.x_x64

I wouldn't generalize it that way...

[Quin]

But be aware that a codes which worked on PB 5.73_x64 no longer work on PB 6.x_x64

It sounds like you may have some .l's that are supposed to be .i or similar
Make sure all your pointers are stored in integers. 6.10 enabled a security feature that makes memory-based attacks more difficult, but the result is that the addresses are now quite often larger than the 32-bit range.