gglib 1.1.0

data/gemspec.txt

@@ -0,0 +1,15 @@
+spec = Gem::Specification.new do |s|
+  s.name = 'gglib'
+  s.version = '1.1.0'
+  s.summary = "A GUI Library for the Gosu graphics engine."
+  s.description = "A GUI library for the Gosu graphics engine."
+  s.files = Dir['lib/**/*.rb']
+  s.require_path = 'lib'
+  s.autorequire = 'builder'
+  s.has_rdoc = true
+  s.extra_rdoc_files = Dir['[A-Z]*']
+  s.rdoc_options << '--title' <<  'GGLib - A Gosu GUI Library'
+  s.author = "Praneeth Sadda"
+  s.email = "psadda@comcast.net"
+  s.homepage = "http://gglib.rubyforge.org"
+end

data/gglib.gemspec

@@ -0,0 +1,15 @@
+spec = Gem::Specification.new do |s|
+  s.name = 'gglib'
+  s.version = '1.1.0'
+  s.summary = "A GUI Library for the Gosu graphics engine."
+  s.description = "A GUI library for the Gosu graphics engine."
+  s.files = Dir['lib/**/*.rb']
+  s.require_path = 'lib'
+  s.autorequire = 'builder'
+  s.has_rdoc = true
+  s.extra_rdoc_files = Dir['[A-Z]*']
+  s.rdoc_options << '--title' <<  'GGLib - A Gosu GUI Library'
+  s.author = "Praneeth Sadda"
+  s.email = "psadda@comcast.net"
+  s.homepage = "http://gglib.rubyforge.org"
+end

data/lib/camera.rb

@@ -0,0 +1,7 @@
+class Camera
+  attr_accessor :x,:y
+  def initialize(x=0,y=0)
+    @x=x
+    @y=y
+  end
+end

data/lib/carray.rb

@@ -0,0 +1,71 @@
+module GGLib
+
+#CArray is an Array which does not compact. CArrays place a priority on preserving the indices of each element in order to allow identification of elements thier indices.
+#CArrays are used by the Window and Tile classes.
+
+class CArray < Array
+  public
+  @intsize
+  def initialize
+    @intsize=0
+    super
+  end
+  def push(item)
+    self[@intsize]=item
+    @intsize+=1
+    return @intsize-1
+  end
+  def <<(item)
+    self[@intsize]=item
+    @intsize+=1
+    return @intsize-1    
+  end
+  def each
+    i=0
+    while i<=@intsize
+      if self[i] !=nil
+        yield self[i]
+      end
+      i+=1
+    end
+  end
+  def delete(obj)
+    if obj!=nil
+      i=0
+      while i<=@intsize
+        if self[i] == obj
+          self[i]=nil
+        end
+        i+1
+      end
+    else
+      return nil
+    end
+  end
+  def delete_at(loc)
+    if loc<@intsize
+      self[loc]=nil
+    end
+    return self[loc+1]
+  end
+  def pp
+    puts "CArray: "
+    i=0
+    while i<=@intsize
+      if self[i] !=nil
+        puts i.to_s+"\t"+self[i].to_s
+      else
+        puts i.to_s+"\tnil"   
+      end
+      i+=1
+    end    
+  end
+  def compact
+    return false
+  end
+  def compact!
+    return false
+  end
+end
+
+end #module GGLib

data/lib/examples/BasicExample.rb

@@ -0,0 +1,71 @@
+begin
+  # In case you use Gosu via RubyGems.
+  require 'rubygems'
+rescue LoadError
+  # In case you don't.
+end
+
+#Load Gosu
+require "gosu"
+#Load GGLib
+require "../gglib"
+#Load some extra widgets for us to play with
+require "../ext/widgets"
+#And themes to make them look cool
+require "../ext/themes"
+
+class MyGUIWindow < GGLib::GUIWindow
+  def initialize
+    super(640, 480, false, 20)
+    self.caption = "GGLib Tutorial"
+    #Rather than override methods such as update, button_down,
+    #and draw, as we would with plain Gosu code, we will override
+    #these methods in state objects. This allows the user to switch
+    #between various game states, such as between menus and the
+    #actual game, without having to litter their functions with
+    #switch statements or if-else statements.
+    self.state = MyStateObj.new
+  end
+end
+
+#Now for our state object:
+class MyStateObj < GGLib::StateObject
+  #We can override the constructor as normal, but be careful not
+  #to mess around with the window here! The window does not belong
+  #to this state object yet: another state object is using it.
+  def initialize
+    super
+    @myvar = 42
+  end
+  #This method is called right after our state object gains ownership
+  #over the window. Now we can perform operations that modify the
+  #window.
+  def onStart
+    puts "MyStateObj activated."
+    #Since Gosu only allows one window instance at a time, the current
+    #window is automatically sotred in the global $window.
+    $window.setBackground("img/bggray.png")
+    #Whats a GUI Library without widgets?
+    #A textbox:
+    $textbox = GGLib::TextBox.new("textbox1", 242, 100, 12, GGLib::Themes::Windows)
+    #Some buttons:
+    GGLib::Button.new("button1", "Click Me", 270, 50, Proc.new{ |widget| $textbox.text = "Thank you" }, GGLib::Themes::Windows)
+    GGLib::Button.new("button2", "Exit", 270, 200, Proc.new{ |widget| $window.close; exit }, GGLib::Themes::Windows)
+  end
+  #This method is called right after our state object looses
+  #ownership of the window. The window is automatically reset, but
+  #if you modified anything other than the window, this is where you
+  #should clean it up.
+  def onEnd
+    puts "MyStateObj terminated."
+  end
+end
+
+#Create and launch the window.
+MyGUIWindow.new.show
+
+#To see how easy it is to customize your GUI with themeing, try 
+#replacing all of the instances of GGLib::Themes::BlueSteel in
+#this file to GGLib::Themes::Rubygoo for a Rubygoo like theme,
+#GGLib::Themes::Shade for a dark theme, and GGLib::Themes::Windows
+#for a Windows Vista like theme.

data/lib/examples/ConsoleDemo.rb

@@ -0,0 +1,26 @@
+begin
+  require 'rubygems'
+rescue LoadError
+end
+
+require "gosu"
+require "../gglib"
+require "../ext/widgets"
+require "../ext/themes"
+
+class ConsoleDemoWindow < GGLib::GUIWindow
+  def initialize
+    super(640, 480, false, 20)
+    self.caption = "GGLib Console Demo"
+    self.state = ConsoleDemoState.new
+  end
+end
+
+class ConsoleDemoState < GGLib::StateObject
+  def onStart
+    $window.setBackground("img/bg.png")
+    GGLib::Button.new("button2", "Open Console", 270, 200, Proc.new{ |widget| GGLib::DebugConsole.new }, GGLib::Themes::BlueSteel)
+  end
+end
+
+ConsoleDemoWindow.new.show

data/lib/examples/FadeIn.rb

@@ -0,0 +1,40 @@
+begin
+  # In case you use Gosu via RubyGems.
+  require 'rubygems'
+rescue LoadError
+  # In case you don't.
+end
+
+#Load Gosu
+require "gosu"
+#Load GGLib
+require "../gglib"
+#Load extra widgets (for ThemeButton)
+require "../ext/widgets"
+
+class FadeExample < GGLib::GUIWindow
+  def initialize
+    super(640, 480, false, 20)
+    self.caption = "GGLib Tutorial"
+    self.state = StartMenu.new
+  end
+end
+
+#The menu we will fade from
+class StartMenu < GGLib::StateObject
+  def onStart
+    $window.setBackground("img/splash.png")
+    GGLib::ThemeButton.new("button1", "Fade", 270, 200, Proc.new{ |widget| $window.state = GGLib::FadeScreen.new(EndMenu.new, 2) })
+  end
+end
+
+#The menu we will fade to
+class  EndMenu < GGLib::StateObject
+  def onStart
+    $window.setBackground("img/bg.png")
+    GGLib::ThemeButton.new("button1", "Fade Back", 270, 200, Proc.new{ |widget| $window.state = GGLib::FadeScreen.new(StartMenu.new, 2) })
+  end
+end
+
+#Launch the window
+FadeExample.new.show

data/lib/examples/SplashScreen.rb

@@ -0,0 +1,30 @@
+begin
+  # In case you use Gosu via RubyGems.
+  require 'rubygems'
+rescue LoadError
+  # In case you don't.
+end
+
+require "gosu"
+require "../gglib"
+require "../ext/splash"
+
+class MySplashScreen < GGLib::SplashScreen
+  def initialize
+    super(640, 480, "img/splash.png")
+  end
+  def load
+    #Put initialization code here.
+    #This example doesn't actually have to initialize anything,
+    #so we will just use Thread#sleep to kill some time.
+    sleep(1) 
+  end
+  def createWindow
+    #Once the load method is finished, create window is called.
+    #This is where we should initialize and lauch our window.
+    #We'll just resuse the routines from BasicExample.rb.
+    require "BasicExample"
+  end
+end
+
+MySplashScreen.new.show

data/lib/ext/splash.rb

@@ -0,0 +1,42 @@
+module GGLib
+
+class SplashScreen < Gosu::Window
+  def initialize(width=640, height=480, img = "null.png", caption = "Loading...")
+    super(width, height, false, 20)
+    self.caption = caption
+    @background_image = Gosu::Image.new(self, img, true)
+    @done=false
+  end
+  
+  #Override this method and include all initialization methods here *except for opening the window*.
+  def load
+    
+  end
+  
+  #Override with method with the code needed to initialize the main application window.
+  def createWindow
+    
+  end
+  
+  def update
+    load 
+    @done=true
+    if @done
+      puts "\nLaunching in:\n3"
+      sleep(1)
+      puts "2"
+      sleep(1)
+      puts "1"
+      sleep(1)
+      puts "0"
+      close
+      createWindow
+    end 
+  end
+
+  def draw
+    @background_image.draw(0, 0, 0)
+  end
+end
+
+end #module GGLib

data/lib/ext/themes.rb

@@ -0,0 +1,159 @@
+module GGLib
+
+$initthemes = false
+
+module Themes
+
+class BlueSteelTheme < ImageTheme
+  @@button = nil
+  def initialize
+    image = ThemeImageGroup.new( $gglroot+"/media/bluesteel/generic/menusmall.png", $gglroot+"/media/bluesteel/generic/menusmall.png", $gglroot+"/media/bluesteel/generic/menusmall.png" )
+    font = ThemeFontGroup.new( Gosu::Font.new($window, Gosu::default_font_name, 17), Gosu::Font.new($window, Gosu::default_font_name, 25), Gosu::Font.new($window, Gosu::default_font_name, 20))
+    super("BlueSteel.Generic", font, image)
+  end
+  def request(obj)
+    if @@button == nil #Can't initialize atglobal scope because $window may not have been set
+      @@button = ImageTheme.new("BlueSteel.Button", ThemeFontGroup.new( Gosu::Font.new($window, Gosu::default_font_name, 17), Gosu::Font.new($window, Gosu::default_font_name, 25), Gosu::Font.new($window, Gosu::default_font_name, 20)), ThemeImageGroup.new( $gglroot+"/media/bluesteel/button/button.png", $gglroot+"/media/bluesteel/button/buttonup.png" , $gglroot+"/media/bluesteel/button/buttonup.png" ))
+      @@textbox = ImageTheme.new("BlueSteel.TextBox", ThemeFontGroup.new( Gosu::Font.new($window, Gosu::default_font_name, 17), Gosu::Font.new($window, Gosu::default_font_name, 25), Gosu::Font.new($window, Gosu::default_font_name, 20)), ThemeImageGroup.new( $gglroot+"/media/bluesteel/textbox/textbox.png", $gglroot+"/media/bluesteel/textbox/textboxactive.png" , $gglroot+"/media/bluesteel/textbox/textboxactive.png" ))
+      @@label = ImageTheme.new("BlueSteel.Label", ThemeFontGroup.new( Gosu::Font.new($window, Gosu::default_font_name, 17), Gosu::Font.new($window, Gosu::default_font_name, 25), Gosu::Font.new($window, Gosu::default_font_name, 20)), ThemeImageGroup.new( $gglroot+"/null.png", $gglroot+"/null.png" , $gglroot+"/null.png" ) )
+    end
+    if obj.kind_of?(Button)
+      return @@button
+    elsif obj.kind_of?(TextBox)
+      return @@textbox
+    elsif obj.kind_of?(Label)
+      return @@label
+    end
+    return self
+  end
+end
+
+class RubygooTheme < DrawnTheme
+  @@textbox = nil
+  def initialize
+    font = ThemeFontGroup.new( Gosu::Font.new($window, Gosu::default_font_name, 17), Gosu::Font.new($window, Gosu::default_font_name, 25), Gosu::Font.new($window, Gosu::default_font_name, 20), 0xff000000, 0xff848484)
+    super("Rubygoo.Generic", font)
+  end
+  def request(obj)
+    if @@textbox == nil #Can't initialize atglobal scope because $window may not have been set
+      @@textbox = RubygooTextTheme.new
+      @@label = RubygooLabelTheme.new
+    end
+    if obj.kind_of?(TextBox)
+      return @@textbox
+    elsif obj.kind_of?(Label)
+      return @@label
+    end
+    return self
+  end
+  def draw(x1,y1, x2, y2, state)
+    if state == 1
+      $window.draw_quad(x1, y1, 0xffb22222, x2, y1, 0xffb22222, x1, y2, 0xffb22222, x2, y2, 0xffb22222, ZOrder::Widget) 
+      $window.draw_quad(x1+1, y1+1, 0xff6e6e6e, x2-1, y1+1, 0xff6e6e6e, x1+1, y2-1, 0xff6e6e6e, x2-1, y2-1, 0xff6e6e6e, ZOrder::Widget) 
+    else
+      $window.draw_quad(x1, y1, 0xffb22222, x2, y1, 0xffb22222, x1, y2, 0xffb22222, x2, y2, 0xffb22222, ZOrder::Widget) 
+      $window.draw_quad(x1+1, y1+1, 0xff808080, x2-1, y1+1, 0xff808080, x1+1, y2-1, 0xff808080, x2-1, y2-1, 0xff808080, ZOrder::Widget) 
+    end
+  end
+end
+
+class RubygooTextTheme < DrawnTheme
+  @@textbox = nil
+  def initialize
+    font = ThemeFontGroup.new( Gosu::Font.new($window, Gosu::default_font_name, 17), Gosu::Font.new($window, Gosu::default_font_name, 25), Gosu::Font.new($window, Gosu::default_font_name, 20), 0xff000000, 0xffb22222)
+    super("Rubygoo.TextBox", font)
+  end
+  def draw(x1,y1, x2, y2, state)
+    if state == 1
+      $window.draw_quad(x1, y1, 0xff6e6e6e, x2, y1, 0xff6e6e6e, x1, y2, 0xff6e6e6e, x2, y2, 0xff6e6e6e, ZOrder::Widget) 
+      $window.draw_quad(x1+2, y1+2, 0xff000000, x2-2, y1+2, 0xff000000, x1+2, y2-2, 0xff000000, x2-2, y2-2, 0xff000000, ZOrder::Widget) 
+      $window.draw_quad(x1+3, y1+3, 0xff6e6e6e, x2-3, y1+3, 0xff6e6e6e, x1+3, y2-3, 0xff6e6e6e, x2-3, y2-3, 0xff6e6e6e, ZOrder::Widget) 
+    else
+      $window.draw_quad(x1, y1, 0xff808080, x2, y1, 0xff808080, x1, y2, 0xff808080, x2, y2, 0xff808080, ZOrder::Widget) 
+      $window.draw_quad(x1+2, y1+2, 0xff000000, x2-2, y1+2, 0xff000000, x1+2, y2-2, 0xff000000, x2-2, y2-2, 0xff000000, ZOrder::Widget) 
+      $window.draw_quad(x1+3, y1+3, 0xff808080, x2-3, y1+3, 0xff808080, x1+3, y2-3, 0xff808080, x2-3, y2-3, 0xff808080, ZOrder::Widget) 
+    end
+  end
+end
+
+class RubygooLabelTheme < DrawnTheme
+  @@textbox = nil
+  def initialize
+    font = ThemeFontGroup.new( Gosu::Font.new($window, Gosu::default_font_name, 17), Gosu::Font.new($window, Gosu::default_font_name, 25), Gosu::Font.new($window, Gosu::default_font_name, 20), 0xff000000, 0xffb22222)
+    super("Rubygoo.Label", font)
+  end
+end
+
+class ShadeTheme < DrawnTheme
+  @@label = nil
+  def initialize
+    font = ThemeFontGroup.new( Gosu::Font.new($window, Gosu::default_font_name, 17), Gosu::Font.new($window, Gosu::default_font_name, 25), Gosu::Font.new($window, Gosu::default_font_name, 20), 0xffe6e6e6, 0xffb22222)
+    super("Shade.Generic", font)
+  end
+  def request(obj)
+    if @@label == nil #Can't initialize atglobal scope because $window may not have been set
+      @@label = ShadeLabelTheme.new
+    end
+    if obj.kind_of?(Label)
+      return @@label
+    end
+    return self
+  end
+  def draw(x1,y1, x2, y2, state)
+    if state == 1
+      $window.draw_quad(x1, y1, 0xff2e2e2e, x2, y1, 0xff2e2e2e, x1, y2, 0xff2e2e2e, x2, y2, 0xff2e2e2e, ZOrder::Widget) 
+      $window.draw_quad(x1+2, y1+2, 0xffbdbdbd, x2-2, y1+2, 0xffbdbdbd, x1+2, y2-2, 0xffbdbdbd, x2-2, y2-2, 0xffbdbdbd, ZOrder::Widget) 
+      $window.draw_quad(x1+3, y1+3, 0xff2e2e2e, x2-3, y1+3, 0xff2e2e2e, x1+3, y2-3, 0xff2e2e2e, x2-3, y2-3, 0xff2e2e2e, ZOrder::Widget) 
+    else
+      $window.draw_quad(x1, y1, 0xff2e2e2e, x2, y1, 0xff2e2e2e, x1, y2, 0xff2e2e2e, x2, y2, 0xff2e2e2e, ZOrder::Widget) 
+      $window.draw_quad(x1+2, y1+2, 0xffffffff, x2-2, y1+2, 0xffffffff, x1+2, y2-2, 0xffffffff, x2-2, y2-2, 0xffffffff, ZOrder::Widget) 
+      $window.draw_quad(x1+3, y1+3, 0xff2e2e2e, x2-3, y1+3, 0xff2e2e2e, x1+3, y2-3, 0xff2e2e2e, x2-3, y2-3, 0xff2e2e2e, ZOrder::Widget) 
+    end
+  end
+end
+
+class ShadeLabelTheme < DrawnTheme
+  @@textbox = nil
+  def initialize
+    font = ThemeFontGroup.new( Gosu::Font.new($window, Gosu::default_font_name, 17), Gosu::Font.new($window, Gosu::default_font_name, 25), Gosu::Font.new($window, Gosu::default_font_name, 20), 0xffe6e6e6, 0xff848484)
+    super("Shade.Label", font)
+  end
+end
+
+class WindowsTheme < ImageTheme
+  @@button = nil
+  def initialize
+    image = ThemeImageGroup.new( $gglroot+"/media/windows/generic/menusmall.png", $gglroot+"/media/bluesteel/generic/menusmall.png", $gglroot+"/media/bluesteel/generic/menusmall.png" )
+    font = ThemeFontGroup.new( Gosu::Font.new($window, Gosu::default_font_name, 17), Gosu::Font.new($window, Gosu::default_font_name, 25), Gosu::Font.new($window, Gosu::default_font_name, 20))
+    super("Windows.Generic", font, image)
+  end
+  def request(obj)
+    if @@button == nil #Can't initialize atglobal scope because $window may not have been set
+      @@button = ImageTheme.new("Windows.Button", ThemeFontGroup.new( Gosu::Font.new($window, Gosu::default_font_name, 17), Gosu::Font.new($window, Gosu::default_font_name, 25), Gosu::Font.new($window, Gosu::default_font_name, 20)), ThemeImageGroup.new( $gglroot+"/media/windows/button/button.png", $gglroot+"/media/windows/button/buttonup.png" , $gglroot+"/media/windows/button/buttondown.png" ))
+      @@textbox = ImageTheme.new("Windows.TextBox", ThemeFontGroup.new( Gosu::Font.new($window, Gosu::default_font_name, 17), Gosu::Font.new($window, Gosu::default_font_name, 25), Gosu::Font.new($window, Gosu::default_font_name, 20)), ThemeImageGroup.new( $gglroot+"/media/windows/textbox/textbox.png", $gglroot+"/media/windows/textbox/textboxup.png" , $gglroot+"/media/windows/textbox/textboxup.png" ))
+      @@label = ImageTheme.new("Windows.Label", ThemeFontGroup.new( Gosu::Font.new($window, Gosu::default_font_name, 17), Gosu::Font.new($window, Gosu::default_font_name, 25), Gosu::Font.new($window, Gosu::default_font_name, 20)), ThemeImageGroup.new( $gglroot+"/null.png", $gglroot+"/null.png" , $gglroot+"/null.png" ) )
+    end
+    if obj.kind_of?(Button)
+      return @@button
+    elsif obj.kind_of?(TextBox)
+      return @@textbox
+    elsif obj.kind_of?(Label)
+      return @@label
+    end
+    return self
+  end
+end
+
+$theme_init_hook = Proc.new {
+  unless $initthemes
+    Themes.const_set("BlueSteel", BlueSteelTheme.new)
+    Themes.const_set("Rubygoo", RubygooTheme.new)
+    Themes.const_set("Shade", ShadeTheme.new)
+    Themes.const_set("Windows", WindowsTheme.new)
+    $initthemes = true
+  end
+}
+  
+end #module Themes
+
+end #module GGLib