OS2World.com Forum is back !!!
Remember to visit OS2World at:
http://www.os2world.com
Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Actually, looking at the source, it is old MS Programming library v1.3, 16 bit API?
The sources offer several examples of creating windows in OS/2 Presentation Manager using the WinCreateWindow and WinCreateStdWindow functions. Here's a C source code sample based on these examples, along with explanations:
#define INCL_WIN // Include header file for PM window functions
#include <os2.h>
// Client window procedure - handles messages for the window
MRESULT EXPENTRY ClientWndProc(HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2) {
switch (msg) {
case WM_PAINT:
// Handle window painting - draw content here
break;
case WM_DESTROY:
// Handle window destruction
break;
default:
return WinDefWindowProc(hwnd, msg, mp1, mp2); // Default message processing
}
return NULL;
}
int main() {
HAB hab; // Anchor block handle
HMQ hmq; // Message queue handle
HWND hwndFrame; // Frame window handle
HWND hwndClient; // Client window handle
QMSG qmsg; // Message queue element
ULONG flCreateFlags = FCF_TITLEBAR | FCF_SYSMENU | FCF_SIZEBORDER |
FCF_MINMAX | FCF_SHELLPOSITION | FCF_TASKLIST;
static CHAR szClientClass[] = "Client Window"; // Client window class name
hab = WinInitialize(NULL); // Initialize PM
hmq = WinCreateMsgQueue(hab, 0); // Create message queue
// Register client window class
WinRegisterClass(hab, szClientClass, ClientWndProc, CS_SIZEREDRAW, 0);
// Create standard window
hwndFrame = WinCreateStdWindow(HWND_DESKTOP, WS_VISIBLE, &flCreateFlags,
szClientClass, "My Window", 0L, NULL, 0, &hwndClient);
// Message dispatch loop
while (WinGetMsg(hab, &qmsg, NULL, 0, 0)) {
WinDispatchMsg(hab, &qmsg);
}
WinDestroyWindow(hwndFrame); // Destroy window
WinDestroyMsgQueue(hmq); // Destroy message queue
WinTerminate(hab); // Terminate PM
return 0;
}
Explanation:
●
Headers: INCL_WIN is defined to include the necessary header file (pmwin.h) for PM window functions. os2.h is included for general OS/2 API definitions.
●
Client Window Procedure: ClientWndProc is responsible for handling messages sent to the window. It's crucial for responding to events like painting and window destruction. The WinDefWindowProc function is used to process default messages.
●
Main Function:
○
Initialization: WinInitialize and WinCreateMsgQueue initialize the Presentation Manager and create a message queue.
○
Window Class Registration: WinRegisterClass associates the client window procedure (ClientWndProc) with a window class name (szClientClass).
○
Window Creation: WinCreateStdWindow creates a standard window with a title bar, system menu, and other standard elements. The flCreateFlags variable controls the window's style and appearance.
○
Message Loop: The while loop retrieves messages from the message queue using WinGetMsg and dispatches them to the appropriate window procedure using WinDispatchMsg. This is the core of the event-driven model in PM.
○
Cleanup: WinDestroyWindow, WinDestroyMsgQueue, and WinTerminate clean up resources and exit the PM environment.
Key Points:
●
The code creates a standard window, which provides the basic framework for most PM applications.
●
You can customize the window's appearance using the flCreateFlags variable and its style constants.
●
The client window procedure is where you'll handle window-specific logic, including drawing content and responding to user interactions.
●
Understanding the message loop and how PM handles events is crucial for developing OS/2 applications.
Remember that this is a basic example, and building more complex applications would involve using additional PM API functions to create and manage other UI elements like menus, dialog boxes, and controls.
Hi RemyIBM does not offer support for it.
Are you sure IBM no more providing support as special exclusive contract for customer customer requesting it ?
I remember IBM having provided OS/2 support in year 2015 for a client having a special support contract (not catalog referenced)
