Uffo2

[Peter]

Deleted

[Charles Pegge]

Earthlings, Earthlings! We want your planet. Resistance is useless!

[Aurel]

Excellent Peter

[JRS]

I can't seem to get it to run under Wine.

Is this program requesting the full screen to run?

hardcore hoby programmer

hobby not hoby

[Aurel]

OK ..OK ..hobby
No John ,this program don't need full screen.

Code: [Select]

OpenWindow "Uffo2",800,600,ws_popup

[JRS]

I never see a window either. 

Maybe Charles can try it on his version of Wine and see if it's just my PC.

[Charles Pegge]

I can't seem to get it to run under Wine.

John,
One possible problem: WS_POPUP

Ypu could try:

Code: [Select]

  OpenWindow "Uffo2",800,600,CS_HREDRAW or CS_VREDRAW 'ws_popup

Charles

[JRS]

No luck.

There is a brief frame of a window displayed  (no client content) and it immediately closes.

[JRS]

The full screen went black and when it returned, I was left in 800x600 resolution mode. I had to log out to recover.

[Charles Pegge]

I could get it to run at about 1 frame per second by bypassing the Esc Key test. I think the only way to resolve this in the long term is if Peter could test his software with Wine/Ubuntu - if he is willing.

A few months ago I made a version of "func.inc" that worked correctly in Wine though it is out of date now. The main principle is to stick rigorously to the WinMain / WndProc message processing conventions and also mask off the upper 16 bits of the virtual key state which I think was the cause of the blank window in this case.

Charles


[attachment deleted by admin]

[JRS]

I was able to get 2 or the 3 programs to run.

magic8erw.exe failed in a similar way to the Uffo program I can't run.

[Charles Pegge]

That's okay John. The exe file is now defunct but the scripts are valid.

[JRS]

The recompile solved the problem.

That still doesn't explain why Peter's Uffo example doesn't work. Are you saying that Peter is bypassing standard Windows API calls and accessing Windows services at a lower level?

[Aurel]

Its not low level then is in wine.
Wine probably dont recognize ws_popup style.
ws_popup is style without caption and without sysmenu.
You can try this example:

Code: [Select]

indexbase 0
include "wFunc.inc"
% WS_CAPTION = 0xC00000
% WS_SYSMENU = 0x80000
INT wstyle
INT w1
wstyle = ws_popup or WS_CAPTION or WS_SYSMENU
w1=OpenWindow "Uffo2",300,300,wstyle
 
'
do while bRet := GetMessage (&wm, 0, 0, 0)
    if bRet = -1 then
      'show an error message
    else
      TranslateMessage &wm
      DispatchMessage &wm
    end if
  wend
[attachment deleted by admin]

[JRS]

I was able to get your example to run but the CPU was at 100% and I couldn't get any of the keyboard functions to work. When I closed the window, it left a mess in my upper left corner of my screen. (like previous examples you wrote)

[attachment deleted by admin]