Adding uppdev....

git-svn-id: svn://ultimatepp.org/upp/trunk@328 f0d560ea-af0d-0410-9eb7-867de7ffcac7

uppdev/w32test/resource.h

@@ -0,0 +1,9 @@
+#define IDI_BIG         100
+#define IDI_SMALL       101
+
+#define IDD_ABOUT       102
+#define IDM_ABOUT       103
+#define IDM_EXIT        104
+#define IDC_WIN32APP    105
+#define IDC_MYICON      -2
+#define IDC_STATIC      -1

uppdev/w32test/w32test.cpp

@@ -0,0 +1,125 @@
+#include <windows.h>
+#include "resource.h"
+HINSTANCE hInst;
+
+LRESULT CALLBACK About(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
+{
+    switch(message)
+    {
+        case WM_INITDIALOG:
+            return TRUE;
+
+        case WM_COMMAND:
+            if(LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL)
+            {
+                EndDialog(hDlg, LOWORD(wParam));
+                return TRUE;
+            }
+            break;
+    }
+    return FALSE;
+}
+
+LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
+{
+    int wmId, wmEvent;
+    PAINTSTRUCT ps;
+    HDC hdc;
+
+    const TCHAR szHello[] = "Hello World!";
+
+    switch (message)
+    {
+        case WM_COMMAND:
+
+            wmId    = LOWORD(wParam);
+            wmEvent = HIWORD(wParam);
+
+            switch(wmId)
+            {
+                case IDM_ABOUT:
+                   DialogBox(hInst, (LPCTSTR) IDD_ABOUT, hWnd, (DLGPROC) About);
+                   break;
+
+                case IDM_EXIT:
+                   DestroyWindow(hWnd);
+                   break;
+
+                default:
+                   return DefWindowProc(hWnd, message, wParam, lParam);
+            }
+            break;
+
+        case WM_PAINT:
+            hdc = BeginPaint(hWnd, &ps);
+
+            /* Put your drawing code here */
+
+            RECT rt;
+            GetClientRect(hWnd, &rt);
+            DrawText(hdc, szHello, strlen(szHello), &rt, DT_CENTER | DT_VCENTER | DT_SINGLELINE);
+            EndPaint(hWnd, &ps);
+            break;
+
+        case WM_DESTROY:
+            PostQuitMessage(0);
+            break;
+
+        default:
+            return DefWindowProc(hWnd, message, wParam, lParam);
+   }
+   return 0;
+}
+
+int APIENTRY WinMain(HINSTANCE hInstance,
+                     HINSTANCE hPrevInstance,
+                     LPSTR     lpCmdLine,
+                     int       nCmdShow)
+{
+
+    WNDCLASSEX wcex;
+
+    wcex.cbSize = sizeof(WNDCLASSEX);
+
+    wcex.style          = CS_HREDRAW | CS_VREDRAW;
+    wcex.lpfnWndProc    = (WNDPROC) WndProc;
+    wcex.cbClsExtra     = 0;
+    wcex.cbWndExtra     = 0;
+    wcex.hInstance      = hInstance;
+    // Put your program icon into the package directory
+    wcex.hIconSm        = LoadIcon(hInstance, (LPCTSTR) IDI_SMALL);
+    wcex.hIcon          = LoadIcon(hInstance, (LPCTSTR) IDI_BIG);
+    wcex.hCursor        = LoadCursor(NULL, IDC_ARROW);
+    wcex.hbrBackground  = (HBRUSH) (COLOR_WINDOW + 1);
+    wcex.lpszMenuName   = (LPCSTR) IDC_WIN32APP;
+    wcex.lpszClassName  = "UPPW32APP";
+
+    if(RegisterClassEx(&wcex) == 0)
+        return FALSE;
+
+    hInst = hInstance;
+
+    HWND hWnd = CreateWindow(wcex.lpszClassName, "Ultimate application", WS_OVERLAPPEDWINDOW,
+                             CW_USEDEFAULT, 0, CW_USEDEFAULT, 0,
+                             NULL, NULL, hInstance, NULL);
+    if(!hWnd)
+        return FALSE;
+
+    ShowWindow(hWnd, nCmdShow);
+    UpdateWindow(hWnd);
+
+    HACCEL hAccelTable = LoadAccelerators(hInstance, (LPCTSTR) IDC_WIN32APP);
+
+    MSG msg;
+    while(GetMessage(&msg, NULL, 0, 0))
+    {
+        if(!TranslateAccelerator(msg.hwnd, hAccelTable, &msg))
+        {
+            TranslateMessage(&msg);
+            DispatchMessage(&msg);
+        }
+
+    }
+
+    return msg.wParam;
+}

uppdev/w32test/w32test.rc

@@ -0,0 +1,35 @@
+#include "resource.h"
+#include <windows.h>
+
+
+// Put your program icon into the package directory
+//IDI_SMALL ICON DISCARDABLE "icon.ico"
+//IDI_BIG   ICON DISCARDABLE "icon.ico"
+
+
+IDC_WIN32APP MENU DISCARDABLE
+BEGIN
+    POPUP "&File"
+    BEGIN
+        MENUITEM "E&xit", IDM_EXIT
+    END
+    POPUP "&Help"
+    BEGIN
+        MENUITEM "&About...", IDM_ABOUT
+    END
+END
+IDC_WIN32APP ACCELERATORS MOVEABLE PURE
+BEGIN
+    "?", IDM_ABOUT, ASCII, ALT
+    "/", IDM_ABOUT, ASCII, ALT
+END
+IDD_ABOUT DIALOG DISCARDABLE 0, 0, 150, 55
+STYLE DS_MODALFRAME | DS_CENTER | WS_CAPTION | WS_SYSMENU
+CAPTION "About"
+FONT 8, "Microsoft Sans Serif"
+BEGIN
+    ICON            IDI_BIG,IDC_MYICON,20,9,16,16
+    LTEXT           "Ultimate application v.1.0",IDC_STATIC,49,10,119,8,SS_NOPREFIX
+    LTEXT           "upp.sourceforge.net",IDC_STATIC,49,20,119,8
+    DEFPUSHBUTTON   "OK",IDOK,55,35,40,15,WS_GROUP
+END

uppdev/w32test/w32test.upp

@@ -0,0 +1,8 @@
+library(WIN32) "kernel32 user32 advapi32 shell32 winmm";
+
+file resource.h,
+     w32test.rc,
+     w32test.cpp;
+
+mainconfig
+    "" = "GUI";