impossible de bouger la fenetre !!!
j'attendais la résolution de ce bug pour sortir Pure anaglyphe sous Linux
je suis deçut !!
de plus j'ai maintenant une alerte a propos de Help.so
parceque mon prg utilise un *.Chm externe , et Linux n'aime pas ça apparemment
exemple de code montrant le probleme de bouger de fenetre
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
