shoes 3.0.1 → 4.0.0.pre1

data/platform/nix/shoes.launch

@@ -1,20 +0,0 @@
-#!/bin/bash
-
-REALPATH=`readlink -f $0`
-
-APPPATH="${REALPATH%/*}"
-if [ "$APPPATH" = "shoes" ]; then
-  APPPATH="."
-fi
-if [ "$APPPATH" = "." ]; then
-  APPPATH=`pwd`
-fi
-
-# makeself changes the directory to /tmp/selfgzNNNNN.  if we're in
-# an extracted archive, change back to the directory where we launched.
-if [ `pwd | awk '{ sub(/[0-9]+/, ""); print }'` = "/tmp/selfgz" ]; then
-  # fix the symlink, this is actually a bug in the minitar lib
-  rm -f libruby.so.1.9
-  ln -s libruby.so libruby.so.1.9
-  cd "$OLDPWD"
-fi

data/platform/skel.rb

@@ -1,27 +0,0 @@
-def skel_replace(line)
-  line.gsub! /\s+%DEFAULTS%/ do
-    if APPARGS
-      args = APPARGS.split(/\s+/)
-      %{
-        char *default_argv[] = {argv[0], #{args.inspect[1..-2]}};
-        argv = default_argv;
-        argc = #{args.length + 1};
-      }
-    end
-  end
-  line
-end
-
-# preprocess .skel
-task :build_skel do |t|
-  Dir["bin/*.skel"].each do |src|
-    name = src.gsub(/\.skel$/, '.c')
-    File.open(src) do |skel|
-      File.open(name, 'w') do |c|
-        skel.each_line do |line|
-          c << skel_replace(line)
-        end
-      end
-    end
-  end
-end

data/rakefile_darwin.rb

@@ -1,7 +0,0 @@
-require File.expand_path('make/rakefile_common')
-require File.expand_path('make/darwin/env')
-require File.expand_path('make/darwin/tasks')
-
-task :stub do
-  MakeDarwin.make_stub
-end

data/rakefile_linux.rb

@@ -1,3 +0,0 @@
-require File.expand_path('make/rakefile_common')
-require File.expand_path('make/linux/env')
-require File.expand_path('make/linux/tasks')

data/rakefile_mingw.rb

@@ -1,7 +0,0 @@
-require File.expand_path('make/rakefile_common')
-require File.expand_path('make/mingw/env')
-require File.expand_path('make/mingw/tasks')
-
-rule ".o" => ".rc" do |t|
-  MakeMinGW.make_resource t
-end

data/samples/simple-chipmunk.rb

@@ -1,26 +0,0 @@
-# simple-chipmunk.rb
-require 'shoes/chipmunk'
-
-Shoes.app title: 'A Tiny Chipmunk Physics Demo' do
-  extend ChipMunk
-  space = cp_space
-  balls = []
-  
-  nofill
-  cp_line 0, 180, 200, 280, stroke: gold
-  cp_line 200, 280, 300, 270, stroke: gold
-  cp_line 250, 350, 350, 330
-  cp_line 170, 370, 220, 380
-  cp_line 100, 450, 300, 430, stroke: lightslategray
-  cp_line 300, 430, 500, 450, stroke: lightslategray
-
-  nostroke
-  oval(10, 30, 40, fill: blue).click{balls << cp_oval(30, 50, 20, stroke: blue, strokewidth: 2)}
-  oval(70, 40, 20, fill: green).click{balls << cp_oval(80, 50, 10, fill: green)}
-  oval(105, 45, 10, fill: red).click{balls << cp_oval(110, 50, 5, fill: red)}
-  
-  every do
-    6.times{space.step 1.0/60}
-    balls.each{|ball| ball.cp_move}
-  end
-end

data/samples/simple-menu1.rb

@@ -1,35 +0,0 @@
-class MenuPanel < Shoes::Widget
-  $boxes = []
-  def initialize(color, args)
-    $boxes << self
-    background color
-    para link("Box #{$boxes.length}", :stroke => white, :fill => nil).
-      click { visit "/" },
-        :margin => 18, :align => "center", :size => 20
-    yield
-  end
-end
-
-Shoes.app :width => 600, :height => 130 do
-  style(Link, :underline => nil)
-  style(LinkHover, :fill => nil, :underline => nil)
-  
-  expand = proc do
-    hover do |box|
-      if box.width < 170
-        a = animate 30 do
-          $boxes.each do |b|
-            b.width -= 5 if b != box and b.width > 140
-          end
-          box.width += 5
-          a.stop if box.width >= 170
-        end
-      end
-    end
-  end
-    
-  menu_panel green,  :width => 170, :height => 120, :margin => 4, &expand
-  menu_panel blue,   :width => 140, :height => 120, :margin => 4, &expand
-  menu_panel red,    :width => 140, :height => 120, :margin => 4, &expand
-  menu_panel purple, :width => 140, :height => 120, :margin => 4, &expand
-end

data/samples/simple-rubygems.rb

@@ -1,29 +0,0 @@
-#
-# The setup block will install gems before launching the 
-# rest of the app below it.
-#
-Shoes.setup do
-  gem 'bluecloth =2.0.6'
-  gem 'metaid'
-end
-
-require 'bluecloth'
-require 'metaid'
-
-Shoes.app :width => 300, :height => 400, :resizable => false do
-  background "#eed"
-
-  stack :margin => 40 do
-    tagline "Loaded Gems:", :align => "center", :underline => "single"
-    Gem.loaded_specs.each do |name, spec|
-      para "#{name}\n#{spec.version}", :align => "center"
-    end
-
-    caption "Total Gems: #{Gem.source_index.length}", :align => "center", :margin_bottom => 0
-    para "(includes unloaded gems)", :align => "center", :margin_top => 0
-    button "OK", :bottom => 30, :left => 0.4 do
-      self.close
-    end
-  end
-
-end

data/samples/simple-sqlite3.rb

@@ -1,13 +0,0 @@
-require 'sqlite3'
-Shoes.app :width => 350, :height => 130 do
-  db = SQLite3::Database.new "simple-sqlite3.db"
-  db.execute "create table t1 (t1key INTEGER PRIMARY KEY,data " \
-    "TEXT,num double,timeEnter DATE)"
-  db.execute "insert into t1 (data,num) values ('This is sample data',3)"
-  db.execute "insert into t1 (data,num) values ('More sample data',6)"
-  db.execute "insert into t1 (data,num) values ('Aurélio, Küng, Stärk, Uña, Łuksza',6)"
-  db.execute "insert into t1 (data,num) values ('And a little more',9)"
-  rows = db.execute "select * from t1"
-  rows.each{|k, d, n| para "#{k} : #{d} : #{n}\n"}
-end
-

data/shoes/app.c

@@ -1,591 +0,0 @@
-//
-// shoes/app.c
-// Abstract windowing for GTK, Quartz (OSX) and Win32.
-//
-#include <glib.h>
-#include "shoes/app.h"
-#include "shoes/internal.h"
-#include "shoes/ruby.h"
-#include "shoes/canvas.h"
-#include "shoes/world.h"
-#include "shoes/native.h"
-
-static void
-shoes_app_mark(shoes_app *app)
-{
-  shoes_native_slot_mark(app->slot);
-  rb_gc_mark_maybe(app->title);
-  rb_gc_mark_maybe(app->location);
-  rb_gc_mark_maybe(app->canvas);
-  rb_gc_mark_maybe(app->keypresses);
-  rb_gc_mark_maybe(app->nestslot);
-  rb_gc_mark_maybe(app->nesting);
-  rb_gc_mark_maybe(app->extras);
-  rb_gc_mark_maybe(app->styles);
-  rb_gc_mark_maybe(app->groups);
-  rb_gc_mark_maybe(app->owner);
-}
-
-static void
-shoes_app_free(shoes_app *app)
-{
-  SHOE_FREE(app->slot);
-  cairo_destroy(app->scratch);
-  RUBY_CRITICAL(free(app));
-}
-
-VALUE
-shoes_app_alloc(VALUE klass)
-{
-  shoes_app *app = SHOE_ALLOC(shoes_app);
-  SHOE_MEMZERO(app, shoes_app, 1);
-  app->slot = SHOE_ALLOC(SHOES_SLOT_OS);
-  SHOE_MEMZERO(app->slot, SHOES_SLOT_OS, 1);
-  app->slot->owner = app;
-  app->started = FALSE;
-  app->owner = Qnil;
-  app->location = Qnil;
-  app->canvas = shoes_canvas_new(cShoes, app);
-  app->keypresses = rb_hash_new();
-  app->nestslot = Qnil;
-  app->nesting = rb_ary_new();
-  app->extras = rb_ary_new();
-  app->groups = Qnil;
-  app->styles = Qnil;
-  app->title = Qnil;
-  app->width = SHOES_APP_WIDTH;
-  app->height = SHOES_APP_HEIGHT;
-  app->minwidth = 0;
-  app->minheight = 0;
-  app->fullscreen = FALSE;
-  app->resizable = TRUE;
-  app->cursor = s_arrow;
-  app->scratch = cairo_create(cairo_image_surface_create(CAIRO_FORMAT_ARGB32, 1, 1));
-  app->self = Data_Wrap_Struct(klass, shoes_app_mark, shoes_app_free, app);
-  rb_extend_object(app->self, cTypes);
-  return app->self;
-}
-
-VALUE
-shoes_app_new(VALUE klass)
-{
-  VALUE app = shoes_app_alloc(klass);
-  rb_ary_push(shoes_world->apps, app);
-  return app;
-}
-
-VALUE
-shoes_apps_get(VALUE self)
-{
-  return rb_ary_dup(shoes_world->apps);
-}
-
-static void
-shoes_app_clear(shoes_app *app)
-{
-  shoes_ele_remove_all(app->extras);
-  shoes_canvas_clear(app->canvas);
-  app->nestslot = Qnil;
-  app->groups = Qnil;
-}
-
-//
-// When a window is finished, call this to delete it from the master
-// list.  Returns 1 if all windows are gone.
-//
-int
-shoes_app_remove(shoes_app *app)
-{
-  shoes_app_clear(app);
-  rb_ary_delete(shoes_world->apps, app->self);
-  return (RARRAY_LEN(shoes_world->apps) == 0);
-}
-
-shoes_code
-shoes_app_resize(shoes_app *app, int width, int height)
-{
-  app->width = width;
-  app->height = height;
-  shoes_native_app_resized(app);
-  return SHOES_OK;
-}
-
-VALUE
-shoes_app_window(int argc, VALUE *argv, VALUE self, VALUE owner)
-{
-  rb_arg_list args;
-  VALUE attr = Qnil;
-  VALUE app = shoes_app_new(self == cDialog ? cDialog : cApp);
-  shoes_app *app_t;
-  char *url = "/";
-  Data_Get_Struct(app, shoes_app, app_t);
-
-  switch (rb_parse_args(argc, argv, "h,s|h,", &args))
-  {
-    case 1:
-      attr = args.a[0];
-    break;
-
-    case 2:
-      url = RSTRING_PTR(args.a[0]);
-      attr = args.a[1];
-    break;
-  }
-
-  if (rb_block_given_p()) rb_iv_set(app, "@main_app", rb_block_proc());
-  app_t->owner = owner;
-  app_t->title = ATTR(attr, title);
-  app_t->fullscreen = RTEST(ATTR(attr, fullscreen));
-  app_t->resizable = (ATTR(attr, resizable) != Qfalse);
-  app_t->hidden = (ATTR(attr, hidden) == Qtrue);
-  shoes_app_resize(app_t, ATTR2(int, attr, width, SHOES_APP_WIDTH), ATTR2(int, attr, height, SHOES_APP_HEIGHT));
-  if (RTEST(ATTR(attr, minwidth)))
-    app_t->minwidth = (ATTR(attr, minwidth) - 1) / 2;
-  if (RTEST(ATTR(attr, minheight)))
-    app_t->minheight = (ATTR(attr, minheight) -1) / 2;
-  shoes_canvas_init(app_t->canvas, app_t->slot, attr, app_t->width, app_t->height);
-  if (shoes_world->mainloop)
-    shoes_app_open(app_t, url);
-  return app;
-}
-
-VALUE
-shoes_app_main(int argc, VALUE *argv, VALUE self)
-{
-  return shoes_app_window(argc, argv, self, Qnil);
-}
-
-VALUE
-shoes_app_slot(VALUE app)
-{
-  shoes_app *app_t;
-  Data_Get_Struct(app, shoes_app, app_t);
-  return app_t->nestslot;
-}
-
-VALUE
-shoes_app_get_width(VALUE app)
-{
-  shoes_app *app_t;
-  Data_Get_Struct(app, shoes_app, app_t);
-  return INT2NUM(app_t->width);
-}
-
-VALUE
-shoes_app_get_height(VALUE app)
-{
-  shoes_app *app_t;
-  Data_Get_Struct(app, shoes_app, app_t);
-  return INT2NUM(app_t->height);
-}
-
-VALUE
-shoes_app_get_title(VALUE app)
-{
-  shoes_app *app_t;
-  Data_Get_Struct(app, shoes_app, app_t);
-  return app_t->title;
-}
-
-VALUE
-shoes_app_set_title(VALUE app, VALUE title)
-{
-  shoes_app *app_t;
-  Data_Get_Struct(app, shoes_app, app_t);
-  return app_t->title = title;
-}
-
-VALUE
-shoes_app_get_fullscreen(VALUE app)
-{
-  shoes_app *app_t;
-  Data_Get_Struct(app, shoes_app, app_t);
-  return app_t->fullscreen ? Qtrue : Qfalse;
-}
-
-VALUE
-shoes_app_set_fullscreen(VALUE app, VALUE yn)
-{
-  shoes_app *app_t;
-  Data_Get_Struct(app, shoes_app, app_t);
-  shoes_native_app_fullscreen(app_t, app_t->fullscreen = RTEST(yn));
-  return yn;
-}
-
-void
-shoes_app_title(shoes_app *app, VALUE title)
-{
-  char *msg;
-  if (!NIL_P(title))
-    app->title = title;
-  else
-    app->title = rb_str_new2(SHOES_APPNAME);
-  msg = RSTRING_PTR(app->title);
-  shoes_native_app_title(app, msg);
-}
-
-shoes_code
-shoes_app_start(VALUE allapps, char *uri)
-{
-  int i;
-  shoes_code code;
-  shoes_app *app;
-
-  for (i = 0; i < RARRAY_LEN(allapps); i++)
-  {
-    VALUE appobj2 = rb_ary_entry(allapps, i);
-    Data_Get_Struct(appobj2, shoes_app, app);
-    if (!app->started)
-    {
-      code = shoes_app_open(app, uri);
-      app->started = TRUE;
-      if (code != SHOES_OK)
-        return code;
-    }
-  }
-
-  return shoes_app_loop();
-}
-
-shoes_code
-shoes_app_open(shoes_app *app, char *path)
-{
-  shoes_code code = SHOES_OK;
-  int dialog = (rb_obj_class(app->self) == cDialog);
-
-  code = shoes_native_app_open(app, path, dialog);
-  if (code != SHOES_OK)
-    return code;
-
-  shoes_app_title(app, app->title);
-  if (app->slot != NULL) shoes_native_slot_reset(app->slot);
-  shoes_slot_init(app->canvas, app->slot, 0, 0, app->width, app->height, TRUE, TRUE);
-  code = shoes_app_goto(app, path);
-  if (code != SHOES_OK)
-    return code;
-
-  if (!app->hidden)
-    shoes_native_app_show(app);
-
-  return code;
-}
-
-shoes_code
-shoes_app_loop()
-{
-  if (shoes_world->mainloop)
-    return SHOES_OK;
-
-  shoes_world->mainloop = TRUE;
-  INFO("RUNNING LOOP.\n");
-  shoes_native_loop();
-  return SHOES_OK;
-}
-
-typedef struct
-{
-  shoes_app *app;
-  VALUE canvas;
-  VALUE block;
-  char ieval;
-  VALUE args;
-} shoes_exec;
-
-#ifdef RUBY_1_9
-struct METHOD {
-    VALUE oclass;		/* class that holds the method */
-    VALUE rklass;		/* class of the receiver */
-    VALUE recv;
-    ID id, oid;
-    void *body; /* NODE *body; */
-};
-#else
-struct METHOD {
-    VALUE klass, rklass;
-    VALUE recv;
-    ID id, oid;
-    int safe_level;
-    NODE *body;
-};
-#endif
-
-static VALUE
-rb_unbound_get_class(VALUE method)
-{
-  struct METHOD *data;
-  Data_Get_Struct(method, struct METHOD, data);
-  return data->rklass;
-}
-
-static VALUE
-shoes_app_run(VALUE rb_exec)
-{
-  shoes_exec *exec = (shoes_exec *)rb_exec;
-  rb_ary_push(exec->app->nesting, exec->canvas);
-  if (exec->ieval)
-  {
-    VALUE obj;
-    obj = mfp_instance_eval(exec->app->self, exec->block);
-    return obj;
-  }
-  else
-  {
-    int i;
-    VALUE vargs[10];
-    for (i = 0; i < RARRAY_LEN(exec->args); i++)
-      vargs[i] = rb_ary_entry(exec->args, i);
-    return rb_funcall2(exec->block, s_call, RARRAY_LEN(exec->args), vargs);
-  }
-}
-
-static VALUE
-shoes_app_exception(VALUE rb_exec, VALUE e)
-{
-  shoes_exec *exec = (shoes_exec *)rb_exec;
-  rb_ary_clear(exec->app->nesting);
-  shoes_canvas_error(exec->canvas, e);
-  return Qnil;
-}
-
-shoes_code
-shoes_app_visit(shoes_app *app, char *path)
-{
-  shoes_exec exec;
-  shoes_canvas *canvas;
-  VALUE meth;
-  Data_Get_Struct(app->canvas, shoes_canvas, canvas);
-
-  canvas->slot->scrolly = 0;
-  shoes_native_slot_clear(canvas);
-  shoes_app_clear(app);
-  shoes_app_reset_styles(app);
-  meth = rb_funcall(cShoes, s_run, 1, app->location = rb_str_new2(path));
-
-  VALUE app_block = rb_iv_get(app->self, "@main_app");
-  if (!NIL_P(app_block))
-    rb_ary_store(meth, 0, app_block);
-
-  exec.app = app;
-  exec.block = rb_ary_entry(meth, 0);
-  exec.args = rb_ary_entry(meth, 1);
-  if (rb_obj_is_kind_of(exec.block, rb_cUnboundMethod)) {
-    VALUE klass = rb_unbound_get_class(exec.block);
-    exec.canvas = app->nestslot = shoes_slot_new(klass, ssNestSlot, app->canvas);
-    exec.block = rb_funcall(exec.block, s_bind, 1, exec.canvas);
-    exec.ieval = 0;
-    rb_ary_push(canvas->contents, exec.canvas);
-  } else {
-    exec.canvas = app->nestslot = app->canvas;
-    exec.ieval = 1;
-  }
-
-  rb_rescue2(CASTHOOK(shoes_app_run), (VALUE)&exec, CASTHOOK(shoes_app_exception), (VALUE)&exec, rb_cObject, 0);
-
-  rb_ary_clear(exec.app->nesting);
-  return SHOES_OK;
-}
-
-shoes_code
-shoes_app_paint(shoes_app *app)
-{
-  shoes_canvas_paint(app->canvas);
-  return SHOES_OK;
-}
-
-shoes_code
-shoes_app_motion(shoes_app *app, int x, int y)
-{
-  app->mousex = x; app->mousey = y;
-  shoes_canvas_send_motion(app->canvas, x, y, Qnil);
-  return SHOES_OK;
-}
-
-shoes_code
-shoes_app_click(shoes_app *app, int button, int x, int y)
-{
-  app->mouseb = button;
-  shoes_canvas_send_click(app->canvas, button, x, y);
-  return SHOES_OK;
-}
-
-shoes_code
-shoes_app_release(shoes_app *app, int button, int x, int y)
-{
-  app->mouseb = 0;
-  shoes_canvas_send_release(app->canvas, button, x, y);
-  return SHOES_OK;
-}
-
-shoes_code
-shoes_app_wheel(shoes_app *app, ID dir, int x, int y)
-{
-  shoes_canvas *canvas;
-  Data_Get_Struct(app->canvas, shoes_canvas, canvas);
-  if (canvas->slot->vscroll)
-  {
-    if (dir == s_up)
-      shoes_slot_scroll_to(canvas, -16, 1);
-    else if (dir == s_down)
-      shoes_slot_scroll_to(canvas, 16, 1);
-  }
-  shoes_canvas_send_wheel(app->canvas, dir, x, y);
-  return SHOES_OK;
-}
-
-shoes_code
-shoes_app_keydown(shoes_app *app, VALUE key)
-{
-  if (!RTEST(rb_hash_aref(app->keypresses, key))) {
-    rb_hash_aset(app->keypresses, key, Qtrue);
-    shoes_canvas_send_keydown(app->canvas, key);
-  }
-  return SHOES_OK;
-}
-
-shoes_code
-shoes_app_keypress(shoes_app *app, VALUE key)
-{
-  if (key == symAltSlash)
-    rb_eval_string("Shoes.show_log");
-  else if (key == symAltQuest)
-    rb_eval_string("Shoes.show_manual");
-  else if (key == symAltDot)
-    rb_eval_string("Shoes.show_selector");
-  else
-    shoes_canvas_send_keypress(app->canvas, key);
-  return SHOES_OK;
-}
-
-shoes_code
-shoes_app_keyup(shoes_app *app, VALUE key)
-{
-  rb_hash_aset(app->keypresses, key, Qfalse);
-  shoes_canvas_send_keyup(app->canvas, key);
-  return SHOES_OK;
-}
-
-VALUE
-shoes_sys(char *cmd, int detach)
-{
-  if (detach)
-    return rb_funcall(rb_mKernel, rb_intern("system"), 1, rb_str_new2(cmd));
-  else
-    return rb_funcall(rb_mKernel, '`', 1, rb_str_new2(cmd));
-}
-
-shoes_code
-shoes_app_goto(shoes_app *app, char *path)
-{
-  shoes_code code = SHOES_OK;
-  const char http_scheme[] = "http://";
-  if (strlen(path) > strlen(http_scheme) && strncmp(http_scheme, path, strlen(http_scheme)) == 0) {
-    shoes_browser_open(path);
-  } else {
-    code = shoes_app_visit(app, path);
-    if (code == SHOES_OK)
-    {
-      shoes_app_motion(app, app->mousex, app->mousey);
-      shoes_slot_repaint(app->slot);
-    }
-  }
-  return code;
-}
-
-shoes_code
-shoes_slot_repaint(SHOES_SLOT_OS *slot)
-{
-  shoes_native_slot_paint(slot);
-  return SHOES_OK;
-}
-
-static void
-shoes_style_set(VALUE styles, VALUE klass, VALUE k, VALUE v)
-{
-  VALUE hsh = rb_hash_aref(styles, klass);
-  if (NIL_P(hsh))
-    rb_hash_aset(styles, klass, hsh = rb_hash_new());
-  rb_hash_aset(hsh, k, v);
-}
-
-#define STYLE(klass, k, v) \
-  shoes_style_set(app->styles, klass, \
-    ID2SYM(rb_intern("" # k)), rb_str_new2("" # v))
-
-void
-shoes_app_reset_styles(shoes_app *app)
-{
-  app->styles = rb_hash_new();
-  STYLE(cBanner,      size, 48);
-  STYLE(cTitle,       size, 34);
-  STYLE(cSubtitle,    size, 26);
-  STYLE(cTagline,     size, 18);
-  STYLE(cCaption,     size, 14);
-  STYLE(cPara,        size, 12);
-  STYLE(cInscription, size, 10);
-
-  STYLE(cCode,        family, monospace);
-  STYLE(cDel,         strikethrough, single);
-  STYLE(cEm,          emphasis, italic);
-  STYLE(cIns,         underline, single);
-  STYLE(cLink,        underline, single);
-  STYLE(cLink,        stroke, #06E);
-  STYLE(cLinkHover,   underline, single);
-  STYLE(cLinkHover,   stroke, #039);
-  STYLE(cStrong,      weight, bold);
-  STYLE(cSup,         rise,   10);
-  STYLE(cSup,         size,   x-small);
-  STYLE(cSub,         rise,   -10);
-  STYLE(cSub,         size,   x-small);
-}
-
-void
-shoes_app_style(shoes_app *app, VALUE klass, VALUE hsh)
-{
-  long i;
-  VALUE keys = rb_funcall(hsh, s_keys, 0);
-  for ( i = 0; i < RARRAY_LEN(keys); i++ )
-  {
-    VALUE key = rb_ary_entry(keys, i);
-    VALUE val = rb_hash_aref(hsh, key);
-    if (!SYMBOL_P(key)) key = rb_str_intern(key);
-    shoes_style_set(app->styles, klass, key, val);
-  }
-}
-
-VALUE
-shoes_app_close_window(shoes_app *app)
-{
-  shoes_native_app_close(app);
-  return Qnil;
-}
-
-VALUE
-shoes_app_location(VALUE self)
-{
-  shoes_app *app;
-  Data_Get_Struct(self, shoes_app, app);
-  return app->location;
-}
-
-VALUE
-shoes_app_is_started(VALUE self)
-{
-  shoes_app *app;
-  Data_Get_Struct(self, shoes_app, app);
-  return app->started ? Qtrue : Qfalse;
-}
-
-VALUE
-shoes_app_contents(VALUE self)
-{
-  shoes_app *app;
-  Data_Get_Struct(self, shoes_app, app);
-  return shoes_canvas_contents(app->canvas);
-}
-
-VALUE
-shoes_app_quit(VALUE self)
-{
-  shoes_native_quit();
-  return self;
-}