shoes 3.0.1 → 4.0.0.pre1

data/shoes/internal.c

@@ -1,46 +0,0 @@
-//
-// shoes/internal.c
-// Internal debug functions.
-//
-#ifdef _MSC_VER
-#include <stdio.h>
-#include <stdarg.h>
-#include <ctype.h>
-#include <windows.h>
-
-void odprintf(const char *format, ...)
-{
-  char    buf[4096], *p = buf;
-  va_list args;
-  int     n;
-
-  va_start(args, format);
-  n = _vsnprintf(p, sizeof buf - 3, format, args); // buf-3 is room for CR/LF/NUL
-  va_end(args);
-
-  p += (n < 0) ? sizeof buf - 3 : n;
-
-  while(p > buf && isspace(p[-1]))
-    *--p = '\0';
-
-  *p++ = '\r';
-  *p++ = '\n';
-  *p   = '\0';
-
-  OutputDebugString(buf);
-}
-
-int
-shoes_snprintf(char* str, size_t size, const char* format, ...)
-{
-  size_t count;
-  va_list args;
-
-  va_start(args, format);
-  count = _vscprintf(format, args);
-  _vsnprintf(str, size, format, args);
-  va_end(args);
-
-  return count;
-}
-#endif

data/shoes/internal.h

@@ -1,63 +0,0 @@
-//
-// shoes/internal.h
-// Debugging and allocation functions within Shoes.
-//
-
-#ifndef SHOES_INTERNAL_H
-#define SHOES_INTERNAL_H
-
-#define SHOE_REALLOC_N(V, T, N)     (V)=(T *)realloc((char*)(V), sizeof(T)*(N))
-#define SHOE_ALLOC_N(T, N)          (T *)malloc(sizeof(T) * N)
-#define SHOE_ALLOC(T)               (T *)malloc(sizeof(T))
-#define SHOE_FREE(T)                free((void*)T)
-
-#define SHOE_MEMZERO(p,type,n)      memset((p), 0, sizeof(type)*(n))
-#define SHOE_MEMCPY(p1,p2,type,n)   memcpy((p1), (p2), sizeof(type)*(n))
-#define SHOE_MEMMOVE(p1,p2,type,n)  memmove((p1), (p2), sizeof(type)*(n))
-#define SHOE_MEMCMP(p1,p2,type,n)   memcmp((p1), (p2), sizeof(type)*(n))
-
-#ifndef min
-#define min(a, b) ((a) <= (b) ? (a) : (b))
-#endif
-
-#ifndef max
-#define max(a, b) ((a) >= (b) ? (a) : (b))
-#endif
-
-#ifdef _MSC_VER
-
-void odprintf(const char *format, ...);
-static inline void odignore(const char *format, ...) {}
-int shoes_snprintf(char* str, size_t size, const char* format, ...);
-#define PUTS odprintf 
-
-#ifdef DEBUG
-#define INFO PUTS
-#else
-#define INFO odignore
-#endif
-#define WARN PUTS
-#define QUIT(msg) \
-  if (code == SHOES_OK) code = SHOES_FAIL; \
-  PUTS(msg); \
-  goto quit
-
-#else
-
-#define shoes_snprintf snprintf
-
-#define PUTS printf
-#ifdef DEBUG
-
-#define INFO(f, s...) PUTS(f, ## s)
-#else
-#define INFO(f, s...)
-#endif
-#define WARN(f, s...) PUTS(f, ## s)
-#define QUIT(f, s...) \
-  if (code == SHOES_OK) code = SHOES_FAIL; \
-  PUTS(f, ## s); \
-  goto quit
-#endif
-
-#endif

data/shoes/native.h

@@ -1,110 +0,0 @@
-//
-// shoes/native.h
-// Common native Shoes routines.
-//
-#define CHANGED_COORDS() \
-  (p1->ix != p2->ix || p1->iy != p2->iy || \
-   p1->iw != p2->iw || p1->dx != p2->dx || \
-   p1->dy != p2->dy || p1->ih - HEIGHT_PAD != p2->ih)
-#define CHANGED_COORDS_NO_PAD() \
-  (p1->ix != p2->ix || p1->iy != p2->iy || \
-   p1->iw != p2->iw || p1->dx != p2->dx || \
-   p1->dy != p2->dy || p1->ih != p2->ih)
-#define PLACE_COORDS() p2->h -= HEIGHT_PAD; p2->ih -= HEIGHT_PAD; *p1 = *p2
-#define PLACE_COORDS_NO_PAD() *p1 = *p2
-
-#ifndef SHOES_GTK
-#define SHOES_FORCE_RADIO 1
-#endif
-
-#define SHOES_THREAD_DOWNLOAD 41
-#define SHOES_IMAGE_DOWNLOAD  42
-#define SHOES_MAX_MESSAGE     100
-
-VALUE shoes_font_list();
-VALUE shoes_load_font(const char *);
-void shoes_native_init();
-void shoes_native_cleanup(shoes_world_t *world);
-void shoes_native_quit();
-int shoes_throw_message(unsigned int, VALUE, void *);
-void shoes_native_slot_mark(SHOES_SLOT_OS *);
-void shoes_native_slot_reset(SHOES_SLOT_OS *);
-void shoes_native_slot_clear(shoes_canvas *);
-void shoes_native_slot_paint(SHOES_SLOT_OS *);
-void shoes_native_slot_lengthen(SHOES_SLOT_OS *, int, int);
-void shoes_native_slot_scroll_top(SHOES_SLOT_OS *);
-int shoes_native_slot_gutter(SHOES_SLOT_OS *);
-void shoes_native_remove_item(SHOES_SLOT_OS *, VALUE, char);
-shoes_code shoes_app_cursor(shoes_app *, ID);
-void shoes_native_app_resized(shoes_app *);
-void shoes_native_app_title(shoes_app *, char *);
-void shoes_native_app_fullscreen(shoes_app *, char);
-shoes_code shoes_native_app_open(shoes_app *, char *, int);
-void shoes_native_app_show(shoes_app *);
-void shoes_native_loop();
-void shoes_native_app_close(shoes_app *);
-void shoes_browser_open(char *);
-void shoes_slot_init(VALUE, SHOES_SLOT_OS *, int, int, int, int, int, int);
-cairo_t *shoes_cairo_create(shoes_canvas *);
-void shoes_slot_destroy(shoes_canvas *, shoes_canvas *);
-void shoes_cairo_destroy(shoes_canvas *);
-void shoes_group_clear(SHOES_GROUP_OS *);
-void shoes_native_canvas_place(shoes_canvas *, shoes_canvas *);
-void shoes_native_canvas_resize(shoes_canvas *);
-void shoes_native_control_hide(SHOES_CONTROL_REF);
-void shoes_native_control_show(SHOES_CONTROL_REF);
-void shoes_native_control_position(SHOES_CONTROL_REF, shoes_place *, 
-  VALUE, shoes_canvas *, shoes_place *);
-void shoes_native_control_position_no_pad(SHOES_CONTROL_REF, shoes_place *, 
-  VALUE, shoes_canvas *, shoes_place *);
-void shoes_native_control_repaint(SHOES_CONTROL_REF, shoes_place *,
-  shoes_canvas *, shoes_place *);
-void shoes_native_control_repaint_no_pad(SHOES_CONTROL_REF, shoes_place *,
-  shoes_canvas *, shoes_place *);
-void shoes_native_control_focus(SHOES_CONTROL_REF);
-void shoes_native_control_state(SHOES_CONTROL_REF, SHOES_BOOL, SHOES_BOOL);
-void shoes_native_control_remove(SHOES_CONTROL_REF, shoes_canvas *);
-void shoes_native_control_free(SHOES_CONTROL_REF);
-SHOES_SURFACE_REF shoes_native_surface_new(shoes_canvas *, VALUE, shoes_place *);
-void shoes_native_surface_position(SHOES_SURFACE_REF, shoes_place *, 
-  VALUE, shoes_canvas *, shoes_place *);
-void shoes_native_surface_hide(SHOES_SURFACE_REF);
-void shoes_native_surface_show(SHOES_SURFACE_REF);
-void shoes_native_surface_remove(shoes_canvas *, SHOES_SURFACE_REF);
-SHOES_CONTROL_REF shoes_native_button(VALUE, shoes_canvas *, shoes_place *, char *);
-SHOES_CONTROL_REF shoes_native_edit_line(VALUE, shoes_canvas *, shoes_place *, VALUE, char *);
-VALUE shoes_native_edit_line_get_text(SHOES_CONTROL_REF);
-void shoes_native_edit_line_set_text(SHOES_CONTROL_REF, char *);
-SHOES_CONTROL_REF shoes_native_edit_box(VALUE, shoes_canvas *, shoes_place *, VALUE, char *);
-VALUE shoes_native_edit_box_get_text(SHOES_CONTROL_REF);
-void shoes_native_edit_box_set_text(SHOES_CONTROL_REF, char *);
-SHOES_CONTROL_REF shoes_native_list_box(VALUE, shoes_canvas *, shoes_place *, VALUE, char *);
-void shoes_native_list_box_update(SHOES_CONTROL_REF, VALUE);
-VALUE shoes_native_list_box_get_active(SHOES_CONTROL_REF, VALUE);
-SHOES_CONTROL_REF shoes_native_progress(VALUE, shoes_canvas *, shoes_place *, VALUE, char *);
-double shoes_native_progress_get_fraction(SHOES_CONTROL_REF);
-void shoes_native_progress_set_fraction(SHOES_CONTROL_REF, double);
-SHOES_CONTROL_REF shoes_native_slider(VALUE, shoes_canvas *, shoes_place *, VALUE, char *);
-double shoes_native_slider_get_fraction(SHOES_CONTROL_REF);
-void shoes_native_slider_set_fraction(SHOES_CONTROL_REF, double);
-SHOES_CONTROL_REF shoes_native_check(VALUE, shoes_canvas *, shoes_place *, VALUE, char *);
-VALUE shoes_native_check_get(SHOES_CONTROL_REF);
-void shoes_native_check_set(SHOES_CONTROL_REF, int);
-void shoes_native_list_box_set_active(SHOES_CONTROL_REF, VALUE, VALUE);
-SHOES_CONTROL_REF shoes_native_radio(VALUE, shoes_canvas *, shoes_place *, VALUE, VALUE);
-void shoes_native_timer_remove(shoes_canvas *, SHOES_TIMER_REF);
-SHOES_TIMER_REF shoes_native_timer_start(VALUE, shoes_canvas *, unsigned int);
-VALUE shoes_native_clipboard_get(shoes_app *);
-void shoes_native_clipboard_set(shoes_app *, VALUE);
-VALUE shoes_native_to_s(VALUE);
-char *shoes_native_to_utf8(VALUE, int *);
-VALUE shoes_native_window_color(shoes_app *);
-VALUE shoes_native_dialog_color(shoes_app *);
-VALUE shoes_dialog_alert(VALUE, VALUE);
-VALUE shoes_dialog_ask(int argc, VALUE *argv, VALUE self);
-VALUE shoes_dialog_confirm(VALUE, VALUE);
-VALUE shoes_dialog_color(VALUE, VALUE);
-VALUE shoes_dialog_open(int,VALUE*,VALUE);
-VALUE shoes_dialog_save(int,VALUE*,VALUE);
-VALUE shoes_dialog_open_folder(int,VALUE*,VALUE);
-VALUE shoes_dialog_save_folder(int,VALUE*,VALUE);

data/shoes/native/cocoa.h

@@ -1,105 +0,0 @@
-//
-// shoes/native/cocoa.h
-// Custom Cocoa interfaces for Shoes
-//
-#import <Cocoa/Cocoa.h>
-
-@interface ShoesEvents : NSObject
-{
-  int count;
-}
-@end
-
-@interface ShoesWindow : NSWindow
-{
-  VALUE app;
-}
-@end
-
-@interface ShoesView : NSView
-{
-  VALUE canvas;
-}
-@end
-
-@interface ShoesButton : NSButton
-{
-  VALUE object;
-}
-@end
-
-@interface ShoesTextField : NSTextField
-{
-  VALUE object;
-}
-@end
-
-@interface ShoesSecureTextField : NSSecureTextField
-{
-  VALUE object;
-}
-@end
-
-@interface ShoesTextView : NSScrollView
-{
-  VALUE object;
-  NSTextView *textView;
-}
-@end
-
-@interface ShoesPopUpButton : NSPopUpButton
-{
-  VALUE object;
-}
-@end
-
-@interface ShoesSlider : NSSlider
-{
-  VALUE object;
-}
-@end
-
-@interface ShoesAlert : NSWindow
-{
-  NSWindow *win;
-  BOOL answer;
-}
-@end
-
-@interface ShoesTimer : NSObject
-{
-  VALUE object;
-  NSTimer *timer;
-}
-@end
-
-#define VK_ESCAPE 53
-#define VK_DELETE 117
-#define VK_INSERT 114
-#define VK_TAB   48
-#define VK_BS    51
-#define VK_PRIOR 116
-#define VK_NEXT  121
-#define VK_HOME  115
-#define VK_END   119
-#define VK_LEFT  123
-#define VK_UP    126
-#define VK_RIGHT 124
-#define VK_DOWN  125
-#define VK_F1    122
-#define VK_F2    120
-#define VK_F3     99
-#define VK_F4    118
-#define VK_F5     96
-#define VK_F6     97
-#define VK_F7     98
-#define VK_F8    100
-#define VK_F9    101
-#define VK_F10   109
-#define VK_F11   103
-#define VK_F12   111
-
-#define KEY_SYM(name, sym) \
-  if (key == VK_##name) \
-    v = ID2SYM(rb_intern("" # sym)); \
-  else

data/shoes/native/cocoa.m

@@ -1,1557 +0,0 @@
-//
-// shoes/native-cocoa.m
-// ObjC Cocoa-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"
-
-#define HEIGHT_PAD 6
-
-#define INIT    NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init]
-#define RELEASE [pool release]
-#define COCOA_DO(statements) do {\
-  INIT; \
-  @try { statements; } \
-  @catch (NSException *e) { ; } \
-  RELEASE; \
-} while (0)
-
-@implementation ShoesEvents
-- (id)init
-{
-  if ((self = [super init]))
-    count = 0;
-  return self;
-}
-- (void)idle: (NSTimer *)t
-{
-  if (count < 100)
-  {
-    count++;
-    if (count == 100 && RARRAY_LEN(shoes_world->apps) == 0)
-      rb_eval_string("Shoes.splash");
-  }
-  rb_eval_string("sleep(0.001)");
-}
-- (BOOL) application: (NSApplication *) anApplication
-    openFile: (NSString *) aFileName
-{
-  shoes_load([aFileName UTF8String]);
-
-  return YES;
-}
-- (void)openFile: (id)sender
-{
-  rb_eval_string("Shoes.show_selector");
-}
-- (void)package: (id)sender
-{
-  rb_eval_string("Shoes.make_pack");
-}
-- (void)showLog: (id)sender
-{
-  rb_eval_string("Shoes.show_log");
-}
-- (void)emulateKey: (NSString *)key modifierFlags: (unsigned int)flags withoutModifiers: (NSString *)key2
-{
-  ShoesWindow *win = [NSApp keyWindow];
-  [win keyDown: [NSEvent keyEventWithType:NSKeyDown
-    location:NSMakePoint(0,0) modifierFlags:flags
-    timestamp:0 windowNumber:0 context:nil
-    characters:key charactersIgnoringModifiers:key2 isARepeat:NO 
-    keyCode:0]];
-}
-- (void)help: (id)sender
-{
-  rb_eval_string("Shoes.show_manual");
-}
-- (void)undo: (id)sender
-{
-  [self emulateKey: @"z" modifierFlags: NSCommandKeyMask withoutModifiers: @"z"];
-}
-- (void)redo: (id)sender
-{
-  [self emulateKey: @"Z" modifierFlags: NSCommandKeyMask|NSShiftKeyMask withoutModifiers: @"z"];
-}
-- (void)cut: (id)sender
-{
-  [self emulateKey: @"x" modifierFlags: NSCommandKeyMask withoutModifiers: @"x"];
-}
-- (void)copy: (id)sender
-{
-  [self emulateKey: @"c" modifierFlags: NSCommandKeyMask withoutModifiers: @"c"];
-}
-- (void)paste: (id)sender
-{
-  [self emulateKey: @"v" modifierFlags: NSCommandKeyMask withoutModifiers: @"v"];
-}
-- (void)selectAll: (id)sender
-{
-  [self emulateKey: @"a" modifierFlags: NSCommandKeyMask withoutModifiers: @"a"];
-}
-@end
-
-@implementation ShoesWindow
-- (void)prepareWithApp: (VALUE)a
-{
-  app = a;
-  [self center];
-  [self makeKeyAndOrderFront: self];
-  [self setAcceptsMouseMovedEvents: YES];
-  [self setDelegate: self];
-}
-- (void)disconnectApp
-{
-  app = Qnil;
-}
-- (void)sendMotion: (NSEvent *)e ofType: (ID)type withButton: (int)b
-{
-  shoes_app *a;
-  shoes_canvas *canvas;
-  NSPoint p = [e locationInWindow];
-  Data_Get_Struct(app, shoes_app, a);
-  Data_Get_Struct(a->canvas, shoes_canvas, canvas);
-  if (type == s_motion)
-    shoes_app_motion(a, p.x, (canvas->height - p.y) + canvas->slot->scrolly);
-  else if (type == s_click)
-    shoes_app_click(a, b, p.x, (canvas->height - p.y) + canvas->slot->scrolly);
-  else if (type == s_release)
-    shoes_app_release(a, b, p.x, (canvas->height - p.y) + canvas->slot->scrolly);
-}
-- (void)mouseDown: (NSEvent *)e
-{
-  [self sendMotion: e ofType: s_click withButton: 1];
-}
-- (void)rightMouseDown: (NSEvent *)e
-{
-  [self sendMotion: e ofType: s_click withButton: 2];
-}
-- (void)otherMouseDown: (NSEvent *)e
-{
-  [self sendMotion: e ofType: s_click withButton: 3];
-}
-- (void)mouseUp: (NSEvent *)e
-{
-  [self sendMotion: e ofType: s_release withButton: 1];
-}
-- (void)rightMouseUp: (NSEvent *)e
-{
-  [self sendMotion: e ofType: s_release withButton: 2];
-}
-- (void)otherMouseUp: (NSEvent *)e
-{
-  [self sendMotion: e ofType: s_release withButton: 3];
-}
-- (void)mouseMoved: (NSEvent *)e
-{
-  [self sendMotion: e ofType: s_motion withButton: 0];
-}
-- (void)mouseDragged: (NSEvent *)e
-{
-  [self sendMotion: e ofType: s_motion withButton: 0];
-}
-- (void)rightMouseDragged: (NSEvent *)e
-{
-  [self sendMotion: e ofType: s_motion withButton: 0];
-}
-- (void)otherMouseDragged: (NSEvent *)e
-{
-  [self sendMotion: e ofType: s_motion withButton: 0];
-}
-- (void)scrollWheel: (NSEvent *)e
-{
-  ID wheel;
-  float dy = [e deltaY];
-  NSPoint p = [e locationInWindow];
-  shoes_app *a;
-
-  if (dy == 0)
-    return;
-  else if (dy > 0)
-    wheel = s_up;
-  else
-  {
-    wheel = s_down;
-    dy = -dy;
-  }
-
-  Data_Get_Struct(app, shoes_app, a);
-  for (; dy > 0.; dy--)
-    shoes_app_wheel(a, wheel, p.x, p.y);
-}
-- (void)keyDown: (NSEvent *)e
-{
-  shoes_app *a;
-  VALUE v = Qnil;
-  unsigned int modifier = [e modifierFlags];
-  unsigned short key = [e keyCode];
-  INIT;
-
-  Data_Get_Struct(app, shoes_app, a);
-  KEY_SYM(ESCAPE, escape)
-  KEY_SYM(INSERT, insert)
-  KEY_SYM(DELETE, delete)
-  KEY_SYM(TAB, tab)
-  KEY_SYM(BS, backspace)
-  KEY_SYM(PRIOR, page_up)
-  KEY_SYM(NEXT, page_down)
-  KEY_SYM(HOME, home)
-  KEY_SYM(END, end)
-  KEY_SYM(LEFT, left)
-  KEY_SYM(UP, up)
-  KEY_SYM(RIGHT, right)
-  KEY_SYM(DOWN, down)
-  KEY_SYM(F1, f1)
-  KEY_SYM(F2, f2)
-  KEY_SYM(F3, f3)
-  KEY_SYM(F4, f4)
-  KEY_SYM(F5, f5)
-  KEY_SYM(F6, f6)
-  KEY_SYM(F7, f7)
-  KEY_SYM(F8, f8)
-  KEY_SYM(F9, f9)
-  KEY_SYM(F10, f10)
-  KEY_SYM(F11, f11)
-  KEY_SYM(F12, f12)
-  {
-    NSString *str = [e charactersIgnoringModifiers];
-    if (str)
-    {
-      char *utf8 = [str UTF8String];
-      if (utf8[0] == '\r' && [str length] == 1)
-        v = rb_str_new2("\n");
-      else
-        v = rb_str_new2(utf8);
-    }
-  }
-
-  if (SYMBOL_P(v))
-  {
-    if ((modifier & NSCommandKeyMask) || (modifier & NSAlternateKeyMask))
-      KEY_STATE(alt);
-    if (modifier & NSShiftKeyMask)
-      KEY_STATE(shift);
-    if (modifier & NSControlKeyMask)
-      KEY_STATE(control);
-  }
-  else
-  {
-    if ((modifier & NSCommandKeyMask) || (modifier & NSAlternateKeyMask))
-      KEY_STATE(alt);
-  }
-
-  if (v != Qnil)
-    shoes_app_keypress(a, v);
-  RELEASE;
-}
-- (BOOL)canBecomeKeyWindow
-{
-  return YES;
-}
-- (BOOL)canBecomeMainWindow
-{
-  return YES;
-}
-- (void)windowWillClose: (NSNotification *)n
-{
-  if (!NIL_P(app)) {
-    shoes_app *a;
-    Data_Get_Struct(app, shoes_app, a);
-    shoes_app_remove(a);
-  }
-}
-@end
-
-@implementation ShoesView
-- (id)initWithFrame: (NSRect)frame andCanvas: (VALUE)c
-{
-  if ((self = [super initWithFrame: frame]))
-  {
-    canvas = c;
-  }
-  return self;
-}
-- (BOOL)isFlipped
-{
-  return YES;
-}
-- (void)drawRect: (NSRect)rect
-{
-  shoes_canvas *c;
-  NSRect bounds = [self bounds];
-  Data_Get_Struct(canvas, shoes_canvas, c);
-
-  c->width = bounds.size.width;
-  c->height = bounds.size.height;
-  if (c->slot->vscroll)
-  {
-    [c->slot->vscroll setFrame: NSMakeRect(c->width - [NSScroller scrollerWidth], 0,
-      [NSScroller scrollerWidth], c->height)];
-    shoes_native_slot_lengthen(c->slot, c->height, c->endy);
-  }
-  c->place.iw = c->place.w = c->width;
-  c->place.ih = c->place.h = c->height;
-  c->slot->context = (CGContextRef)[[NSGraphicsContext currentContext] graphicsPort];
-  shoes_canvas_paint(canvas);
-}
-- (void)scroll: (NSScroller *)scroller
-{
-  shoes_canvas *c;
-  Data_Get_Struct(canvas, shoes_canvas, c);
-
-  switch ([scroller hitPart])
-  {
-    case NSScrollerIncrementLine:
-      shoes_slot_scroll_to(c, 16, 1);
-    break;
-    case NSScrollerDecrementLine:
-      shoes_slot_scroll_to(c, -16, 1);
-    break;
-    case NSScrollerIncrementPage:
-      shoes_slot_scroll_to(c, c->height - 32, 1);
-    break;
-    case NSScrollerDecrementPage:
-      shoes_slot_scroll_to(c, -(c->height - 32), 1);
-    break;
-    case NSScrollerKnobSlot:
-    case NSScrollerKnob:
-    default:
-      shoes_slot_scroll_to(c, (c->endy - c->height) * [scroller floatValue], 0);
-    break;
-  }
-}
-@end
-
-@implementation ShoesButton
-- (id)initWithType: (NSButtonType)t andObject: (VALUE)o
-{
-  if ((self = [super init]))
-  {
-    object = o;
-    [self setButtonType: t];
-    [self setBezelStyle: NSRoundedBezelStyle];
-    [self setTarget: self];
-    [self setAction: @selector(handleClick:)];
-  }
-  return self;
-}
--(IBAction)handleClick: (id)sender
-{
-  shoes_button_send_click(object);
-}
-@end
-
-@implementation ShoesTextField
-- (id)initWithFrame: (NSRect)frame andObject: (VALUE)o
-{
-  if ((self = [super initWithFrame: frame]))
-  {
-    object = o;
-    [self setBezelStyle: NSRegularSquareBezelStyle];
-    [self setDelegate: self];
-  }
-  return self;
-}
--(void)textDidChange: (NSNotification *)n
-{
-  shoes_control_send(object, s_change);
-}
-@end
-
-@implementation ShoesSecureTextField
-- (id)initWithFrame: (NSRect)frame andObject: (VALUE)o
-{
-  if ((self = [super initWithFrame: frame]))
-  {
-    object = o;
-    [self setBezelStyle: NSRegularSquareBezelStyle];
-    [self setDelegate: self];
-  }
-  return self;
-}
--(void)textDidChange: (NSNotification *)n
-{
-  shoes_control_send(object, s_change);
-}
-@end
-
-@implementation ShoesTextView
-- (id)initWithFrame: (NSRect)frame andObject: (VALUE)o
-{
-  if ((self = [super initWithFrame: frame]))
-  {
-    object = o;
-    textView = [[NSTextView alloc] initWithFrame:
-      NSMakeRect(0, 0, frame.size.width, frame.size.height)];
-    [textView setVerticallyResizable: YES];
-    [textView setHorizontallyResizable: YES];
-    
-    [self setBorderType: NSBezelBorder];
-    [self setHasVerticalScroller: YES];
-    [self setHasHorizontalScroller: NO];
-    [self setDocumentView: textView];
-    [textView setDelegate: self];
-  }
-  return self;
-}
--(NSTextStorage *)textStorage
-{
-  return [textView textStorage];
-}
--(void)textDidChange: (NSNotification *)n
-{
-  shoes_control_send(object, s_change);
-}
-@end
-
-@implementation ShoesPopUpButton
-- (id)initWithFrame: (NSRect)frame andObject: (VALUE)o
-{
-  if ((self = [super initWithFrame: frame pullsDown: NO]))
-  {
-    object = o;
-    [self setTarget: self];
-    [self setAction: @selector(handleChange:)];
-  }
-  return self;
-}
--(IBAction)handleChange: (id)sender
-{
-  shoes_control_send(object, s_change);
-}
-@end
-
-@implementation ShoesSlider
-- (id)initWithObject: (VALUE)o
-{
-  if ((self = [super init]))
-  {
-    object = o;
-    [self setTarget: self];
-    [self setAction: @selector(handleChange:)];
-  }
-  return self;
-}
--(IBAction)handleChange: (id)sender
-{
-  shoes_control_send(object, s_change);
-}
-@end
-
-@implementation ShoesAlert
-- (id)init
-{
-  if ((self = [super initWithContentRect: NSMakeRect(0, 0, 340, 140)
-    styleMask: NSTitledWindowMask backing: NSBackingStoreBuffered defer: NO]))
-  {
-    answer = FALSE;
-    [self setDelegate: self];
-  }
-  return self;
-}
--(IBAction)cancelClick: (id)sender
-{
-  [[NSApplication sharedApplication] stopModal];
-}
--(IBAction)okClick: (id)sender
-{
-  answer = TRUE;
-  [[NSApplication sharedApplication] stopModal];
-}
-- (void)windowWillClose: (NSNotification *)n
-{
-  [[NSApplication sharedApplication] stopModal];
-}
-- (BOOL)accepted
-{
-  return answer;
-}
-@end
-
-@implementation ShoesTimer
-- (id)initWithTimeInterval: (NSTimeInterval)i andObject: (VALUE)o repeats: (BOOL)r
-{
-  if ((self = [super init]))
-  {
-    object = o;
-    timer = [NSTimer scheduledTimerWithTimeInterval: i
-      target: self selector: @selector(animate:) userInfo: self
-      repeats: r];
-  }
-  return self;
-}
-- (void)animate: (NSTimer *)t
-{
-  shoes_timer_call(object);
-}
-- (void)invalidate
-{
-  [timer invalidate];
-}
-@end
-
-void
-add_to_menubar(NSMenu *main, NSMenu *menu)
-{
-    NSMenuItem *dummyItem = [[NSMenuItem alloc] initWithTitle:@""
-        action:nil keyEquivalent:@""];
-    [dummyItem setSubmenu:menu];
-    [main addItem:dummyItem];
-    [dummyItem release];
-}
-
-void
-create_apple_menu(NSMenu *main)
-{
-    NSMenuItem *menuitem;
-    // Create the application (Apple) menu.
-    NSMenu *menuApp = [[NSMenu alloc] initWithTitle: @"Apple Menu"];
-
-    NSMenu *menuServices = [[NSMenu alloc] initWithTitle: @"Services"];
-    [NSApp setServicesMenu:menuServices];
-
-    menuitem = [menuApp addItemWithTitle:@"Open..."
-        action:@selector(openFile:) keyEquivalent:@"o"];
-    [menuitem setTarget: shoes_world->os.events];
-    menuitem = [menuApp addItemWithTitle:@"Package..."
-        action:@selector(package:) keyEquivalent:@"P"];
-    [menuitem setTarget: shoes_world->os.events];
-    [menuApp addItemWithTitle:@"Preferences..." action:nil keyEquivalent:@""];
-    [menuApp addItem: [NSMenuItem separatorItem]];
-    menuitem = [[NSMenuItem alloc] initWithTitle: @"Services"
-        action:nil keyEquivalent:@""];
-    [menuitem setSubmenu:menuServices];
-    [menuApp addItem: menuitem];
-    [menuitem release];
-    [menuApp addItem: [NSMenuItem separatorItem]];
-    menuitem = [[NSMenuItem alloc] initWithTitle:@"Hide"
-        action:@selector(hide:) keyEquivalent:@""];
-    [menuitem setTarget: NSApp];
-    [menuApp addItem: menuitem];
-    [menuitem release];
-    menuitem = [[NSMenuItem alloc] initWithTitle:@"Hide Others"
-        action:@selector(hideOtherApplications:) keyEquivalent:@""];
-    [menuitem setTarget: NSApp];
-    [menuApp addItem: menuitem];
-    [menuitem release];
-    menuitem = [[NSMenuItem alloc] initWithTitle:@"Show All"
-        action:@selector(unhideAllApplications:) keyEquivalent:@""];
-    [menuitem setTarget: NSApp];
-    [menuApp addItem: menuitem];
-    [menuitem release];
-    [menuApp addItem: [NSMenuItem separatorItem]];
-    menuitem = [[NSMenuItem alloc] initWithTitle:@"Quit"
-        action:@selector(terminate:) keyEquivalent:@"q"];
-    [menuitem setTarget: NSApp];
-    [menuApp addItem: menuitem];
-    [menuitem release];
-
-    [NSApp setAppleMenu:menuApp];
-    add_to_menubar(main, menuApp);
-    [menuApp release];
-}
-
-void
-create_edit_menu(NSMenu *main)
-{
-    NSMenuItem *menuitem;
-    NSMenu *menuEdit = [[NSMenu alloc] initWithTitle: @"Edit"];
-
-    menuitem = [menuEdit addItemWithTitle:@"Undo"
-        action:@selector(undo:) keyEquivalent:@"z"];
-    [menuitem setTarget: shoes_world->os.events];
-    menuitem = [menuEdit addItemWithTitle:@"Redo"
-        action:@selector(redo:) keyEquivalent:@"Z"];
-    [menuitem setTarget: shoes_world->os.events];
-    [menuEdit addItem: [NSMenuItem separatorItem]];
-    menuitem = [menuEdit addItemWithTitle:@"Cut"
-        action:@selector(cut:) keyEquivalent:@"x"];
-    [menuitem setTarget: shoes_world->os.events];
-    menuitem = [menuEdit addItemWithTitle:@"Copy"
-        action:@selector(copy:) keyEquivalent:@"c"];
-    [menuitem setTarget: shoes_world->os.events];
-    menuitem = [menuEdit addItemWithTitle:@"Paste"
-        action:@selector(paste:) keyEquivalent:@"v"];
-    [menuitem setTarget: shoes_world->os.events];
-    menuitem = [menuEdit addItemWithTitle:@"Select All"
-        action:@selector(selectAll:) keyEquivalent:@"a"];
-    [menuitem setTarget: shoes_world->os.events];
-    add_to_menubar(main, menuEdit);
-    [menuEdit release];
-}
-
-void
-create_window_menu(NSMenu *main)
-{   
-    NSMenu *menuWindows = [[NSMenu alloc] initWithTitle: @"Window"];
-
-    [menuWindows addItemWithTitle:@"Minimize"
-        action:@selector(performMiniaturize:) keyEquivalent:@""];
-    [menuWindows addItemWithTitle:@"Close current Window"
-        action:@selector(performClose:) keyEquivalent:@"w"];
-    [menuWindows addItem: [NSMenuItem separatorItem]];
-    [menuWindows addItemWithTitle:@"Bring All to Front"
-        action:@selector(arrangeInFront:) keyEquivalent:@""];
-
-    [NSApp setWindowsMenu:menuWindows];
-    add_to_menubar(main, menuWindows);
-    [menuWindows release];
-}
-
-void
-create_help_menu(NSMenu *main)
-{   
-    NSMenuItem *menuitem;
-    NSMenu *menuHelp = [[NSMenu alloc] initWithTitle: @"Help"];
-    menuitem = [menuHelp addItemWithTitle:@"Console"
-        action:@selector(showLog:) keyEquivalent:@"/"];
-    [menuitem setTarget: shoes_world->os.events];
-    [menuHelp addItem: [NSMenuItem separatorItem]];
-    menuitem = [menuHelp addItemWithTitle:@"Manual"
-        action:@selector(help:) keyEquivalent:@"m"];
-    [menuitem setTarget: shoes_world->os.events];
-    add_to_menubar(main, menuHelp);
-    [menuHelp release];
-}
-
-VALUE
-shoes_font_list()
-{
-  INIT;
-  ATSFontIterator fi = NULL;
-  ATSFontRef fontRef = 0;
-  NSMutableArray *outArray;
-  VALUE ary = rb_ary_new(); 
-  if (noErr == ATSFontIteratorCreate(kATSFontContextLocal, nil, nil,
-         kATSOptionFlagsUnRestrictedScope, &fi))
-  {
-    while (noErr == ATSFontIteratorNext(fi, &fontRef))
-    {
-      NSString *fontName;
-      ATSFontGetName(fontRef, kATSOptionFlagsDefault, &fontName);
-      if (fontName != NULL)
-        rb_ary_push(ary, rb_str_new2([fontName UTF8String]));
-    }
-  }
-  
-  ATSFontIteratorRelease(&fi);
-  RELEASE;
-  rb_funcall(ary, rb_intern("uniq!"), 0);
-  rb_funcall(ary, rb_intern("sort!"), 0);
-  return ary;
-}
-
-VALUE
-shoes_load_font(const char *filename)
-{
-  FSRef fsRef;
-  FSSpec fsSpec;
-  Boolean isDir;
-  VALUE families = Qnil;
-  ATSFontContainerRef ref;
-  NSString *fontName;
-  FSPathMakeRef(filename, &fsRef, &isDir);
-  if (FSGetCatalogInfo(&fsRef, kFSCatInfoNone, NULL, NULL, &fsSpec, NULL) == noErr)
-  {
-    ATSFontActivateFromFileReference(&fsRef, kATSFontContextLocal, kATSFontFormatUnspecified, 
-      NULL, kATSOptionFlagsDefault, &ref);
-    if (ref != NULL)
-    {
-      int i = 0;
-      ItemCount count = 0;
-      ATSFontRef *fonts;
-      ATSFontFindFromContainer(ref, kATSOptionFlagsDefault, 0, NULL, &count); 
-      families = rb_ary_new();
-      if (count > 0)
-      {
-        fonts = SHOE_ALLOC_N(ATSFontRef, count);
-        ATSFontFindFromContainer(ref, kATSOptionFlagsDefault, count, fonts, &count); 
-        for (i = 0; i < count; i++)
-        {
-          fontName = NULL;
-          ATSFontGetName(fonts[i], kATSOptionFlagsDefault, &fontName);
-          if (fontName != NULL)
-            rb_ary_push(families, rb_str_new2([fontName UTF8String]));
-        }
-        SHOE_FREE(fonts);
-      }
-    }
-  }
-
-  shoes_update_fonts(shoes_font_list());
-  return families;
-}
-
-void shoes_native_init()
-{
-  INIT;
-  NSTimer *idle;
-  NSApplication *NSApp = [NSApplication sharedApplication];
-  NSMenu *main = [[NSMenu alloc] initWithTitle: @""];
-  shoes_world->os.events = [[ShoesEvents alloc] init];
-  [NSApp setMainMenu: main];
-  create_apple_menu(main);
-  create_edit_menu(main);
-  create_window_menu(main);
-  create_help_menu(main);
-  [NSApp setDelegate: shoes_world->os.events];
-
-  idle = [NSTimer scheduledTimerWithTimeInterval: 0.01
-    target: shoes_world->os.events selector: @selector(idle:) userInfo: nil
-    repeats: YES];
-  [[NSRunLoop currentRunLoop] addTimer: idle forMode: NSEventTrackingRunLoopMode];
-  RELEASE;
-}
-
-void shoes_native_cleanup(shoes_world_t *world)
-{
-  INIT;
-  [shoes_world->os.events release];
-  RELEASE;
-}
-
-void shoes_native_quit()
-{
-  INIT;
-  NSApplication *NSApp = [NSApplication sharedApplication];
-  [NSApp stop: nil];
-  RELEASE;
-}
-
-void shoes_get_time(SHOES_TIME *ts)
-{
-  gettimeofday(ts, NULL);
-}
-
-unsigned long shoes_diff_time(SHOES_TIME *start, SHOES_TIME *end)
-{
-  unsigned long usec;
-  if ((end->tv_usec-start->tv_usec)<0) {
-    usec = (end->tv_sec-start->tv_sec - 1) * 1000;
-    usec += (1000000 + end->tv_usec - start->tv_usec) / 1000;
-  } else {
-    usec = (end->tv_sec - start->tv_sec) * 1000;
-    usec += (end->tv_usec - start->tv_usec) / 1000;
-  }
-  return usec;
-}
-
-int shoes_throw_message(unsigned int name, VALUE obj, void *data)
-{
-  return shoes_catch_message(name, obj, data);
-}
-
-void shoes_native_slot_mark(SHOES_SLOT_OS *slot)
-{
-  rb_gc_mark_maybe(slot->controls);
-}
-
-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);
-  if (canvas->slot->vscroll)
-  {
-    shoes_native_slot_lengthen(canvas->slot, canvas->height, 1);
-  }
-}
-
-void shoes_native_slot_paint(SHOES_SLOT_OS *slot)
-{
-  [slot->view setNeedsDisplay: YES];
-}
-
-void shoes_native_slot_lengthen(SHOES_SLOT_OS *slot, int height, int endy)
-{
-  if (slot->vscroll)
-  {
-    float s = slot->scrolly * 1., e = endy * 1., h = height * 1., d = (endy - height) * 1.;
-    COCOA_DO({
-      [slot->vscroll setFloatValue: (d > 0 ? s / d : 0) knobProportion: (h / e)];
-      [slot->vscroll setHidden: endy <= height ? YES : NO];
-    });
-  }
-}
-
-void shoes_native_slot_scroll_top(SHOES_SLOT_OS *slot)
-{
-}
-
-int shoes_native_slot_gutter(SHOES_SLOT_OS *slot)
-{
-  return (int)[NSScroller scrollerWidth];
-}
-
-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);
-  }
-}
-
-shoes_code
-shoes_app_cursor(shoes_app *app, ID cursor)
-{
-  if (app->os.window == NULL || app->cursor == cursor)
-    goto done;
-
-  if (cursor == s_hand || cursor == s_link)
-    [[NSCursor pointingHandCursor] set];
-  else if (cursor == s_arrow)
-    [[NSCursor arrowCursor] set];
-  else if (cursor == s_text)
-    [[NSCursor IBeamCursor] set];
-  else
-    goto done;
-
-  app->cursor = cursor;
-
-done:
-  return SHOES_OK;
-}
-
-void
-shoes_native_app_resized(shoes_app *app)
-{
-  NSRect rect = [app->os.window frame];
-  rect.size.width = app->width;
-  rect.size.height = app->height;
-  [app->os.window setFrame: rect display: YES];
-}
-
-void
-shoes_native_app_title(shoes_app *app, char *msg)
-{
-  COCOA_DO([app->os.window setTitle: [NSString stringWithUTF8String: msg]]);
-}
-
-static ShoesWindow *
-shoes_native_app_window(shoes_app *app, int dialog)
-{
-  ShoesWindow *window;
-  unsigned int mask = NSTitledWindowMask | NSClosableWindowMask | NSMiniaturizableWindowMask;
-  NSRect rect = NSMakeRect(0, 0, app->width, app->height);
-  NSSize size = {app->minwidth, app->minheight};
-
-  if (app->resizable)
-    mask |= NSResizableWindowMask;
-  if (app->fullscreen) {
-    mask = NSBorderlessWindowMask;
-    rect = [[NSScreen mainScreen] frame];
-  }
-  window = [[ShoesWindow alloc] initWithContentRect: rect
-    styleMask: mask backing: NSBackingStoreBuffered defer: NO];
-  if (app->minwidth > 0 || app->minheight > 0)
-    [window setContentMinSize: size];
-  [window prepareWithApp: app->self];
-  return window;
-}
-
-void
-shoes_native_view_supplant(NSView *from, NSView *to)
-{
-  int i, count = [[from subviews] count];
-  for (i = 0; i < count; i++)
-    [to addSubview: [[from subviews] objectAtIndex: i]];
-}
-
-void
-shoes_native_app_fullscreen(shoes_app *app, char yn)
-{
-  ShoesWindow *old = app->os.window;
-  if (yn)
-  {
-    int level;
-    NSRect screen;
-    if (CGDisplayCapture(kCGDirectMainDisplay) != kCGErrorSuccess)
-      return;
-    app->os.normal = [old frame];
-    level = CGShieldingWindowLevel();
-    screen = [[NSScreen mainScreen] frame];
-    COCOA_DO({
-      app->width = screen.size.width;
-      app->height = screen.size.height;
-      app->os.window = shoes_native_app_window(app, 0);
-      [app->os.window setLevel: level];
-      shoes_native_view_supplant([old contentView], [app->os.window contentView]);
-      app->os.view = [app->os.window contentView];
-      [old disconnectApp];
-      [old close];
-      [app->os.window setFrame: screen display: YES];
-    });
-  }
-  else
-  {
-    COCOA_DO({
-      app->width = app->os.normal.size.width;
-      app->height = app->os.normal.size.height;
-      app->os.window = shoes_native_app_window(app, 0);
-      [app->os.window setLevel: NSNormalWindowLevel];
-      CGDisplayRelease(kCGDirectMainDisplay);
-      shoes_native_view_supplant([old contentView], [app->os.window contentView]);
-      app->os.view = [app->os.window contentView];
-      [old disconnectApp];
-      [old close];
-      [app->os.window setFrame: app->os.normal display: YES];
-    });
-  }
-}
-
-shoes_code
-shoes_native_app_open(shoes_app *app, char *path, int dialog)
-{
-  shoes_code code = SHOES_OK;
-  app->os.normal = NSMakeRect(0, 0, app->width, app->height);
-  COCOA_DO({
-    app->os.window = shoes_native_app_window(app, dialog);
-    app->slot->view = [app->os.window contentView];
-  });
-quit:
-  return code;
-}
-
-void
-shoes_native_app_show(shoes_app *app)
-{
-  COCOA_DO([app->os.window orderFront: nil]);
-}
-
-void
-shoes_native_loop()
-{
-  NSApplication *NSApp = [NSApplication sharedApplication];
-  [NSApp run];
-}
-
-void
-shoes_native_app_close(shoes_app *app)
-{
-  COCOA_DO([app->os.window close]);
-}
-
-void
-shoes_browser_open(char *url)
-{
-  VALUE browser = rb_str_new2("open ");
-  rb_str_cat2(browser, url);
-  shoes_sys(RSTRING_PTR(browser), 1);
-}
-
-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);
-
-  COCOA_DO({
-    slot = shoes_slot_alloc(canvas, parent, toplevel);
-    slot->controls = parent->controls;
-    slot->view = [[ShoesView alloc] initWithFrame: NSMakeRect(x, y, width, height) andCanvas: c];
-    [slot->view setAutoresizesSubviews: NO];
-    if (toplevel)
-      [slot->view setAutoresizingMask: (NSViewWidthSizable | NSViewHeightSizable)];
-    slot->vscroll = NULL;
-    if (scrolls)
-    {
-      slot->vscroll = [[NSScroller alloc] initWithFrame: 
-        NSMakeRect(width - [NSScroller scrollerWidth], 0, [NSScroller scrollerWidth], height)];
-      [slot->vscroll setEnabled: YES];
-      [slot->vscroll setTarget: slot->view];
-      [slot->vscroll setAction: @selector(scroll:)];
-      [slot->view addSubview: slot->vscroll];
-    }
-    if (parent->vscroll)
-      [parent->view addSubview: slot->view positioned: NSWindowBelow relativeTo: parent->vscroll];
-    else
-      [parent->view addSubview: slot->view];
-  });
-}
-
-void
-shoes_slot_destroy(shoes_canvas *canvas, shoes_canvas *pc)
-{
-  INIT;
-  if (canvas->slot->vscroll != NULL)
-    [canvas->slot->vscroll removeFromSuperview];
-  [canvas->slot->view removeFromSuperview];
-  RELEASE;
-}
-
-cairo_t *
-shoes_cairo_create(shoes_canvas *canvas)
-{
-  cairo_t *cr;
-  canvas->slot->surface = cairo_quartz_surface_create_for_cg_context(canvas->slot->context,
-    canvas->width, canvas->height);
-  cr = cairo_create(canvas->slot->surface);
-  cairo_translate(cr, 0, 0 - canvas->slot->scrolly);
-  return cr;
-}
-
-void shoes_cairo_destroy(shoes_canvas *canvas)
-{
-  cairo_surface_destroy(canvas->slot->surface);
-}
-
-void
-shoes_group_clear(SHOES_GROUP_OS *group)
-{
-}
-
-void
-shoes_native_canvas_place(shoes_canvas *self_t, shoes_canvas *pc)
-{
-  NSRect rect, rect2;
-  int newy = (self_t->place.iy + self_t->place.dy) - pc->slot->scrolly;
-  rect.origin.x = (self_t->place.ix + self_t->place.dx) * 1.;
-  rect.origin.y = ((newy) * 1.);
-  rect.size.width = (self_t->place.iw * 1.);
-  rect.size.height = (self_t->place.ih * 1.);
-  rect2 = [self_t->slot->view frame];
-  if (rect.origin.x != rect2.origin.x || rect.origin.y != rect2.origin.y ||
-      rect.size.width != rect2.size.width || rect.size.height != rect2.size.height)
-  {
-    [self_t->slot->view setFrame: rect];
-  }
-}
-
-void
-shoes_native_canvas_resize(shoes_canvas *canvas)
-{
-  NSSize size = {canvas->width, canvas->height};
-  [canvas->slot->view setFrameSize: size];
-}
-
-void
-shoes_native_control_hide(SHOES_CONTROL_REF ref)
-{
-  COCOA_DO([ref setHidden: YES]);
-}
-
-void
-shoes_native_control_show(SHOES_CONTROL_REF ref)
-{
-  COCOA_DO([ref setHidden: NO]);
-}
-
-static void
-shoes_native_control_frame(SHOES_CONTROL_REF ref, shoes_place *p)
-{
-  NSRect rect;
-  rect.origin.x = p->ix + p->dx; rect.origin.y = p->iy + p->dy;
-  rect.size.width = p->iw; rect.size.height = p->ih;
-  [ref setFrame: rect];
-}
-
-void
-shoes_native_control_position(SHOES_CONTROL_REF ref, shoes_place *p1, VALUE self,
-  shoes_canvas *canvas, shoes_place *p2)
-{
-  PLACE_COORDS();
-  if (canvas->slot->vscroll)
-    [canvas->slot->view addSubview: ref positioned: NSWindowBelow relativeTo: canvas->slot->vscroll];
-  else
-    [canvas->slot->view addSubview: ref];
-  shoes_native_control_frame(ref, p2);
-  rb_ary_push(canvas->slot->controls, self);
-}
-
-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()) {
-    PLACE_COORDS();
-    shoes_native_control_frame(ref, p2);
-  }
-  p2->iy += canvas->slot->scrolly;
-}
-
-void
-shoes_native_control_state(SHOES_CONTROL_REF ref, BOOL sensitive, BOOL setting)
-{
-  COCOA_DO({
-    [ref setEnabled: sensitive];
-    if ([ref respondsToSelector: @selector(setEditable:)])
-      [ref setEditable: setting];
-  });
-}
-
-void
-shoes_native_control_focus(SHOES_CONTROL_REF ref)
-{
-  COCOA_DO([[ref window] makeFirstResponder: ref]);
-}
-
-void
-shoes_native_control_remove(SHOES_CONTROL_REF ref, shoes_canvas *canvas)
-{
-  COCOA_DO([ref removeFromSuperview]);
-}
-
-void
-shoes_native_control_free(SHOES_CONTROL_REF ref)
-{
-}
-
-SHOES_SURFACE_REF
-shoes_native_surface_new(shoes_canvas *canvas, VALUE self, shoes_place *place)
-{
-  return canvas->app->os.window;
-}
-
-void
-shoes_native_surface_position(SHOES_SURFACE_REF ref, shoes_place *p1, 
-  VALUE self, shoes_canvas *canvas, shoes_place *p2)
-{
-  PLACE_COORDS();
-}
-
-void
-shoes_native_surface_hide(SHOES_SURFACE_REF ref)
-{
-  HIViewSetVisible(ref, false);
-}
-
-void
-shoes_native_surface_show(SHOES_SURFACE_REF ref)
-{
-  HIViewSetVisible(ref, true);
-}
-
-void
-shoes_native_surface_remove(shoes_canvas *canvas, SHOES_SURFACE_REF ref)
-{
-}
-
-SHOES_CONTROL_REF
-shoes_native_button(VALUE self, shoes_canvas *canvas, shoes_place *place, char *msg)
-{
-  INIT;
-  ShoesButton *button = [[ShoesButton alloc] initWithType: NSMomentaryPushInButton
-    andObject: self];
-  [button setTitle: [NSString stringWithUTF8String: msg]];
-  RELEASE;
-  return (NSControl *)button;
-}
-
-SHOES_CONTROL_REF
-shoes_native_edit_line(VALUE self, shoes_canvas *canvas, shoes_place *place, VALUE attr, char *msg)
-{
-  INIT;
-  NSTextField *field;
-  if (RTEST(ATTR(attr, secret)))
-    field = [[ShoesSecureTextField alloc] initWithFrame:
-      NSMakeRect(place->ix + place->dx, place->iy + place->dy,
-      place->ix + place->dx + place->iw, place->iy + place->dy + place->ih)
-      andObject: self];
-  else
-    field = [[ShoesTextField alloc] initWithFrame:
-      NSMakeRect(place->ix + place->dx, place->iy + place->dy,
-      place->ix + place->dx + place->iw, place->iy + place->dy + place->ih)
-      andObject: self];
-  [field setStringValue: [NSString stringWithUTF8String: msg]];
-  [field setEditable: YES];
-  RELEASE;
-  return (NSControl *)field;
-}
-
-VALUE
-shoes_native_edit_line_get_text(SHOES_CONTROL_REF ref)
-{
-  VALUE text = Qnil;
-  INIT;
-  text = rb_str_new2([[ref stringValue] UTF8String]);
-  RELEASE;
-  return text;
-}
-
-void
-shoes_native_edit_line_set_text(SHOES_CONTROL_REF ref, char *msg)
-{
-  COCOA_DO([ref setStringValue: [NSString stringWithUTF8String: msg]]);
-}
-
-SHOES_CONTROL_REF
-shoes_native_edit_box(VALUE self, shoes_canvas *canvas, shoes_place *place, VALUE attr, char *msg)
-{
-  INIT;
-  ShoesTextView *tv = [[ShoesTextView alloc] initWithFrame:
-    NSMakeRect(place->ix + place->dx, place->iy + place->dy,
-    place->ix + place->dx + place->iw, place->iy + place->dy + place->ih)
-    andObject: self];
-  shoes_native_edit_box_set_text((NSControl *)tv, msg);
-  RELEASE;
-  return (NSControl *)tv;
-}
-
-VALUE
-shoes_native_edit_box_get_text(SHOES_CONTROL_REF ref)
-{
-  VALUE text = Qnil;
-  INIT;
-  text = rb_str_new2([[[(ShoesTextView *)ref textStorage] string] UTF8String]);
-  RELEASE;
-  return text;
-}
-
-void
-shoes_native_edit_box_set_text(SHOES_CONTROL_REF ref, char *msg)
-{
-  COCOA_DO([[[(ShoesTextView *)ref textStorage] mutableString] setString: [NSString stringWithUTF8String: msg]]);
-}
-
-SHOES_CONTROL_REF
-shoes_native_list_box(VALUE self, shoes_canvas *canvas, shoes_place *place, VALUE attr, char *msg)
-{
-  INIT;
-  ShoesPopUpButton *pop = [[ShoesPopUpButton alloc] initWithFrame:
-    NSMakeRect(place->ix + place->dx, place->iy + place->dy,
-    place->ix + place->dx + place->iw, place->iy + place->dy + place->ih)
-    andObject: self];
-  RELEASE;
-  return (NSControl *)pop;
-}
-
-void
-shoes_native_list_box_update(SHOES_CONTROL_REF ref, VALUE ary)
-{
-  long i;
-  ShoesPopUpButton *pop = (ShoesPopUpButton *)ref;
-  COCOA_DO({
-    [pop removeAllItems];
-    for (i = 0; i < RARRAY_LEN(ary); i++)
-    {
-      VALUE msg_s = shoes_native_to_s(rb_ary_entry(ary, i));
-      char *msg = RSTRING_PTR(msg_s);
-      [[pop menu] insertItemWithTitle: [NSString stringWithUTF8String: msg] action: nil
-        keyEquivalent: @"" atIndex: i];
-    }
-  });
-}
-
-VALUE
-shoes_native_list_box_get_active(SHOES_CONTROL_REF ref, VALUE items)
-{
-  int sel = [(ShoesPopUpButton *)ref indexOfSelectedItem];
-  if (sel >= 0)
-    return rb_ary_entry(items, sel);
-  return Qnil;
-}
-
-void
-shoes_native_list_box_set_active(SHOES_CONTROL_REF ref, VALUE ary, VALUE item)
-{
-  int idx = rb_ary_index_of(ary, item);
-  if (idx < 0) return;
-  COCOA_DO([(ShoesPopUpButton *)ref selectItemAtIndex: idx]);
-}
-
-SHOES_CONTROL_REF
-shoes_native_progress(VALUE self, shoes_canvas *canvas, shoes_place *place, VALUE attr, char *msg)
-{
-  INIT;
-  NSProgressIndicator *pop = [[NSProgressIndicator alloc] init];
-  [pop setIndeterminate: FALSE];
-  [pop setDoubleValue: 0.];
-  [pop setBezeled: YES];
-  RELEASE;
-  return (NSControl *)pop;
-}
-
-double
-shoes_native_progress_get_fraction(SHOES_CONTROL_REF ref)
-{
-  return [(NSProgressIndicator *)ref doubleValue] * 0.01;
-}
-
-void
-shoes_native_progress_set_fraction(SHOES_CONTROL_REF ref, double perc)
-{
-  COCOA_DO([(NSProgressIndicator *)ref setDoubleValue: perc * 100.]);
-}
-
-SHOES_CONTROL_REF
-shoes_native_slider(VALUE self, shoes_canvas *canvas, shoes_place *place, VALUE attr, char *msg)
-{
-  INIT;
-  ShoesSlider *pop = [[ShoesSlider alloc] initWithObject: self];
-  [pop setMinValue: 0.];
-  [pop setMaxValue: 100.];
-  RELEASE;
-  return (NSControl *)pop;
-}
-
-double
-shoes_native_slider_get_fraction(SHOES_CONTROL_REF ref)
-{
-  return [(ShoesSlider *)ref doubleValue] * 0.01;
-}
-
-void
-shoes_native_slider_set_fraction(SHOES_CONTROL_REF ref, double perc)
-{
-  COCOA_DO([(ShoesSlider *)ref setDoubleValue: perc * 100.]);
-}
-
-SHOES_CONTROL_REF
-shoes_native_check(VALUE self, shoes_canvas *canvas, shoes_place *place, VALUE attr, char *msg)
-{
-  INIT;
-  ShoesButton *button = [[ShoesButton alloc] initWithType: NSSwitchButton andObject: self];
-  RELEASE;
-  return (NSControl *)button;
-}
-
-VALUE
-shoes_native_check_get(SHOES_CONTROL_REF ref)
-{
-  return [(ShoesButton *)ref state] == NSOnState ? Qtrue : Qfalse;
-}
-
-void
-shoes_native_check_set(SHOES_CONTROL_REF ref, int on)
-{
-  COCOA_DO([(ShoesButton *)ref setState: on ? NSOnState : NSOffState]);
-}
-
-SHOES_CONTROL_REF
-shoes_native_radio(VALUE self, shoes_canvas *canvas, shoes_place *place, VALUE attr, VALUE group)
-{
-  INIT;
-  ShoesButton *button = [[ShoesButton alloc] initWithType: NSRadioButton
-    andObject: self];
-  RELEASE;
-  return (NSControl *)button;
-}
-
-void
-shoes_native_timer_remove(shoes_canvas *canvas, SHOES_TIMER_REF ref)
-{
-  COCOA_DO([ref invalidate]);
-}
-
-SHOES_TIMER_REF
-shoes_native_timer_start(VALUE self, shoes_canvas *canvas, unsigned int interval)
-{
-  INIT;
-  ShoesTimer *timer = [[ShoesTimer alloc] initWithTimeInterval: interval * 0.001
-    andObject: self repeats:(rb_obj_is_kind_of(self, cTimer) ? NO : YES)];
-  RELEASE;
-  return timer;
-}
-
-VALUE
-shoes_native_clipboard_get(shoes_app *app)
-{
-  VALUE txt = Qnil;
-  INIT;
-  NSString *paste = [[NSPasteboard generalPasteboard] stringForType: NSStringPboardType];
-  if (paste) txt = rb_str_new2([paste UTF8String]);
-  RELEASE;
-  return txt;
-}
-
-void
-shoes_native_clipboard_set(shoes_app *app, VALUE string)
-{
-  COCOA_DO({
-    [[NSPasteboard generalPasteboard] declareTypes: [NSArray arrayWithObject: NSStringPboardType] owner: nil];
-    [[NSPasteboard generalPasteboard] setString: [NSString stringWithUTF8String: RSTRING_PTR(string)]
-      forType: NSStringPboardType];
-  });
-}
-
-VALUE
-shoes_native_to_s(VALUE text)
-{
-  text = rb_funcall(text, s_to_s, 0);
-  return text;
-}
-
-VALUE
-shoes_native_window_color(shoes_app *app)
-{
-  // float r, g, b, a;
-  // INIT;
-  // [[[app->os.window backgroundColor] colorUsingColorSpace: [NSColorSpace genericRGBColorSpace]] 
-  //   getRed: &r green: &g blue: &b alpha: &a];
-  // RELEASE;
-  // return shoes_color_new((int)(r * 255), (int)(g * 255), (int)(b * 255), (int)(a * 255));
-  return shoes_color_new(255, 255, 255, 255);
-}
-
-VALUE
-shoes_native_dialog_color(shoes_app *app)
-{
-  return shoes_native_window_color(app);
-}
-
-VALUE
-shoes_dialog_alert(VALUE self, VALUE msg)
-{
-  VALUE answer = Qnil;
-  COCOA_DO({
-    msg = shoes_native_to_s(msg);
-    NSAlert *alert = [NSAlert alertWithMessageText: @"Shoes says:"
-      defaultButton: @"OK" alternateButton: nil otherButton: nil 
-      informativeTextWithFormat: [NSString stringWithUTF8String: RSTRING_PTR(msg)]];
-    [alert runModal];
-  });
-  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);
-  COCOA_DO({
-    NSApplication *NSApp = [NSApplication sharedApplication];
-    ShoesAlert *alert = [[ShoesAlert alloc] init];
-    NSButton *okButton = [[[NSButton alloc] initWithFrame: 
-      NSMakeRect(244, 10, 88, 30)] autorelease];
-    NSButton *cancelButton = [[[NSButton alloc] initWithFrame: 
-      NSMakeRect(156, 10, 88, 30)] autorelease];
-    NSTextField *text = [[[NSTextField alloc] initWithFrame:
-      NSMakeRect(20, 110, 260, 18)] autorelease];
-    NSTextField *input;
-    if (RTEST(ATTR(args.a[1], secret)))
-      input = [[NSSecureTextField alloc] initWithFrame:NSMakeRect(20, 72, 300, 24)];
-    else
-      input = [[NSTextField alloc] initWithFrame:NSMakeRect(20, 72, 300, 24)];
-
-    [alert setTitle: @"Shoes asks:"];
-    [text setStringValue: [NSString stringWithUTF8String: RSTRING_PTR(args.a[0])]];
-    [text setBezeled: NO];
-    [text setBackgroundColor: [NSColor windowBackgroundColor]];
-    [text setEditable: NO];
-    [text setSelectable: NO];
-    [[alert contentView] addSubview: text];
-    [input setStringValue:@""];
-    [[alert contentView] addSubview: input];
-    [okButton setTitle: @"OK"];
-    [okButton setBezelStyle: 1];
-    [okButton setTarget: alert];
-    [okButton setAction: @selector(okClick:)];
-    [[alert contentView] addSubview: okButton];
-    [cancelButton setTitle: @"Cancel"];
-    [cancelButton setBezelStyle: 1];
-    [cancelButton setTarget: alert];
-    [cancelButton setAction: @selector(cancelClick:)];
-    [[alert contentView] addSubview: cancelButton];
-    [alert setDefaultButtonCell: okButton];
-    [NSApp runModalForWindow: alert];
-    if ([alert accepted])
-      answer = rb_str_new2([[input stringValue] UTF8String]);
-    [alert close];
-  });
-  return answer;
-}
-
-VALUE
-shoes_dialog_confirm(VALUE self, VALUE quiz)
-{
-  char *msg;
-  VALUE answer = Qnil;
-  COCOA_DO({
-    quiz = shoes_native_to_s(quiz);
-    msg = RSTRING_PTR(quiz);
-    NSAlert *alert = [NSAlert alertWithMessageText: @"Shoes asks:"
-      defaultButton: @"OK" alternateButton: @"Cancel" otherButton:nil 
-      informativeTextWithFormat: [NSString stringWithUTF8String: msg]];
-    answer = ([alert runModal] == NSOKButton ? Qtrue : Qfalse);
-  });
-  return answer;
-}
-
-VALUE
-shoes_dialog_color(VALUE self, VALUE title)
-{
-  Point where;
-  RGBColor colwh = { 0xFFFF, 0xFFFF, 0xFFFF };
-  RGBColor _color;
-  VALUE color = Qnil;
-  GLOBAL_APP(app);
-
-  where.h = where.v = 0;
-  title = shoes_native_to_s(title);
-  if (GetColor(where, RSTRING_PTR(title), &colwh, &_color))
-  {
-    color = shoes_color_new(_color.red/256, _color.green/256, _color.blue/256, SHOES_COLOR_OPAQUE);
-  }
-  return color;
-}
-
-static VALUE
-shoes_dialog_chooser(VALUE self, NSString *title, BOOL directories, VALUE attr)
-{
-  VALUE path = Qnil;
-  COCOA_DO({
-    NSOpenPanel* openDlg = [NSOpenPanel openPanel];
-    [openDlg setCanChooseFiles: !directories];
-    [openDlg setCanChooseDirectories: directories];
-    [openDlg setAllowsMultipleSelection: NO];
-    if ( [openDlg runModalForDirectory: nil file: nil] == NSOKButton )
-    {
-      NSArray* files = [openDlg filenames];
-      char *filename = [[files objectAtIndex: 0] UTF8String];
-      path = rb_str_new2(filename);
-    }
-  });
-  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...", NO, args.a[0]);
-}
-
-VALUE
-shoes_dialog_save(int argc, VALUE *argv, VALUE self)
-{
-  VALUE path = Qnil;
-  COCOA_DO({
-    NSSavePanel* saveDlg = [NSSavePanel savePanel];
-    if ( [saveDlg runModalForDirectory:nil file:nil] == NSOKButton )
-    {
-      char *filename = [[saveDlg filename] UTF8String];
-      path = rb_str_new2(filename);
-    }
-  });
-  return path;
-}
-
-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_chooser(self, @"Open folder...", YES, 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_chooser(self, @"Save folder...", YES, args.a[0]);
-}