shoes-core 4.0.0.pre3

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: bcbcba9d1c9969a08d30f3f2afef20d02ecc677e
+  data.tar.gz: 4c455368fa53653c7d1fb16e029625b8175ebcc0
+SHA512:
+  metadata.gz: dee92066957d08625a5b0f785aa480d7596a4a33b1096a4a5203bcf83b36890c68215bd69cc82a7f748d233fa4766caace13944e8c0b1b9dddcdee2e17778dda
+  data.tar.gz: 5c231e8b80f0c5c0f93b1a4d44cf1702155b188c4fbc0c51e95137838689aeddd4043c24e9f66cbea0bbe00db58884f2f1ccc720867ab12f595ebb7e6ff1b294

data/LICENSE

@@ -0,0 +1,31 @@
+Copyright (C) 2011 Steve Klabnik, Peter Fitzgibbons
+Copyright (c) 2008 why the lucky stiff
+Except:
+  fonts/Coolvetica.ttf (c) 1999 Ray Larabie
+  fonts/Lacuna.ttf (c) 2003 Glashaus, designed by Peter Hoffman
+  samples/expert-minesweeper.rb (c) 2008 que
+  samples/expert-othello.rb (c) 2008 Tieg Zaharia
+  samples/expert-tankspank.rb (c) 2008 Kevin C.
+  samples/good-clock.rb (c) 2008 Thomas Bell
+  samples/good-reminder.rb (c) 2008 Oliver Smith
+
+Permission is hereby granted, free of charge, to any person
+obtaining a copy of this software and associated documentation
+files (the "Software"), to deal in the Software without restriction,
+including without limitation the rights to use, copy, modify, merge,
+publish, distribute, sublicense, and/or sell copies of the Software,
+and to permit persons to whom the Software is furnished to do so,
+subject to the following conditions:
+  
+The above copyright notice and this permission notice shall be 
+included in all copies or substantial portions of the Software.
+   
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF
+ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
+TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
+PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT
+SHALL THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR
+OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT
+OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

data/README.md

@@ -0,0 +1,8 @@
+# shoes-core
+
+This is the primary, backend-agnostic implementation of shoes.  This gem is
+intended for use with any Shoes backend, and defines the interactions between
+the DSL and the backend.
+
+`shoes-core` is also responsible for installation of the main `shoes`
+executable and `shoes-picker` executable for choosing a Shoes backend.

data/Rakefile

@@ -0,0 +1 @@
+require 'bundler/gem_tasks'

data/bin/shoes

@@ -0,0 +1,62 @@
+#!/usr/bin/env sh
+
+# This script is symlinked to be present as both bin/shoes and bin/shoes-stub
+# See ext/install/Rakefile for the full explanation of why we do that.
+
+# Don't try to cd on an empty $NEXT_DIR (link in same directory)
+mac_move_to_link_dir () {
+  # Skip if already in link directory
+  NEXT_DIR=$(dirname $1)
+  if [[ -n "$NEXT_DIR" ]]; then
+    cd $NEXT_DIR
+  fi
+}
+
+mac_readlink_f () {
+  # based on http://stackoverflow.com/questions/1055671/how-can-i-get-the-behavior-of-gnus-readlink-f-on-a-mac
+
+  # A relative or absolute path to a file, potentially a symlink
+  LINK=$1
+
+  if [ ! -L "$LINK" ] ; then
+    # Not a link, all good
+    echo $LINK
+    return
+  fi
+
+  # http://bosker.wordpress.com/2012/02/12/bash-scripters-beware-of-the-cdpath/
+  unset CDPATH
+
+  # Look up links until we find something that is not a symlink
+  while [ -L "$LINK" ] ; do
+    mac_move_to_link_dir $LINK
+    RELATIVE_LINK=$(basename $LINK)
+    LINK=$(readlink $RELATIVE_LINK)
+  done
+
+  # Now PATH is an unqualified file name, but we're in its directory, so turn
+  # it into an absolute path by prefixing with the current working directory.
+
+  PHYS_DIR=`pwd -P`
+  RESULT=$PHYS_DIR/$LINK
+  echo $RESULT
+}
+
+case "${MACHTYPE:-}" in
+  (*darwin*)
+    SCRIPT=$(mac_readlink_f $0);;
+  (*)
+    # see http://stackoverflow.com/a/1638397/1810896
+    SCRIPT=$(readlink -f "$0");;
+esac
+
+SCRIPTPATH=$(dirname "$SCRIPT")
+
+BACKEND_FILE="$SCRIPTPATH/shoes-backend"
+if [ ! -e "$BACKEND_FILE" ]
+then
+  $SCRIPTPATH/shoes-picker $SCRIPTPATH
+fi
+
+BACKEND_COMMAND=$(cat $BACKEND_FILE)
+$BACKEND_COMMAND $@

data/bin/shoes-guard

@@ -0,0 +1,8 @@
+#!/usr/bin/env sh
+case "${MACHTYPE:-}" in
+  (*darwin*)
+    swt_opt="-J-XstartOnFirstThread"
+    ;;
+esac
+
+eval "JRUBY_OPTS=${swt_opt:-} bundle exec guard"

data/bin/shoes-picker

@@ -0,0 +1,6 @@
+#!/usr/bin/env ruby
+lib_directory = File.expand_path('../../lib', __FILE__)
+$LOAD_PATH << lib_directory
+
+require 'shoes/ui/picker'
+Shoes::UI::Picker.new.run

data/bin/shoes-stub

@@ -0,0 +1,62 @@
+#!/usr/bin/env sh
+
+# This script is symlinked to be present as both bin/shoes and bin/shoes-stub
+# See ext/install/Rakefile for the full explanation of why we do that.
+
+# Don't try to cd on an empty $NEXT_DIR (link in same directory)
+mac_move_to_link_dir () {
+  # Skip if already in link directory
+  NEXT_DIR=$(dirname $1)
+  if [[ -n "$NEXT_DIR" ]]; then
+    cd $NEXT_DIR
+  fi
+}
+
+mac_readlink_f () {
+  # based on http://stackoverflow.com/questions/1055671/how-can-i-get-the-behavior-of-gnus-readlink-f-on-a-mac
+
+  # A relative or absolute path to a file, potentially a symlink
+  LINK=$1
+
+  if [ ! -L "$LINK" ] ; then
+    # Not a link, all good
+    echo $LINK
+    return
+  fi
+
+  # http://bosker.wordpress.com/2012/02/12/bash-scripters-beware-of-the-cdpath/
+  unset CDPATH
+
+  # Look up links until we find something that is not a symlink
+  while [ -L "$LINK" ] ; do
+    mac_move_to_link_dir $LINK
+    RELATIVE_LINK=$(basename $LINK)
+    LINK=$(readlink $RELATIVE_LINK)
+  done
+
+  # Now PATH is an unqualified file name, but we're in its directory, so turn
+  # it into an absolute path by prefixing with the current working directory.
+
+  PHYS_DIR=`pwd -P`
+  RESULT=$PHYS_DIR/$LINK
+  echo $RESULT
+}
+
+case "${MACHTYPE:-}" in
+  (*darwin*)
+    SCRIPT=$(mac_readlink_f $0);;
+  (*)
+    # see http://stackoverflow.com/a/1638397/1810896
+    SCRIPT=$(readlink -f "$0");;
+esac
+
+SCRIPTPATH=$(dirname "$SCRIPT")
+
+BACKEND_FILE="$SCRIPTPATH/shoes-backend"
+if [ ! -e "$BACKEND_FILE" ]
+then
+  $SCRIPTPATH/shoes-picker $SCRIPTPATH
+fi
+
+BACKEND_COMMAND=$(cat $BACKEND_FILE)
+$BACKEND_COMMAND $@

data/ext/install/Rakefile

@@ -0,0 +1,29 @@
+require 'rubygems'
+require 'fileutils'
+
+# Running JRuby on OS X requires options passed at the start. To pass those
+# options and avoid double JVM startup, we want 'shoes' to be a bash script on
+# Unix systems, but Rubygems only supports installing Ruby to the bin.
+
+# We work around this by installing our script as shoes-stub, then acting like
+# a "native extension" via this Rakefile, we manually generate the right script
+# (a copy of shoes-stub) in the Gem.bindir.
+
+# Because we don't actually declare shoes as an executable, we also have to
+# copy our shoes.bat into place as well on Windows systems.
+
+# We also provide a Rubygems plugin to clean up our manual file on uninstall.
+# Post-install hooks didn't seem to work, though, hence the extension trick.
+
+task :default => ['install_script']
+
+task :install_script do
+  if Gem.win_platform?
+    source_path = File.join(File.dirname(__FILE__), "shoes.bat")
+    dest_path = File.join(Gem.bindir, "shoes.bat")
+  else
+    source_path = File.join(File.dirname(__FILE__), "..", "..", "bin", "shoes-stub")
+    dest_path = File.join(Gem.bindir, "shoes")
+  end
+  FileUtils.cp(source_path, dest_path)
+end

data/ext/install/shoes.bat

@@ -0,0 +1,15 @@
+@setlocal enableextensions enabledelayedexpansion
+@echo off
+
+REM If we're running from source, bin/shoes.bat will have set bin_dir already.
+if not defined bin_dir set bin_dir=%~dp0
+
+if not exist !bin_dir!\shoes-backend (
+  REM TODO: Can we get rid of jruby in some way here? My Windows box didn't
+  REM have a global ruby installed by just installing jruby :(
+  jruby --1.9 !bin_dir!\shoes-picker !bin_dir!
+)
+
+set /p command=<!bin_dir!/shoes-backend
+call !command! %*
+endlocal

data/lib/rubygems_plugin.rb

@@ -0,0 +1,24 @@
+require 'rubygems'
+require 'fileutils'
+
+# See ext/install/Rakefile for why this cleanup is our responsibility.
+# Decide if user uninstalled executables based on our actual Ruby script.
+Gem.post_uninstall do |gem|
+  uninstalling_shoes = gem.spec.name == "shoes"
+  missing_executable = !File.exist?(File.join(Gem.bindir, "shoes-picker")) &&
+                       !File.exist?(File.join(Gem.bindir, "shoes-picker.bat"))
+
+  if uninstalling_shoes && missing_executable
+    puts "Removing shoes"
+    if Gem.win_platform?
+      FileUtils.rm(File.join(Gem.bindir, "shoes.bat"))
+    else
+      FileUtils.rm(File.join(Gem.bindir, "shoes"))
+    end
+
+    # Everybody potentially has a generated backend file in their bin
+    puts "Removing shoes-backend"
+    backend = File.join(Gem.bindir, "shoes-backend")
+    FileUtils.rm(backend) if File.exists?(backend)
+  end
+end

data/lib/shoes.rb

@@ -0,0 +1 @@
+require 'shoes/core'

data/lib/shoes/animation.rb

@@ -0,0 +1,56 @@
+class Shoes
+  class Animation
+    include Common::Inspect
+
+    # Creates a new Animation.
+    #
+    # @overload initialize(opts, &blk)
+    #   @param [Hash] opts An options hash
+    #   @param [Proc] blk A block of code to be executed for each
+    #     animation frame
+    #   @option opts [Integer] :framerate (24) The framerate (frames per second)
+    #   @option opts [Shoes::App] :app The current Shoes app
+    def initialize(app, opts, blk)
+      @style = opts
+      @framerate = @style[:framerate] || 10
+      @app = app
+      @blk = @app.current_slot.create_bound_block(blk)
+      @current_frame = 0
+      @stopped = false
+      @gui = Shoes.configuration.backend_for(self, @app.gui)
+    end
+
+    attr_reader :current_frame, :framerate, :blk
+
+    def start
+      @stopped = false
+    end
+
+    def stop
+      @stopped = true
+    end
+
+    def stopped?
+      @stopped
+    end
+
+    def toggle
+      @stopped = !@stopped
+    end
+
+    def remove
+      @removed = true
+    end
+
+    def removed?
+      @removed
+    end
+
+    # Increments the current frame by 1
+    #
+    # @return [Integer] The new current frame
+    def increment_frame
+      @current_frame += 1
+    end
+  end
+end

data/lib/shoes/app.rb

@@ -0,0 +1,130 @@
+class Shoes
+  ICON = File.join(DIR, 'static/shoes-icon.png').freeze
+
+  # Instantiates a new Shoes app.
+  #
+  # @param opts [Hash] A hash of options used instantiate the Shoes::App object with.
+  # @param blk  [Proc] The block containing the DSL instructions for the actual app.
+  #
+  # @example
+  #   Shoes.app(title: "Chunky") do
+  #     para "Bacon is awesome!"
+  #   end
+  #
+  # @return A new instance of Shoes::App
+  #
+  # @see Shoes::App#initialize
+
+  def self.app(opts = {}, &blk)
+    Shoes::App.new(opts, &blk)
+  end
+
+  # This is the user-facing App object. It is `self` inside of a Shoes.app
+  # block, and is the context in which a Shoes app is evaled. It delegates most
+  # of its functionality to an InternalApp object, which interacts with other
+  # Shoes objects. There should be no unnecessary instance variables or methods
+  # in this class, so users are free to use whatever names they choose for
+  # their own code.
+  class App
+    include DSL
+    include BuiltinMethods
+    include Common::Inspect
+
+    # Instantiates a new Shoes app.
+    #
+    # @param  opts [Hash] The options to initialize the app with.
+    # @param  blk  [Proc] The block containing the DSL instructions to be executed within the app.
+    #
+    # @option opts [String]  :title      ("Shoes 4") The title of the window
+    # @option opts [Boolean] :resizable  (true)      Whether the window is resizable
+    # @option opts [Boolean] :fullscreen (false)     Whether the app should start in fullscreen
+    # @option opts [Fixnum]  :width      (600)       The width of the app window
+    # @option opts [Fixnum]  :height     (500)       The height of the app window
+    #
+    # @see Dimension#initialize
+    def initialize(opts = {}, &blk)
+      @__app__ = Shoes::InternalApp.new(self, opts, &blk)
+      @__app__.setup_gui
+      Shoes.register self
+      @__app__.open_gui
+    end
+
+    # Shoes 3 exposes the app object like this, so we keep it for
+    # compatibility
+    def app
+      self
+    end
+
+    def window(options = {}, &block)
+      options.merge! owner: self
+      self.class.new(options, &block)
+    end
+
+    def close
+      quit
+    end
+
+    def quit
+      Shoes.unregister self
+      @__app__.quit
+    end
+
+    def parent
+      @__app__.current_slot.parent
+    end
+
+    %w(
+      width height owner started? location left top absolute_left
+      absolute_top click release clear fullscreen fullscreen=
+      contents wait_until_closed
+    ).each do |method|
+      define_method method do |*args, &block|
+        @__app__.public_send method, *args, &block
+      end
+    end
+
+    alias_method :fullscreen?, :fullscreen
+
+    def to_s
+      super.insert(-2, " \"#{@__app__.app_title}\"")
+    end
+
+    def inspect
+      super.insert(-2, " \"#{@__app__.app_title}\")")
+    end
+
+    def eval_with_additional_context(context, &blk)
+      @__additional_context__ = context
+      instance_eval(&blk) if blk
+    ensure
+      @__additional_context__ = nil
+    end
+
+    def method_missing(name, *args, &blk)
+      if @__additional_context__
+        @__additional_context__.public_send(name, *args, &blk)
+      else
+        super
+      end
+    end
+
+    DELEGATE_BLACKLIST = [:parent, :app]
+
+    # class definitions are evaluated top to bottom, want to have all of them
+    # so define at bottom
+    DELEGATE_METHODS = ((Shoes::App.public_instance_methods(false) +
+                         Shoes::DSL.public_instance_methods) - DELEGATE_BLACKLIST).freeze
+
+    def self.subscribe_to_dsl_methods(klazz)
+      klazz.extend Forwardable unless klazz.is_a? Forwardable
+      klazz.def_delegators :app, *DELEGATE_METHODS
+      @method_subscribers ||= []
+      @method_subscribers << klazz
+    end
+
+    def self.new_dsl_method(name, &blk)
+      define_method name, blk
+      @method_subscribers.each { |klazz| klazz.def_delegator :app, name }
+    end
+  end
+end