\ Copyright 2022 Bradley D. Nelson
\
\ Licensed under the Apache License, Version 2.0 (the "License");
\ you may not use this file except in compliance with the License.
\ You may obtain a copy of the License at
\
\     http://www.apache.org/licenses/LICENSE-2.0
\
\ Unless required by applicable law or agreed to in writing, software
\ distributed under the License is distributed on an "AS IS" BASIS,
\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
\ See the License for the specific language governing permissions and
\ limitations under the License.

also windows also internals also structures

z" MyClass" constant MyClassName
z" Test Window" constant MyWindowTitle

NULL GetModuleHandleA constant hinst

pad WINDCLASSA erase
  WindowProcShim pad !field ->lpfnWndProc
  hinst pad !field ->hInstance
  MyClassName pad !field ->lpszClassName
  NULL IDC_ARROW LoadCursorA pad !field ->hCursor
  hinst IDI_MAIN_ICON LoadIconA pad !field ->hIcon
pad RegisterClassA constant myclass

create ps PAINTSTRUCT allot

255 192 0 RGB CreateSolidBrush constant orange
0 255 0 RGB CreateSolidBrush constant green

create side RECT allot
side 0 0 200 100 SetRect

: MyWindowProc { hwnd msg w l }
  WM_DESTROY msg = if
    0 PostQuitMessage
    0 exit
  then
  WM_PAINT msg = if
    hwnd ps BeginPaint drop
    ps @field ->hdc ps ->rcPaint orange FillRect drop
    ps @field ->hdc side green FillRect drop
    hwnd ps EndPaint drop
    0 exit
  then
  hwnd msg w l DefWindowProcA
;

0 myclass MyWindowTitle WS_OVERLAPPEDWINDOW
  CW_USEDEFAULT CW_USEDEFAULT 640 480
  NULL NULL hinst ' MyWindowProc callback
  CreateWindowExA constant hwnd

hwnd SW_SHOWMAXIMIZED ShowWindow drop
hwnd SetForegroundWindow drop

create mymsg msg allot
: pump
  begin mymsg NULL 0 0 GetMessageA while
    \ mymsg @field ->message WM_>name type cr
    mymsg TranslateMessage drop
    mymsg DispatchMessageA drop
  repeat
;
pump
bye