I know that this it's not important, but to have an icon image on the window, I find this way.
Source name window.prg near line 1552 (L3W-B begin mod, L3W-E end mod)
Code: Select all
// Set Properties
::oQTObject:move( ::nCol , ::nRow )
::oQTObject:resize( ::nWidth, ::nHeight )
::oQTObject:setWindowTitle( ::cTitle )
//L3W-B
IF VALTYPE( ::cIcon ) != 'U'
::oQTObject:setWindowIcon( ::cIcon )
ENDIF
//L3W-E
Cheers