PureBasic

Forums PureBasic
Nous sommes le Jeu 22/Aoû/2019 5:56

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 4 messages ] 
Auteur Message
 Sujet du message: Menus invisibles sous Ubuntu.
MessagePosté: Sam 11/Jan/2014 20:06 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 09/Jan/2010 9:16
Messages: 53
Bonjour,

J'ai créé un petit bout de code qui ne sert à rien, si ce n'est de tester la compatibilité entre les différentes plateformes à ma disposition. A savoir Linux et windows. C'est juste une fenêtre avec un menu, un éditeur et un bouton. Ça ne fait rien de plus que d'afficher un message requester quand je clique sur un menu et un autre quand je clique sur le bouton. Je ne pense pas que ce soit utile de poster ici le code en question, mais je peux le faire si quelqu'un me le demande...

Sous windows 7 et 8 ça marche bien. Par contre sous linux, je n'arrive pas à avoir le menu et je ne sais pas pourquoi. Quelqu'un à-t-il déjà eu ce problème? Je précise que je n'ai aucune erreur de compilation, et que j'ai créé cette mini interface graphique avec le form designer intégré à PB 5.21 dans le but de me familiariser avec son fonctionnement. Je pense avoir compris. C'est pas trop compliqué, c'est même simple par rapport à d'autres langages, et c'est très efficace. J'ai juste ce problème de menu qui n'est pas visible sous linux...

Merci d'avance.


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Menus invisibles sous Ubuntu.
MessagePosté: Sam 11/Jan/2014 22:28 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 22/Aoû/2010 15:24
Messages: 6849
Localisation: IDF (Yvelines)
Et ou trouve t'on ce bout de code ? :mrgreen:

_________________

➽ Config PureBasic : i3, RAM 4Go, NVidia (1024 Mo), Windows 10 - PB 5.70 LTS
➽ Je papote aussi sur http://purebasic.chat

➽ Sites personnels http://falsam.com & EasySprite.js

➽ Je ne réponds pas aux MP techniques


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Menus invisibles sous Ubuntu.
MessagePosté: Dim 12/Jan/2014 18:42 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 09/Jan/2010 9:16
Messages: 53
Voilà le code en 3 fichiers:

Code:
;Main.pb
XIncludeFile "Formulaire.pbf" ; Inclusion de la première fenêtre
XIncludeFile "Procedures.pb"

OpenWindow_0() ; Création de la première fenêtre. Ce nom de procédure est toujours 'Open' suivi du nom de la fenêtre

; La boucle principale, comme d'habitude, le seul changement est l'appel de la procédure
; événementielle automtiquement générée pour chaque fenêtre.
Repeat
   Event = WaitWindowEvent()
   Select EventWindow()
      Case Window_0
         Window_0_Events(Event) ; Le nom de la procédure est toujours le nom de la fenêtre suivi de '_Events'     
   EndSelect
   
Until Event = #PB_Event_CloseWindow ; Ferme toutes les fenêtres en quittant l'une d'elle


puis:

Code:
;Formulaire.pbf
; This code is automatically generated by the FormDesigner.
; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
; Event procedures needs to be put in another source file.
;

Global Window_0

Global Editor_0, Button_0

Enumeration FormMenu
  #MenuItem_2
  #MenuItem_4
  #MenuItem_5
  #MenuItem_8
  #MenuItem_11
  #MenuItem_7
  #MenuItem_9
  #MenuItem_10
EndEnumeration

Declare fileopen(Event)
Declare filechooser(EventType)

Procedure OpenWindow_0(x = 0, y = 0, width = 600, height = 400)
  Window_0 = OpenWindow(#PB_Any, x, y, width, height, "essai", #PB_Window_SystemMenu | #PB_Window_BorderLess | #PB_Window_ScreenCentered)
  CreateMenu(0, WindowID(Window_0))
  MenuTitle("File")
  MenuItem(#MenuItem_2, "Open")
  OpenSubMenu("New")
  MenuItem(#MenuItem_4, "Project")
  MenuItem(#MenuItem_5, "Text file")
  CloseSubMenu()
  MenuItem(#MenuItem_8, "Save")
  MenuItem(#MenuItem_11, "Save as")
  MenuTitle("Edit")
  MenuItem(#MenuItem_7, "Cut")
  MenuItem(#MenuItem_9, "Copy")
  MenuItem(#MenuItem_10, "Paste")
  Editor_0 = EditorGadget(#PB_Any, 10, 10, 580, 310)
  Button_0 = ButtonGadget(#PB_Any, 10, 328, 100, 40, "Open", #PB_Button_Default)
EndProcedure

Procedure Window_0_Events(event)
  Select event
    Case #PB_Event_CloseWindow
      ProcedureReturn #False

    Case #PB_Event_Menu
      Select EventMenu()
        Case #MenuItem_2
          fileopen(EventMenu())
        Case #MenuItem_4
        Case #MenuItem_5
        Case #MenuItem_8
        Case #MenuItem_11
        Case #MenuItem_7
        Case #MenuItem_9
        Case #MenuItem_10
      EndSelect

    Case #PB_Event_Gadget
      Select EventGadget()
        Case Button_0
          filechooser(EventType())         
      EndSelect
  EndSelect
  ProcedureReturn #True
EndProcedure



et enfin:

Code:
;Procedures.pb
Procedure filechooser(EventType)
   ;Debug "Evénement Bouton OK"
   MessageRequester("OK", "Button OK", #PB_MessageRequester_Ok);, 0)
EndProcedure

Procedure fileopen(EventType)
   ;Debug "Evénement Bouton OK"
   MessageRequester("Open", "File Open", #PB_MessageRequester_Ok);, 0)
EndProcedure


Je ne pense pas que ça serve à grand-chose mais voilà!

C'était juste pour savoir si quelqu'un avait eu le même problème que moi... C'est sous Ubuntu que je n'arrive pas à avoir le menu. Peut-être que c'est un problème de configuration de ma version de linux?

Merci d'avance.


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Menus invisibles sous Ubuntu.
MessagePosté: Ven 09/Mai/2014 2:46 
Hors ligne

Inscription: Sam 05/Juin/2010 15:40
Messages: 36
salut dis moi sur ton ubuntu tes en quel version ?
j'ai eu le même souci est le menu se trouvé en haut de l’écran est non en haut de la fenêtre du programme comme quand tu dev la fenêtre sur purebasic


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 4 messages ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye