PureBasic

Code : Tout sélectionner

; ce code marche parfaitement sous windows
; mais plante sur Linux Ubuntu 9.10/mint 8 (Purebasic 4.41/4.50) 
; lorsqu'on utilise  KeyboardPushed(#PB_Key_Space) a la ligne 79 !!
 ; et lorsqu'on cherche a bouger la fenetre qui reste bloqué





;  *************************** initialisations *********************************************
Declare OpenWindow_window()
Declare Clavier()
Enumeration
  #Window
  #sprite_curseur
EndEnumeration
Global screen_full,dessin
; ************************************************************************************
OpenWindow_window()

InitSprite():InitMouse():InitKeyboard():
OpenWindowedScreen(WindowID(#Window), 180, 80, 800, 600, 1,50, 50)
ClearScreen(RGB($53,$0,$4D))

; **************** boucle principale ****************************
Repeat   
  Clavier()  ; s'ocuppe de la capture des touches mais aussi du passage ecran-fenetre/plein ecran
  
  Select WaitWindowEvent(2) 
    Case #PB_Event_Gadget
      Select EventGadget() 
      EndSelect 
     Case #PB_Event_CloseWindow
      Select EventWindow()
        Case #Window
          CloseWindow(#Window)
               End
      EndSelect
  EndSelect 
 FlipBuffers()
  ClearScreen(RGB($CD,$E8,$15))
ForEver
; *********************************************************************************************

; ********************* les procedures *********************************************************
Procedure OpenWindow_window()
  If OpenWindow(#Window, 42, -7, 822, 538, "Pure Anaglyphe By Dobro", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
  EndIf 
EndProcedure
 
  Procedure Clavier()
    ExamineKeyboard():
    ;-clavier 
    If KeyboardPushed(#PB_Key_Escape) 
      End
    EndIf 
    If KeyboardPushed(#PB_Key_Space) And screen_full =0 And dessin=0
      CloseScreen() ; ferme l'ecran en fenetre 
      OpenScreen(800, 600, 32, "full_screen" ) 
      screen_full=1 
    ElseIf  KeyboardReleased(#PB_Key_Space) And screen_full=1 And dessin=0
    ; en plein ecran  KeyboardPushed(#PB_Key_Space)  se comporte comme si elle restait appuyé !! < -----------------------------
    
      If IsSprite(#sprite_curseur)<>0
        FreeSprite(#sprite_curseur) 
      EndIf
      CloseScreen() ; ferme plein l'ecran 
      OpenWindowedScreen(WindowID(#Window), 180, 80, 800, 600, 1,50, 50)
      screen_full=0
      ReleaseMouse(1) 
    EndIf 
  EndProcedure
  ; ********************************************************************************
; IDE Options = PureBasic 4.41 (Linux - x86)
; CursorPosition = 78
; FirstLine = 66