Problème menu

[bombseb]

Bonjour,

J'ai un petit problème pour gérer les menus, voici mon code :

Code : Tout sélectionner

If OpenWindow (0, 20, 100, 200, 300, "ToolBar", #PB_Window_Tool | #PB_Window_SystemMenu)

    If CreateMenu (1, WindowID(0))
        MenuTitle ("Affichage")
        MenuItem (1, "Boite à outils")
    EndIf

  Repeat
    Event = WaitWindowEvent ()
    Select Event
       Case #PB_Event_Menu
          MessageRequester ("test", "menu")
      Case #PB_Event_CloseWindow
        Quit = 1
    EndSelect
  Until Quit = 1
 
EndIf

Mon problème c'est que le MessageRequester ne s'affiche jamais quand je choisis "boite à outils" je ne comprend pas pourquoi, pourtant je me suis inspiré d'un exemple dans l'aide
autre question, (je suis sur Mac au fait) quand je lance mon appli il me créé par défaut un menu "Purebasic1" comment puis-je changer ce libellé ?
Par contre si je fait "Quit" dans le menu "Purebasic1" le messagerequester s'affiche, comment ca ce fait ?
Encore une question : Comment faire pour que le menu par défaut soit en Francais ?

[venom]

je ne peut pas t'aidé je ne suis pas sous mac, néanmoins sous windows le code fonctionne a merveille






@++

[bombseb]

merci pour ta réponse....

personne n'a une idée svp ?

[PAPIPP]

Bonjour Bombseb
Chez moi ton PRG fonctionne normalement sous 451 RC1
mais pour pouvoir sélectionner un menu parmi plusieurs

Code : Tout sélectionner

If OpenWindow(0,20,100,200,300,"ToolBar",#PB_Window_Tool | #PB_Window_SystemMenu)
   If CreateMenu(1,WindowID(0))
    MenuTitle("Affichage")
    MenuItem(1,"Boite à outils")
    MenuItem(2,"Tool Box")
   EndIf
   Repeat
    Event=WaitWindowEvent()
    Select Event
      Case #PB_Event_Menu
        Select EventMenu()  ; pour voir quel menu a été selectionné
          Case 1 
            MessageRequester("test", "menu1")
          Case 2
            MessageRequester("test", "menu2")
        EndSelect
;         MessageRequester("test","menu")
      Case #PB_Event_CloseWindow
        Quit=1
    EndSelect
  Until Quit=1
  
EndIf

A+

[Good07]

Bonjour bomseb,

Je suis sur Mac et je viens de tester ton programme qui fonctionne normalement.
Mac OS X 10.6.4

PureBasic 4.51 RC 1

[bombseb]

Merci les amis, je suis en version 4.41 c'est surement pour ca que ca bug alors ....

[bombseb]

bon effectivement avec la 4.51 RC ca marche...
mais avec la 4.50 ca ne marche pas non plus... du coup je vais continuer avec la version beta