PureBasic 6.21 is out !

[Fred]

A few more polishing work before the final, don't hesitate to try it !

Bugfixes for this version:

• Windows: [Done] Issue with Redrawing in same Sprite (DirectX9)
• Windows: [Done] Module Spline - crash with invalid memory access (6.21 beta 6 / 8 )
• Windows: [Done] OptionGadget set value in hidden state (6.21 beta 8, asm, x64)
• Windows: [Done] 6.21 B8: Menu icons have no transparency
• Windows: [Done] TransparentSpriteColor issue with GrabSprite (6.21 Beta 6)

This list was created automatically. All updated bug threads from the date of the last final version have been determined.

[Quin]

Called it. Thanks Fred!

[miso]

Thanks! Compiled and tested all my major projects without issues.
(projects includes SqLite,OGL 2d/3d screens, sprites, controllers, sound engine, music engine, fonts, 2d drawing, filesystem, packs, basic window gadgets)

[Joubarbe]

Don't know if helpful (maybe not), but with my game (turn-based dungeon crawler "The Ruins of Calaworm"), and another sideproject (an asteroids-shooter called "Cherry Shift") all is well. No lags, graphics is rendering fast as ever, also no CPU overload. Working on a (kinda) ancient laptop with Windows 10.
Hope you can figure things out.

Yep, it's weird... What I find really weird is that I cannot ALT-F4 the game. Does BindEvent() work exactly the same as handling events with WaitWindowEvent()? If it's stuck in an event loop, it wouldn't redraw the game at all (as it is a custom event).

[Quin]

Yep, it's weird... What I find really weird is that I cannot ALT-F4 the game. Does BindEvent() work exactly the same as handling events with WaitWindowEvent()? If it's stuck in an event loop, it wouldn't redraw the game at all (as it is a custom event).

Yes, it does, or at least is supposed to. I use BindEvent() for all of my apps, my main loop is always Repeat : WaitWindowEvent(1) : ForEver, and then I just BindEvent to #PB_Event_CloseWindow. I have no issues on PB 6.21 beta 9, but I'm writing desktop apps, not games. It should work the same though.

[Joubarbe]

Unfortunately, some events cannot be bound, so my event declaration block looks like this:

Code: Select all

BindGadgetEvent(#CANVAS_MAIN, @OnInput(), #PB_EventType_Input)
BindGadgetEvent(#CANVAS_MAIN, @OnKeyUp(), #PB_EventType_KeyUp)
BindGadgetEvent(#CANVAS_MAIN, @OnKeyDown(), #PB_EventType_KeyDown)
BindGadgetEvent(#CANVAS_MAIN, @OnLeftClick(), #PB_EventType_LeftClick)
BindGadgetEvent(#CANVAS_MAIN, @OnRightClick(), #PB_EventType_RightClick)
BindGadgetEvent(#CANVAS_MAIN, @OnMouseMove(), #PB_EventType_MouseMove)
BindGadgetEvent(#CANVAS_MAIN, @OnMouseWheel(), #PB_EventType_MouseWheel)
BindEvent(#PB_Event_SizeWindow, @OnResize(), #WINDOW_MAIN)
BindEvent(#PB_Event_ActivateWindow, @OnFocus(), #WINDOW_MAIN)
BindEvent(#PB_Event_Timer, @OnTimer(), #WINDOW_MAIN)
BindEvent(#EVENT_REDRAW_TERMINAL, @RenderTerminal())
BindEvent(#EVENT_REDRAW_VIEW, @RenderView())
AddKeyboardShortcut(#WINDOW_MAIN, #PB_Shortcut_Tab, #EVENT_TAB)
AddKeyboardShortcut(#WINDOW_MAIN, #PB_Shortcut_Shift | #PB_Shortcut_Tab, #EVENT_SHIFT_TAB)

Repeat
  event = WaitWindowEvent()
  Select event
    Case #PB_Event_CloseWindow
      CloseTerminal()
    Case #PB_Event_Menu
      Select EventMenu()
        Case #EVENT_TAB
          If terminal\no_keyboard_navigation = #False And terminal\active_view\locked = #False
            NextView()
          EndIf
        Case #EVENT_SHIFT_TAB
          If terminal\no_keyboard_navigation = #False And terminal\active_view\locked = #False
            PreviousView()
          EndIf
      EndSelect
  EndSelect
ForEver

EDIT: Hmm... Maybe they could all go to BindEvent actually

[miso]

What if with timeout? As Quin specified?

Code: Select all

 event = WaitWindowEvent(1)

I don't think so, but worth a try.

[Quin]

Unfortunately, some events cannot be bound, so my event declaration block looks like this:

Code: Select all

BindGadgetEvent(#CANVAS_MAIN, @OnInput(), #PB_EventType_Input)
BindGadgetEvent(#CANVAS_MAIN, @OnKeyUp(), #PB_EventType_KeyUp)
BindGadgetEvent(#CANVAS_MAIN, @OnKeyDown(), #PB_EventType_KeyDown)
BindGadgetEvent(#CANVAS_MAIN, @OnLeftClick(), #PB_EventType_LeftClick)
BindGadgetEvent(#CANVAS_MAIN, @OnRightClick(), #PB_EventType_RightClick)
BindGadgetEvent(#CANVAS_MAIN, @OnMouseMove(), #PB_EventType_MouseMove)
BindGadgetEvent(#CANVAS_MAIN, @OnMouseWheel(), #PB_EventType_MouseWheel)
BindEvent(#PB_Event_SizeWindow, @OnResize(), #WINDOW_MAIN)
BindEvent(#PB_Event_ActivateWindow, @OnFocus(), #WINDOW_MAIN)
BindEvent(#PB_Event_Timer, @OnTimer(), #WINDOW_MAIN)
BindEvent(#EVENT_REDRAW_TERMINAL, @RenderTerminal())
BindEvent(#EVENT_REDRAW_VIEW, @RenderView())
AddKeyboardShortcut(#WINDOW_MAIN, #PB_Shortcut_Tab, #EVENT_TAB)
AddKeyboardShortcut(#WINDOW_MAIN, #PB_Shortcut_Shift | #PB_Shortcut_Tab, #EVENT_SHIFT_TAB)

Repeat
  event = WaitWindowEvent()
  Select event
    Case #PB_Event_CloseWindow
      CloseTerminal()
    Case #PB_Event_Menu
      Select EventMenu()
        Case #EVENT_TAB
          If terminal\no_keyboard_navigation = #False And terminal\active_view\locked = #False
            NextView()
          EndIf
        Case #EVENT_SHIFT_TAB
          If terminal\no_keyboard_navigation = #False And terminal\active_view\locked = #False
            PreviousView()
          EndIf
      EndSelect
  EndSelect
ForEver

EDIT: Hmm... Maybe they could all go to BindEvent actually

You can definitely use BindEvent() for all of these, that's how I do it in my app.
The CPU getting hogged could be because you're not specifying WaitWindowEvent() with a timeout. I've found 1 to work the best, perhaps try that?

[Joubarbe]

It doesn't work, but thanks for trying! I'm going to look into it more seriously today.

[marcoagpinto]

@Fred !

All my menus images in PNG now appear in 16x16 instead of 32x32 with beta 9.

Both in pull down menus and pop-up menus.

Windows 11.

[Joubarbe]

It doesn't work, but thanks for trying! I'm going to look into it more seriously today.

Bug report: viewtopic.php?t=86886

[Joubarbe]

...
All my menus images in PNG now appear in 16x16 instead of 32x32 with beta 9.
...

Poor Fred, he's never going to see the end of this update!

[Fred]

We will get there... Still better to have the report before going final !

[Fred]

I just pushed a new version for Windows, please download it to test the DrawText() fix

[miso]

Thanks. Compiled all my major apps without issues. Drawtext 'feels' better (for my purposes) compared to the previous beta.