[Gambas-user] Dinamic menu structures

[Fabien Bodard]

Public Function FillMenu(MenuParent as Menu)

dim s as string
dim hMenu as Menu
MenuParent.Children[0].Delete
For each s in Dir(MenuParent.Tag,"*", gb.directory)

  hMenu = new Menu(MenuParent)
  hMenu.Text = s
  hMenu.Picture = Picture["icon:/small/directory"]
  if isDrir(MenuParent.Tag &/ s) then
    hMenu = new Menu(MenuParent)
    hMenu.Text=".Child."
  endif

next


oups no time to finish ... this is a way

endif





2010/8/6 M. Cs. <mohareve at ...626...>:
> Off course, I would like to have a menu structure where each submenu item
> represents a subfolder recursively.
> ------------------------------------------------------------------------------
> This SF.net email is sponsored by
>
> Make an app they can't live without
> Enter the BlackBerry Developer Challenge
> http://p.sf.net/sfu/RIM-dev2dev
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>