ich habe ein Problem mit meinem Code. Zunächst habe ich mit OpenWindow ein Fenster erzeugt. In diesem habe ich mit OpenWindowedScreen einen Screen geöffnet. In dem Screen habe ich dann eine Maus erzeugt. Die Bewegung klappt gut. Auch das Beenden des Programms klappt mit der rechten Maustaste. Drücke ich aber mehrmals die linke Maustaste, dann stürzt das Programm ab. Oben in der Fensterleiste steht dann "Keine Rückmeldung" und ich muss das Programm mit dem Kill-Modus beenden.

Hier der Code:
Code: Alles auswählen
Procedure Init_Systems()
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
MessageRequester("Error!", "Kann nicht initialisiert werden!", 0)
End
EndIf
If OpenWindow(0, 0, 0, 1000, 780, "Maustest", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_ScreenCentered)
If OpenWindowedScreen(WindowID(0), 0, 0, 1000, 780, 0, 0, 0)
EndIf
EndIf
EndProcedure
Procedure Maus()
ExamineMouse()
DisplayTransparentSprite(50, WindowMouseX(0),WindowMouseY(0)) ; Ausgabe des Mauspfeils
EndProcedure
;***Hauptprogramm***
Init_Systems()
LoadSprite(50, "GFX/Mauspfeil.bmp")
Repeat
Maus()
FlipBuffers()
ClearScreen(0)
Until MouseButton(#PB_MouseButton_Right)