gglib 1.1.0 → 1.2.1

data/lib/mouse.rb

@@ -1,63 +1,63 @@
-module GGLib
-
-  class Cursor
-    attr_reader :img, :visible, :imgObj
-    def initialize(img,visible)
-      @img=img
-      @visible=visible
-      @imgObj=Gosu::Image.new($window,img,true)
-      @forced=false
-    end
-    def toggleVisible
-      if not @forced
-        @visible=!@visible
-      end
-    end
-    def forceVisible(visible=true)
-      @forced=true
-      @visible=visible
-    end
-    def unforceVisible
-      @forced=false
-    end
-    def visible?
-      return visible
-    end
-    def visible=(visible)
-      if not @forced
-        @visible=visible
-      end
-    end
-    def draw
-      if @visible
-        @imgObj.draw($window.mouse_x,$window.mouse_y,ZOrder::Cursor)
-      end
-    end
-  end
-  
-  class MouseDragEvent
-    attr_reader :start_x, :start_y, :end_x, :end_y, :inprogress, :starting
-    def initialize
-      @start_x, @start_y = 0
-      @end_x, @end_y = 0
-      @inprogress = false
-      @starting = false
-    end
-    def start
-      @start_x, @start_y = $window.mouse_x, $window.mouse_y
-      @starting = true
-    end
-    def confirmStart
-      @starting = false
-      @inprogress = true
-    end
-    def end
-      @end_x, @end_y = $window.mouse_x, $window.mouse_y
-      @inprogress = false
-    end
-    def terminate
-      @inprogress, @starting = false
-    end
-  end
-  
+module GGLib
+
+  class Cursor
+    attr_reader :img, :visible, :imgObj
+    def initialize(img,visible)
+      @img=img
+      @visible=visible
+      @imgObj=Gosu::Image.new($window,img,true)
+      @forced=false
+    end
+    def toggleVisible
+      if not @forced
+        @visible=!@visible
+      end
+    end
+    def forceVisible(visible=true)
+      @forced=true
+      @visible=visible
+    end
+    def unforceVisible
+      @forced=false
+    end
+    def visible?
+      return visible
+    end
+    def visible=(visible)
+      if not @forced
+        @visible=visible
+      end
+    end
+    def draw
+      if @visible
+        @imgObj.draw($window.mouse_x,$window.mouse_y,ZOrder::Cursor)
+      end
+    end
+  end
+  
+  class MouseDragEvent
+    attr_reader :start_x, :start_y, :end_x, :end_y, :inprogress, :starting
+    def initialize
+      @start_x, @start_y = 0
+      @end_x, @end_y = 0
+      @inprogress = false
+      @starting = false
+    end
+    def start
+      @start_x, @start_y = $window.mouse_x, $window.mouse_y
+      @starting = true
+    end
+    def confirmStart
+      @starting = false
+      @inprogress = true
+    end
+    def end
+      @end_x, @end_y = $window.mouse_x, $window.mouse_y
+      @inprogress = false
+    end
+    def terminate
+      @inprogress, @starting = false
+    end
+  end
+  
   end #module GGLib

data/lib/state.rb

@@ -1,137 +1,137 @@
-module GGLib
-
-#A StaticScreen is a menu. It suspends the game and redirects all input to itself.
-#StaticScreen is typically used through derivation, although it can be used otherwise.
-#StaticScreen#start suspends the game and starts the menu. StaticScreen#end returns to the game.
-
-class StateObject
-  #Begin rerouting input to the static screen. DO NOT OVERRIDE THIS METHOD.
-  def start 
-    $window.deleteAllImages
-    $window.cursor.forceVisible
-    onStart
-  end
-  #Return control to the GameWindow. DO NOT OVERRIDE THIS METHOD.
-  def end
-    onEnd
-    $window.deleteAllWidgets
-    $window.createWidgets
-    $window.deleteAllImages
-    $window.cursor.unforceVisible
-    onTerminate
-  end
-  #Equivalent to Gosu::Window#button_down
-  def button_down(id)
-    #do nothing by default
-  end
-  #Equivalent to Gosu::Window#button_down
-  def button_up(id)
-    #do nothing by default
-  end
-  #Equivalent to Gosu::Window#update
-  def update
-  end
-  #Returns a reference to the window to which the static screen is associated.
-  def window
-    return $window
-  end
-  #This method is called when the static screen is initialized. It is ment to be overridden in derived classes.
-  #This is a good place to preform tasks such as creating widgets.
-  def onStart
-  end
-  #This method is called when the static screen is uninitialized. It is ment to be overridden in derived classes.
-  #This is a good place to preform tasks such as stopping audio. Widgets are automatically destroyed on exit by the base class StaticScreen
-  def onEnd
-  end
-  def onTerminate
-  end
-  #Equivalent to Gosu::Window#draw
-  def draw
-  end
-end
-
-class  MenuBase < StateObject
-  def button_down(id)
-    #if id == Gosu::Button::KbEscape
-    #  close
-    if id == Gosu::Button::MsLeft
-      mouse($window.mouse_x,$window.mouse_y)
-    end
-  end
-  def mouse(x,y)
-    #does nothing by default
-  end
-end
-
-class FadeScreen < StateObject
-  public
-  attr_reader :widgetID
-  def initialize(fadeTo=nil, speed=1)
-    $faded=false
-    @image=Gosu::Image.new($window, $gglroot+"/media/black.bmp", true)
-    @fading=false
-    @speed=speed
-    @fadeTo=fadeTo
-    @color=Gosu::Color.new(0xffffffff)
-  end
-  def fading?
-    return @fading
-  end
-  def onStart
-    @fading=true
-    @alpha=0
-  end
-  def draw
-    if @fading
-      @alpha+=@speed
-      if @alpha > 255
-        @alpha=255
-      end
-      @color.alpha=@alpha
-      @image.draw(0, 0, ZOrder::Top+1, 640, 480, @color)
-      if @alpha == 255
-        endFade
-        @widgetID = FadeIn.new(@speed)
-      end
-    end
-  end
-  def endFade
-    @fading=false
-    @image=nil
-    self.end
-    @fadeTo.start if @fadeTo!=nil
-  end
-  
-  class FadeIn < Widget
-    def initialize(speed=5)
-      @image=Gosu::Image.new($window, $gglroot+"/media/black.bmp", true)
-      @speed=speed
-      @color=Gosu::Color.new(0x00ffffff)
-      @alpha=255
-      super(Button::Image, 0, 0, 0, 0)
-      wakeUp
-      stickFocus
-      $window.setFocus(nil)
-    end
-    def draw
-      @alpha-=@speed
-      if @alpha < 0
-        @alpha=0
-      end
-      @color.alpha=@alpha
-      @image.draw(0, 0, ZOrder::Top+1, 640, 480, @color)
-      if @alpha == 0
-        endFade
-      end
-    end
-    def endFade
-      unstickFocus
-      $window.setFocus(nil)
-      del
-      $faded=true
-    end
-  end
-  
-end
-
+module GGLib
+
+#A StaticScreen is a menu. It suspends the game and redirects all input to itself.
+#StaticScreen is typically used through derivation, although it can be used otherwise.
+#StaticScreen#start suspends the game and starts the menu. StaticScreen#end returns to the game.
+
+class StateObject
+  #Begin rerouting input to the static screen. DO NOT OVERRIDE THIS METHOD.
+  def start 
+    $window.deleteAllImages
+    $window.cursor.forceVisible
+    onStart
+  end
+  #Return control to the GameWindow. DO NOT OVERRIDE THIS METHOD.
+  def end
+    onEnd
+    $window.deleteAllWidgets
+    $window.createWidgets
+    $window.deleteAllImages
+    $window.cursor.unforceVisible
+    onTerminate
+  end
+  #Equivalent to Gosu::Window#button_down
+  def button_down(id)
+    #do nothing by default
+  end
+  #Equivalent to Gosu::Window#button_down
+  def button_up(id)
+    #do nothing by default
+  end
+  #Equivalent to Gosu::Window#update
+  def update
+  end
+  #Returns a reference to the window to which the static screen is associated.
+  def window
+    return $window
+  end
+  #This method is called when the static screen is initialized. It is ment to be overridden in derived classes.
+  #This is a good place to preform tasks such as creating widgets.
+  def onStart
+  end
+  #This method is called when the static screen is uninitialized. It is ment to be overridden in derived classes.
+  #This is a good place to preform tasks such as stopping audio. Widgets are automatically destroyed on exit by the base class StaticScreen
+  def onEnd
+  end
+  def onTerminate
+  end
+  #Equivalent to Gosu::Window#draw
+  def draw
+  end
+end
+
+class  MenuBase < StateObject
+  def button_down(id)
+    #if id == Gosu::Button::KbEscape
+    #  close
+    if id == Gosu::Button::MsLeft
+      mouse($window.mouse_x,$window.mouse_y)
+    end
+  end
+  def mouse(x,y)
+    #does nothing by default
+  end
+end
+
+class FadeScreen < StateObject
+  public
+  attr_reader :widgetID
+  def initialize(fadeTo=nil, speed=1)
+    $faded=false
+    @image=Gosu::Image.new($window, $gglroot+"/media/black.bmp", true)
+    @fading=false
+    @speed=speed
+    @fadeTo=fadeTo
+    @color=Gosu::Color.new(0xffffffff)
+  end
+  def fading?
+    return @fading
+  end
+  def onStart
+    @fading=true
+    @alpha=0
+  end
+  def draw
+    if @fading
+      @alpha+=@speed
+      if @alpha > 255
+        @alpha=255
+      end
+      @color.alpha=@alpha
+      @image.draw(0, 0, ZOrder::Top+1, 640, 480, @color)
+      if @alpha == 255
+        endFade
+        @widgetID = FadeIn.new(@speed)
+      end
+    end
+  end
+  def endFade
+    @fading=false
+    @image=nil
+    self.end
+    @fadeTo.start if @fadeTo!=nil
+  end
+  
+  class FadeIn < Widget
+    def initialize(speed=5)
+      @image=Gosu::Image.new($window, $gglroot+"/media/black.bmp", true)
+      @speed=speed
+      @color=Gosu::Color.new(0x00ffffff)
+      @alpha=255
+      super(:FadeIn, 0, 0, 0, 0)
+      wakeUp
+      stickFocus
+      $window.setFocus(nil)
+    end
+    def draw
+      @alpha-=@speed
+      if @alpha < 0
+        @alpha=0
+      end
+      @color.alpha=@alpha
+      @image.draw(0, 0, ZOrder::Top+1, 640, 480, @color)
+      if @alpha == 0
+        endFade
+      end
+    end
+    def endFade
+      unstickFocus
+      $window.setFocus(nil)
+      del
+      $faded=true
+    end
+  end
+  
+end
+
 end #module GGLib

data/lib/theme.rb

@@ -1,205 +1,205 @@
-module GGLib
-
-class Theme
-  attr_reader :name
-  def setDefaultState
-  end
-  def setOverState
-  end
-  def setDownState
-  end
-  #Returns an estimated width for the Theme. (May not be equal to the actual width.)
-  def width
-  end
-  #Returns an estimated height for the Theme. (May not be equal to the actual height.)
-  def height
-  end
-  def request(obj)
-    return self
-  end
-end
-
-class ImageTheme < Theme
-  attr_reader :image, :font, :width, :height
-  def initialize(name, font, image)
-    @name = name
-    @image = image
-    @width = Gosu::Image.new($window, @image.default).width
-    @height = Gosu::Image.new($window, @image.default).height
-    @font = font
-  end
-  def newInstance(obj)
-    return ImageThemeInstance.new(self, obj)
-  end
-end
-
-class DrawnTheme < Theme
-  attr_reader :font
-  def initialize(name, font)
-    @name = name
-    @font = font
-  end
-  def newInstance(obj)
-    return DrawnThemeInstance.new(self, obj)
-  end
-  def width
-    return 200
-  end
-  def height
-    return 50
-  end
-  def draw(x1, y1, x2, y2, state)
-  end  
-end
-
-class ThemeInstance
-  def initialize(klass, wid)
-    @klass = klass
-    @state = 1
-    @widget = wid
-    @x1 = @widget.x1
-    @y1 = @widget.y1
-    @x2 = @widget.x2
-    @y2 = @widget.y2
-    @klass = @klass.request(@widget)
-  end
-  def setCoords(x1,y1,x2,y2)
-    @x1 = x1
-    @y1 = y1
-    @x2 = x2
-    @y2 = y2    
-  end
-  def setDefaultState
-    @state = 1
-  end
-  def setOverState
-    @state = 2
-  end
-  def setDownState
-    @state = 3
-  end
-  def setSleepState
-  end
-  def setWakeState
-    @state = 1
-  end
-  def font
-    return @klass.font
-  end
-  def name
-    return @klass.name
-  end
-  def width
-    return @klass.width
-  end
-  def height
-    return @klass.height
-  end
-  def draw
-  end
-end
-
-class ImageThemeInstance < ThemeInstance
-  def initialize(klass, wid)
-    super(klass, wid)
-    @image = $window.newTexture(@x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.default)
-  end
-  def setCoords(x1,y1,x2,y2)
-    super(x1,y1,x2,y2)
-    return if @image == -1
-    if @state == 1
-      $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.default)
-    elsif @state == 2
-      $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.over)
-    elsif @state == 3
-      $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.down)
-    end
-  end
-  def setDefaultState
-    super
-    $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.default)
-  end
-  def setOverState
-    super
-    $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.over)
-  end
-  def setDownState
-    super
-    $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.down)
-  end
-  def setSleepState
-    super
-    @image = -1
-    $window.deleteImage(@image)
-  end
-  def setWakeState
-    super
-    @image = $window.newTexture(@x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.default)
-  end
-  def image
-    return @klass.image
-  end
-end
-
-class DrawnThemeInstance < ThemeInstance
-  def draw
-    @klass.draw(@x1, @y1, @x2, @y2, @state)
-  end
-end
-
-class ThemeFontGroup
-  attr_accessor :default, :header, :editable, :color, :selcolor
-  def initialize(default, header, editable, color=0xff000000, selcolor=0xff33FFFF)
-    @default = default
-    @header = header
-    @editable = editable
-    @color = color
-    @selcolor = selcolor
-  end
-end
-
-class ThemeImageGroup
-  attr_accessor :default, :over, :down
-  def initialize(default, over, down)
-    @default = default
-    @over = over
-    @down = down
-  end  
-end
-
-module Themes
-  public
-  def Themes.blank
-    ImageTheme.new(
-      "BlankTheme",
-      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
-  
-  def Themes.tracePanel 
-    ImageTheme.new(
-      "TraceTheme",
-      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/trace.png",
-        $gglroot+"/null.png",
-        $gglroot+"/null.png"
-      )
-    )
-  end
-end
-
+module GGLib
+
+class Theme
+  attr_reader :name
+  def setDefaultState
+  end
+  def setOverState
+  end
+  def setDownState
+  end
+  #Returns an estimated width for the Theme. (May not be equal to the actual width.)
+  def width
+  end
+  #Returns an estimated height for the Theme. (May not be equal to the actual height.)
+  def height
+  end
+  def request(obj)
+    return self
+  end
+end
+
+class ImageTheme < Theme
+  attr_reader :image, :font, :width, :height
+  def initialize(name, font, image)
+    @name = name
+    @image = image
+    @width = Gosu::Image.new($window, @image.default).width
+    @height = Gosu::Image.new($window, @image.default).height
+    @font = font
+  end
+  def newInstance(obj)
+    return ImageThemeInstance.new(self, obj)
+  end
+end
+
+class DrawnTheme < Theme
+  attr_reader :font
+  def initialize(name, font)
+    @name = name
+    @font = font
+  end
+  def newInstance(obj)
+    return DrawnThemeInstance.new(self, obj)
+  end
+  def width
+    return 200
+  end
+  def height
+    return 50
+  end
+  def draw(x1, y1, x2, y2, state)
+  end  
+end
+
+class ThemeInstance
+  def initialize(klass, wid)
+    @klass = klass
+    @state = 1
+    @widget = wid
+    @x1 = @widget.x1
+    @y1 = @widget.y1
+    @x2 = @widget.x2
+    @y2 = @widget.y2
+    @klass = @klass.request(@widget)
+  end
+  def setCoords(x1,y1,x2,y2)
+    @x1 = x1
+    @y1 = y1
+    @x2 = x2
+    @y2 = y2    
+  end
+  def setDefaultState
+    @state = 1
+  end
+  def setOverState
+    @state = 2
+  end
+  def setDownState
+    @state = 3
+  end
+  def setSleepState
+  end
+  def setWakeState
+    @state = 1
+  end
+  def font
+    return @klass.font
+  end
+  def name
+    return @klass.name
+  end
+  def width
+    return @klass.width
+  end
+  def height
+    return @klass.height
+  end
+  def draw
+  end
+end
+
+class ImageThemeInstance < ThemeInstance
+  def initialize(klass, wid)
+    super(klass, wid)
+    @image = $window.newTexture(@x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.default)
+  end
+  def setCoords(x1,y1,x2,y2)
+    super(x1,y1,x2,y2)
+    return if @image == -1
+    if @state == 1
+      $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.default)
+    elsif @state == 2
+      $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.over)
+    elsif @state == 3
+      $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.down)
+    end
+  end
+  def setDefaultState
+    super
+    $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.default)
+  end
+  def setOverState
+    super
+    $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.over)
+  end
+  def setDownState
+    super
+    $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.down)
+  end
+  def setSleepState
+    super
+    @image = -1
+    $window.deleteImage(@image)
+  end
+  def setWakeState
+    super
+    @image = $window.newTexture(@x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.default)
+  end
+  def image
+    return @klass.image
+  end
+end
+
+class DrawnThemeInstance < ThemeInstance
+  def draw
+    @klass.draw(@x1, @y1, @x2, @y2, @state)
+  end
+end
+
+class ThemeFontGroup
+  attr_accessor :default, :header, :editable, :color, :selcolor
+  def initialize(default, header, editable, color=0xff000000, selcolor=0xff33FFFF)
+    @default = default
+    @header = header
+    @editable = editable
+    @color = color
+    @selcolor = selcolor
+  end
+end
+
+class ThemeImageGroup
+  attr_accessor :default, :over, :down
+  def initialize(default, over, down)
+    @default = default
+    @over = over
+    @down = down
+  end  
+end
+
+module Themes
+  public
+  def Themes.blank
+    ImageTheme.new(
+      "BlankTheme",
+      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
+  
+  def Themes.tracePanel 
+    ImageTheme.new(
+      "TraceTheme",
+      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/trace.png",
+        $gglroot+"/null.png",
+        $gglroot+"/null.png"
+      )
+    )
+  end
+end
+
 end #module GGLib