shoes 3.0.1

data/shoes/native/windows.c

@@ -0,0 +1,2392 @@
+//
+// shoes/native/windows.c
+// Windows-specific code for Shoes.
+//
+#include "shoes/app.h"
+#include "shoes/ruby.h"
+#include "shoes/config.h"
+#include "shoes/world.h"
+#include "shoes/native.h"
+#include "shoes/internal.h"
+#include "shoes/appwin32.h"
+#include <commdlg.h>
+#include <shlobj.h>
+#include <ctype.h>
+
+#define HEIGHT_PAD 6
+
+#ifndef IDC_HAND
+#define IDC_HAND MAKEINTRESOURCE(32649)
+#endif
+
+#ifndef BIF_NONEWFOLDERBUTTON
+#define BIF_NONEWFOLDERBUTTON 0x200
+#endif
+
+static WNDPROC shoes_original_edit_line_proc = NULL;
+HHOOK hhook;
+VALUE kh_up_v = (VALUE)NULL;
+VALUE kh_down_v = (VALUE)NULL;
+
+shoes_code shoes_classex_init();
+LRESULT CALLBACK shoes_app_win32proc(HWND, UINT, WPARAM, LPARAM);
+LRESULT CALLBACK shoes_slot_win32proc(HWND, UINT, WPARAM, LPARAM);
+LRESULT CALLBACK shoes_edit_line_win32proc(HWND, UINT, WPARAM, LPARAM);
+LRESULT CALLBACK shoes_keyhook(int, WPARAM, LPARAM);
+
+#define KEYUPDOWN \
+  if (vk == VK_LCONTROL) \
+    v = ID2SYM(rb_intern("left_ctrl")); \
+  else if (vk == VK_RCONTROL) \
+    v = ID2SYM(rb_intern("right_ctrl")); \
+  else if (vk == VK_LMENU) \
+    v = ID2SYM(rb_intern("left_alt")); \
+  else if (vk == VK_RMENU) \
+    v = ID2SYM(rb_intern("right_alt")); \
+  else if (vk == VK_LSHIFT) \
+    v = ID2SYM(rb_intern("left_shift")); \
+  else if (vk == VK_RSHIFT) \
+    v = ID2SYM(rb_intern("right_shift")); \
+  else if (vk == VK_ESCAPE) \
+    v = ID2SYM(rb_intern("escape")); \
+  else if (vk == VK_INSERT) \
+    v = ID2SYM(rb_intern("insert")); \
+  else if (vk == VK_DELETE) \
+    v = ID2SYM(rb_intern("delete")); \
+  else if (vk == VK_PRIOR) \
+    v = ID2SYM(rb_intern("page_up")); \
+  else if (vk == VK_NEXT) \
+    v = ID2SYM(rb_intern("page_down")); \
+  else if (vk == VK_HOME) \
+    v = ID2SYM(rb_intern("home")); \
+  else if (vk == VK_END) \
+    v = ID2SYM(rb_intern("end")); \
+  else if (vk == VK_LEFT) \
+    v = ID2SYM(rb_intern("left")); \
+  else if (vk == VK_UP) \
+    v = ID2SYM(rb_intern("up")); \
+  else if (vk == VK_RIGHT) \
+    v = ID2SYM(rb_intern("right")); \
+  else if (vk == VK_DOWN) \
+    v = ID2SYM(rb_intern("down")); \
+  else if (vk == VK_F1) \
+    v = ID2SYM(rb_intern("f1")); \
+  else if (vk == VK_F2) \
+    v = ID2SYM(rb_intern("f2")); \
+  else if (vk == VK_F2) \
+    v = ID2SYM(rb_intern("f2")); \
+  else if (vk == VK_F3) \
+    v = ID2SYM(rb_intern("f3")); \
+  else if (vk == VK_F4) \
+    v = ID2SYM(rb_intern("f4")); \
+  else if (vk == VK_F5) \
+    v = ID2SYM(rb_intern("f5")); \
+  else if (vk == VK_F6) \
+    v = ID2SYM(rb_intern("f6")); \
+  else if (vk == VK_F7) \
+    v = ID2SYM(rb_intern("f7")); \
+  else if (vk == VK_F8) \
+    v = ID2SYM(rb_intern("f8")); \
+  else if (vk == VK_F9) \
+    v = ID2SYM(rb_intern("f9")); \
+  else if (vk == VK_F10) \
+    v = ID2SYM(rb_intern("f10")); \
+  else if (vk == VK_F11) \
+    v = ID2SYM(rb_intern("f11")); \
+  else if (vk == VK_F12) \
+    v = ID2SYM(rb_intern("f12")); \
+  else if (vk == 186) \
+  { \
+    letter = ':'; \
+    v = rb_str_new(&letter, 1); \
+  } \
+  else if (vk == 187) \
+  { \
+    letter = ';'; \
+    v = rb_str_new(&letter, 1); \
+  } \
+  else if (vk == 188) \
+  { \
+    letter = ','; \
+    v = rb_str_new(&letter, 1); \
+  } \
+  else if (vk == 189) \
+  { \
+    letter = '-'; \
+    v = rb_str_new(&letter, 1); \
+  } \
+  else if (vk == 190) \
+  { \
+    letter = '.'; \
+    v = rb_str_new(&letter, 1); \
+  } \
+  else if (vk == 191) \
+  { \
+    letter = '/'; \
+    v = rb_str_new(&letter, 1); \
+  } \
+  else if (vk == 192) \
+  { \
+    letter = '@'; \
+    v = rb_str_new(&letter, 1); \
+  } \
+  else if (vk == 219) \
+  { \
+    letter = '['; \
+    v = rb_str_new(&letter, 1); \
+  } \
+  else if (vk == 220) \
+  { \
+    letter = '_'; \
+    v = rb_str_new(&letter, 1); \
+  } \
+  else if (vk == 221) \
+  { \
+    letter = ']'; \
+    v = rb_str_new(&letter, 1); \
+  } \
+  else if (vk == 222) \
+  { \
+    letter = '^'; \
+    v = rb_str_new(&letter, 1); \
+  } \
+  else if (vk == 226) \
+  { \
+    letter = '\\'; \
+    v = rb_str_new(&letter, 1); \
+  } \
+  else if (vk == 0x08) \
+    v = ID2SYM(rb_intern("backspace")); \
+  else if (vk == 0x09) \
+    v = ID2SYM(rb_intern("tab")); \
+  else if (vk == 0x0D) \
+    v = ID2SYM(rb_intern("enter")); \
+  else \
+  { \
+    letter = tolower(letter); \
+    v = rb_str_new(&letter, 1); \
+  }
+
+static WCHAR *
+shoes_wchar(char *utf8)
+{
+  WCHAR *buffer = NULL;
+  LONG wlen = 0;
+  if (utf8 == NULL) return NULL;
+  wlen = MultiByteToWideChar(CP_UTF8, 0, utf8, -1, NULL, 0);
+  if (!wlen) return NULL;
+  buffer = SHOE_ALLOC_N(WCHAR, wlen);
+  if (!buffer) return NULL;
+  MultiByteToWideChar(CP_UTF8, 0, utf8, -1, buffer, wlen);
+  return buffer;
+}
+
+static char *
+shoes_utf8(WCHAR *buffer)
+{
+  char *utf8 = NULL;
+  LONG i8 = 0;
+  if (buffer == NULL) return NULL;
+  i8 = WideCharToMultiByte(CP_UTF8, 0, buffer, -1, NULL, 0, NULL, NULL);
+  if (!i8) return NULL;
+  utf8 = SHOE_ALLOC_N(char, i8);
+  if (!utf8) return NULL;
+  WideCharToMultiByte(CP_UTF8, 0, buffer, -1, utf8, i8, NULL, NULL);
+  return utf8;
+}
+
+static void
+shoes_win32_center(HWND hwnd)
+{
+  RECT rc;
+  
+  GetWindowRect(hwnd, &rc);
+  
+  SetWindowPos(hwnd, 0, 
+    (GetSystemMetrics(SM_CXSCREEN) - rc.right)/2,
+    (GetSystemMetrics(SM_CYSCREEN) - rc.bottom)/2,
+     0, 0, SWP_NOZORDER|SWP_NOSIZE );
+}
+
+int
+shoes_win32_cmdvector(const char *cmdline, char ***argv)
+{
+  return rb_w32_cmdvector(cmdline, argv);
+}
+
+VALUE
+shoes_load_font(const char *filename)
+{
+  VALUE allfonts, newfonts, oldfonts;
+  int fonts = AddFontResourceEx(filename, FR_PRIVATE, 0);
+  if (!fonts) return Qnil;
+  allfonts = shoes_font_list();
+  oldfonts = rb_const_get(cShoes, rb_intern("FONTS"));
+  newfonts = rb_funcall(allfonts, rb_intern("-"), 1, oldfonts);
+  shoes_update_fonts(allfonts);
+  return newfonts;
+}
+
+static int CALLBACK
+shoes_font_list_iter(const ENUMLOGFONTEX *font, const NEWTEXTMETRICA *pfont, DWORD type, LPARAM l)
+{
+  rb_ary_push(l, rb_str_new2(font->elfLogFont.lfFaceName));
+  return TRUE;
+}
+
+VALUE
+shoes_font_list()
+{
+  LOGFONT font = {0, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, 0, 0, 0, 0, ""};
+  VALUE ary = rb_ary_new();
+  HDC dc = GetDC(NULL);
+  EnumFontFamiliesEx(dc, &font, (FONTENUMPROC)shoes_font_list_iter, (LPARAM)ary, 0);
+  ReleaseDC(NULL, dc);
+  rb_funcall(ary, rb_intern("uniq!"), 0);
+  rb_funcall(ary, rb_intern("sort!"), 0);
+  return ary;
+}
+
+void shoes_native_init()
+{
+  INITCOMMONCONTROLSEX InitCtrlEx;
+  InitCtrlEx.dwSize = sizeof(INITCOMMONCONTROLSEX);
+  InitCtrlEx.dwICC = ICC_PROGRESS_CLASS;
+  InitCommonControlsEx(&InitCtrlEx);
+  shoes_classex_init();
+  shoes_world->os.hidden = CreateWindow(SHOES_HIDDENCLS, SHOES_HIDDENCLS, WS_OVERLAPPEDWINDOW,
+    CW_USEDEFAULT, 0, CW_USEDEFAULT, 0, NULL, NULL, shoes_world->os.instance, NULL);
+
+  // Detect Windows Vista
+  OSVERSIONINFOEXW osvi = { 0 };
+  BOOL ret;
+
+  // Try calling GetVersionEx using the OSVERSIONINFOEX structure.
+  // If that fails, try using the OSVERSIONINFO structure.
+
+  osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOEXW);
+  ret = GetVersionExW ((OSVERSIONINFOW*)&osvi);
+
+  shoes_world->os.doublebuffer = FALSE;
+
+  // Fallback to old version info struct if necessary.
+  if (!ret)
+  {
+    osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOW);
+    ret = GetVersionExW((OSVERSIONINFOW*)&osvi);
+  }
+
+  if (!ret)
+  {
+    // Error. Cannot detect version. Assume the worst: it is Vista.
+    shoes_world->os.doublebuffer = TRUE;
+  }
+  else if (osvi.dwPlatformId == VER_PLATFORM_WIN32_NT && osvi.dwMajorVersion == 6 && osvi.dwMinorVersion == 0) {
+    // Detected Windows "6.0", that is, Vista
+    shoes_world->os.doublebuffer = TRUE;
+  }
+
+  hhook = SetWindowsHookEx(WH_KEYBOARD_LL, shoes_keyhook, shoes_world->os.instance, 0);
+}
+
+LRESULT CALLBACK shoes_keyhook(int n, WPARAM w, LPARAM l)
+{
+  VALUE v;
+  WPARAM vk;
+
+  kh_up_v = (VALUE)NULL;
+  kh_down_v = (VALUE)NULL;
+  
+  if (n == HC_ACTION)
+  {
+    KBDLLHOOKSTRUCT *kbdHS = (KBDLLHOOKSTRUCT *)l;
+    switch (w)
+    {
+      case WM_SYSKEYUP:
+      case WM_KEYUP:
+      {
+        vk = kbdHS->vkCode;
+        char letter = vk;
+        KEYUPDOWN
+        kh_up_v = v;
+      }
+      break;
+      
+      case WM_SYSKEYDOWN:
+      case WM_KEYDOWN:
+      {
+        vk = kbdHS->vkCode;
+        char letter = vk;
+        KEYUPDOWN
+        kh_down_v = v;
+      }
+      break;      
+    }
+  }
+  
+  return CallNextHookEx(hhook, n, w, l);
+}
+
+void shoes_native_cleanup(shoes_world_t *world)
+{
+  UnhookWindowsHookEx(hhook);
+}
+
+void shoes_native_quit()
+{
+  PostQuitMessage(0);
+}
+
+int shoes_throw_message(unsigned int name, VALUE obj, void *data)
+{
+  return SendMessage(shoes_world->os.hidden, SHOES_WM_MESSAGE + name, obj, (LPARAM)data);
+}
+
+void shoes_native_slot_mark(SHOES_SLOT_OS *slot)
+{
+  rb_gc_mark_maybe(slot->controls);
+  rb_gc_mark_maybe(slot->focus);
+}
+
+void shoes_native_slot_reset(SHOES_SLOT_OS *slot)
+{
+  slot->controls = rb_ary_new();
+  rb_gc_register_address(&slot->controls);
+}
+
+void shoes_native_slot_clear(shoes_canvas *canvas)
+{
+  rb_ary_clear(canvas->slot->controls);
+}
+
+void shoes_native_slot_paint(SHOES_SLOT_OS *slot)
+{
+  if (shoes_world->os.doublebuffer && slot->parent != NULL)
+  {
+    HWND parentWindow = GetWindow(slot->window, GW_OWNER);
+
+    if (parentWindow != HWND_DESKTOP && parentWindow != NULL)
+    {
+      VALUE c = (VALUE)GetWindowLong(slot->window, GWL_USERDATA);
+
+      if (c != (VALUE)NULL)
+      {
+        shoes_canvas *canvas;
+        Data_Get_Struct(c, shoes_canvas, canvas);
+        RedrawWindow(canvas->slot->window, NULL, NULL, RDW_INVALIDATE|RDW_ALLCHILDREN);
+        return;
+      }
+    }
+  }
+
+  RedrawWindow(slot->window, NULL, NULL, RDW_INVALIDATE|RDW_ALLCHILDREN);
+}
+
+void shoes_native_slot_lengthen(SHOES_SLOT_OS *slot, int height, int endy)
+{
+  SCROLLINFO si;
+  si.cbSize = sizeof(SCROLLINFO);
+  si.fMask = SIF_RANGE | SIF_PAGE | SIF_POS;
+  si.nMin = 0;
+  si.nMax = endy - 1; 
+  si.nPage = height;
+  si.nPos = slot->scrolly;
+  INFO("SetScrollInfo(%d, nMin: %d, nMax: %d, nPage: %d)\n", 
+    si.nPos, si.nMin, si.nMax, si.nPage);
+  SetScrollInfo(slot->window, SB_VERT, &si, TRUE);
+}
+
+void shoes_native_slot_scroll_top(SHOES_SLOT_OS *slot)
+{
+  SetScrollPos(slot->window, SB_VERT, slot->scrolly, TRUE);
+}
+
+int shoes_native_slot_gutter(SHOES_SLOT_OS *slot)
+{
+  return GetSystemMetrics(SM_CXVSCROLL);
+}
+
+void shoes_native_remove_item(SHOES_SLOT_OS *slot, VALUE item, char c)
+{
+  if (c)
+  {
+    long i = rb_ary_index_of(slot->controls, item);
+    if (i >= 0)
+      rb_ary_insert_at(slot->controls, i, 1, Qnil);
+    if (item == slot->focus)
+      slot->focus = Qnil;
+  }
+}
+
+//
+// Window-level events
+//
+#define WINDOW_STYLE WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX
+#define WINDOW_STYLE_FULLSCREEN WS_POPUP | WS_VSCROLL | ES_AUTOVSCROLL
+
+#define WM_POINTS() \
+  POINT p; \
+  p.x = LOWORD(l); \
+  p.y = HIWORD(l)
+#define WM_POINTS2() \
+  WM_POINTS(); \
+  ClientToScreen(win, &p); \
+  ScreenToClient(canvas->app->slot->window, &p); \
+
+#define KEY_SYM(sym)  shoes_app_keypress(app, ID2SYM(rb_intern("" # sym)))
+#define KEYPRESS(name, sym) \
+  else if (w == VK_##name) { \
+    VALUE v = ID2SYM(rb_intern("" # sym)); \
+    if (app->os.altkey) \
+      KEY_STATE(alt); \
+    if (app->os.shiftkey) \
+      KEY_STATE(shift); \
+    if (app->os.ctrlkey) \
+      KEY_STATE(control); \
+    shoes_app_keypress(app, v); \
+  }
+
+static void
+shoes_canvas_win32_vscroll(shoes_canvas *canvas, int code, int pos)
+{
+  SCROLLINFO si;
+  SHOE_MEMZERO(&si, SCROLLINFO, 1);
+  si.cbSize = sizeof(SCROLLINFO);
+  si.fMask = SIF_POS | SIF_RANGE | SIF_PAGE;
+  GetScrollInfo(canvas->slot->window, SB_VERT, &si);
+
+  switch (code)
+  {
+    case SB_LINEUP:
+      si.nPos -= 16;
+    break;
+    case SB_LINEDOWN:
+      si.nPos += 16;
+    break;
+    case SB_PAGEUP:
+      si.nPos -= si.nPage - 32;
+    break;
+    case SB_PAGEDOWN:
+      si.nPos += si.nPage - 32;
+    break;
+    case SB_THUMBTRACK:
+      si.nPos = pos;
+    break;
+    default:
+      return;
+  }
+
+  if (si.nPos < 0)
+    si.nPos = 0;
+  else if (si.nPos > (si.nMax - si.nPage))
+    si.nPos = si.nMax - si.nPage;
+
+  SetScrollInfo(canvas->slot->window, SB_VERT, &si, TRUE);
+  canvas->slot->scrolly = si.nPos;
+  if (canvas->app->slot->dc == canvas->slot->dc) canvas->app->slot->scrolly = si.nPos;
+  shoes_native_slot_paint(canvas->slot);
+}
+
+LRESULT CALLBACK
+shoes_slot_win32proc(
+  HWND win,
+  UINT msg,
+  WPARAM w,
+  LPARAM l)
+{
+  shoes_canvas *canvas;
+  VALUE c = (VALUE)GetWindowLong(win, GWL_USERDATA);
+
+  if (c != (VALUE)NULL)
+  {
+    Data_Get_Struct(c, shoes_canvas, canvas);
+
+    switch (msg)
+    {
+      case WM_ERASEBKGND:
+        return 1;
+
+      case WM_SIZE:
+        if (shoes_world->os.doublebuffer)
+        {
+          // On Vista, flickering still happens due to a bug in Vista's compositing
+          // engine. We circumvent using some old school software double buffering.
+          // Yes. It sucks. Like shifting gears in an automatic... poorly.
+
+          RECT rc;
+          GetClientRect(win, &rc);
+
+          DeleteDC(canvas->slot->dc);
+
+          HDC windowDC = GetDC(canvas->slot->window);
+          canvas->slot->dc = CreateCompatibleDC(windowDC);
+
+          HBITMAP hbmp = CreateCompatibleBitmap(windowDC, rc.right, rc.bottom);
+          SelectObject(canvas->slot->dc, hbmp);
+          DeleteObject(hbmp);
+
+          ReleaseDC(canvas->slot->window, windowDC);
+
+          HBRUSH bg = CreateSolidBrush(GetSysColor(COLOR_WINDOW));
+          FillRect(canvas->slot->dc, &rc, bg);
+          DeleteObject(bg);
+        }
+        break;
+
+      case WM_PAINT:
+        INFO("WM_PAINT(slot, %lu)\n", win);
+        if (c != canvas->app->canvas)
+          shoes_canvas_paint(c);
+      return 1;
+
+      case WM_VSCROLL:
+        shoes_canvas_win32_vscroll(canvas, LOWORD(w), HIWORD(w));
+      break;
+
+      case WM_LBUTTONDOWN:
+      {
+        WM_POINTS2();
+        shoes_app_click(canvas->app, 1, p.x, p.y + canvas->app->slot->scrolly);
+      }
+      break;
+
+      case WM_RBUTTONDOWN:
+      {
+        WM_POINTS2();
+        shoes_app_click(canvas->app, 2, p.x, p.y + canvas->app->slot->scrolly);
+      }
+      break;
+
+      case WM_MBUTTONDOWN:
+      {
+        WM_POINTS2();
+        shoes_app_click(canvas->app, 3, p.x, p.y + canvas->app->slot->scrolly);
+      }
+      break;
+
+      case WM_LBUTTONUP:
+      {
+        WM_POINTS2();
+        shoes_app_release(canvas->app, 1, p.x, p.y + canvas->app->slot->scrolly);
+      }
+      break;
+
+      case WM_RBUTTONUP:
+      {
+        WM_POINTS2();
+        shoes_app_release(canvas->app, 2, p.x, p.y + canvas->app->slot->scrolly);
+      }
+      break;
+
+      case WM_MBUTTONUP:
+      {
+        WM_POINTS2();
+        shoes_app_release(canvas->app, 3, p.x, p.y + canvas->app->slot->scrolly);
+      }
+      break;
+
+      case WM_MOUSEMOVE:
+      {
+        WM_POINTS2();
+        shoes_app_motion(canvas->app, p.x, p.y + canvas->app->slot->scrolly);
+      }
+      return 1;
+
+      case WM_ACTIVATE:
+        if (LOWORD(w) == WA_INACTIVE)
+        {
+          int i;
+          HWND newFocus = GetFocus();
+          for (i = 0; i < RARRAY_LEN(canvas->slot->controls); i++)
+          {
+            VALUE ctrl = rb_ary_entry(canvas->slot->controls, i);
+            if (rb_obj_is_kind_of(ctrl, cNative))
+            {
+              shoes_control *self_t;
+              Data_Get_Struct(ctrl, shoes_control, self_t);
+              if (self_t->ref == newFocus)
+              {
+                canvas->slot->focus = ctrl;
+                break;
+              }
+            }
+          }
+        }
+      break;
+
+      case WM_SETFOCUS:
+        if (!NIL_P(canvas->slot->focus) && TYPE(canvas->slot->focus) != T_FALSE)
+        {
+          shoes_control_focus(canvas->slot->focus);
+        }
+      break;
+
+      /* TODO: use to make controls clear
+      case WM_CTLCOLOREDIT:
+      case WM_CTLCOLORSTATIC:
+        {
+          HDC hdc = (HDC) w;
+          HBRUSH hbrBkcolor = (HBRUSH)GetStockObject(NULL_BRUSH);
+
+          SetBkMode(hdc, TRANSPARENT);
+          return (LRESULT) hbrBkcolor;
+        }
+      break;
+      */
+
+      case WM_HSCROLL:
+      {
+        if (LOWORD(w) == TB_THUMBTRACK)
+        {
+          int id = GetDlgCtrlID((HWND)l);
+          VALUE control = rb_ary_entry(canvas->slot->controls, id - SHOES_CONTROL1);
+          if (!NIL_P(control))
+            shoes_control_send(control, s_change);
+        }
+      }
+      break;
+
+      case WM_COMMAND:
+        if ((HWND)l)
+        {
+          switch (HIWORD(w))
+          {
+            case BN_CLICKED:
+            {
+              int id = LOWORD(w);
+              VALUE control = rb_ary_entry(canvas->slot->controls, id - SHOES_CONTROL1);
+              if (!NIL_P(control))
+                shoes_button_send_click(control);
+            }
+            break;
+
+            case CBN_SELCHANGE:
+            case EN_CHANGE:
+            {
+              int id = LOWORD(w);
+              VALUE control = rb_ary_entry(canvas->slot->controls, id - SHOES_CONTROL1);
+              if (!NIL_P(control))
+                shoes_control_send(control, s_change);
+            }
+            break;
+          }
+        }
+      break;
+    }
+  }
+  return DefWindowProc(win, msg, w, l);
+}
+
+LRESULT CALLBACK
+shoes_hidden_win32proc(HWND win, UINT msg, WPARAM w, LPARAM l)
+{
+  if (msg > SHOES_WM_MESSAGE && msg < SHOES_WM_MESSAGE + SHOES_MAX_MESSAGE)
+    return shoes_catch_message(msg - SHOES_WM_MESSAGE, (VALUE)w, (void *)l);
+  return DefWindowProc(win, msg, w, l);
+}
+
+static void
+shoes_app_decor(HWND win, int *width, int *height)
+{
+   RECT rect, wrect;
+   GetClientRect(win, &rect);
+   GetWindowRect(win, &wrect);
+   *width = ((wrect.right - wrect.left) - (rect.right - rect.left)) - 2;
+   *height = ((wrect.bottom - wrect.top) - (rect.bottom - rect.top)) - 2;
+}
+
+LRESULT CALLBACK
+shoes_app_win32proc(
+  HWND win,
+  UINT msg,
+  WPARAM w,
+  LPARAM l)
+{
+  shoes_app *app = (shoes_app *)GetWindowLong(win, GWL_USERDATA);
+
+  switch (msg)
+  {
+    case WM_DESTROY:
+      if (shoes_app_remove(app))
+        PostQuitMessage(0);
+    return 0;
+
+    case WM_ERASEBKGND:
+      return 1;
+
+    case WM_SIZE:
+      if (shoes_world->os.doublebuffer)
+      {
+        // On Vista, flickering still happens due to a bug in Vista's compositing
+        // engine. We circumvent using some old school software double buffering.
+        // Yes. It sucks. Like shifting gears in an automatic... poorly.
+
+        RECT rc;
+        GetClientRect(win, &rc);
+
+        if (app->slot->dc != NULL)
+          DeleteDC(app->slot->dc);
+
+        HDC windowDC = GetDC(app->slot->window);
+        app->slot->dc = CreateCompatibleDC(windowDC);
+
+        HBITMAP hbmp = CreateCompatibleBitmap(windowDC, rc.right, rc.bottom);
+        SelectObject(app->slot->dc, hbmp);
+        DeleteObject(hbmp);
+
+        ReleaseDC(app->slot->window, windowDC);
+
+        HBRUSH bg = CreateSolidBrush(GetSysColor(COLOR_WINDOW));
+        FillRect(app->slot->dc, &rc, bg);
+        DeleteObject(bg);
+      }
+    break;
+
+    //
+    // On Windows, I have to ensure the scrollbar's width is added
+    // to the client area width.  In Shoes, the toplevel slot size is
+    // always obscured by the scrollbar when it appears, rather than
+    // resizing the width of the slot->
+    //
+    case WM_PAINT:
+    {
+      RECT rect;
+      int edgew, edgeh;
+      int scrollwidth = GetSystemMetrics(SM_CXVSCROLL);
+      GetClientRect(win, &rect);
+
+      shoes_app_decor(win, &edgew, &edgeh);
+      if (edgew > scrollwidth)
+        rect.right += scrollwidth;
+      app->width = rect.right;
+      app->height = rect.bottom;
+      shoes_canvas_size(app->canvas, app->width, app->height);
+      INFO("WM_PAINT(app, %lu)\n", win);
+
+	  shoes_app_paint(app);
+    }
+    break;
+
+    case WM_GETMINMAXINFO:
+      if (app != NULL)
+      {
+        int edgew, edgeh;
+        int scrollwidth = GetSystemMetrics(SM_CXVSCROLL);
+        MINMAXINFO *size = (MINMAXINFO *)l;
+        shoes_app_decor(win, &edgew, &edgeh);
+        if (edgew > scrollwidth)
+          edgew -= scrollwidth;
+        size->ptMinTrackSize.x = app->minwidth + edgew;
+        size->ptMinTrackSize.y = app->minheight + edgeh;
+      }
+    return 0;
+
+    case WM_LBUTTONDOWN:
+    {
+      shoes_canvas *canvas;
+      Data_Get_Struct(app->canvas, shoes_canvas, canvas);
+      WM_POINTS();
+      shoes_app_click(app, 1, p.x, p.y + canvas->slot->scrolly);
+    }
+    break;
+
+    case WM_RBUTTONDOWN:
+    {
+      shoes_canvas *canvas;
+      Data_Get_Struct(app->canvas, shoes_canvas, canvas);
+      WM_POINTS();
+      shoes_app_click(app, 2, p.x, p.y + canvas->slot->scrolly);
+    }
+    break;
+
+    case WM_MBUTTONDOWN:
+    {
+      shoes_canvas *canvas;
+      Data_Get_Struct(app->canvas, shoes_canvas, canvas);
+      WM_POINTS();
+      shoes_app_click(app, 3, p.x, p.y + canvas->slot->scrolly);
+    }
+    break;
+
+    case WM_LBUTTONUP:
+    {
+      shoes_canvas *canvas;
+      Data_Get_Struct(app->canvas, shoes_canvas, canvas);
+      WM_POINTS();
+      shoes_app_release(app, 1, p.x, p.y + canvas->slot->scrolly);
+    }
+    break;
+
+    case WM_RBUTTONUP:
+    {
+      shoes_canvas *canvas;
+      Data_Get_Struct(app->canvas, shoes_canvas, canvas);
+      WM_POINTS();
+      shoes_app_release(app, 2, p.x, p.y + canvas->slot->scrolly);
+    }
+    break;
+
+    case WM_MBUTTONUP:
+    {
+      shoes_canvas *canvas;
+      Data_Get_Struct(app->canvas, shoes_canvas, canvas);
+      WM_POINTS();
+      shoes_app_release(app, 3, p.x, p.y + canvas->slot->scrolly);
+    }
+    break;
+
+    case WM_MOUSEMOVE:
+    {
+      shoes_canvas *canvas;
+      Data_Get_Struct(app->canvas, shoes_canvas, canvas);
+      WM_POINTS();
+      shoes_app_motion(app, p.x, p.y + canvas->slot->scrolly);
+    }
+    return 1;
+
+    case WM_CHAR:
+      switch(w)
+      {
+        case 0x08:
+          KEY_SYM(backspace);
+        break;
+
+        case 0x09:
+          KEY_SYM(tab);
+        break;
+
+        case 0x0D:
+          shoes_app_keypress(app, rb_str_new2("\n"));
+        break;
+
+        default:
+        {
+          VALUE v;
+          WCHAR _str = w;
+          CHAR str[10];
+          DWORD len = WideCharToMultiByte(CP_UTF8, 0, &_str, 1, (LPSTR)str, 10, NULL, NULL);
+          str[len] = '\0';
+          v = rb_str_new(str, len);
+          shoes_app_keypress(app, v);
+        }
+      }
+    break;
+
+    case WM_KEYDOWN:
+      app->os.altkey = FALSE;
+    case WM_SYSKEYDOWN:
+      shoes_app_keydown(app, kh_down_v);
+      if (w == VK_CONTROL)
+        app->os.ctrlkey = TRUE;
+      else if (w == VK_MENU)
+        app->os.altkey = TRUE;
+      else if (w == VK_SHIFT)
+        app->os.shiftkey = TRUE;
+      KEYPRESS(ESCAPE, escape)
+      KEYPRESS(INSERT, insert)
+      KEYPRESS(DELETE, delete)
+      KEYPRESS(PRIOR, page_up)
+      KEYPRESS(NEXT, page_down)
+      KEYPRESS(HOME, home)
+      KEYPRESS(END, end)
+      KEYPRESS(LEFT, left)
+      KEYPRESS(UP, up)
+      KEYPRESS(RIGHT, right)
+      KEYPRESS(DOWN, down)
+      KEYPRESS(F1, f1)
+      KEYPRESS(F2, f2)
+      KEYPRESS(F3, f3)
+      KEYPRESS(F4, f4)
+      KEYPRESS(F5, f5)
+      KEYPRESS(F6, f6)
+      KEYPRESS(F7, f7)
+      KEYPRESS(F8, f8)
+      KEYPRESS(F9, f9)
+      KEYPRESS(F10, f10)
+      KEYPRESS(F11, f11)
+      KEYPRESS(F12, f12)
+      else if ((w >= 'A' && w <= 'Z') || w == 191 || w == 190) {
+        VALUE v;
+        char letter = w;
+        if (w == 191)
+        {
+          if (app->os.shiftkey)
+            letter = '?';
+          else
+            letter = '/';
+        }
+        else if (w == 190)
+        {
+          if (app->os.shiftkey)
+            letter = '>';
+          else
+            letter = '.';
+        }
+        else
+        {
+          if (!app->os.shiftkey)
+            letter += 32;
+        }
+        v = rb_str_new(&letter, 1);
+        if (app->os.altkey) {
+          KEY_STATE(alt);
+          shoes_app_keypress(app, v);
+        }
+      }
+    break;
+
+    case WM_SYSKEYUP:
+    case WM_KEYUP:
+      shoes_app_keyup(app, kh_up_v);
+      if (w == VK_CONTROL)
+        app->os.ctrlkey = FALSE;
+      else if (w == VK_MENU)
+        app->os.altkey = FALSE;
+      else if (w == VK_SHIFT)
+        app->os.shiftkey = FALSE;
+    break;
+
+    case WM_MOUSEWHEEL:
+    {
+      shoes_canvas *canvas;
+      int lines = 0, scode = 0;
+      int notch = ((int)w >> 16) / WHEEL_DELTA;
+      SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, &lines, 0);
+      if (lines == WHEEL_PAGESCROLL)
+        scode = (int)w < 0 ? SB_PAGEDOWN : SB_PAGEUP;
+      else
+      {
+        scode = (int)w < 0 ? SB_LINEDOWN : SB_LINEUP;
+        notch *= lines;
+      }
+
+      INFO("WM_MOUSEWHEEL: %d (%d, %d) %lu\n", w, scode, notch, lines);
+      notch = abs(notch);
+      Data_Get_Struct(app->canvas, shoes_canvas, canvas);
+      while (notch--)
+        shoes_canvas_win32_vscroll(canvas, scode, 0);
+    }
+    break;
+
+    case WM_VSCROLL:
+    {
+      shoes_canvas *canvas;
+      Data_Get_Struct(app->canvas, shoes_canvas, canvas);
+      shoes_canvas_win32_vscroll(canvas, LOWORD(w), HIWORD(w));
+    }
+    break;
+
+    case WM_TIMER:
+    {
+      int id = LOWORD(w);
+      VALUE timer = rb_ary_entry(app->extras, id - SHOES_CONTROL1);
+      if (!NIL_P(timer))
+      {
+        if (rb_obj_is_kind_of(timer, cTimer))
+          KillTimer(win, id);
+        shoes_timer_call(timer);
+      }
+    }
+    break;
+
+    case WM_ACTIVATE:
+      if (LOWORD(w) == WA_INACTIVE)
+      {
+        int i;
+        HWND newFocus = GetFocus();
+        for (i = 0; i < RARRAY_LEN(app->slot->controls); i++)
+        {
+          VALUE ctrl = rb_ary_entry(app->slot->controls, i);
+          if (rb_obj_is_kind_of(ctrl, cNative))
+          {
+            shoes_control *self_t;
+            Data_Get_Struct(ctrl, shoes_control, self_t);
+            if (self_t->ref == newFocus)
+            {
+              app->slot->focus = ctrl;
+              break;
+            }
+          }
+        }
+      }
+    break;
+
+    case WM_SETFOCUS:
+      if (!NIL_P(app->slot->focus))
+      {
+        shoes_control_focus(app->slot->focus);
+      }
+    break;
+
+    case WM_HSCROLL:
+    {
+      if (LOWORD(w) == TB_THUMBTRACK)
+      {
+        int id = GetDlgCtrlID((HWND)l);
+        VALUE control = rb_ary_entry(app->slot->controls, id - SHOES_CONTROL1);
+        if (!NIL_P(control))
+          shoes_control_send(control, s_change);
+      }
+    }
+    break;
+
+    case WM_COMMAND:
+      if ((HWND)l)
+      {
+        switch (HIWORD(w))
+        {
+          case BN_CLICKED:
+          {
+            int id = LOWORD(w);
+            VALUE control = rb_ary_entry(app->slot->controls, id - SHOES_CONTROL1);
+            if (!NIL_P(control))
+              shoes_button_send_click(control);
+          }
+          break;
+
+          case CBN_SELCHANGE:
+          case EN_CHANGE:
+          {
+            int id = LOWORD(w);
+            VALUE control = rb_ary_entry(app->slot->controls, id - SHOES_CONTROL1);
+            if (!NIL_P(control))
+              shoes_control_send(control, s_change);
+          }
+          break;
+        }
+      }
+    break;
+  }
+
+  return DefWindowProc(win, msg, w, l);
+}
+
+shoes_code
+shoes_app_cursor(shoes_app *app, ID cursor)
+{
+  HCURSOR c;
+  if (app->slot == NULL || app->slot->window == NULL)
+    goto done;
+
+  if (cursor == s_hand || cursor == s_link)
+  {
+    c = LoadCursor(NULL, IDC_HAND);
+  }
+  else if (cursor == s_arrow)
+  {
+    c = LoadCursor(NULL, IDC_ARROW);
+  }
+  else if (cursor == s_text)
+  {
+    c = LoadCursor(NULL, IDC_IBEAM);
+  }
+  else
+    goto done;
+
+  SetCursor(c);
+
+  app->cursor = cursor;
+
+done:
+  return SHOES_OK;
+}
+
+shoes_code
+shoes_classex_init()
+{
+  shoes_code code = SHOES_OK;
+
+  shoes_world->os.hiddenex.cbSize = sizeof(WNDCLASSEX);
+  shoes_world->os.hiddenex.style = 0;
+  shoes_world->os.hiddenex.lpfnWndProc = (WNDPROC)shoes_hidden_win32proc;
+  shoes_world->os.hiddenex.cbClsExtra = 0;
+  shoes_world->os.hiddenex.cbWndExtra = 0;
+  shoes_world->os.hiddenex.hInstance = shoes_world->os.instance;
+  shoes_world->os.hiddenex.hIcon = NULL;
+  shoes_world->os.hiddenex.hCursor = NULL;
+  shoes_world->os.hiddenex.hbrBackground = NULL;
+  shoes_world->os.hiddenex.lpszMenuName = NULL;
+  shoes_world->os.hiddenex.lpszClassName = SHOES_HIDDENCLS;
+  shoes_world->os.hiddenex.hIconSm = NULL;
+
+  if (!RegisterClassEx(&shoes_world->os.hiddenex))
+  {
+    QUIT("Couldn't register Shoes hidden window class.");
+  }
+
+
+  shoes_world->os.classex.hInstance = shoes_world->os.instance;
+  shoes_world->os.classex.lpszClassName = SHOES_SHORTNAME;
+  shoes_world->os.classex.lpfnWndProc = shoes_app_win32proc;
+  shoes_world->os.classex.style = 0;
+  shoes_world->os.classex.cbSize = sizeof(WNDCLASSEX);
+  shoes_world->os.classex.hIcon = LoadIcon(shoes_world->os.instance, IDI_APPLICATION);
+  shoes_world->os.classex.hIconSm = LoadIcon(shoes_world->os.instance, IDI_APPLICATION);
+  shoes_world->os.classex.hCursor = LoadCursor(NULL, IDC_ARROW);
+  shoes_world->os.classex.lpszMenuName = NULL;
+  shoes_world->os.classex.cbClsExtra = 0;
+  shoes_world->os.classex.cbWndExtra = 0;
+  shoes_world->os.classex.hbrBackground = (HBRUSH)COLOR_WINDOW;
+
+  shoes_world->os.classatom = RegisterClassEx(&shoes_world->os.classex);
+  if (!shoes_world->os.classatom)
+  {
+    QUIT("Couldn't register WIN32 window class.");
+  }
+
+  shoes_world->os.vlclassex.hInstance = shoes_world->os.slotex.hInstance = shoes_world->os.instance;
+  shoes_world->os.vlclassex.lpszClassName = SHOES_VLCLASS;
+  shoes_world->os.slotex.lpszClassName = SHOES_SLOTCLASS;
+  shoes_world->os.vlclassex.style = shoes_world->os.slotex.style = CS_NOCLOSE;
+  shoes_world->os.vlclassex.lpfnWndProc = DefWindowProc;
+  shoes_world->os.slotex.lpfnWndProc = shoes_slot_win32proc;
+  shoes_world->os.vlclassex.cbSize = shoes_world->os.slotex.cbSize = sizeof(WNDCLASSEX);
+  shoes_world->os.vlclassex.hIcon = shoes_world->os.slotex.hIcon = NULL;
+  shoes_world->os.vlclassex.hIconSm = shoes_world->os.slotex.hIconSm = NULL;
+  shoes_world->os.vlclassex.hCursor = shoes_world->os.slotex.hCursor = LoadCursor(NULL, IDC_ARROW);
+  shoes_world->os.vlclassex.lpszMenuName = shoes_world->os.slotex.lpszMenuName = NULL;
+  shoes_world->os.vlclassex.cbClsExtra = shoes_world->os.slotex.cbClsExtra = 0;
+  shoes_world->os.vlclassex.cbWndExtra = shoes_world->os.slotex.cbWndExtra = 0;
+  shoes_world->os.vlclassex.hbrBackground = shoes_world->os.slotex.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);
+
+  if (!RegisterClassEx(&shoes_world->os.slotex) || !RegisterClassEx(&shoes_world->os.vlclassex))
+  {
+    QUIT("Couldn't register VLC window class.");
+  }
+
+quit:
+  return code;
+}
+
+void
+shoes_native_app_resized(shoes_app *app)
+{
+  if (app->slot->window != NULL)
+  {
+    RECT r;
+    GetWindowRect(app->slot->window, &r);
+    r.right = r.left + app->width;
+    r.bottom = r.top + app->height;
+    AdjustWindowRect(&r, WINDOW_STYLE, FALSE);
+
+    MoveWindow(app->slot->window, r.left, r.top, r.right - r.left, r.bottom - r.top, TRUE);
+  }
+}
+
+void
+shoes_native_app_title(shoes_app *app, char *msg)
+{
+  WCHAR *buffer = shoes_wchar(msg);
+  if (buffer != NULL)
+  {
+    SetWindowTextW(app->slot->window, buffer);
+    SHOE_FREE(buffer);
+  }
+}
+
+void
+shoes_native_app_fullscreen(shoes_app *app, char yn)
+{
+  if (yn)
+    GetWindowRect(app->slot->window, &app->os.normal);
+  SetWindowLong(app->slot->window, GWL_STYLE, yn ? WINDOW_STYLE_FULLSCREEN : app->os.style);
+  ShowWindow(FindWindow("Shell_TrayWnd", NULL), yn ? SW_HIDE : SW_SHOW);
+  if (!yn)
+    MoveWindow(app->slot->window, app->os.normal.left, app->os.normal.top,
+      app->os.normal.right - app->os.normal.left, app->os.normal.bottom - app->os.normal.top, TRUE);
+  ShowWindow(app->slot->window, yn ? SW_SHOWMAXIMIZED : SW_SHOWNORMAL);
+}
+
+shoes_code
+shoes_native_app_open(shoes_app *app, char *path, int dialog)
+{
+  shoes_code code = SHOES_OK;
+  LONG style;
+  DWORD exStyle = dialog ? WS_EX_WINDOWEDGE : WS_EX_CLIENTEDGE;
+
+  app->slot->controls = Qnil;
+  app->slot->focus = Qnil;
+  app->slot->parent = NULL;
+  app->os.ctrlkey = FALSE;
+  app->os.altkey = FALSE;
+  app->os.shiftkey = FALSE;
+
+  // remove the menu
+  app->os.normal.left = 0;
+  app->os.normal.top = 0;
+  app->os.normal.right = app->width;
+  app->os.normal.bottom = app->height;
+  AdjustWindowRectEx(&app->os.normal, WINDOW_STYLE, FALSE, exStyle);
+
+  if (!shoes_world->os.doublebuffer)
+	{
+    if (rb_eval_string("$NOLAYERED == 1"))
+      exStyle |= WS_EX_COMPOSITED;
+    else
+      exStyle |= WS_EX_COMPOSITED|WS_EX_LAYERED;
+	}
+  else
+    exStyle |= WS_EX_COMPOSITED;
+
+  style = app->os.style = WINDOW_STYLE |
+    (app->resizable ? (WS_THICKFRAME | WS_MAXIMIZEBOX) : WS_DLGFRAME) |
+    WS_VSCROLL | ES_AUTOVSCROLL;
+  if (app->fullscreen)
+    style = WINDOW_STYLE_FULLSCREEN;
+
+  if (shoes_world->os.doublebuffer)
+    style |= WS_CLIPCHILDREN | WS_CLIPSIBLINGS;
+
+  app->slot->window = CreateWindowEx(
+    exStyle, SHOES_SHORTNAME, SHOES_APPNAME, style,
+    CW_USEDEFAULT, CW_USEDEFAULT,
+    app->os.normal.right-app->os.normal.left, app->os.normal.bottom-app->os.normal.top,
+    HWND_DESKTOP,
+    NULL,
+    shoes_world->os.instance,
+    NULL);
+
+  SetWindowLong(app->slot->window, GWL_USERDATA, (long)app);
+  shoes_win32_center(app->slot->window);
+
+  SCROLLINFO si;
+  si.cbSize = sizeof(SCROLLINFO);
+  si.fMask = SIF_RANGE | SIF_PAGE | SIF_POS;
+  si.nMin = 0;
+  si.nMax = 0;
+  si.nPage = 0;
+  si.nPos = 0;
+  SetScrollInfo(app->slot->window, SB_VERT, &si, TRUE);
+
+  return code;
+}
+
+void
+shoes_native_app_show(shoes_app *app)
+{
+  // TODO: disable parent windows of dialogs
+  // if (dialog && !NIL_P(app->owner))
+  // {
+  //   shoes_app *owner;
+  //   Data_Get_Struct(app->owner, shoes_app, owner);
+  //   EnableWindow(owner->slot->window, FALSE);
+  // }
+  ShowWindow(app->slot->window, SW_SHOWNORMAL);
+}
+
+void shoes_tab_focus(shoes_app *app)
+{
+  int i, j, n;
+  HWND newFocus = GetFocus();
+  n = RARRAY_LEN(app->slot->controls);
+  
+  for (i = 0; i < n; i++)
+  {
+    if (app->os.shiftkey)
+    {
+      if (i == 0)
+        j = n - 1;
+      else
+        j = i - 1;
+    }
+    else
+    {
+      if (i == n - 1)
+        j = 0;
+      else
+        j = i + 1;
+    }
+    
+    VALUE ctrl = rb_ary_entry(app->slot->controls, i);
+    VALUE nctrl = rb_ary_entry(app->slot->controls, j);
+    
+    if (rb_obj_is_kind_of(ctrl, cNative))
+    {
+      shoes_control *self_t;
+      Data_Get_Struct(ctrl, shoes_control, self_t);
+      if (self_t->ref == newFocus)
+      {
+        app->slot->focus = nctrl;
+        shoes_control_focus(app->slot->focus);
+        break;
+      }
+      else
+      {
+        if (i == n - 1)
+        {
+          if (app->os.shiftkey)
+            nctrl = rb_ary_entry(app->slot->controls, n - 1);
+          else
+            nctrl = rb_ary_entry(app->slot->controls, 0);
+          app->slot->focus = nctrl;
+          shoes_control_focus(app->slot->focus);
+          break;
+        }
+      }
+    }
+  }
+}
+
+void
+shoes_native_loop()
+{
+  MSG msgs;
+  while (msgs.message != WM_QUIT)
+  {
+    BOOL msg = PeekMessage(&msgs, NULL, 0, 0, PM_REMOVE);
+    if (msg)
+    {
+      HWND focused = GetForegroundWindow();
+      shoes_app *appk = (shoes_app *)GetWindowLong(focused, GWL_USERDATA);
+      if (msgs.message == WM_KEYDOWN || msgs.message == WM_KEYUP)
+      {
+        ATOM wndatom = GetClassLong(focused, GCW_ATOM);
+        if (appk != NULL && wndatom == shoes_world->os.classatom && RARRAY_LEN(appk->slot->controls) > 0)
+        {
+          switch (msgs.wParam)
+          {
+            case VK_SHIFT:
+              if (msgs.message == WM_KEYDOWN)
+                appk->os.shiftkey = TRUE;
+              else
+                appk->os.shiftkey = FALSE;
+              msg = FALSE;
+              break;
+            case VK_TAB:
+              if (msgs.message == WM_KEYUP) shoes_tab_focus(appk);
+              msg = FALSE;
+              break;
+            case VK_UP: case VK_LEFT: case VK_DOWN:
+            case VK_RIGHT: case VK_PRIOR: case VK_NEXT:
+              break;
+            default:
+              msg = FALSE;
+          }
+        }
+        else msg = FALSE;
+      }
+      else if (msgs.message == WM_SYSCHAR || msgs.message == WM_CHAR)
+        msg = FALSE;
+      else if (msgs.message == WM_MOUSEMOVE && focused == GetActiveWindow())
+        shoes_app_cursor(appk, appk->cursor);
+
+      if (msg)
+        msg = IsDialogMessage(focused, &msgs);
+
+      if (!msg)
+      {
+        TranslateMessage(&msgs);
+        DispatchMessage(&msgs);
+      }
+    }
+    else
+    {
+      rb_eval_string("sleep(0.001)");
+    }
+  }
+}
+
+void
+shoes_native_app_close(shoes_app *app)
+{
+  SendMessage(APP_WINDOW(app), WM_CLOSE, 0, 0);
+}
+
+void
+shoes_browser_open(char *url)
+{
+  ShellExecute(0, "open", url, 0, 0, 0);
+}
+
+void
+shoes_slot_init(VALUE c, SHOES_SLOT_OS *parent, int x, int y, int width, int height, int scrolls, int toplevel)
+{
+  shoes_canvas *canvas;
+  SHOES_SLOT_OS *slot;
+  Data_Get_Struct(c, shoes_canvas, canvas);
+  slot = shoes_slot_alloc(canvas, parent, toplevel);
+  slot->parent = parent;
+  slot->vscroll = scrolls;
+
+  if (toplevel)
+  {
+    slot->dc = parent->dc;
+    slot->window = parent->window;
+    slot->controls = parent->controls;
+  }
+  else
+  {
+    slot->controls = rb_ary_new();
+    slot->dc = NULL;
+
+    DWORD exStyle = WS_EX_TRANSPARENT;
+
+    if (shoes_world->os.doublebuffer)
+      exStyle = WS_EX_COMPOSITED;
+
+    slot->window = CreateWindowEx(exStyle, SHOES_SLOTCLASS, "Shoes Slot Window",
+      WS_CHILD | WS_TABSTOP | WS_VISIBLE | WS_CLIPCHILDREN | WS_CLIPSIBLINGS,
+      x, y, width, height, parent->window, NULL,
+      (HINSTANCE)GetWindowLong(parent->window, GWL_HINSTANCE), NULL);
+
+    SetWindowPos(slot->window, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOREDRAW);
+    SetWindowLong(slot->window, GWL_USERDATA, (long)c);
+  }
+  if (toplevel) shoes_canvas_size(c, width, height);
+}
+
+void
+shoes_slot_destroy(shoes_canvas *canvas, shoes_canvas *pc)
+{
+  if (shoes_world->os.doublebuffer)
+    DeleteDC(canvas->slot->dc);
+
+  DestroyWindow(canvas->slot->window);
+}
+
+cairo_t *
+shoes_cairo_create(shoes_canvas *canvas)
+{
+  if (canvas->slot->surface != NULL)
+    return NULL;
+
+  RECT rc;
+  GetClientRect(canvas->slot->window, &rc);
+
+  if (shoes_world->os.doublebuffer)
+  {
+    if (canvas->slot->window == canvas->app->slot->window)
+    {
+      canvas->slot->dc = canvas->app->slot->dc;
+    }
+
+    // So that siblings see the changes, we must copy from siblings beneath us
+    if (canvas->slot->window != canvas->app->slot->window)
+    {
+      HANDLE current = canvas->slot->window;
+      current = GetWindow(current, GW_HWNDLAST);
+
+      RECT canvas_rcw;
+      GetWindowRect(canvas->slot->window, &canvas_rcw);
+      while(current != canvas->slot->window)
+      {
+        shoes_canvas *sibling_canvas;
+        VALUE c = (VALUE)GetWindowLong(current, GWL_USERDATA);
+
+        if (c == (VALUE)NULL)
+        {
+          break;
+        }
+
+        Data_Get_Struct(c, shoes_canvas, sibling_canvas);
+
+        RECT sibling_rc;
+        RECT sibling_rcw;
+        GetClientRect(sibling_canvas->slot->window, &sibling_rc);
+        GetWindowRect(sibling_canvas->slot->window, &sibling_rcw);
+
+        BitBlt(canvas->slot->dc, sibling_rcw.left-canvas_rcw.left, sibling_rcw.top-canvas_rcw.top, sibling_rc.right, sibling_rc.bottom, sibling_canvas->slot->dc, 0, 0, SRCCOPY);
+        current = GetWindow(current, GW_HWNDPREV);
+      }
+    }
+  }
+  else
+  {
+    canvas->slot->dc = BeginPaint(canvas->slot->window, &canvas->slot->ps);
+  }
+
+  if (canvas->slot->window == canvas->app->slot->window)
+  {
+    HBRUSH bg = CreateSolidBrush(GetSysColor(COLOR_WINDOW));
+    FillRect(canvas->slot->dc, &rc, bg);
+    DeleteObject(bg);
+  }
+
+  canvas->slot->surface = cairo_win32_surface_create(canvas->slot->dc);
+
+  cairo_t *cr = cairo_create(canvas->slot->surface);
+  cairo_translate(cr, 0, -canvas->slot->scrolly);
+  return cr;
+}
+
+void shoes_cairo_destroy(shoes_canvas *canvas)
+{
+  RECT rc;
+  GetClientRect(canvas->slot->window, &rc);
+
+  cairo_surface_destroy(canvas->slot->surface);
+  canvas->slot->surface = NULL;
+
+  if (shoes_world->os.doublebuffer)
+  {
+    // We are manually double buffering in Vista, so we need to copy the
+    // image over to the actual display.
+    BeginPaint(canvas->slot->window, &canvas->slot->ps);
+
+    if (canvas->slot->window == canvas->app->slot->window)
+    {
+      canvas->slot->dc = canvas->app->slot->dc;
+    }
+
+    BitBlt(canvas->slot->ps.hdc,
+	  0, 0, rc.right, rc.bottom,
+	  canvas->slot->dc,
+	  0, 0, SRCCOPY);
+
+    RECT rcw;
+    GetWindowRect(canvas->slot->window, &rcw);
+
+    // So children see the changes, we copy to each child
+    HANDLE current;
+
+    current = canvas->slot->window;
+    current = GetWindow(current, GW_CHILD);
+
+    while(current != NULL)
+    {
+      shoes_canvas *child_canvas;
+      VALUE c = (VALUE)GetWindowLong(current, GWL_USERDATA);
+
+      if (c == (VALUE)NULL)
+        break;
+
+      Data_Get_Struct(c, shoes_canvas, child_canvas);
+
+      RECT child_rc;
+      RECT child_rcw;
+      GetClientRect(child_canvas->slot->window, &child_rc);
+      GetWindowRect(child_canvas->slot->window, &child_rcw);
+
+      if (canvas->slot->window == canvas->app->slot->window)
+      {
+        POINT p = {0};
+        ClientToScreen(child_canvas->app->slot->window, &p);
+        BitBlt(child_canvas->slot->dc, 0, 0, child_rc.right, child_rc.bottom, canvas->slot->dc, child_rcw.left-p.x, child_rcw.top-p.y, SRCCOPY);
+      }
+      else
+      {
+        BitBlt(child_canvas->slot->dc, 0, 0, child_rc.right, child_rc.bottom, canvas->slot->dc, child_rcw.left-rcw.left, child_rcw.top-rcw.top, SRCCOPY);
+      }
+      current = GetWindow(current, GW_HWNDNEXT);
+    }
+
+    // update parents
+    SHOES_SLOT_OS *child = canvas->slot;
+
+    while (child->window != canvas->app->slot->window)
+    {
+      SHOES_SLOT_OS *parent;
+      parent = (SHOES_SLOT_OS*)child->parent;
+
+      RECT parent_rcw;
+      RECT canvas_rc;
+      RECT canvas_rcw;
+
+      GetWindowRect(parent->window, &parent_rcw);
+
+	  GetClientRect(child->window, &canvas_rc);
+      GetWindowRect(child->window, &canvas_rcw);
+
+      BitBlt(parent->dc, canvas_rcw.left-parent_rcw.left, canvas_rcw.top-parent_rcw.top, canvas_rc.right, canvas_rc.bottom, child->dc, 0, 0, SRCCOPY);
+      child = parent;
+    }
+  }
+
+  EndPaint(canvas->slot->window, &canvas->slot->ps);
+}
+
+void
+shoes_group_clear(SHOES_GROUP_OS *group)
+{
+}
+
+void
+shoes_native_canvas_place(shoes_canvas *self_t, shoes_canvas *pc)
+{
+  RECT r;
+  GetWindowRect(self_t->slot->window, &r);
+  if (r.left != self_t->place.ix + self_t->place.dx ||
+      r.top != (self_t->place.iy + self_t->place.dy) - pc->slot->scrolly ||
+      r.right - r.left != self_t->place.iw ||
+      r.bottom - r.top != self_t->place.ih)
+  {
+    MoveWindow(self_t->slot->window, self_t->place.ix + self_t->place.dx,
+      (self_t->place.iy + self_t->place.dy) - pc->slot->scrolly, self_t->place.iw,
+      self_t->place.ih, TRUE);
+  }
+}
+
+void
+shoes_native_canvas_resize(shoes_canvas *canvas)
+{
+  if (shoes_world->os.doublebuffer)
+  {
+    RECT rc;
+    GetClientRect(canvas->slot->window, &rc);
+
+    HDC windowDC = GetDC(canvas->slot->window);
+    canvas->slot->dc = CreateCompatibleDC(windowDC);
+
+    HBITMAP hbmp = CreateCompatibleBitmap(windowDC, rc.right, rc.bottom);
+    SelectObject(canvas->slot->dc, hbmp);
+    DeleteObject(hbmp);
+
+    ReleaseDC(canvas->slot->window, windowDC);
+  }
+}
+
+void
+shoes_native_control_hide(SHOES_CONTROL_REF ref)
+{
+  ShowWindow(ref, SW_HIDE);
+}
+
+void
+shoes_native_control_show(SHOES_CONTROL_REF ref)
+{
+  ShowWindow(ref, SW_SHOW);
+}
+
+void
+shoes_native_control_position(SHOES_CONTROL_REF ref, shoes_place *p1, VALUE self,
+  shoes_canvas *canvas, shoes_place *p2)
+{
+  PLACE_COORDS();
+  MoveWindow(ref, p2->ix + p2->dx, p2->iy + p2->dy, p2->iw, p2->ih, TRUE);
+  if (shoes_world->os.doublebuffer)
+  {
+    RECT rc;
+    GetClientRect(canvas->slot->window, &rc);
+
+//    HDC windowDC = GetDC(canvas->slot->window);
+//    canvas->slot->dc = CreateCompatibleDC(windowDC);
+
+    HBITMAP hbmp = CreateCompatibleBitmap(canvas->slot->dc, rc.right, rc.bottom);
+    SelectObject(canvas->slot->dc, hbmp);
+    DeleteObject(hbmp);
+
+//    ReleaseDC(canvas->slot->window, windowDC);
+  }
+}
+
+void
+shoes_native_control_position_no_pad(SHOES_CONTROL_REF ref, shoes_place *p1, VALUE self,
+  shoes_canvas *canvas, shoes_place *p2)
+{
+  PLACE_COORDS_NO_PAD();
+  MoveWindow(ref, p2->ix + p2->dx, p2->iy + p2->dy, p2->iw, p2->ih, TRUE);
+  if (shoes_world->os.doublebuffer)
+  {
+    RECT rc;
+    GetClientRect(canvas->slot->window, &rc);
+
+//    HDC windowDC = GetDC(canvas->slot->window);
+//    canvas->slot->dc = CreateCompatibleDC(windowDC);
+
+    HBITMAP hbmp = CreateCompatibleBitmap(canvas->slot->dc, rc.right, rc.bottom);
+    SelectObject(canvas->slot->dc, hbmp);
+    DeleteObject(hbmp);
+
+//    ReleaseDC(canvas->slot->window, windowDC);
+  }
+}
+
+void
+shoes_native_control_repaint(SHOES_CONTROL_REF ref, shoes_place *p1,
+  shoes_canvas *canvas, shoes_place *p2)
+{
+  p2->iy -= canvas->slot->scrolly;
+  if (CHANGED_COORDS())
+    shoes_native_control_position(ref, p1, Qnil, canvas, p2);
+  p2->iy += canvas->slot->scrolly;
+}
+
+void
+shoes_native_control_repaint_no_pad(SHOES_CONTROL_REF ref, shoes_place *p1,
+  shoes_canvas *canvas, shoes_place *p2)
+{
+  p2->iy -= canvas->slot->scrolly;
+  if (CHANGED_COORDS_NO_PAD())
+    shoes_native_control_position_no_pad(ref, p1, Qnil, canvas, p2);
+  p2->iy += canvas->slot->scrolly;
+}
+
+void
+shoes_native_control_state(SHOES_CONTROL_REF ref, BOOL sensitive, BOOL setting)
+{
+  EnableWindow(ref, sensitive);
+  SendMessage(ref, EM_SETREADONLY, !setting, 0);
+}
+
+void
+shoes_native_control_focus(SHOES_CONTROL_REF ref)
+{
+  SetFocus(ref);
+}
+
+void
+shoes_native_control_remove(SHOES_CONTROL_REF ref, shoes_canvas *canvas)
+{
+  if (GetFocus() == ref) SetFocus(canvas->app->slot->window);
+  DestroyWindow(ref);
+}
+
+void
+shoes_native_control_free(SHOES_CONTROL_REF ref)
+{
+}
+
+inline void shoes_win32_control_font(int id, HWND hwnd)
+{
+  SendDlgItemMessage(hwnd, id, WM_SETFONT, (WPARAM)GetStockObject(DEFAULT_GUI_FONT), MAKELPARAM(TRUE, 0));
+}
+
+SHOES_SURFACE_REF
+shoes_native_surface_new(shoes_canvas *canvas, VALUE self, shoes_place *place)
+{
+  int cid = SHOES_CONTROL1 + RARRAY_LEN(canvas->slot->controls);
+  SHOES_SURFACE_REF ref = CreateWindowEx(WS_EX_TRANSPARENT, SHOES_VLCLASS, "Shoes VLC Window",
+      WS_CHILD | WS_TABSTOP | WS_VISIBLE,
+      place->ix + place->dx, place->iy + place->dy,
+      place->iw, place->ih,
+      canvas->slot->window, (HMENU)cid, 
+      (HINSTANCE)GetWindowLong(canvas->slot->window, GWL_HINSTANCE), NULL);
+  SetWindowPos(ref, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOREDRAW);
+  rb_ary_push(canvas->slot->controls, self);
+  return ref;
+}
+
+void
+shoes_native_surface_position(SHOES_SURFACE_REF ref, shoes_place *p1, 
+  VALUE self, shoes_canvas *canvas, shoes_place *p2)
+{
+  shoes_native_control_position(ref, p1, self, canvas, p2);
+}
+
+void
+shoes_native_surface_hide(SHOES_SURFACE_REF ref)
+{
+  shoes_native_control_hide(ref);
+}
+
+void
+shoes_native_surface_show(SHOES_SURFACE_REF ref)
+{
+  shoes_native_control_show(ref);
+}
+
+void
+shoes_native_surface_remove(shoes_canvas *canvas, SHOES_SURFACE_REF ref)
+{
+  DestroyWindow(ref);
+}
+
+SHOES_CONTROL_REF
+shoes_native_button(VALUE self, shoes_canvas *canvas, shoes_place *place, char *msg)
+{
+  int cid = SHOES_CONTROL1 + RARRAY_LEN(canvas->slot->controls);
+  WCHAR *buffer = shoes_wchar(msg);
+  SHOES_CONTROL_REF ref = CreateWindowExW(WS_EX_NOPARENTNOTIFY, L"BUTTON", buffer,
+      WS_TABSTOP | WS_VISIBLE | WS_CHILD | BS_PUSHBUTTON,
+      place->ix + place->dx, place->iy + place->dy, place->iw, place->ih,
+      canvas->slot->window, (HMENU)cid, 
+      (HINSTANCE)GetWindowLong(canvas->slot->window, GWL_HINSTANCE),
+      NULL);
+  SetWindowPos(ref, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOREDRAW);
+  if (buffer != NULL) SHOE_FREE(buffer);
+  shoes_win32_control_font(cid, canvas->slot->window);
+  rb_ary_push(canvas->slot->controls, self);
+  return ref;
+}
+
+SHOES_CONTROL_REF
+shoes_native_edit_line(VALUE self, shoes_canvas *canvas, shoes_place *place, VALUE attr, char *msg)
+{
+  int cid = SHOES_CONTROL1 + RARRAY_LEN(canvas->slot->controls);
+  SHOES_CONTROL_REF ref = CreateWindowEx(WS_EX_CLIENTEDGE | WS_EX_TRANSPARENT, TEXT("EDIT"), NULL,
+      WS_TABSTOP | WS_VISIBLE | WS_CHILD | WS_BORDER | ES_LEFT | ES_AUTOHSCROLL |
+      (RTEST(ATTR(attr, secret)) ? ES_PASSWORD : 0),
+      place->ix + place->dx, place->iy + place->dy, place->iw, place->ih,
+      canvas->slot->window, (HMENU)cid, 
+      (HINSTANCE)GetWindowLong(canvas->slot->window, GWL_HINSTANCE),
+      NULL);
+  
+  shoes_original_edit_line_proc = (WNDPROC)GetWindowLong(ref, GWL_WNDPROC);
+  SetWindowLong(ref, GWL_WNDPROC, (LONG)shoes_edit_line_win32proc); 
+  
+  SetWindowPos(ref, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOREDRAW);
+  shoes_win32_control_font(cid, canvas->slot->window);
+  shoes_native_edit_line_set_text(ref, msg);
+  rb_ary_push(canvas->slot->controls, self);
+  return ref;
+}
+
+LRESULT CALLBACK shoes_edit_line_win32proc(HWND win, UINT msg, WPARAM w, LPARAM l)
+{
+  if (msg == WM_KEYDOWN && w == VK_RETURN) rb_eval_string("Shoes.hook");
+  return CallWindowProc(shoes_original_edit_line_proc, win, msg, w, l);
+}
+
+VALUE
+shoes_native_edit_line_get_text(SHOES_CONTROL_REF ref)
+{
+  VALUE text;
+  LONG i;
+  char *utf8 = NULL;
+  WCHAR *buffer = NULL;
+  i = (LONG)SendMessageW(ref, WM_GETTEXTLENGTH, 0, 0) + 1;
+  if (!i) goto empty;
+  buffer = SHOE_ALLOC_N(WCHAR, i);
+  if (!buffer) goto empty;
+  SendMessageW(ref, WM_GETTEXT, i, (LPARAM)buffer);
+
+  utf8 = shoes_utf8(buffer);
+  text = rb_str_new2(utf8);
+  SHOE_FREE(utf8);
+  SHOE_FREE(buffer);
+  return text;
+empty:
+  if (buffer != NULL) SHOE_FREE(buffer);
+  return rb_str_new2("");
+}
+
+void
+shoes_native_edit_line_set_text(SHOES_CONTROL_REF ref, char *msg)
+{
+  WCHAR *buffer = shoes_wchar(msg);
+  if (buffer != NULL)
+  {
+    SendMessageW(ref, WM_SETTEXT, 0, (LPARAM)buffer);
+    SHOE_FREE(buffer);
+  }
+}
+
+SHOES_CONTROL_REF
+shoes_native_edit_box(VALUE self, shoes_canvas *canvas, shoes_place *place, VALUE attr, char *msg)
+{
+  int cid = SHOES_CONTROL1 + RARRAY_LEN(canvas->slot->controls);
+  DWORD exStyle = WS_EX_CLIENTEDGE;
+  if (!shoes_world->os.doublebuffer)
+    exStyle |= WS_EX_TRANSPARENT;
+
+  SHOES_CONTROL_REF ref = CreateWindowEx(exStyle, TEXT("EDIT"), NULL,
+    WS_TABSTOP | WS_VISIBLE | WS_CHILD | WS_BORDER | ES_LEFT |
+    ES_MULTILINE | ES_AUTOVSCROLL | ES_WANTRETURN | ES_NOHIDESEL,
+    place->ix + place->dx, place->iy + place->dy, place->iw, place->ih,
+    canvas->slot->window, (HMENU)cid,
+    (HINSTANCE)GetWindowLong(canvas->slot->window, GWL_HINSTANCE),
+    NULL);
+  SetWindowPos(ref, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOREDRAW);
+  shoes_win32_control_font(cid, canvas->slot->window);
+  shoes_native_edit_line_set_text(ref, msg);
+  rb_ary_push(canvas->slot->controls, self);
+  return ref;
+}
+
+VALUE
+shoes_native_edit_box_get_text(SHOES_CONTROL_REF ref)
+{
+  return shoes_native_edit_line_get_text(ref);
+}
+
+void
+shoes_native_edit_box_set_text(SHOES_CONTROL_REF ref, char *msg)
+{
+  shoes_native_edit_line_set_text(ref, msg);
+}
+
+SHOES_CONTROL_REF
+shoes_native_list_box(VALUE self, shoes_canvas *canvas, shoes_place *place, VALUE attr, char *msg)
+{
+  int cid = SHOES_CONTROL1 + RARRAY_LEN(canvas->slot->controls);
+  SHOES_CONTROL_REF ref = CreateWindowEx(WS_EX_TRANSPARENT, TEXT("COMBOBOX"), NULL,
+      WS_TABSTOP | WS_VISIBLE | WS_CHILD | WS_BORDER | CBS_DROPDOWNLIST | WS_VSCROLL,
+      place->ix + place->dx, place->iy + place->dy, place->iw, place->ih,
+      canvas->slot->window, (HMENU)cid, 
+      (HINSTANCE)GetWindowLong(canvas->slot->window, GWL_HINSTANCE),
+      NULL);
+  SetWindowPos(ref, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOREDRAW);
+  shoes_win32_control_font(cid, canvas->slot->window);
+  rb_ary_push(canvas->slot->controls, self);
+  return ref;
+}
+
+void
+shoes_native_list_box_update(SHOES_CONTROL_REF box, VALUE ary)
+{
+  long i;
+  SendMessage(box, CB_RESETCONTENT, 0, 0);
+  for (i = 0; i < RARRAY_LEN(ary); i++)
+  {
+    VALUE msg = shoes_native_to_s(rb_ary_entry(ary, i));
+    WCHAR *buffer = shoes_wchar(RSTRING_PTR(msg));
+    if (buffer != NULL)
+    {
+      SendMessageW(box, CB_ADDSTRING, 0, (LPARAM)buffer);
+      SHOE_FREE(buffer);
+    }
+  }
+}
+
+VALUE
+shoes_native_list_box_get_active(SHOES_CONTROL_REF ref, VALUE items)
+{
+  int sel = SendMessage(ref, CB_GETCURSEL, 0, 0);
+  if (sel >= 0)
+    return rb_ary_entry(items, sel);
+  return Qnil;
+}
+
+void
+shoes_native_list_box_set_active(SHOES_CONTROL_REF box, VALUE ary, VALUE item)
+{
+  int idx = rb_ary_index_of(ary, item);
+  if (idx < 0) return;
+  SendMessage(box, CB_SETCURSEL, idx, 0);
+}
+
+SHOES_CONTROL_REF
+shoes_native_progress(VALUE self, shoes_canvas *canvas, shoes_place *place, VALUE attr, char *msg)
+{
+  HWND ref = CreateWindowEx(WS_EX_TRANSPARENT, PROGRESS_CLASS, msg,
+      WS_VISIBLE | WS_CHILD | PBS_SMOOTH,
+      place->ix + place->dx, place->iy + place->dy, place->iw, place->ih,
+      canvas->slot->window, NULL, 
+      (HINSTANCE)GetWindowLong(canvas->slot->window, GWL_HINSTANCE),
+      NULL);
+  SetWindowPos(ref, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOREDRAW);
+  return ref;
+}
+
+double
+shoes_native_progress_get_fraction(SHOES_CONTROL_REF ref)
+{
+  return SendMessage(ref, PBM_GETPOS, 0, 0) * 0.01;
+}
+
+void
+shoes_native_progress_set_fraction(SHOES_CONTROL_REF ref, double perc)
+{
+  SendMessage(ref, PBM_SETPOS, (int)(perc * 100), 0L);
+}
+
+SHOES_CONTROL_REF
+shoes_native_slider(VALUE self, shoes_canvas *canvas, shoes_place *place, VALUE attr, char *msg)
+{
+  int cid = SHOES_CONTROL1 + RARRAY_LEN(canvas->slot->controls);
+  HWND ref = CreateWindowEx(WS_EX_TRANSPARENT, TRACKBAR_CLASS, msg,
+      WS_VISIBLE | WS_CHILD,
+      place->ix + place->dx, place->iy + place->dy, place->iw, place->ih,
+      canvas->slot->window, (HMENU)cid,
+      (HINSTANCE)GetWindowLong(canvas->slot->window, GWL_HINSTANCE),
+      NULL);
+  SetWindowPos(ref, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOREDRAW);
+  rb_ary_push(canvas->slot->controls, self);
+  return ref;
+}
+
+double
+shoes_native_slider_get_fraction(SHOES_CONTROL_REF ref)
+{
+  return SendMessage(ref, TBM_GETPOS, 0, 0) * 0.01;
+}
+
+void
+shoes_native_slider_set_fraction(SHOES_CONTROL_REF ref, double perc)
+{
+  SendMessage(ref, TBM_SETPOS, (int)(perc * 100), 0L);
+}
+
+SHOES_CONTROL_REF
+shoes_native_check(VALUE self, shoes_canvas *canvas, shoes_place *place, VALUE attr, char *msg)
+{
+  int cid = SHOES_CONTROL1 + RARRAY_LEN(canvas->slot->controls);
+  SHOES_CONTROL_REF ref = CreateWindowEx(WS_EX_TRANSPARENT, TEXT("BUTTON"), NULL,
+      WS_TABSTOP | WS_VISIBLE | WS_CHILD | BS_AUTOCHECKBOX,
+      place->ix + place->dx, place->iy + place->dy, place->iw, place->ih,
+      canvas->slot->window, (HMENU)cid, 
+      (HINSTANCE)GetWindowLong(canvas->slot->window, GWL_HINSTANCE),
+      NULL);
+  SetWindowPos(ref, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOREDRAW);
+  shoes_win32_control_font(cid, canvas->slot->window);
+  rb_ary_push(canvas->slot->controls, self);
+  return ref;
+}
+
+VALUE
+shoes_native_check_get(SHOES_CONTROL_REF ref)
+{
+  return SendMessage(ref, BM_GETCHECK, 0, 0) == BST_CHECKED ? Qtrue : Qfalse;
+}
+
+void
+shoes_native_check_set(SHOES_CONTROL_REF ref, int on)
+{
+  SendMessage(ref, BM_SETCHECK, on ? BST_CHECKED : BST_UNCHECKED, 0L);
+}
+
+SHOES_CONTROL_REF
+shoes_native_radio(VALUE self, shoes_canvas *canvas, shoes_place *place, VALUE attr, VALUE group)
+{
+  int cid = SHOES_CONTROL1 + RARRAY_LEN(canvas->slot->controls);
+  SHOES_CONTROL_REF ref = CreateWindowEx(WS_EX_TRANSPARENT, TEXT("BUTTON"), NULL,
+      WS_TABSTOP | WS_VISIBLE | WS_CHILD | BS_RADIOBUTTON,
+      place->ix + place->dx, place->iy + place->dy, place->iw, place->ih,
+      canvas->slot->window, (HMENU)cid, 
+      (HINSTANCE)GetWindowLong(canvas->slot->window, GWL_HINSTANCE),
+      NULL);
+  SetWindowPos(ref, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOREDRAW);
+  shoes_win32_control_font(cid, canvas->slot->window);
+  rb_ary_push(canvas->slot->controls, self);
+  return ref;
+}
+
+void
+shoes_native_timer_remove(shoes_canvas *canvas, SHOES_TIMER_REF ref)
+{
+  KillTimer(canvas->slot->window, ref);
+}
+
+SHOES_TIMER_REF
+shoes_native_timer_start(VALUE self, shoes_canvas *canvas, unsigned int interval)
+{
+  long nid = rb_ary_index_of(canvas->app->extras, self);
+  SetTimer(canvas->app->slot->window, SHOES_CONTROL1 + nid, interval, NULL);
+  return SHOES_CONTROL1 + nid;
+}
+
+VALUE
+shoes_native_clipboard_get(shoes_app *app)
+{
+  VALUE paste = Qnil;
+  if (OpenClipboard(app->slot->window))
+  {
+    HANDLE hclip = GetClipboardData(CF_UNICODETEXT);
+    WCHAR *buffer = (WCHAR *)GlobalLock(hclip);
+    char *utf8 = shoes_utf8(buffer);
+    paste = rb_str_new2(utf8);
+    GlobalUnlock(hclip);
+    CloseClipboard();
+    SHOE_FREE(utf8);
+  }
+  return paste;
+}
+
+void
+shoes_native_clipboard_set(shoes_app *app, VALUE string)
+{
+  if (OpenClipboard(app->slot->window))
+  {
+    WCHAR *buffer = shoes_wchar(RSTRING_PTR(string));
+    LONG buflen = wcslen(buffer);
+    HGLOBAL hclip;
+    EmptyClipboard();
+    hclip = GlobalAlloc(GMEM_MOVEABLE|GMEM_DDESHARE, (buflen + 1) * sizeof(WCHAR));
+    wcsncpy((WCHAR *)GlobalLock(hclip), buffer, buflen + 1);
+    GlobalUnlock(hclip);
+    SetClipboardData(CF_UNICODETEXT, hclip);
+    CloseClipboard();
+    SHOE_FREE(buffer);
+  }
+}
+
+VALUE
+shoes_native_to_s(VALUE text)
+{
+  text = rb_funcall(text, s_to_s, 0);
+  text = rb_funcall(text, s_gsub, 2, reLF, rb_str_new2("\r\n"));
+  return text;
+}
+
+VALUE
+shoes_native_window_color(shoes_app *app)
+{
+  DWORD winc = GetSysColor(COLOR_WINDOW);
+  return shoes_color_new(GetRValue(winc), GetGValue(winc), GetBValue(winc), SHOES_COLOR_OPAQUE);
+}
+
+VALUE
+shoes_native_dialog_color(shoes_app *app)
+{
+  DWORD winc = GetSysColor(COLOR_3DFACE);
+  return shoes_color_new(GetRValue(winc), GetGValue(winc), GetBValue(winc), SHOES_COLOR_OPAQUE);
+}
+
+LPWSTR win32_dialog_label = NULL;
+LPWSTR win32_dialog_answer = NULL;
+
+BOOL CALLBACK
+shoes_ask_win32proc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
+{
+  switch (message)
+  {
+    case WM_INITDIALOG:
+      SetDlgItemTextW(hwnd, IDQUIZ, win32_dialog_label);
+      if (win32_dialog_label != NULL)
+      {
+        SHOE_FREE(win32_dialog_label);
+        win32_dialog_label = NULL;
+      }
+      if (win32_dialog_answer != NULL)
+      {
+        GlobalFree((HANDLE)win32_dialog_answer);
+        win32_dialog_answer = NULL;
+      }
+      return TRUE;
+
+    case WM_COMMAND:
+      switch (LOWORD(wParam))
+      {
+        case IDOK:
+        {
+          int len = GetWindowTextLength(GetDlgItem(hwnd, IDQUED));
+          if(len > 0)
+          {
+            win32_dialog_answer = (LPWSTR)GlobalAlloc(GPTR, (len + 1) * sizeof(WCHAR));
+            GetDlgItemTextW(hwnd, IDQUED, win32_dialog_answer, len + 1);
+          }
+        }
+        case IDCANCEL:
+          EndDialog(hwnd, LOWORD(wParam));
+          return TRUE;
+      }
+      break;
+
+    case WM_CLOSE:
+      EndDialog(hwnd, 0);
+      return FALSE;
+  }
+  return FALSE;
+}
+
+VALUE
+shoes_dialog_alert(VALUE self, VALUE msg)
+{
+  WCHAR *buffer;
+  GLOBAL_APP(app);
+  msg = shoes_native_to_s(msg);
+  buffer = shoes_wchar(RSTRING_PTR(msg));
+  MessageBoxW(APP_WINDOW(app), buffer, (LPCWSTR)dialog_title_says, MB_OK);
+  if (buffer != NULL) SHOE_FREE(buffer);
+  return Qnil;
+}
+
+VALUE
+shoes_dialog_ask(int argc, VALUE *argv, VALUE self)
+{
+  rb_arg_list args;
+  VALUE answer = Qnil;
+  rb_parse_args(argc, argv, "s|h", &args);
+  GLOBAL_APP(app);
+  win32_dialog_label = shoes_wchar(RSTRING_PTR(args.a[0]));
+  int confirm = DialogBox(shoes_world->os.instance,
+    MAKEINTRESOURCE(RTEST(ATTR(args.a[1], secret)) ? ASKSECRETDLG : ASKDLG),
+    APP_WINDOW(app), shoes_ask_win32proc);
+  if (confirm == IDOK)
+  {
+    if (win32_dialog_answer != NULL)
+    {
+      char *ans8 = shoes_utf8(win32_dialog_answer);
+      answer = rb_str_new2(ans8);
+      SHOE_FREE(ans8);
+      GlobalFree((HANDLE)win32_dialog_answer);
+      win32_dialog_answer = NULL;
+    }
+  }
+  return answer;
+}
+
+VALUE
+shoes_dialog_confirm(VALUE self, VALUE quiz)
+{
+  WCHAR *buffer;
+  VALUE answer = Qfalse;
+  GLOBAL_APP(app);
+  quiz = shoes_native_to_s(quiz);
+  buffer = shoes_wchar(RSTRING_PTR(quiz));
+  int confirm = MessageBoxW(APP_WINDOW(app), buffer, (LPCWSTR)dialog_title, MB_OKCANCEL);
+  if (confirm == IDOK)
+    answer = Qtrue;
+  if (buffer != NULL) SHOE_FREE(buffer);
+  return answer;
+}
+
+VALUE
+shoes_dialog_color(VALUE self, VALUE title)
+{
+  VALUE color = Qnil;
+  GLOBAL_APP(app);
+  CHOOSECOLOR cc;
+  static COLORREF acrCustClr[16];
+  static DWORD rgbCurrent;
+
+  // Initialize CHOOSECOLOR 
+  ZeroMemory(&cc, sizeof(cc));
+  cc.lStructSize = sizeof(cc);
+  cc.hwndOwner = APP_WINDOW(app);
+  cc.lpCustColors = (LPDWORD) acrCustClr;
+  cc.rgbResult = rgbCurrent;
+  cc.Flags = CC_FULLOPEN | CC_RGBINIT;
+
+  if (ChooseColor(&cc)) {
+    color = shoes_color_new(GetRValue(cc.rgbResult), GetGValue(cc.rgbResult), GetBValue(cc.rgbResult),
+      SHOES_COLOR_OPAQUE);
+  }
+  return color;
+}
+
+static char *
+shoes_fix_slashes(char *path)
+{
+  char *p;
+  for (p = path; *p != '\0'; p++)
+    if (*p == '\\')
+      *p = '/';
+  return path;
+}
+
+static void
+shoes_append_filter_token(char **filters, char *token, int token_len) {
+  memcpy(*filters, token, token_len);
+  (*filters) += token_len;
+  *(*filters)++ = '\0';
+}
+
+static VALUE
+shoes_dialog_chooser(VALUE self, char *title, DWORD flags, VALUE attr)
+{
+  BOOL ok;
+  VALUE path = Qnil;
+  GLOBAL_APP(app);
+  char _path[MAX_PATH+1];
+  OPENFILENAME ofn;
+  ZeroMemory(&ofn, sizeof(ofn));
+  int filter_len = 64;
+  int val_len, key_len = val_len = 0;
+  char *filters;
+
+  if((filters = malloc(filter_len)) == NULL)
+    return Qnil;
+  *filters = '\0';
+
+  if(RTEST(shoes_hash_get(attr, rb_intern("types"))) && 
+           TYPE(shoes_hash_get(attr, rb_intern("types"))) == T_HASH) {
+    char *filters_buff = filters;
+    int i;
+    VALUE hsh = shoes_hash_get(attr, rb_intern("types"));
+    VALUE keys = rb_funcall(hsh, s_keys, 0);
+
+    for(i = 0; i < RARRAY_LEN(keys); i++) {
+      VALUE key = rb_ary_entry(keys, i);
+      char *key_name = RSTRING_PTR(key);
+      char *val = RSTRING_PTR(rb_hash_aref(hsh, key));
+
+      key_len = strlen(key_name);
+      val_len = strlen(val);
+      int pos = filters_buff - filters;
+
+      // ensure there's room for both tokens, thier NULL terminators
+      // and the NULL terminator for the whole filter.
+      if((pos + key_len + val_len + 3) >= filter_len) {
+	filter_len *= 2;
+	if((filters = realloc(filters, filter_len)) == NULL)
+	  return Qnil;
+	filters_buff = filters + pos;
+      }
+
+      // add the tokens on to the filter string
+      shoes_append_filter_token(&filters_buff, key_name, key_len);
+      shoes_append_filter_token(&filters_buff, val, val_len);
+    }
+
+    // the whole thing needs a final terminator
+    *filters_buff = '\0';
+  } else
+    // old shoes apps under windows may expect this
+    memcpy(filters, "All\0*.*\0Text\0*.TXT\0\0", 20);
+
+  ofn.lpstrFilter     = (LPCTSTR)filters;
+  ofn.lStructSize     = sizeof(ofn);
+  ofn.hwndOwner       = APP_WINDOW(app);
+  ofn.hInstance       = shoes_world->os.instance;
+  ofn.lpstrFile       = _path;
+  ofn.lpstrTitle      = title;
+  ofn.nMaxFile        = sizeof(_path);
+  ofn.lpstrFile[0]    = '\0';
+  ofn.nFilterIndex    = 1;
+  ofn.lpstrFileTitle  = NULL;
+  ofn.nMaxFileTitle   = 0;
+  ofn.lpstrInitialDir = NULL;
+  ofn.Flags           = OFN_EXPLORER | flags;
+  VALUE save          = ID2SYM(rb_intern("save"));
+
+  if (RTEST(ATTR(attr, save)))
+    ofn.lpstrFile = (LPSTR)RSTRING_PTR(rb_hash_aref(attr, save));
+  if (flags & OFN_OVERWRITEPROMPT)
+    ok = GetSaveFileName(&ofn);
+  else
+    ok = GetOpenFileName(&ofn);
+
+  free(filters);
+
+  if (ok)
+    path = rb_str_new2(shoes_fix_slashes(ofn.lpstrFile));
+
+  return path;
+}
+
+static VALUE
+shoes_dialog_chooser2(VALUE self, char *title, UINT flags, VALUE attr)
+{
+  VALUE path = Qnil;
+  BROWSEINFO bi = {0};
+  bi.lpszTitle = title;
+  bi.ulFlags = BIF_USENEWUI | flags;
+  LPITEMIDLIST pidl = SHBrowseForFolder (&bi);
+  if (pidl != 0)
+  {
+    char _path[MAX_PATH+1];
+    if (SHGetPathFromIDList(pidl, _path))
+      path = rb_str_new2(shoes_fix_slashes(_path));
+
+    IMalloc *imalloc = 0;
+    if (SUCCEEDED(SHGetMalloc(&imalloc)))
+    {
+      IMalloc_Free(imalloc, pidl);
+      IMalloc_Release(imalloc);
+    }
+  }
+  return path;
+}
+
+VALUE
+shoes_dialog_open(int argc, VALUE *argv, VALUE self)
+{
+  rb_arg_list args;
+  rb_parse_args(argc, argv, "|h", &args);
+  return shoes_dialog_chooser(self, "Open file...", OFN_FILEMUSTEXIST | OFN_PATHMUSTEXIST, args.a[0]);
+}
+
+VALUE
+shoes_dialog_save(int argc, VALUE *argv, VALUE self)
+{
+  rb_arg_list args;
+  rb_parse_args(argc, argv, "|h", &args);
+  return shoes_dialog_chooser(self, "Save file...", OFN_OVERWRITEPROMPT, args.a[0]);
+}
+
+VALUE
+shoes_dialog_open_folder(int argc, VALUE *argv, VALUE self)
+{
+  rb_arg_list args;
+  rb_parse_args(argc, argv, "|h", &args);
+  return shoes_dialog_chooser2(self, "Open folder...", BIF_NONEWFOLDERBUTTON | BIF_RETURNONLYFSDIRS, args.a[0]);
+}
+
+VALUE
+shoes_dialog_save_folder(int argc, VALUE *argv, VALUE self)
+{
+  rb_arg_list args;
+  rb_parse_args(argc, argv, "|h", &args);
+  return shoes_dialog_chooser2(self, "Save folder...", BIF_RETURNONLYFSDIRS, args.a[0]);
+}