[EXAMPLES]

* BUG: Fix keypress handling in BeastScroll and 3DWebCam.



git-svn-id: svn://localhost/gambas/trunk@1019 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Laurent Carlier 2008-01-20 10:22:36 +00:00
parent a2173e5752
commit b54fab2aee
2 changed files with 4 additions and 2 deletions

View File

@ -123,7 +123,7 @@ PUBLIC SUB Screen_Close()
END
PUBLIC SUB Screen_KeyPressed()
PUBLIC SUB Screen_KeyPress()
IF (key.Code = key.F1) THEN Screen.FullScreen = NOT Screen.FullScreen
IF (key.Code = key.Esc) THEN Screen.Close()

View File

@ -237,9 +237,10 @@ PUBLIC SUB Screen_Draw()
yrot += 0.2 ' Y Axis Rotation
zrot += 0.4 ' Z Axis Rotation
WAIT 0.05
END
PUBLIC SUB Screen_keyPressed()
PUBLIC SUB Screen_keyPress()
IF key.Code = key.F1 THEN Screen.Fullscreen = NOT Screen.Fullscreen
IF key.Code = key.Esc THEN Screen.Close()
@ -251,4 +252,5 @@ PUBLIC SUB Timer1_Timer()
logo = hWebCam.Image
UpdateLogo = TRUE
END