PureBasic Forums - English

; Main Window
Enumeration Window
#MainWindow
EndEnumeration

Enumeration Gadget
#OpenModalButton
EndEnumeration

Declare ModalWindow()

If OpenWindow(#MainWindow, 100, 100, 400, 300, "Main Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(#OpenModalButton, 100, 100, 200 ...

How should functions in mod2 be declared so that it could be called from mod1? Workaround for one-pass compiler. ; module 1

DeclareModule mod1
Declare add(a, b)
Declare modAdd(a, b)
EndDeclareModule

Module mod1
Procedure add(a, b)
ProcedureReturn a + b
EndProcedure

Procedure modAdd(a ...

BarryG, tested in PB 6.30 b4.

One line is needed for the crash compiler.

What data return function IsHID()? If it is not a pointer to a structure hid_device , then how can one get it?
I figured out how to do it. Procedure HID_ID(HID)
Protected id=0

id = IsHID(HID)
If id
id=PeekI(id)
EndIf

ProcedureReturn id
EndProcedure The procedure will return a pointer to ...

Tested the HID library in the project FM tuner for PC (text is on russian language, use google-translate) on Windows, Linux and MacOS and it works stably.

What data return function IsHID()? If it is not a pointer to a structure hid_device, then how can one get it?

idle wrote: Wed Oct 29, 2025 7:55 pmMaybe it's from the LTO stage

Does PB use LTO (Link Time Optimization)?
But if so, it would be a linker error, not a compiler error.

Maybe there is Inline assembler code?

// r = CreateSemaphore_(#Null, 0, 1, "Semaphore"+ProgID)
SYS_PushStringBasePosition();
SYS_PushStringBasePosition();
SYS_CopyString(_S1);
SYS_CopyString(v_progid);
SYS_IncrementStringBasePosition();
integer p2=(integer)SYS_PopStringBasePositionValueNoUpdate();
integer r0=f_createsemaphore_(0,0,1,p2 ...

Procedure RunOnce()
Protected Res=#False, r, ProgID.s

ProgID=UCase(StringFingerprint(GetCurrentDirectory(), #PB_Cipher_SHA1))
r = CreateSemaphore_(#Null, 0, 1, "Semaphore"+ProgID)
If r<>0
If GetLastError_()=#ERROR_ALREADY_EXISTS ; Копия приложения уже запущена.
CloseHandle_(r)
Res=#True ...

OpenWindow(0, 0, 0, 400, 100, "", #PB_Window_Invisible|#PB_Window_BorderLess|#PB_Window_Tool|#PB_Window_NoActivate)
HideWindow(0, #False)
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow When using flags #PB_Window_BorderLess and #PB_Window_Tool, in Linux Mint for PC when using ...

;
; ------------------------------------------------------------
;
; PureBasic - SysTray example file
;
; (c) Fantaisie Software
;
; ------------------------------------------------------------
;
; Note: on some Linux distributions (like Ubuntu), the systray icons can be hidden by default. For more ...